cgf1.dfm

非常丰富的delphi小程序,相信会对你有帮助

object Form1: TForm1
  Left = 267
  Top = 132
  Width = 343
  Height = 288
  Caption = #20174'Excel'#20013#35835#21462#25968#25454
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  OnCanResize = FormCanResize
  PixelsPerInch = 96
  TextHeight = 13
  object Panel1: TPanel
    Left = 0
    Top = 0
    Width = 335
    Height = 241
    Align = alTop
    BevelInner = bvLowered
    TabOrder = 0
    object SpeedButton1: TSpeedButton
      Left = 264
      Top = 48
      Width = 23
      Height = 22
      OnClick = SpeedButton1Click
    end
    object Label1: TLabel
      Left = 32
      Top = 48
      Width = 83
      Height = 15
      Caption = #35831#36873#25321#25991#20214':'
      Font.Charset = GB2312_CHARSET
      Font.Color = clWindowText
      Font.Height = -15
      Font.Name = #21326#25991#29733#29632
      Font.Style = []
      ParentFont = False
      Layout = tlCenter
    end
    object Edit1: TEdit
      Left = 120
      Top = 48
      Width = 129
      Height = 21
      TabOrder = 0
    end
    object Button1: TButton
      Left = 32
      Top = 200
      Width = 65
      Height = 25
      Caption = #23548' '#20837
      Font.Charset = GB2312_CHARSET
      Font.Color = clWindowText
      Font.Height = -16
      Font.Name = #21326#25991#29733#29632
      Font.Style = []
      ParentFont = False
      TabOrder = 1
      OnClick = Button1Click
    end
    object Button2: TButton
      Left = 232
      Top = 200
      Width = 65
      Height = 25
      Caption = #36864' '#20986
      Font.Charset = GB2312_CHARSET
      Font.Color = clWindowText
      Font.Height = -16
      Font.Name = #21326#25991#29733#29632
      Font.Style = []
      ParentFont = False
      TabOrder = 2
      OnClick = Button2Click
    end
    object Animate1: TAnimate
      Left = 32
      Top = 120
      Width = 272
      Height = 60
      CommonAVI = aviCopyFiles
      StopFrame = 34
      Visible = False
    end
  end
  object StatusBar1: TStatusBar
    Left = 0
    Top = 242
    Width = 335
    Height = 19
    Panels = <>
  end
  object Table1: TTable
    DatabaseName = 'DBDEMOS'
    TableName = 'yuangong.db'
    Left = 176
    Top = 8
  end
  object Ea1: TExcelApplication
    AutoConnect = False
    ConnectKind = ckRunningOrNew
    AutoQuit = False
    Left = 40
    Top = 8
  end
  object Es1: TExcelWorksheet
    AutoConnect = False
    ConnectKind = ckRunningOrNew
    Left = 136
    Top = 8
  end
  object Ew1: TExcelWorkbook
    AutoConnect = False
    ConnectKind = ckRunningOrNew
    Left = 80
    Top = 8
  end
  object OpenDialog1: TOpenDialog
    Filter = 'Excel '#25991#20214'(*.xls) |*.xls'
    Left = 208
    Top = 8
  end
end