unit1.dfm

功能特点 根据指定字段将Excel表导入到数据库中

    object SpeedButton1: TSpeedButton
      Left = 630
      Top = 2
      Width = 105
      Height = 37
      AllowAllUp = True
      Caption = #36864#20986#31243#24207
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -16
      Font.Name = #21326#25991#20013#23435
      Font.Style = []
      ParentFont = False
      OnClick = SpeedButton1Click
    end
  end
  object GroupBox1: TGroupBox
    Left = 13
    Top = 78
    Width = 773
    Height = 254
    Caption = #35835#20837#32467#26524
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -16
    Font.Name = #21326#25991#20013#23435
    Font.Style = []
    ParentFont = False
    TabOrder = 1
    object DBGrid1: TDBGrid
      Left = 2
      Top = 21
      Width = 769
      Height = 231
      Align = alClient
      DataSource = DataSource1
      TabOrder = 0
      TitleFont.Charset = DEFAULT_CHARSET
      TitleFont.Color = clWindowText
      TitleFont.Height = -16
      TitleFont.Name = #21326#25991#20013#23435
      TitleFont.Style = []
    end
  end
  object GroupBox2: TGroupBox
    Left = 13
    Top = 336
    Width = 772
    Height = 302
    Caption = #23548#20837#35774#32622
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -16
    Font.Name = #21326#25991#20013#23435
    Font.Style = []
    ParentFont = False
    TabOrder = 2
    object Label3: TLabel
      Left = 56
      Top = 76
      Width = 105
      Height = 19
      Alignment = taCenter
      AutoSize = False
      Caption = #36873#25321#34920#23383#27573
    end
    object Label4: TLabel
      Left = 569
      Top = 81
      Width = 185
      Height = 19
      Alignment = taCenter
      AutoSize = False
      Caption = #23548#20837#23383#27573#23545#29031#34920
    end
    object Label5: TLabel
      Left = 298
      Top = 79
      Width = 142
      Height = 19
      Alignment = taCenter
      AutoSize = False
      Caption = 'Excel'#34920#23383#27573
    end
    object SpeedButton6: TSpeedButton
      Left = 464
      Top = 108
      Width = 104
      Height = 30
      Hint = #21024#38500#36873#23450#30340#23383#27573#23545#24212
      Caption = #22686#21152#36873#25321'->>'
      ParentShowHint = False
      ShowHint = True
      OnClick = SpeedButton6Click
    end
    object Label6: TLabel
      Left = 221
      Top = 196
      Width = 37
      Height = 19
      Alignment = taCenter
      AutoSize = False
      Caption = '=='
    end
    object SpeedButton8: TSpeedButton
      Left = 464
      Top = 137
      Width = 104
      Height = 30
      Hint = #21024#38500#25152#26377#23548#20837#23383#27573#23545#24212
      Caption = #22686#21152#20840#37096'->>'
      ParentShowHint = False
      ShowHint = True
      OnClick = SpeedButton8Click
    end
    object SpeedButton12: TSpeedButton
      Left = 464
      Top = 166
      Width = 104
      Height = 30
      Hint = #21024#38500#25152#26377#23548#20837#23383#27573#23545#24212
      Caption = '<<-'#21024#38500#36873#25321
      ParentShowHint = False
      ShowHint = True
      OnClick = SpeedButton12Click
    end
    object SpeedButton13: TSpeedButton
      Left = 464
      Top = 195
      Width = 104
      Height = 30
      Hint = #21024#38500#25152#26377#23548#20837#23383#27573#23545#24212
      Caption = '<<-'#21024#38500#20840#37096
      ParentShowHint = False
      ShowHint = True
      OnClick = SpeedButton13Click
    end
    object SpeedButton14: TSpeedButton
      Left = 464
      Top = 224
      Width = 104
      Height = 30
      Hint = #21024#38500#25152#26377#23548#20837#23383#27573#23545#24212
      Caption = #20445#23384#23545#29031#34920
      ParentShowHint = False
      ShowHint = True
      OnClick = SpeedButton14Click
    end
    object SpeedButton15: TSpeedButton
      Left = 464
      Top = 253
      Width = 104
      Height = 30
      Hint = #21024#38500#25152#26377#23548#20837#23383#27573#23545#24212
      Caption = #35835#21462#23545#29031#34920
      ParentShowHint = False
      ShowHint = True
      OnClick = SpeedButton15Click
    end
    object GroupBox4: TGroupBox
      Left = 9
      Top = 15
      Width = 752
      Height = 48
      TabOrder = 3
      object Label1: TLabel
        Left = 46
        Top = 16
        Width = 48
        Height = 19
        Caption = #23548#20837#34920
      end
      object TBNameList: TComboBox
        Left = 104
        Top = 15
        Width = 137
        Height = 27
        Hint = #36873#25321#35201#23548#20837#30340#25968#25454#34920
        ItemHeight = 19
        ParentShowHint = False
        ShowHint = True
        TabOrder = 0
        OnChange = TBNameListChange
        OnClick = TBNameListClick
      end
      object CheckBox3: TCheckBox
        Left = 342
        Top = 18
        Width = 161
        Height = 17
        Caption = #25554#20837#21069#21024#38500#28304#35760#24405
        TabOrder = 1
      end
    end
    object ListBox1: TListBox
      Left = 12
      Top = 96
      Width = 213
      Height = 198
      Hint = #24453#23548#20837#25968#25454#34920#23383#27573#21015#34920
      ItemHeight = 19
      Sorted = True
      TabOrder = 0
      OnClick = ListBox1Click
    end
    object ListBox2: TListBox
      Left = 568
      Top = 99
      Width = 184
      Height = 198
      ItemHeight = 19
      TabOrder = 1
    end
    object ListBox3: TListBox
      Left = 252
      Top = 96
      Width = 209
      Height = 199
      Hint = 'Excel'#20013#23383#27573#21015#34920
      ItemHeight = 19
      ParentShowHint = False
      ShowHint = True
      Sorted = True
      TabOrder = 2
    end
  end
  object PBar: TProgressBar
    Left = 8
    Top = 48
    Width = 777
    Height = 17
    DragMode = dmAutomatic
    Smooth = True
    TabOrder = 3
  end
  object OpenDialog1: TOpenDialog
    Left = 344
    Top = 32
  end
  object ADOConnection1: TADOConnection
    LoginPrompt = False
    Provider = 'Microsoft.Jet.OLEDB.4.0'
    Left = 376
    Top = 32
  end
  object ADOQuery1: TADOQuery
    Connection = ADOConnection1
    Parameters = <>
    Left = 408
    Top = 32
  end
  object DataSource1: TDataSource
    DataSet = ADOQuery1
    Left = 440
    Top = 32
  end
end