unit1.~dfm

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

          object lbl10: TLabel
            Left = 16
            Top = 39
            Width = 88
            Height = 14
            AutoSize = False
            Caption = #25968#25454#24211#21517#31216':'
          end
          object lbl11: TLabel
            Left = 16
            Top = 62
            Width = 103
            Height = 14
            AutoSize = False
            Caption = #25968#25454#24211#29992#25143#21517':'
          end
          object lbl12: TLabel
            Left = 16
            Top = 85
            Width = 91
            Height = 14
            AutoSize = False
            Caption = #25968#25454#24211#23494#30721':'
          end
          object edtSqlServerIP_s: TEdit
            Left = 120
            Top = 12
            Width = 121
            Height = 20
            TabOrder = 0
          end
          object edtSqlServerUser_s: TEdit
            Left = 120
            Top = 58
            Width = 121
            Height = 20
            TabOrder = 2
            Text = 'sa'
          end
          object edtSqlServerName_s: TEdit
            Left = 120
            Top = 35
            Width = 121
            Height = 20
            TabOrder = 1
          end
          object edtSqlServerPwd_s: TEdit
            Left = 120
            Top = 81
            Width = 121
            Height = 20
            PasswordChar = '*'
            TabOrder = 3
          end
        end
      end
    end
  end
  object grp12: TGroupBox
    Left = 8
    Top = 224
    Width = 575
    Height = 65
    Caption = #25968#25454#24211#34920#35774#32622
    TabOrder = 1
    object lblTable_s: TLabel
      Left = 9
      Top = 20
      Width = 145
      Height = 13
      AutoSize = False
      Caption = #35831#36755#20837#28304#25968#25454#24211#34920':'
    end
    object lblTable_d: TLabel
      Left = 292
      Top = 20
      Width = 153
      Height = 13
      AutoSize = False
      Caption = #35831#36755#20837#30446#26631#25968#25454#24211#34920#21517':'
    end
    object edtTabel_s: TEdit
      Left = 9
      Top = 38
      Width = 273
      Height = 20
      TabOrder = 0
    end
    object edtTabel_d: TEdit
      Left = 292
      Top = 38
      Width = 273
      Height = 20
      TabOrder = 1
    end
  end
  object pm1: TPopupMenu
    Left = 128
    Top = 203
    object mniAccess: TMenuItem
      Caption = 'Access ---->'
      object mniAccess2Access: TMenuItem
        Caption = 'Access'
        OnClick = mniMenuItemClick
      end
      object mniAccess2Excel: TMenuItem
        Tag = 1
        Caption = 'Excel'
        OnClick = mniMenuItemClick
      end
      object mniAccess2Paradox: TMenuItem
        Tag = 2
        Caption = 'Paradox'
        OnClick = mniMenuItemClick
      end
      object mniAccess2Foxpro: TMenuItem
        Tag = 3
        Caption = 'Foxpro'
        OnClick = mniMenuItemClick
      end
      object mniAccess2SqlServer: TMenuItem
        Tag = 4
        Caption = 'Sql Server'
        OnClick = mniMenuItemClick
      end
    end
    object mniExcel: TMenuItem
      Caption = 'Excel ---->'
      object mniExcel2Access: TMenuItem
        Tag = 10
        Caption = 'Access'
        OnClick = mniMenuItemClick
      end
      object mniExcel2Paradox: TMenuItem
        Tag = 12
        Caption = 'Paradox'
        OnClick = mniMenuItemClick
      end
      object mniExcel2Foxpro: TMenuItem
        Tag = 13
        Caption = 'Foxpro'
        OnClick = mniMenuItemClick
      end
      object mniExcel2SqlServer: TMenuItem
        Tag = 14
        Caption = 'Sql Server'
        OnClick = mniMenuItemClick
      end
    end
    object mniParadox: TMenuItem
      Caption = 'Paradox ---->'
      object mniParadox2Access: TMenuItem
        Tag = 20
        Caption = 'Access'
        OnClick = mniMenuItemClick
      end
      object mniParadox2Excel: TMenuItem
        Tag = 21
        Caption = 'Excel'
        OnClick = mniMenuItemClick
      end
      object mniParadox2SqlServer: TMenuItem
        Tag = 24
        Caption = 'Sql Server'
        OnClick = mniMenuItemClick
      end
    end
    object mniFoxpro: TMenuItem
      Caption = 'Foxpro ---->'
      object mniFoxpro2Access: TMenuItem
        Tag = 30
        Caption = 'Access'
        OnClick = mniMenuItemClick
      end
      object mniFoxpro2Excel: TMenuItem
        Tag = 31
        Caption = 'Excel'
        OnClick = mniMenuItemClick
      end
      object mniFoxpro2SqlServer: TMenuItem
        Tag = 34
        Caption = 'Sql Server'
        OnClick = mniMenuItemClick
      end
    end
    object mniSqlServer: TMenuItem
      Caption = 'Sql Server ---->'
      object mniSqlServer2Access: TMenuItem
        Tag = 40
        Caption = 'Access'
        OnClick = mniMenuItemClick
      end
      object mniSqlServer2Excel: TMenuItem
        Tag = 41
        Caption = 'Excel'
        OnClick = mniMenuItemClick
      end
      object mniSqlServer2Paradox: TMenuItem
        Tag = 42
        Caption = 'Paradox'
        OnClick = mniMenuItemClick
      end
      object mniSqlServer2Foxpro: TMenuItem
        Tag = 43
        Caption = 'Foxpro'
        OnClick = mniMenuItemClick
      end
      object mniSqlServer2SqlServer: TMenuItem
        Tag = 44
        Caption = 'Sql Server'
        OnClick = mniMenuItemClick
      end
    end
  end
  object dlgOpenFile: TOpenDialog
    Left = 32
    Top = 203
  end
  object ssn1: TSession
    SessionName = 'ssn1_2'
    Left = 64
    Top = 203
  end
  object skndt1: TSkinData
    Active = True
    DisableTag = 99
    SkinControls = [xcMainMenu, xcPopupMenu, xcToolbar, xcControlbar, xcCombo, xcCheckBox, xcRadioButton, xcProgress, xcScrollbar, xcEdit, xcButton, xcBitBtn, xcSpeedButton, xcPanel, xcGroupBox, xcStatusBar, xcTab, xcSystemMenu]
    Skin3rd.Strings = (
      'TTBDock=Panel'
      'TTBToolbar=Panel'
      'TImageEnMView=scrollbar'
      'TImageEnView=scrollbar'
      'TRzButton=button'
      'TRzCheckGroup=CheckGroup'
      'TRzRadioGroup=Radiogroup'
      'TRzRadioButton=Radiobutton'
      'TRzCheckBox=Checkbox'
      'TRzButtonEdit=Edit'
      'TRzDBRadioGroup=Radiogroup'
      'TRzDBRadioButton=Radiobutton'
      'TRzDBCheckBox=Checkbox'
      'TLMDGroupBox=Groupbox'
      'TDBCheckboxEh=Checkbox'
      'TDBCheckboxEh=Checkbox'
      'TLMDCHECKBOX=Checkbox'
      'TLMDDBCHECKBOX=Checkbox'
      'TLMDRadiobutton=Radiobutton'
      'TLMDCalculator=panel'
      'TLMDGROUPBOX=Panel'
      'TLMDSIMPLEPANEL=Panel'
      'TLMDDBCalendar=Panel'
      'TLMDButtonPanel=Panel'
      'TLMDLMDCalculator=Panel'
      'TLMDHeaderPanel=Panel'
      'TLMDTechnicalLine=Panel'
      'TLMDLMDClock=Panel'
      'TLMDTrackbar=panel'
      'TLMDListCombobox=combobox'
      'TLMDCheckListCombobox=combobox'
      'TLMDHeaderListCombobox=combobox'
      'TLMDImageCombobox=combobox'
      'TLMDColorCombobox=combobox'
      'TLMDFontCombobox=combobox'
      'TLMDFontSizeCombobox=combobox'
      'TLMDFontSizeCombobox=combobox'
      'TLMDPrinterCombobox=combobox'
      'TLMDDriveCombobox=combobox'
      'TLMDCalculatorComboBox=combobox'
      'TLMDTrackBarComboBox=combobox'
      'TLMDCalendarComboBox=combobox'
      'TLMDTreeComboBox=combobox'
      'TLMDRADIOGROUP=radiogroup'
      'TLMDCheckGroup=CheckGroup'
      'TLMDDBRADIOGROUP=radiogroup'
      'TLMDDBCheckGroup=CheckGroup'
      'TLMDCalculatorEdit=edit'
      'TLMDEDIT=Edit'
      'TLMDMASKEDIT=Edit'
      'TLMDBROWSEEDIT=Edit'
      'TLMDEXTSPINEDIT=Edit'
      'TLMDCALENDAREDIT=Edit'
      'TLMDFILEOPENEDIT=Edit'
      'TLMDFILESAVEEDIT=Edit'
      'TLMDCOLOREDIT=Edit'
      'TLMDDBEDIT=Edit'
      'TLMDDBMASKEDIT=Edit'
      'TLMDDBEXTSPINEDIT=Edit'
      'TLMDDBSPINEDIT=Edit'
      'TLMDDBEDITDBLookup=Edit'
      'TLMDEDITDBLookup=Edit'
      'TDBLookupCombobox=Combobox'
      'TWWDBCombobox=Combobox'
      'TWWDBLookupCombo=Combobox'
      'TWWDBCombobox=Combobox'
      'TWWKeyCombo=Combobox'
      'TWWTempKeyCombo=combobox'