cgf5.dfm

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

object Form1: TForm1
  Left = 255
  Top = 141
  Width = 291
  Height = 273
  Caption = #20351#29992'ODBC'#35835#21462'Excel'#25991#20214#30340#20869#23481
  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 Bevel1: TBevel
    Left = 0
    Top = 0
    Width = 283
    Height = 41
    Align = alTop
    Shape = bsTopLine
  end
  object SpeedButton1: TSpeedButton
    Left = 248
    Top = 8
    Width = 23
    Height = 22
    OnClick = SpeedButton1Click
  end
  object Label1: TLabel
    Left = 16
    Top = 8
    Width = 85
    Height = 19
    Caption = #36873#25321#25991#20214#65306
    Font.Charset = GB2312_CHARSET
    Font.Color = clWindowText
    Font.Height = -16
    Font.Name = #21326#25991#20013#23435
    Font.Style = [fsBold]
    ParentFont = False
    Transparent = True
    Layout = tlCenter
  end
  object Edit1: TEdit
    Left = 104
    Top = 8
    Width = 129
    Height = 21
    TabOrder = 0
  end
  object Panel1: TPanel
    Left = 0
    Top = 41
    Width = 283
    Height = 168
    Align = alTop
    BevelInner = bvLowered
    TabOrder = 1
    object DBGrid1: TDBGrid
      Left = 2
      Top = 2
      Width = 279
      Height = 135
      Align = alTop
      DataSource = DataSource1
      TabOrder = 0
      TitleFont.Charset = DEFAULT_CHARSET
      TitleFont.Color = clWindowText
      TitleFont.Height = -11
      TitleFont.Name = 'MS Sans Serif'
      TitleFont.Style = []
      Visible = False
      Columns = <
        item
          Expanded = False
          FieldName = #21592#24037#32534#21495
          Width = 59
          Visible = True
        end
        item
          Expanded = False
          FieldName = #22995#21517
          Width = 94
          Visible = True
        end
        item
          Expanded = False
          FieldName = #24615#21035
          Width = 50
          Visible = True
        end
        item
          Expanded = False
          FieldName = #24180#40836
          Width = 66
          Visible = True
        end>
    end
    object Button1: TButton
      Left = 8
      Top = 136
      Width = 57
      Height = 25
      Caption = #23548'  '#20837
      TabOrder = 1
      OnClick = Button1Click
    end
    object Button2: TButton
      Left = 224
      Top = 135
      Width = 57
      Height = 25
      Caption = #26174'  '#31034
      TabOrder = 2
      OnClick = Button2Click
    end
  end
  object Panel2: TPanel
    Left = 0
    Top = 214
    Width = 283
    Height = 32
    Align = alBottom
    BevelInner = bvLowered
    TabOrder = 2
    object SpeedButton2: TSpeedButton
      Left = 0
      Top = 8
      Width = 281
      Height = 22
      Caption = #36864'                '#20986
      Font.Charset = GB2312_CHARSET
      Font.Color = clWindowText
      Font.Height = -15
      Font.Name = #21326#25991#24425#20113
      Font.Style = [fsBold]
      ParentFont = False
      OnClick = SpeedButton2Click
    end
  end
  object OpenDialog1: TOpenDialog
    Filter = 'Excel'#25991#20214'(*.xls)|*.xls'
    Left = 168
    Top = 16
  end
  object Table1: TTable
    DatabaseName = 'DBDEMOS'
    TableName = 'yuangong.db'
    Left = 24
    Top = 121
  end
  object DataSource1: TDataSource
    DataSet = Table1
    Left = 64
    Top = 121
  end
end