unit17.dfm

来自「玉龙飞雪进销存管理系统,可以帮您管理进销存的软件」· DFM 代码 · 共 137 行

object Formhui: TFormhui
  Left = 261
  Top = 159
  BorderIcons = [biSystemMenu, biMinimize]
  BorderStyle = bsSingle
  Caption = #25968#25454#24674#22797
  ClientHeight = 145
  ClientWidth = 290
  Color = clBtnFace
  Font.Charset = GB2312_CHARSET
  Font.Color = clWindowText
  Font.Height = -13
  Font.Name = #23435#20307
  Font.Style = []
  FormStyle = fsStayOnTop
  OldCreateOrder = False
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 13
  object SpeedButton1: TSpeedButton
    Left = 184
    Top = 16
    Width = 81
    Height = 25
    Caption = #24320'    '#22987
    Flat = True
    OnClick = SpeedButton1Click
  end
  object SpeedButton2: TSpeedButton
    Left = 184
    Top = 96
    Width = 81
    Height = 25
    Caption = #36864'    '#20986
    Flat = True
    OnClick = SpeedButton2Click
  end
  object RadioButton1: TRadioButton
    Left = 16
    Top = 16
    Width = 89
    Height = 17
    Caption = #36827#36135#34920#24674#22797
    TabOrder = 0
  end
  object RadioButton2: TRadioButton
    Left = 16
    Top = 61
    Width = 81
    Height = 17
    Caption = #38144#21806#34920#24674#22797
    TabOrder = 1
  end
  object RadioButton3: TRadioButton
    Left = 16
    Top = 104
    Width = 81
    Height = 17
    Caption = #23458#25143#34920#24674#22797
    TabOrder = 2
  end
  object Table1: TTable
    AutoCalcFields = False
    DatabaseName = 'mydb2'
    TableName = 'jinbak.DB'
    Left = 8
    Top = 8
  end
  object Table2: TTable
    AutoCalcFields = False
    DatabaseName = 'mydb2'
    TableName = 'jin.DB'
    Left = 48
    Top = 8
  end
  object BatchMove1: TBatchMove
    Destination = Table2
    Mode = batCopy
    Source = Table1
    Left = 88
    Top = 8
  end
  object Table3: TTable
    AutoCalcFields = False
    DatabaseName = 'mydb2'
    TableName = 'xiaobak.db'
    Left = 8
    Top = 56
  end
  object Table4: TTable
    AutoCalcFields = False
    DatabaseName = 'mydb2'
    TableName = 'xiao.DB'
    Left = 40
    Top = 56
  end
  object Table5: TTable
    AutoCalcFields = False
    DatabaseName = 'mydb2'
    TableName = 'kehubak.db'
    Left = 8
    Top = 104
  end
  object Table6: TTable
    AutoCalcFields = False
    DatabaseName = 'mydb2'
    TableName = 'kehu.DB'
    Left = 40
    Top = 104
  end
  object BatchMove2: TBatchMove
    Destination = Table4
    Mode = batCopy
    Source = Table3
    Left = 88
    Top = 56
  end
  object BatchMove3: TBatchMove
    Destination = Table6
    Mode = batCopy
    Source = Table5
    Left = 88
    Top = 104
  end
  object Database1: TDatabase
    DatabaseName = 'mydb2'
    DriverName = 'STANDARD'
    Params.Strings = (
      'PATH=database'
      'DEFAULT DRIVER=PARADOX'
      'ENABLE BCD=FALSE')
    SessionName = 'Default'
    Left = 136
    Top = 8
  end
end