unit1.dfm

通过ODBC/ADO等方式进行数据库连接及数据导入源码

object frmsjdr: Tfrmsjdr
  Left = 205
  Top = 94
  Width = 485
  Height = 478
  Caption = #25968#25454#23548#20837
  Color = clBtnFace
  Font.Charset = GB2312_CHARSET
  Font.Color = clWindowText
  Font.Height = -12
  Font.Name = #23435#20307
  Font.Style = []
  OldCreateOrder = False
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 12
  object stb: TStatusBar
    Left = 0
    Top = 432
    Width = 477
    Height = 19
    Panels = <>
    SimplePanel = False
  end
  object ControlBar1: TControlBar
    Left = 0
    Top = 0
    Width = 477
    Height = 24
    Align = alTop
    AutoSize = True
    BevelEdges = []
    TabOrder = 1
    object ToolBar1: TToolBar
      Left = 11
      Top = 2
      Width = 464
      Height = 20
      AutoSize = True
      ButtonHeight = 20
      ButtonWidth = 79
      Caption = 'ToolBar1'
      EdgeBorders = []
      Flat = True
      ShowCaptions = True
      TabOrder = 0
      object ToolButton1: TToolButton
        Left = 0
        Top = 0
        Caption = #24320#22987#23548#20837#25968#25454
        ImageIndex = 0
        OnClick = ToolButton1Click
      end
    end
  end
  object Panel2: TPanel
    Left = 0
    Top = 24
    Width = 477
    Height = 41
    Align = alTop
    BevelOuter = bvNone
    Caption = 'Panel2'
    TabOrder = 2
    object BitBtn1: TBitBtn
      Left = 8
      Top = 6
      Width = 75
      Height = 25
      Caption = #23450#20041#28304#34920
      TabOrder = 0
      OnClick = BitBtn1Click
    end
    object ed_tname: TEdit
      Left = 88
      Top = 9
      Width = 361
      Height = 20
      TabOrder = 1
    end
  end
  object Panel1: TPanel
    Left = 0
    Top = 65
    Width = 477
    Height = 367
    Align = alClient
    BevelOuter = bvNone
    TabOrder = 3
    object SpeedButton1: TSpeedButton
      Left = 216
      Top = 90
      Width = 57
      Height = 22
      Caption = #28155#21152
      OnClick = SpeedButton1Click
    end
    object SpeedButton3: TSpeedButton
      Left = 216
      Top = 170
      Width = 57
      Height = 22
      Caption = #21516#21517#37197#37197
      OnClick = SpeedButton3Click
    end
    object Label1: TLabel
      Left = 5
      Top = 6
      Width = 66
      Height = 12
      Caption = #36873#25321'Alias'#21517
    end
    object SpeedButton2: TSpeedButton
      Left = 216
      Top = 210
      Width = 57
      Height = 22
      Caption = #28165#31354#20851#31995
      OnClick = SpeedButton2Click
    end
    object SpeedButton4: TSpeedButton
      Left = 216
      Top = 130
      Width = 57
      Height = 22
      Caption = #21462#22238
      OnClick = SpeedButton4Click
    end
    object Label2: TLabel
      Left = 3
      Top = 46
      Width = 72
      Height = 12
      Caption = #36873#25321#25968#25454#34920#21517
    end
    object GroupBox1: TGroupBox
      Left = 8
      Top = 72
      Width = 193
      Height = 176
      Caption = #30446#26631#34920#23383#27573
      TabOrder = 0
      object lb_to: TListBox
        Left = 2
        Top = 14
        Width = 189
        Height = 160
        Align = alClient
        ItemHeight = 12
        TabOrder = 0
      end
    end
    object GroupBox2: TGroupBox
      Left = 286
      Top = 71
      Width = 185
      Height = 179
      Caption = #28304#34920#23383#27573
      TabOrder = 1
      object lb_src: TListBox
        Left = 2
        Top = 14
        Width = 181
        Height = 163
        Align = alClient
        ItemHeight = 12
        TabOrder = 0
      end
    end
    object GroupBox3: TGroupBox
      Left = 8
      Top = 250
      Width = 465
      Height = 113
      Caption = #23545#24212#20851#31995
      TabOrder = 2
      object lb_gx: TListBox
        Left = 2
        Top = 14
        Width = 461
        Height = 97
        Align = alClient
        ItemHeight = 12
        TabOrder = 0
      end
    end
    object CB_aliasn: TComboBox
      Left = 80
      Top = 2
      Width = 97
      Height = 20
      ItemHeight = 12
      TabOrder = 3
    end
    object cb_sjbn: TComboBox
      Left = 80
      Top = 42
      Width = 97
      Height = 20
      ItemHeight = 12
      TabOrder = 4
      OnChange = cb_sjbnChange
    end
    object GroupBox4: TGroupBox
      Left = 192
      Top = 0
      Width = 273
      Height = 65
      Caption = #25968#25454#24211#30331#24405
      TabOrder = 5
      object Label3: TLabel
        Left = 8
        Top = 16
        Width = 36
        Height = 12
        Caption = #29992#25143#21517
      end
      object Label4: TLabel
        Left = 16
        Top = 42
        Width = 24
        Height = 12
        Caption = #23494#30721
      end
      object ed_username: TEdit
        Left = 56
        Top = 16
        Width = 121
        Height = 20
        TabOrder = 0
      end
      object ed_psw: TEdit
        Left = 56
        Top = 40
        Width = 121
        Height = 20
        PasswordChar = '*'
        TabOrder = 1
      end
      object BitBtn2: TBitBtn
        Left = 192
        Top = 32
        Width = 75
        Height = 25
        Caption = #21462#22238#25968#25454#34920
        Default = True
        TabOrder = 2
        OnClick = BitBtn2Click
      end
    end
  end
  object tsrc: TTable
    Left = 344
    Top = 155
  end
  object tto: TTable
    Left = 376
    Top = 155
  end
  object odlg: TOpenDialog
    Filter = '*.db|*.db|*.dbf|*.dbf'
    Left = 376
    Top = 120
  end
  object TemDATA: TDatabase
    Params.Strings = (
      'USER NAME=JWDX')
    SessionName = 'Default'
    Left = 344
    Top = 120
  end
end