main.dfm

Delphi7高级应用开发配书源代码

object MainForm: TMainForm
  Left = 197
  Top = 165
  Width = 694
  Height = 452
  Caption = 'Word2000'#28436#31034' Demo'
  Color = clBtnFace
  ParentFont = True
  OldCreateOrder = False
  OnActivate = Form1Activate
  OnClose = Form1Close
  OnCreate = Form1Create
  PixelsPerInch = 96
  TextHeight = 13
  object Panel1: TPanel
    Left = 8
    Top = 0
    Width = 673
    Height = 401
    TabOrder = 10
  end
  object DBGrid: TDBGrid
    Left = 13
    Top = 190
    Width = 412
    Height = 163
    DataSource = DataSource
    TabOrder = 0
    TitleFont.Charset = DEFAULT_CHARSET
    TitleFont.Color = clWindowText
    TitleFont.Height = -11
    TitleFont.Name = 'MS Sans Serif'
    TitleFont.Style = []
  end
  object DBNavigator: TDBNavigator
    Left = 69
    Top = 163
    Width = 220
    Height = 20
    DataSource = DataSource
    TabOrder = 1
  end
  object DBImgFishImg: TDBImage
    Left = 432
    Top = 192
    Width = 225
    Height = 161
    DataField = 'Graphic'
    DataSource = DataSource
    TabOrder = 2
  end
  object BtnInsertRecord: TButton
    Left = 468
    Top = 360
    Width = 85
    Height = 20
    Caption = #25554#20837#35760#24405
    TabOrder = 3
    OnClick = BtnInsertRecordClick
  end
  object ChkBoxNewDoc: TCheckBox
    Left = 364
    Top = 367
    Width = 98
    Height = 13
    Caption = #26032#24314#25991#26723
    Checked = True
    State = cbChecked
    TabOrder = 4
  end
  object GroupBox: TGroupBox
    Left = 13
    Top = 7
    Width = 397
    Height = 150
    Caption = #23383#20307#36873#39033':'
    TabOrder = 5
    object lblFont: TLabel
      Left = 13
      Top = 20
      Width = 27
      Height = 13
      Caption = #23383#20307':'
    end
    object lblFontSize: TLabel
      Left = 169
      Top = 111
      Width = 45
      Height = 13
      Caption = 'Font size:'
    end
    object Fonttype: TListBox
      Left = 13
      Top = 33
      Width = 150
      Height = 111
      ItemHeight = 13
      TabOrder = 0
    end
    object ChkBoxEmboss: TCheckBox
      Left = 169
      Top = 91
      Width = 79
      Height = 14
      Caption = 'Emboss'
      TabOrder = 1
    end
    object ChkBoxItalic: TCheckBox
      Left = 169
      Top = 72
      Width = 79
      Height = 13
      Caption = 'Italic'
      TabOrder = 2
    end
    object ChkBoxBold: TCheckBox
      Left = 169
      Top = 52
      Width = 79
      Height = 14
      Caption = 'Bold'
      TabOrder = 3
    end
    object ChkBoxUnderline: TCheckBox
      Left = 169
      Top = 33
      Width = 79
      Height = 13
      Caption = 'Underline'
      TabOrder = 4
    end
    object ChkBoxEngrave: TCheckBox
      Left = 267
      Top = 33
      Width = 78
      Height = 13
      Caption = 'Engrave'
      TabOrder = 5
    end
    object ChkBoxShadow: TCheckBox
      Left = 267
      Top = 52
      Width = 78
      Height = 14
      Caption = 'Shadow'
      TabOrder = 6
    end
    object ChkBoxDoublestrike: TCheckBox
      Left = 267
      Top = 72
      Width = 124
      Height = 13
      Caption = 'Double strike through'
      TabOrder = 7
    end
    object ChkBoxStrike: TCheckBox
      Left = 267
      Top = 91
      Width = 91
      Height = 14
      Caption = 'Strike through'
      TabOrder = 8
    end
    object Size: TEdit
      Left = 169
      Top = 124
      Width = 215
      Height = 21
      TabOrder = 9
      Text = '10'
    end
  end
  object btnCloseWord: TButton
    Left = 20
    Top = 360
    Width = 85
    Height = 20
    Caption = #20851#38381'Word'
    Enabled = False
    TabOrder = 6
    OnClick = btnCloseWordClick
  end
  object BtnPrint: TButton
    Left = 111
    Top = 360
    Width = 85
    Height = 20
    Caption = #25171#21360
    Enabled = False
    TabOrder = 7
    OnClick = BtnPrintClick
  end
  object BtnPreview: TButton
    Left = 202
    Top = 360
    Width = 85
    Height = 20
    Caption = #25171#21360#39044#35272
    Enabled = False
    TabOrder = 8
    OnClick = BtnPreviewClick
  end
  object GroupBox2: TGroupBox
    Left = 424
    Top = 16
    Width = 233
    Height = 137
    Caption = #25991#26723':'
    TabOrder = 9
    object lbDocs: TListBox
      Left = 7
      Top = 16
      Width = 218
      Height = 112
      ItemHeight = 13
      TabOrder = 0
    end
  end
  object DataSource: TDataSource
    DataSet = Table
    Left = 264
    Top = 232
  end
  object WordDocument: TWordDocument
    AutoConnect = False
    ConnectKind = ckRunningOrNew
    Left = 48
    Top = 384
  end
  object Table: TTable
    DatabaseName = 'DBDEMOS'
    ReadOnly = True
    TableName = 'biolife.db'
    Left = 232
    Top = 232
  end
  object WordApplication: TWordApplication
    AutoConnect = False
    ConnectKind = ckRunningOrNew
    AutoQuit = False
    OnDocumentChange = WordApplicationDocumentChange
    Left = 80
    Top = 384
  end
  object WordFont: TWordFont
    AutoConnect = False
    ConnectKind = ckRunningOrNew
    Left = 16
    Top = 384
  end
end