assign_a.~dfm

通过此软件可方便的对interbase数据库进行合并

object assign_aform: Tassign_aform
  Left = 147
  Top = 124
  BorderIcons = []
  BorderStyle = bsNone
  ClientHeight = 368
  ClientWidth = 472
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 13
  object LMDFill1: TLMDFill
    Left = 0
    Top = 0
    Width = 473
    Height = 19
    Bevel.Mode = bmCustom
    Bevel.StandardStyle = lsSingleLowered
    Caption.Font.Charset = DEFAULT_CHARSET
    Caption.Font.Color = clWindowText
    Caption.Font.Height = -11
    Caption.Font.Name = 'MS Sans Serif'
    Caption.Font.Style = []
    FillObject.Style = sfGradient
    FillObject.Gradient.Color = clBackground
    FillObject.Gradient.ColorCount = 236
    FillObject.Gradient.Style = gstHorizontal
    FillObject.Options = [foFillInner]
  end
  object LMDSimpleLabel1: TLMDSimpleLabel
    Left = 16
    Top = 1
    Width = 139
    Height = 18
    AutoSize = False
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWhite
    Font.Height = -13
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
    Caption = '数据库合并'
    Options = []
  end
  object LMDDrawEdge1: TLMDDrawEdge
    Left = 352
    Top = 37
    Width = 115
    Height = 301
  end
  object LMDDrawEdge2: TLMDDrawEdge
    Left = 348
    Top = 343
    Width = 3
    Height = 23
    Style = esStandard
  end
  object Button2: TButton
    Left = 488
    Top = 376
    Width = 75
    Height = 25
    Caption = 'Button2'
    TabOrder = 0
  end
  object RzGroupBox2: TRzGroupBox
    Left = 1
    Top = 188
    Width = 349
    Height = 150
    Caption = '选择目的数据库'
    GroupStyle = gsStandard
    TabOrder = 1
    object DirectoryListBox2: TDirectoryListBox
      Left = 10
      Top = 21
      Width = 179
      Height = 100
      FileList = FileListBox2
      IntegralHeight = True
      ItemHeight = 16
      TabOrder = 0
    end
    object DriveComboBox2: TDriveComboBox
      Left = 10
      Top = 126
      Width = 178
      Height = 19
      DirList = DirectoryListBox2
      TabOrder = 1
    end
    object FileListBox2: TFileListBox
      Left = 202
      Top = 48
      Width = 139
      Height = 71
      FileEdit = Edit2
      ItemHeight = 13
      Mask = '*.gdb'
      TabOrder = 2
      OnClick = FileListBox2Click
    end
    object Edit2: TEdit
      Left = 202
      Top = 21
      Width = 139
      Height = 21
      TabOrder = 3
      Text = '*.gdb'
    end
    object FilterComboBox2: TFilterComboBox
      Left = 202
      Top = 123
      Width = 140
      Height = 21
      FileList = FileListBox2
      Filter = 'GDB Files( *.gdb)|*.gdb'
      TabOrder = 4
    end
    object rsListbox1: TrsListbox
      Left = 162
      Top = 20
      Width = 104
      Height = 123
      Options = [lboHeader, lboCheckBoxes, lboHorzLines]
      HeaderText = '         数据库表'
      CheckStyle = csSquareCheck
      ItemHeight = 16
      BorderStyle = bsNone
      Enabled = False
      TabOrder = 5
      Visible = False
    end
    object ListBox2: TListBox
      Left = 48
      Top = 32
      Width = 121
      Height = 97
      ItemHeight = 13
      TabOrder = 6
      Visible = False
    end
  end
  object RzGroupBox1: TRzGroupBox
    Left = 1
    Top = 32
    Width = 349
    Height = 150
    Caption = '选择源数据库'
    GroupStyle = gsStandard
    TabOrder = 2
    object DirectoryListBox1: TDirectoryListBox
      Left = 10
      Top = 21
      Width = 179
      Height = 100
      FileList = FileListBox1
      IntegralHeight = True
      ItemHeight = 16
      TabOrder = 0
    end
    object DriveComboBox1: TDriveComboBox
      Left = 10
      Top = 126
      Width = 178
      Height = 19
      DirList = DirectoryListBox1
      TabOrder = 1
    end
    object FileListBox1: TFileListBox
      Left = 202
      Top = 48
      Width = 139
      Height = 71
      FileEdit = Edit1
      ItemHeight = 13
      Mask = '*.gdb'
      TabOrder = 2
      OnClick = FileListBox1Click
    end
    object Edit1: TEdit
      Left = 202
      Top = 21
      Width = 139
      Height = 21
      TabOrder = 3
      Text = '*.gdb'
    end
    object FilterComboBox1: TFilterComboBox
      Left = 202
      Top = 123
      Width = 140
      Height = 21
      FileList = FileListBox1
      Filter = 'GDB Files( *.gdb)|*.gdb'
      TabOrder = 4
    end
  end
  object LMDButton1: TLMDButton
    Left = 375
    Top = 342
    Width = 75
    Height = 24
    Caption = '开始'
    TabOrder = 3
    Visible = True
    OnClick = LMDButton1Click
    Glyph.Data = {
      76010000424D7601000000000000760000002800000020000000100000000100
      04000000000000010000120B0000120B00001000000000000000000000000000
      800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
      FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00555555555555
      555555555555555555555555555555555555555555FF55555555555559055555
      55555555577FF5555555555599905555555555557777F5555555555599905555
      555555557777FF5555555559999905555555555777777F555555559999990555
      5555557777777FF5555557990599905555555777757777F55555790555599055
      55557775555777FF5555555555599905555555555557777F5555555555559905
      555555555555777FF5555555555559905555555555555777FF55555555555579
      05555555555555777FF5555555555557905555555555555777FF555555555555
      5990555555555555577755555555555555555555555555555555}
    NumGlyphs = 2
  end
  object rsListbox2: TrsListbox
    Left = 354
    Top = 38
    Width = 111
    Height = 298
    Hint = '如果源数据库与目的数据库用电类型表(YDLXK)不一致,请先合并该数据表'
    Options = [lboHeader, lboCheckBoxes, lboHorzLines]
    HeaderText = '选择要合并的数据表'
    CheckStyle = csSquareCheck
    ItemHeight = 16
    BorderStyle = bsNone
    ParentShowHint = False
    ShowHint = True
    TabOrder = 4
  end
  object LMDShapeHint1: TLMDShapeHint
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clRed
    Font.Height = -13
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    Style = hsNoseEllipse
    Left = 112
    Top = 184
  end
end