main.~dfm

按一定格式把excel表格导入SQL Server数据库表

object FrmImExcel: TFrmImExcel
  Left = 192
  Top = 107
  Width = 696
  Height = 480
  Caption = #23548#25968#25454
  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 Panel1: TPanel
    Left = 0
    Top = 412
    Width = 688
    Height = 41
    Align = alBottom
    TabOrder = 0
    object btnOpenExcel: TButton
      Left = 64
      Top = 8
      Width = 75
      Height = 25
      Caption = #25171#24320#25991#20214
      TabOrder = 0
      OnClick = btnOpenExcelClick
    end
    object btnImport: TButton
      Left = 182
      Top = 8
      Width = 75
      Height = 25
      Caption = #23548#20837
      TabOrder = 1
      OnClick = btnImportClick
    end
  end
  object Panel2: TPanel
    Left = 0
    Top = 0
    Width = 688
    Height = 412
    Align = alClient
    Caption = 'Panel2'
    TabOrder = 1
    object cxSpreadSheetBook1: TcxSpreadSheetBook
      Left = 1
      Top = 1
      Width = 686
      Height = 410
      BufferedPaint = True
      Align = alClient
      DefaultStyle.Font.Name = 'MS Sans Serif'
      HeaderFont.Charset = DEFAULT_CHARSET
      HeaderFont.Color = clWindowText
      HeaderFont.Height = -11
      HeaderFont.Name = 'MS Sans Serif'
      HeaderFont.Style = []
      PainterType = ptCustom
    end
  end
  object OpnDlgExcel: TOpenDialog
    Filter = 'Excel'#25991#20214'(*.xls)|*.xls'
    Left = 312
    Top = 400
  end
  object ADOQ: TADOQuery
    Connection = DBpub.ADOCon
    Parameters = <>
    Left = 248
    Top = 160
  end
end