unit1.~dfm

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

            Caption = 'Foxpro'#25968#25454#24211#36335#24452':'
          end
          object edtFoxproPath_d: TEdit
            Left = 8
            Top = 46
            Width = 217
            Height = 20
            TabOrder = 0
          end
          object btnFoxproPath_d: TButton
            Left = 229
            Top = 45
            Width = 25
            Height = 22
            Caption = '...'
            TabOrder = 1
            OnClick = btnFoxproPath_dClick
          end
        end
      end
      object ts5: TTabSheet
        Caption = 'tsSqlServer'
        ImageIndex = 3
        TabVisible = False
        object grp10: TGroupBox
          Left = 0
          Top = 1
          Width = 273
          Height = 110
          Caption = #25968#25454#36830#25509#35774#32622':'
          TabOrder = 0
          object lbl22: TLabel
            Left = 16
            Top = 16
            Width = 91
            Height = 13
            AutoSize = False
            Caption = #26381#21153#22120#21517#31216#25110'IP:'
          end
          object lbl23: TLabel
            Left = 16
            Top = 39
            Width = 88
            Height = 13
            AutoSize = False
            Caption = #25968#25454#24211#21517#31216':'
          end
          object lbl24: TLabel
            Left = 16
            Top = 62
            Width = 103
            Height = 13
            AutoSize = False
            Caption = #25968#25454#24211#29992#25143#21517':'
          end
          object lbl28: TLabel
            Left = 16
            Top = 86
            Width = 91
            Height = 13
            AutoSize = False
            Caption = #25968#25454#24211#23494#30721':'
          end
          object edtSqlServerIP_d: TEdit
            Left = 120
            Top = 12
            Width = 121
            Height = 20
            TabOrder = 0
          end
          object edtSqlServerUser_d: TEdit
            Left = 120
            Top = 58
            Width = 121
            Height = 20
            TabOrder = 2
            Text = 'sa'
          end
          object edtSqlServerName_d: TEdit
            Left = 120
            Top = 35
            Width = 121
            Height = 20
            TabOrder = 1
          end
          object edtSqlServerPwd_d: TEdit
            Left = 120
            Top = 82
            Width = 121
            Height = 20
            PasswordChar = '*'
            TabOrder = 3
          end
        end
      end
    end
    object pgcDBLinkSetting_s: TPageControl
      Left = 5
      Top = 68
      Width = 281
      Height = 122
      ActivePage = tsAccess
      Style = tsFlatButtons
      TabOrder = 2
      object tsAccess: TTabSheet
        Caption = 'tsAccess'
        TabVisible = False
        object grp1: TGroupBox
          Left = 0
          Top = 0
          Width = 273
          Height = 110
          Caption = #25968#25454#24211#36830#25509#35774#32622':'
          TabOrder = 0
          object lbl1: TLabel
            Left = 8
            Top = 20
            Width = 102
            Height = 12
            Caption = 'Access'#25968#25454#24211#36335#24452':'
          end
          object lbl2: TLabel
            Left = 8
            Top = 62
            Width = 108
            Height = 12
            Caption = 'Access '#25968#25454#24211#23494#30721':'
          end
          object edtAccessPath_s: TEdit
            Left = 8
            Top = 37
            Width = 217
            Height = 20
            TabOrder = 0
          end
          object edtAccessPwd_s: TEdit
            Left = 8
            Top = 79
            Width = 177
            Height = 20
            PasswordChar = '*'
            TabOrder = 1
          end
          object btnAccessPathBrw_s: TButton
            Left = 229
            Top = 36
            Width = 25
            Height = 22
            Caption = '...'
            TabOrder = 2
            OnClick = btnAccessPathBrw_sClick
          end
        end
      end
      object tsSqlAnywhere: TTabSheet
        Caption = 'tsExcel'
        ImageIndex = 2
        TabVisible = False
        object grp3: TGroupBox
          Left = 0
          Top = 0
          Width = 273
          Height = 110
          Caption = #25968#25454#24211#36830#25509#35774#32622
          TabOrder = 0
          object lbl5: TLabel
            Left = 8
            Top = 24
            Width = 78
            Height = 12
            Caption = 'Excel'#25991#20214#36335#24452
          end
          object edtExcelPath_s: TEdit
            Left = 8
            Top = 46
            Width = 217
            Height = 20
            TabOrder = 0
          end
          object btnExcelPathBrw_s: TButton
            Left = 229
            Top = 45
            Width = 25
            Height = 22
            Caption = '...'
            TabOrder = 1
            OnClick = btnExcelPathBrw_sClick
          end
        end
      end
      object tsParadox: TTabSheet
        Caption = 'tsParadox'
        ImageIndex = 1
        TabVisible = False
        object grp2: TGroupBox
          Left = 0
          Top = 0
          Width = 273
          Height = 110
          Caption = #25968#25454#36830#25509#35774#32622':'
          TabOrder = 0
          object lbl3: TLabel
            Left = 8
            Top = 18
            Width = 156
            Height = 12
            Caption = 'Paradox DSN('#25968#25454#26469#28304#21517#31216'):'
          end
          object lbl27: TLabel
            Left = 8
            Top = 58
            Width = 102
            Height = 12
            Caption = 'Paradox'#25968#25454#24211#30446#24405
          end
          object cbbParadoxDSN_s: TComboBox
            Left = 8
            Top = 34
            Width = 217
            Height = 20
            ItemHeight = 12
            TabOrder = 0
          end
          object edtParadoxPath_s: TEdit
            Left = 8
            Top = 72
            Width = 217
            Height = 20
            TabOrder = 1
          end
          object btnParadoxPathBrw_s: TButton
            Left = 229
            Top = 71
            Width = 25
            Height = 22
            Caption = '...'
            TabOrder = 2
            OnClick = btnParadoxPathBrw_sClick
          end
        end
      end
      object tsFoxpro: TTabSheet
        Caption = 'tsFoxpro'
        ImageIndex = 4
        TabVisible = False
        object grp4: TGroupBox
          Left = 0
          Top = 0
          Width = 273
          Height = 110
          Caption = #25968#25454#36830#25509#35774#32622':'
          TabOrder = 0
          object lbl7: TLabel
            Left = 8
            Top = 24
            Width = 102
            Height = 12
            Caption = 'Foxpro'#25968#25454#24211#36335#24452':'
          end
          object edtFoxproPath_s: TEdit
            Left = 8
            Top = 46
            Width = 217
            Height = 20
            TabOrder = 0
          end
          object btnFoxproPath_s: TButton
            Left = 229
            Top = 45
            Width = 25
            Height = 22
            Caption = '...'
            TabOrder = 1
            OnClick = btnFoxproPath_sClick
          end
        end
      end
      object tsSqlServer: TTabSheet
        Caption = 'tsSqlServer'
        ImageIndex = 3
        TabVisible = False
        object grp5: TGroupBox
          Left = 0
          Top = 1
          Width = 273
          Height = 110
          Caption = #25968#25454#36830#25509#35774#32622':'
          TabOrder = 0
          object lbl9: TLabel
            Left = 16
            Top = 16
            Width = 91
            Height = 14
            AutoSize = False
            Caption = #26381#21153#22120#21517#31216#25110'IP:'
          end