unit1.~dfm

完成从EXCEL文件向SQLSERVER的数据导入和导出

object Form1: TForm1
  Left = 192
  Top = 107
  Width = 447
  Height = 364
  Caption = #35199#23433' '#20399#26480' '#28436#31034#20195#30721
  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 Label1: TLabel
    Left = 8
    Top = 16
    Width = 32
    Height = 13
    Caption = 'Label1'
  end
  object Button1: TButton
    Left = 24
    Top = 72
    Width = 217
    Height = 25
    Caption = #20174'EXCEL'#23548#20837#21040'SQLSERVER'
    TabOrder = 0
    OnClick = Button1Click
  end
  object Button2: TButton
    Left = 16
    Top = 120
    Width = 257
    Height = 25
    Caption = #23548#20986#25968#25454#24211#21040'EXCEL(C:\TEST.XLS)'
    TabOrder = 1
    OnClick = Button2Click
  end
  object Memo1: TMemo
    Left = 0
    Top = 160
    Width = 433
    Height = 153
    BorderStyle = bsNone
    Lines.Strings = (
      #26412#31243#24207#28436#31034#20174'EXCEL'#21040'SQLSERVER'#20043#38388#30340#25968#25454#23548#20837#23548#20986#36807#31243
      ''
      #37197#32622#65306'SQLSERVER'#19978#30340#25968#25454#24211'PUBS'#65292#24314#31435#19968#20010#21517#31216#20026'TEST'#30340#34920#12290
      'CREATE TABLE [dbo].[test] ('
      #9'[testid] [numeric](18, 0) IDENTITY (1, 1) NOT NULL ,'
      #9'[name] [varchar] (50) COLLATE Chinese_PRC_CI_AS NULL ,'
      #9'[address] [varchar] (50) COLLATE Chinese_PRC_CI_AS NULL '
      ') ON [PRIMARY]'
      ''
      'EXCEL'#25991#20214#26159'C:\TEST.XLS'#25991#20214#65292#23454#29616#25968#25454#23548#20837#23548#20986#36807#31243#12290)
    TabOrder = 2
  end
  object OpenDialog: TOpenDialog
    Left = 200
    Top = 8
  end
  object ADOConnection1: TADOConnection
    ConnectionString = 
      'Provider=SQLOLEDB.1;Password=test;Persist Security Info=True;Use' +
      'r ID=sa;Initial Catalog=pubs;Data Source=.'
    LoginPrompt = False
    Provider = 'SQLOLEDB.1'
    Left = 232
    Top = 8
  end
  object ADOQuery1: TADOQuery
    Connection = ADOConnection1
    Parameters = <>
    Left = 264
    Top = 8
  end
end