mainunit.dfm

用ADO 动态连接各种异构数据库查询数据生成sql插入insert语句。

object Form1: TForm1
  Left = 193
  Top = 89
  BorderStyle = bsDialog
  Caption = 'Generate  INSERT SQL  from XML'
  ClientHeight = 424
  ClientWidth = 513
  Color = clBtnFace
  Font.Charset = GB2312_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 = 24
    Width = 48
    Height = 12
    Caption = ' '#28304#25991#20214':'
  end
  object Progress: TCGauge
    Left = 24
    Top = 394
    Width = 473
    Height = 17
    BorderStyle = bsNone
    BackColor = clBtnFace
  end
  object Browse: TButton
    Left = 300
    Top = 17
    Width = 60
    Height = 25
    Caption = 'Browse'
    TabOrder = 0
    OnClick = BrowseClick
  end
  object Button1: TButton
    Left = 369
    Top = 17
    Width = 60
    Height = 25
    Caption = 'Generate'
    TabOrder = 1
    OnClick = Button1Click
  end
  object SQLMemo: TMemo
    Left = 24
    Top = 200
    Width = 473
    Height = 185
    ScrollBars = ssBoth
    TabOrder = 2
  end
  object DBGridEh1: TDBGridEh
    Left = 23
    Top = 49
    Width = 472
    Height = 144
    DataSource = DataSource1
    FixedColor = clInfoBk
    Flat = True
    FooterColor = clWindow
    FooterFont.Charset = GB2312_CHARSET
    FooterFont.Color = clWindowText
    FooterFont.Height = -12
    FooterFont.Name = #23435#20307
    FooterFont.Style = []
    TabOrder = 3
    TitleFont.Charset = GB2312_CHARSET
    TitleFont.Color = clWindowText
    TitleFont.Height = -12
    TitleFont.Name = #23435#20307
    TitleFont.Style = []
  end
  object Export: TButton
    Left = 436
    Top = 17
    Width = 60
    Height = 25
    Caption = 'Export'
    TabOrder = 4
    Visible = False
    OnClick = ExportClick
  end
  object SourceFile: TComboBox
    Left = 64
    Top = 21
    Width = 225
    Height = 20
    ItemHeight = 12
    TabOrder = 5
    OnChange = SourceFileChange
  end
  object ADOXML: TADOTable
    Connection = ADOConnection1
    CursorType = ctStatic
    TableName = 'linchuangks'
    Left = 384
    Top = 96
  end
  object DataSource1: TDataSource
    DataSet = ADOXML
    Left = 416
    Top = 104
  end
  object OpenD: TOpenDialog
    Filter = '*.xml,*.cz|*.xml;*.cz|*.*|*.*'
    Left = 160
    Top = 40
  end
  object Database1: TDatabase
    AliasName = 'ORCL'
    DatabaseName = 'EXPORT2ORACLE'
    SessionName = 'Default'
    Left = 440
    Top = 168
  end
  object ExportQuery: TQuery
    DatabaseName = 'EXPORT2ORACLE'
    Left = 400
    Top = 168
  end
  object ADOConnection1: TADOConnection
    LoginPrompt = False
    Left = 344
    Top = 360
  end
end