unit1.~dfm

不同数据库的转换 用delphi实现access excel sql server 等数据库的转换

object Form1: TForm1
  Left = 232
  Top = 214
  BorderStyle = bsDialog
  Caption = #36229#32423#25968#25454#24211#36716#25442#24037#20855
  ClientHeight = 327
  ClientWidth = 591
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -12
  Font.Name = #23435#20307
  Font.Style = []
  OldCreateOrder = False
  Position = poScreenCenter
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 12
  object lblRiselon: TLabel
    Left = 16
    Top = 303
    Width = 96
    Height = 12
    Caption = #29790#40857#36719#20214#24320#21457#21046#20316
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clBlue
    Font.Height = -12
    Font.Name = #23435#20307
    Font.Style = [fsUnderline]
    ParentFont = False
    OnClick = lblRiselonClick
    OnMouseEnter = lblRiselonMouseEnter
    OnMouseLeave = lblRiselonMouseLeave
  end
  object lblSource: TLabel
    Left = 128
    Top = 303
    Width = 150
    Height = 12
    Caption = #33719#21462#26412#31243#24207#28304#20195#30721'(Delphi7)'
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clBlue
    Font.Height = -12
    Font.Name = #23435#20307
    Font.Style = [fsUnderline]
    ParentFont = False
    OnClick = lblSourceClick
    OnMouseEnter = lblSourceMouseEnter
    OnMouseLeave = lblSourceMouseLeave
  end
  object btnClose: TButton
    Left = 506
    Top = 299
    Width = 75
    Height = 22
    Caption = #20851#38381
    TabOrder = 4
    OnClick = btnCloseClick
  end
  object btnConvertDBList: TButton
    Left = 299
    Top = 299
    Width = 126
    Height = 22
    Caption = #25903#25345#25968#25454#24211#31867#22411#32452#21512
    TabOrder = 2
    OnClick = btnConvertDBListClick
  end
  object btnConvert: TButton
    Left = 428
    Top = 299
    Width = 75
    Height = 22
    Caption = #24320#22987#36716#25442
    TabOrder = 3
    OnClick = btnConvertClick
  end
  object grp11: TGroupBox
    Left = 8
    Top = 6
    Width = 575
    Height = 215
    Caption = #25968#25454#24211#35774#32622
    TabOrder = 0
    object lbl25: TLabel
      Left = 9
      Top = 20
      Width = 145
      Height = 13
      AutoSize = False
      Caption = #35831#36873#25321#28304#25968#25454#24211#31867#22411':'
    end
    object lbl26: TLabel
      Left = 292
      Top = 20
      Width = 153
      Height = 13
      AutoSize = False
      Caption = #35831#36873#25321#30446#26631#25968#25454#24211#31867#22411':'
    end
    object lblStatus: TLabel
      Left = 170
      Top = 195
      Width = 239
      Height = 16
      Alignment = taCenter
      AutoSize = False
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clRed
      Font.Height = -12
      Font.Name = #23435#20307
      Font.Style = [fsBold]
      ParentFont = False
    end
    object cbbDbTypeSelecter_d: TComboBox
      Left = 292
      Top = 38
      Width = 273
      Height = 20
      Style = csDropDownList
      ItemHeight = 12
      ItemIndex = 0
      TabOrder = 1
      Text = 'MS Access(*.mdb)'
      OnChange = cbbDbTypeSelecter_dChange
      Items.Strings = (
        'MS Access(*.mdb)'
        'Excel(*.xls)'
        'Paradox DB(*.db)'
        'Foxpro or dBase File(*.dbf)'
        'SQL Server')
    end
    object cbbDbTypeSelecter_s: TComboBox
      Left = 9
      Top = 38
      Width = 273
      Height = 20
      Style = csDropDownList
      ItemHeight = 12
      ItemIndex = 0
      TabOrder = 0
      Text = 'MS Access(*.mdb)'
      OnChange = cbbDbTypeSelecter_sChange
      Items.Strings = (
        'MS Access(*.mdb)'
        'Excel(*.xls)'
        'Paradox DB(*.db)'
        'Foxpro or dBase File(*.dbf)'
        'SQL Server')
    end
    object pgcDBLinkSetting_d: TPageControl
      Left = 288
      Top = 68
      Width = 281
      Height = 122
      ActivePage = ts1
      Style = tsFlatButtons
      TabOrder = 3
      object ts1: TTabSheet
        Caption = 'tsAccess'
        TabVisible = False
        object grp6: TGroupBox
          Left = 0
          Top = 0
          Width = 273
          Height = 110
          Caption = #25968#25454#24211#36830#25509#35774#32622':'
          TabOrder = 0
          object lbl13: TLabel
            Left = 8
            Top = 15
            Width = 102
            Height = 12
            Caption = 'Access'#25968#25454#24211#36335#24452':'
          end
          object edtAccessPath_d: TEdit
            Left = 8
            Top = 35
            Width = 217
            Height = 20
            TabOrder = 0
          end
          object btnAccessPathBrw_d: TButton
            Left = 229
            Top = 34
            Width = 25
            Height = 22
            Caption = '...'
            TabOrder = 1
            OnClick = btnAccessPathBrw_dClick
          end
        end
      end
      object ts2: TTabSheet
        Caption = 'tsExcel'
        ImageIndex = 2
        TabVisible = False
        object grp7: TGroupBox
          Left = 0
          Top = 0
          Width = 273
          Height = 110
          Caption = #25968#25454#24211#36830#25509#35774#32622
          TabOrder = 0
          object lbl15: TLabel
            Left = 8
            Top = 24
            Width = 78
            Height = 12
            Caption = 'Excel'#25991#20214#36335#24452
          end
          object edtExcelPath_d: TEdit
            Left = 8
            Top = 46
            Width = 217
            Height = 20
            TabOrder = 0
          end
          object btnExcelPathBrw_d: TButton
            Left = 229
            Top = 45
            Width = 25
            Height = 22
            Caption = '...'
            TabOrder = 1
            OnClick = btnExcelPathBrw_dClick
          end
        end
      end
      object ts3: TTabSheet
        Caption = 'tsParadox'
        ImageIndex = 1
        TabVisible = False
        object grp8: TGroupBox
          Left = 0
          Top = 0
          Width = 273
          Height = 110
          Caption = #25968#25454#36830#25509#35774#32622':'
          TabOrder = 0
          object lbl17: TLabel
            Left = 8
            Top = 18
            Width = 156
            Height = 12
            Caption = 'Paradox DSN('#25968#25454#26469#28304#21517#31216'):'
          end
          object lbl19: TLabel
            Left = 8
            Top = 58
            Width = 102
            Height = 12
            Caption = 'Paradox'#25968#25454#24211#30446#24405
          end
          object cbbParadoxDSN_d: TComboBox
            Left = 8
            Top = 34
            Width = 217
            Height = 20
            ItemHeight = 12
            TabOrder = 0
          end
          object edtParadoxPath_d: TEdit
            Left = 8
            Top = 72
            Width = 217
            Height = 20
            TabOrder = 1
          end
          object btnParadoxPathBrw_d: TButton
            Left = 229
            Top = 71
            Width = 25
            Height = 22
            Caption = '...'
            TabOrder = 2
            OnClick = btnParadoxPathBrw_dClick
          end
        end
      end
      object ts4: TTabSheet
        Caption = 'tsFoxpro'
        ImageIndex = 4
        TabVisible = False
        object grp9: TGroupBox
          Left = 0
          Top = 0
          Width = 273
          Height = 110
          Caption = #25968#25454#36830#25509#35774#32622':'
          TabOrder = 0
          object lbl20: TLabel
            Left = 8
            Top = 24
            Width = 102
            Height = 12