unit1.dfm

将Excel导入Access(菜鸟版) 将Excel导入Access(菜鸟版) 将Excel导入Access(菜鸟版)

object Form1: TForm1
  Left = 220
  Top = 151
  Width = 646
  Height = 392
  Caption = 'Access '#23548#20837' Excel  '#20363#23376
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -12
  Font.Name = #23435#20307
  Font.Style = []
  OldCreateOrder = False
  PixelsPerInch = 96
  TextHeight = 12
  object Label1: TLabel
    Left = 16
    Top = 280
    Width = 498
    Height = 12
    Caption = #27880#24847' ADOConnection '#21644#21508' '#32452#20214' '#30340#35774#32622#21442#25968' '#21644' '#40664#35748#30340#19981#21516'..'#33258#24049#26032#22686#19968#20010' '#30456#21516#32452#20214' '#30475#21306#21035
  end
  object Button1: TButton
    Left = 368
    Top = 16
    Width = 249
    Height = 25
    Caption = #23558'Excel '#23548#20837' access'
    TabOrder = 0
    OnClick = Button1Click
  end
  object DBGrid1: TDBGrid
    Left = 16
    Top = 64
    Width = 593
    Height = 209
    DataSource = DataSource1
    TabOrder = 1
    TitleFont.Charset = DEFAULT_CHARSET
    TitleFont.Color = clWindowText
    TitleFont.Height = -12
    TitleFont.Name = #23435#20307
    TitleFont.Style = []
  end
  object Button2: TButton
    Left = 8
    Top = 16
    Width = 185
    Height = 25
    Caption = #25171#24320'access --SP  '#34920
    TabOrder = 2
    OnClick = Button2Click
  end
  object ADOConnection1: TADOConnection
    ConnectionString = 
      'Provider=Microsoft.Jet.OLEDB.4.0;Data Source=test.mdb;Persist Se' +
      'curity Info=False'
    LoginPrompt = False
    Provider = 'Microsoft.Jet.OLEDB.4.0'
    Left = 80
    Top = 112
  end
  object ADOConnection2: TADOConnection
    LoginPrompt = False
    Left = 184
    Top = 112
  end
  object OpenDialog2: TOpenDialog
    Filter = 'Excel'#25991#20214'(*.xls)|*.xls'
    Left = 285
    Top = 118
  end
  object ADOQuery1: TADOQuery
    Connection = ADOConnection1
    Parameters = <>
    SQL.Strings = (
      '')
    Left = 112
    Top = 112
  end
  object ADOQuery2: TADOQuery
    Connection = ADOConnection2
    Parameters = <>
    Left = 216
    Top = 112
  end
  object DataSource1: TDataSource
    DataSet = ADOQuery1
    Left = 112
    Top = 160
  end
  object SaveDialog1: TSaveDialog
    Filter = '(Excel '#25991#20214' *.Xls)|*.Xls|('#25991#26412#25991#20214' *.Txt)|*.Txt|( '#32593#39029#25991#20214' *.Htm)|*.htm'
    Left = 334
    Top = 117
  end
end