unit1.~dfm

飞思在线《Delphi7技术手册》配书源代码

object frmEaM: TfrmEaM
  Left = 202
  Top = 142
  Width = 467
  Height = 329
  Caption = 'Excel'#19982#25968#25454#24211#28436#31034#31243#24207
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  PixelsPerInch = 96
  TextHeight = 13
  object lb: TLabel
    Left = 8
    Top = 80
    Width = 60
    Height = 12
    Caption = #25968#25454#27983#35272#65306
    Font.Charset = GB2312_CHARSET
    Font.Color = clWindowText
    Font.Height = -12
    Font.Name = #23435#20307
    Font.Style = []
    ParentFont = False
  end
  object Label1: TLabel
    Left = 208
    Top = 80
    Width = 120
    Height = 12
    Caption = #24403#21069#27983#35272#25991#20214#31867#22411#20026#65306
    Font.Charset = GB2312_CHARSET
    Font.Color = clWindowText
    Font.Height = -12
    Font.Name = #23435#20307
    Font.Style = []
    ParentFont = False
  end
  object Label2: TLabel
    Left = 8
    Top = 16
    Width = 36
    Height = 12
    Caption = #23398#21495#65306
    Font.Charset = GB2312_CHARSET
    Font.Color = clWindowText
    Font.Height = -12
    Font.Name = #23435#20307
    Font.Style = []
    ParentFont = False
  end
  object Label3: TLabel
    Left = 192
    Top = 16
    Width = 36
    Height = 12
    Caption = #22995#21517#65306
    Font.Charset = GB2312_CHARSET
    Font.Color = clWindowText
    Font.Height = -12
    Font.Name = #23435#20307
    Font.Style = []
    ParentFont = False
  end
  object Label4: TLabel
    Left = 8
    Top = 48
    Width = 36
    Height = 12
    Caption = #24615#21035#65306
    Font.Charset = GB2312_CHARSET
    Font.Color = clWindowText
    Font.Height = -12
    Font.Name = #23435#20307
    Font.Style = []
    ParentFont = False
  end
  object Label5: TLabel
    Left = 192
    Top = 48
    Width = 36
    Height = 12
    Caption = #24180#40836#65306
    Font.Charset = GB2312_CHARSET
    Font.Color = clWindowText
    Font.Height = -12
    Font.Name = #23435#20307
    Font.Style = []
    ParentFont = False
  end
  object SG1: TStringGrid
    Left = 8
    Top = 96
    Width = 353
    Height = 153
    Font.Charset = GB2312_CHARSET
    Font.Color = clWindowText
    Font.Height = -12
    Font.Name = #23435#20307
    Font.Style = []
    ParentFont = False
    TabOrder = 0
    OnClick = SG1Click
  end
  object BtnOpenExcel: TButton
    Left = 376
    Top = 16
    Width = 75
    Height = 25
    Caption = #25171#24320'Excel'#34920
    Font.Charset = GB2312_CHARSET
    Font.Color = clWindowText
    Font.Height = -12
    Font.Name = #23435#20307
    Font.Style = []
    ParentFont = False
    TabOrder = 1
    OnClick = BtnOpenExcelClick
  end
  object BtnOpenMDB: TButton
    Left = 376
    Top = 56
    Width = 75
    Height = 25
    Caption = #25171#24320'MDB'#34920
    Font.Charset = GB2312_CHARSET
    Font.Color = clWindowText
    Font.Height = -12
    Font.Name = #23435#20307
    Font.Style = []
    ParentFont = False
    TabOrder = 2
    OnClick = BtnOpenMDBClick
  end
  object BtnForward: TButton
    Left = 376
    Top = 96
    Width = 75
    Height = 25
    Caption = #19978#19968#26465#35760#24405
    Font.Charset = GB2312_CHARSET
    Font.Color = clWindowText
    Font.Height = -12
    Font.Name = #23435#20307
    Font.Style = []
    ParentFont = False
    TabOrder = 3
    OnClick = BtnForwardClick
  end
  object BtnNext: TButton
    Left = 376
    Top = 136
    Width = 75
    Height = 25
    Caption = #19979#19968#26465#35760#24405
    Font.Charset = GB2312_CHARSET
    Font.Color = clWindowText
    Font.Height = -12
    Font.Name = #23435#20307
    Font.Style = []
    ParentFont = False
    TabOrder = 4
    OnClick = BtnNextClick
  end
  object BtnToMDB: TButton
    Left = 376
    Top = 176
    Width = 75
    Height = 25
    Caption = #36716#25442#20026'MDB'
    Font.Charset = GB2312_CHARSET
    Font.Color = clWindowText
    Font.Height = -12
    Font.Name = #23435#20307
    Font.Style = []
    ParentFont = False
    TabOrder = 5
    OnClick = BtnToMDBClick
  end
  object BtnToExcel: TButton
    Left = 376
    Top = 216
    Width = 75
    Height = 25
    Caption = #36716#25442#20026'Excel'
    Font.Charset = GB2312_CHARSET
    Font.Color = clWindowText
    Font.Height = -12
    Font.Name = #23435#20307
    Font.Style = []
    ParentFont = False
    TabOrder = 6
    OnClick = BtnToExcelClick
  end
  object edtID: TEdit
    Left = 48
    Top = 16
    Width = 129
    Height = 20
    Font.Charset = GB2312_CHARSET
    Font.Color = clWindowText
    Font.Height = -12
    Font.Name = #23435#20307
    Font.Style = []
    ParentFont = False
    TabOrder = 7
  end
  object edtName: TEdit
    Left = 232
    Top = 16
    Width = 129
    Height = 20
    Font.Charset = GB2312_CHARSET
    Font.Color = clWindowText
    Font.Height = -12
    Font.Name = #23435#20307
    Font.Style = []
    ParentFont = False
    TabOrder = 8
  end
  object edtGender: TEdit
    Left = 48
    Top = 48
    Width = 129
    Height = 20
    Font.Charset = GB2312_CHARSET
    Font.Color = clWindowText
    Font.Height = -12
    Font.Name = #23435#20307
    Font.Style = []
    ParentFont = False
    TabOrder = 9
  end
  object edtAge: TEdit
    Left = 232
    Top = 48
    Width = 129
    Height = 20
    Font.Charset = GB2312_CHARSET
    Font.Color = clWindowText
    Font.Height = -12
    Font.Name = #23435#20307
    Font.Style = []
    ParentFont = False
    TabOrder = 10
  end
  object ADOConnection1: TADOConnection
    Connected = True
    ConnectionString = 'Provider=MSDASQL.1;Persist Security Info=False;Data Source=db'
    LoginPrompt = False
    Left = 8
    Top = 264
  end
  object ADOTable1: TADOTable
    Active = True
    Connection = ADOConnection1
    CursorType = ctStatic
    TableName = 'student'
    Left = 40
    Top = 264
  end
  object ADOQuery1: TADOQuery
    Parameters = <>
    Left = 72
    Top = 264
  end
  object OpenDialog1: TOpenDialog
    Left = 104
    Top = 264
  end
  object ExcelApplication1: TExcelApplication
    AutoConnect = False
    ConnectKind = ckRunningOrNew
    AutoQuit = False
    Left = 136
    Top = 264
  end
  object ExcelWorksheet1: TExcelWorksheet
    AutoConnect = False
    ConnectKind = ckRunningOrNew
    Left = 168
    Top = 264
  end
  object ExcelWorkbook1: TExcelWorkbook
    AutoConnect = False
    ConnectKind = ckRunningOrNew
    Left = 200
    Top = 264
  end
end