edit.~dfm

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

object editform: Teditform
  Left = 103
  Top = 116
  BorderIcons = []
  BorderStyle = bsNone
  Caption = 'editform'
  ClientHeight = 362
  ClientWidth = 658
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  PixelsPerInch = 96
  TextHeight = 13
  object LMDFill1: TLMDFill
    Left = 0
    Top = 0
    Width = 658
    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 LMDLabel4: TLMDLabel
    Left = 10
    Top = 1
    Width = 94
    Height = 18
    Bevel.Mode = bmCustom
    Bevel.StandardStyle = lsSingleLowered
    AutoSize = False
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWhite
    Font.Height = -13
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    Options = []
    ParentFont = False
    Caption = '维护数据库'
  end
  object RzGroupBox1: TRzGroupBox
    Left = 1
    Top = 22
    Width = 307
    Height = 338
    Caption = '选择数据库'
    GroupStyle = gsStandard
    TabOrder = 0
    object LMDLabel1: TLMDLabel
      Left = 37
      Top = 249
      Width = 74
      Height = 15
      Bevel.Mode = bmCustom
      Bevel.StandardStyle = lsSingleLowered
      Options = []
      Caption = '输入用户单位'
    end
    object LMDLabel2: TLMDLabel
      Left = 37
      Top = 278
      Width = 74
      Height = 15
      Bevel.Mode = bmCustom
      Bevel.StandardStyle = lsSingleLowered
      Options = []
      Caption = '或    用户编号'
    end
    object LMDDrawEdge1: TLMDDrawEdge
      Left = 1
      Top = 225
      Width = 306
      Height = 2
    end
    object LMDLabel3: TLMDLabel
      Left = 37
      Top = 306
      Width = 74
      Height = 15
      Bevel.Mode = bmCustom
      Bevel.StandardStyle = lsSingleLowered
      Options = []
      Caption = '或    用户姓名'
    end
    object Image1: TImage
      Left = 247
      Top = 283
      Width = 31
      Height = 37
      Picture.Data = {
        07544269746D617096010000424D960100000000000076000000280000001800
        0000180000000100040000000000200100000000000000000000100000001000
        0000000000000000800000800000008080008000000080008000808000008080
        8000C0C0C0000000FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFF
        FF00999999999999999999999999999999990FF800000000999999999000FF80
        00000000009999900870F8000000000000999908778FF00070000000000990F7
        7FF000FFFF700888000990FF80000FFFFFF700080009900000008FFFFFFF0000
        000900000008FF0FFFFF80700099000000FFF80F4FFFF80700990000008FF880
        CFFFFF07099900000FFFF0880FFFF0FF099900000FFFF8008FF00FF009990000
        FFFFFF808F084F0099990000FFFFFFFFFF00CF09999900000FFFFFFFF008F099
        999990000FFFFFFFF80800999999900000FFFFFFFF80099999999900000FFFFF
        F7009999999999900000FFF70009999999999999000007000099999999999999
        9900000099999999999999999999999999999999999999999999999999999999
        9999}
      Stretch = True
      Transparent = True
    end
    object DirectoryListBox1: TDirectoryListBox
      Left = 10
      Top = 21
      Width = 179
      Height = 180
      FileList = FileListBox1
      IntegralHeight = True
      ItemHeight = 16
      TabOrder = 0
    end
    object DriveComboBox1: TDriveComboBox
      Left = 10
      Top = 204
      Width = 178
      Height = 19
      DirList = DirectoryListBox1
      TabOrder = 1
    end
    object FileListBox1: TFileListBox
      Left = 193
      Top = 48
      Width = 104
      Height = 152
      FileEdit = Edit1
      ItemHeight = 13
      Mask = '*.gdb'
      TabOrder = 2
      OnClick = FileListBox1Click
    end
    object Edit1: TEdit
      Left = 193
      Top = 21
      Width = 104
      Height = 21
      TabOrder = 3
      Text = '*.gdb'
    end
    object FilterComboBox1: TFilterComboBox
      Left = 193
      Top = 202
      Width = 105
      Height = 21
      FileList = FileListBox1
      Filter = 'GDB Files( *.gdb)|*.gdb'
      TabOrder = 4
    end
    object LMDEdit1: TLMDEdit
      Left = 119
      Top = 244
      Width = 138
      Height = 21
      Cursor = crIBeam
      BackFX.AlphaBlend.Strength = 0.600000023841858
      BackFX.AlphaBlend.FillObject.Style = sfNone
      Bevel.Mode = bmWindows
      Bevel.StandardStyle = lsSingleLowered
      Caret.BlinkRate = 530
      Caret.ImageIndex = 0
      Caret.ListIndex = 0
      TabOrder = 5
      OnChange = LMDEdit1Change
      CustomButtons = <>
      PasswordChar = #0
    end
    object LMDEdit2: TLMDEdit
      Left = 119
      Top = 274
      Width = 104
      Height = 21
      Cursor = crIBeam
      BackFX.AlphaBlend.Strength = 0.600000023841858
      BackFX.AlphaBlend.FillObject.Style = sfNone
      Bevel.Mode = bmWindows
      Bevel.StandardStyle = lsSingleLowered
      Caret.BlinkRate = 530
      Caret.ImageIndex = 0
      Caret.ListIndex = 0
      TabOrder = 6
      OnChange = LMDEdit2Change
      CustomButtons = <>
      PasswordChar = #0
    end
    object LMDEdit3: TLMDEdit
      Left = 119
      Top = 304
      Width = 103
      Height = 21
      Cursor = crIBeam
      BackFX.AlphaBlend.Strength = 0.600000023841858
      BackFX.AlphaBlend.FillObject.Style = sfNone
      Bevel.Mode = bmWindows
      Bevel.StandardStyle = lsSingleLowered
      Caret.BlinkRate = 530
      Caret.ImageIndex = 0
      Caret.ListIndex = 0
      TabOrder = 7
      OnChange = LMDEdit3Change
      CustomButtons = <>
      PasswordChar = #0
    end
  end
  object LMDGroupBox1: TLMDGroupBox
    Left = 310
    Top = 23
    Width = 347
    Height = 166
    BackFX.AlphaBlend.Strength = 0.600000023841858
    BackFX.AlphaBlend.FillObject.Style = sfNone
    Bevel.Mode = bmStandard
    Bevel.StandardStyle = lsFrameInset
    Caption = '主数据表'
    CaptionFont.Charset = DEFAULT_CHARSET
    CaptionFont.Color = clWindowText
    CaptionFont.Height = -11
    CaptionFont.Name = 'MS Sans Serif'
    CaptionFont.Style = []
    TabOrder = 1
    object wwDBGrid1: TwwDBGrid
      Left = 6
      Top = 15
      Width = 337
      Height = 120
      IniAttributes.Delimiter = ';;'
      TitleColor = clBtnFace
      FixedCols = 0
      ShowHorzScrollBar = True
      DataSource = DataSource1
      TabOrder = 0
      TitleAlignment = taLeftJustify
      TitleFont.Charset = DEFAULT_CHARSET
      TitleFont.Color = clWindowText
      TitleFont.Height = -11
      TitleFont.Name = 'MS Sans Serif'
      TitleFont.Style = []
      TitleLines = 1
      TitleButtons = False
      IndicatorColor = icBlack
    end
    object wwDBNavigator1: TwwDBNavigator
      Left = 36
      Top = 137
      Width = 275
      Height = 25
      DataSource = DataSource1
      RepeatInterval.InitialDelay = 500
      RepeatInterval.Interval = 100
      object wwNavButton12: TwwNavButton
        Left = 0
        Top = 0
        Width = 25
        Height = 25
        Hint = 'Move to first record'
        ImageIndex = -1
        NumGlyphs = 2
        Spacing = 4
        Transparent = False
        Caption = 'wwDBNavigator1First'
        Enabled = False
        DisabledTextColors.ShadeColor = clGray
        DisabledTextColors.HighlightColor = clBtnHighlight
        Index = 0
        Style = nbsFirst
      end
      object wwNavButton13: TwwNavButton
        Left = 25
        Top = 0
        Width = 25
        Height = 25
        Hint = 'Move backward 10 records'
        ImageIndex = -1
        NumGlyphs = 2
        Spacing = 4
        Transparent = False
        Caption = 'wwDBNavigator1PriorPage'
        Enabled = False
        DisabledTextColors.ShadeColor = clGray
        DisabledTextColors.HighlightColor = clBtnHighlight
        Index = 1
        Style = nbsPriorPage
      end
      object wwNavButton14: TwwNavButton
        Left = 50
        Top = 0
        Width = 25
        Height = 25
        Hint = 'Move to prior record'
        ImageIndex = -1
        NumGlyphs = 2
        Spacing = 4
        Transparent = False
        Caption = 'wwDBNavigator1Prior'
        Enabled = False
        DisabledTextColors.ShadeColor = clGray
        DisabledTextColors.HighlightColor = clBtnHighlight
        Index = 2
        Style = nbsPrior
      end
      object wwNavButton15: TwwNavButton
        Left = 75
        Top = 0
        Width = 25
        Height = 25
        Hint = 'Move to next record'
        ImageIndex = -1
        NumGlyphs = 2
        Spacing = 4
        Transparent = False
        Caption = 'wwDBNavigator1Next'
        Enabled = False
        DisabledTextColors.ShadeColor = clGray
        DisabledTextColors.HighlightColor = clBtnHighlight
        Index = 3
        Style = nbsNext
      end
      object wwNavButton16: TwwNavButton
        Left = 100
        Top = 0
        Width = 25
        Height = 25
        Hint = 'Move forward 10 records'
        ImageIndex = -1
        NumGlyphs = 2
        Spacing = 4
        Transparent = False
        Caption = 'wwDBNavigator1NextPage'
        Enabled = False
        DisabledTextColors.ShadeColor = clGray
        DisabledTextColors.HighlightColor = clBtnHighlight
        Index = 4
        Style = nbsNextPage
      end