bas_boma_d.dfm

一个MRPII系统源代码版本

inherited Frm_Bas_Boma_D: TFrm_Bas_Boma_D
  Left = 188
  Top = 158
  ActiveControl = Edt_ItemCode
  Caption = 'Bom'
  ClientHeight = 355
  ClientWidth = 543
  PixelsPerInch = 96
  TextHeight = 12
  object Label1: TLabel [0]
    Left = 21
    Top = 42
    Width = 60
    Height = 12
    Caption = '父项代码：'
    Font.ChArset = GB2312_CHArSET
    Font.Color = clWindowText
    Font.Height = -12
    Font.Name = '宋体'
    Font.Style = []
    ParentFont = False
  end
  object Lbl_MasterCode: TLabel [1]
    Left = 78
    Top = 42
    Width = 84
    Height = 12
    Caption = 'Lbl_MasterCode'
    Font.ChArset = GB2312_CHArSET
    Font.Color = clWindowText
    Font.Height = -12
    Font.Name = '宋体'
    Font.Style = []
    ParentFont = False
  end
  object Label3: TLabel [2]
    Left = 357
    Top = 42
    Width = 60
    Height = 12
    Caption = '计量单位：'
    Font.ChArset = GB2312_CHArSET
    Font.Color = clWindowText
    Font.Height = -12
    Font.Name = '宋体'
    Font.Style = []
    ParentFont = False
  end
  object Lbl_MasterType: TLabel [3]
    Left = 238
    Top = 42
    Width = 84
    Height = 12
    Caption = 'Lbl_MasterType'
    Font.ChArset = GB2312_CHArSET
    Font.Color = clWindowText
    Font.Height = -12
    Font.Name = '宋体'
    Font.Style = []
    ParentFont = False
  end
  object Label5: TLabel [4]
    Left = 201
    Top = 42
    Width = 36
    Height = 12
    Caption = '类别：'
    Font.ChArset = GB2312_CHArSET
    Font.Color = clWindowText
    Font.Height = -12
    Font.Name = '宋体'
    Font.Style = []
    ParentFont = False
  end
  object Lbl_MasterUom: TLabel [5]
    Left = 414
    Top = 42
    Width = 78
    Height = 12
    Caption = 'Lbl_MasterUom'
    Font.ChArset = GB2312_CHArSET
    Font.Color = clWindowText
    Font.Height = -12
    Font.Name = '宋体'
    Font.Style = []
    ParentFont = False
  end
  object Label7: TLabel [6]
    Left = 21
    Top = 74
    Width = 60
    Height = 12
    Caption = '父项描述：'
    Font.ChArset = GB2312_CHArSET
    Font.Color = clWindowText
    Font.Height = -12
    Font.Name = '宋体'
    Font.Style = []
    ParentFont = False
  end
  object Lbl_MasterName: TLabel [7]
    Left = 77
    Top = 73
    Width = 84
    Height = 12
    Caption = 'Lbl_MasterName'
    Font.ChArset = GB2312_CHArSET
    Font.Color = clWindowText
    Font.Height = -12
    Font.Name = '宋体'
    Font.Style = []
    ParentFont = False
  end
  object Label9: TLabel [8]
    Left = 21
    Top = 123
    Width = 60
    Height = 12
    Caption = '子项代码：'
    Font.ChArset = GB2312_CHArSET
    Font.Color = clWindowText
    Font.Height = -12
    Font.Name = '宋体'
    Font.Style = []
    ParentFont = False
  end
  object Label13: TLabel [9]
    Left = 354
    Top = 123
    Width = 60
    Height = 12
    Caption = '子项属性：'
    Font.ChArset = GB2312_CHArSET
    Font.Color = clWindowText
    Font.Height = -12
    Font.Name = '宋体'
    Font.Style = []
    ParentFont = False
  end
  object Label15: TLabel [10]
    Left = 21
    Top = 155
    Width = 60
    Height = 12
    Caption = '子项描述：'
    Font.ChArset = GB2312_CHArSET
    Font.Color = clWindowText
    Font.Height = -12
    Font.Name = '宋体'
    Font.Style = []
    ParentFont = False
  end
  object Lbl_SlaveName: TLabel [11]
    Left = 79
    Top = 155
    Width = 78
    Height = 12
    Caption = 'Lbl_SlaveName'
    Font.ChArset = GB2312_CHArSET
    Font.Color = clWindowText
    Font.Height = -12
    Font.Name = '宋体'
    Font.Style = []
    ParentFont = False
  end
  object Label17: TLabel [12]
    Left = 21
    Top = 192
    Width = 36
    Height = 12
    Caption = '定额：'
    Font.ChArset = GB2312_CHArSET
    Font.Color = clWindowText
    Font.Height = -12
    Font.Name = '宋体'
    Font.Style = []
    ParentFont = False
  end
  object Label14: TLabel [13]
    Left = 169
    Top = 193
    Width = 48
    Height = 12
    Caption = '损耗率：'
    Font.ChArset = GB2312_CHArSET
    Font.Color = clWindowText
    Font.Height = -12
    Font.Name = '宋体'
    Font.Style = []
    ParentFont = False
  end
  object Label18: TLabel [14]
    Left = 290
    Top = 190
    Width = 12
    Height = 12
    Caption = '％'
    Font.ChArset = GB2312_CHArSET
    Font.Color = clWindowText
    Font.Height = -12
    Font.Name = '宋体'
    Font.Style = []
    ParentFont = False
  end
  object Label19: TLabel [15]
    Left = 354
    Top = 192
    Width = 60
    Height = 12
    Caption = '子项状态：'
    Font.ChArset = GB2312_CHArSET
    Font.Color = clWindowText
    Font.Height = -12
    Font.Name = '宋体'
    Font.Style = []
    ParentFont = False
  end
  object Label20: TLabel [16]
    Left = 21
    Top = 230
    Width = 60
    Height = 12
    Caption = '用料部门：'
    Font.ChArset = GB2312_CHArSET
    Font.Color = clWindowText
    Font.Height = -12
    Font.Name = '宋体'
    Font.Style = []
    ParentFont = False
  end
  object Lbl_DeptName: TLabel [17]
    Left = 152
    Top = 230
    Width = 72
    Height = 12
    Caption = 'Lbl_DeptName'
  end
  object Label10: TLabel [18]
    Left = 35
    Top = 97
    Width = 501
    Height = 12
    Caption = 
      '----------------------------------------------------------------' +
      '-----------'
  end
  object Label2: TLabel [19]
    Left = 20
    Top = 265
    Width = 60
    Height = 12
    Caption = '子项备注：'
  end
  object Label4: TLabel [20]
    Left = 354
    Top = 230
    Width = 60
    Height = 12
    Caption = '用料方式：'
  end
  object Label6: TLabel [21]
    Left = 214
    Top = 123
    Width = 60
    Height = 12
    Caption = '计量单位：'
  end
  object Lbl_SlaveUom: TLabel [22]
    Left = 271
    Top = 123
    Width = 72
    Height = 12
    Caption = 'Lbl_SlaveUom'
  end
  inherited btn_ok: TButton
    Left = 312
    Top = 302
  end
  inherited btn_Cancel: TButton
    Left = 421
    Top = 302
  end
  inherited Pnl_Add: TPanel
    Left = 438
    Top = 9
  end
  object Edt_Qty: TEdit [26]
    Left = 57
    Top = 185
    Width = 73
    Height = 20
    TabOrder = 5
    OnExit = Edt_QtyExit
  end
  object CmBx_Type: TComboBox [27]
    Left = 411
    Top = 116
    Width = 103
    Height = 20
    Style = csDropDownList
    ItemHeight = 12
    TabOrder = 4
    OnExit = CmBx_TypeExit
    Items.Strings = (
      '0 普通物料'
      '1 工作中心'
      '2 工具'
      '3 结构虚项'
      '4 副产品'
      '5 成本中心'
      '6 替代虚项')
  end
  object Edt_ScrAp: TEdit [28]
    Left = 217
    Top = 185
    Width = 68
    Height = 20
    MaxLength = 8
    TabOrder = 6
    OnExit = Edt_ScrApExit
  end
  object CmBx_Status: TComboBox [29]
    Left = 411
    Top = 184
    Width = 107
    Height = 20
    Style = csDropDownList
    ItemHeight = 12
    TabOrder = 7
    Items.Strings = (
      '0 正常'
      '1 未生效'
      '2 暂定'
      '3 暂停使用')
  end
  object Edt_DeptCode: TEdit [30]
    Left = 77
    Top = 222
    Width = 53
    Height = 20
    ChArCase = ecUpperCase
    TabOrder = 8
    OnExit = Edt_DeptCodeExit
  end
  object Edt_ItemCode: TEdit [31]
    Left = 81
    Top = 116
    Width = 125
    Height = 20
    ChArCase = ecUpperCase
    MaxLength = 16
    TabOrder = 3
    OnExit = Edt_ItemCodeExit
  end
  object StatusBar1: TStatusBar [32]
    Left = 0
    Top = 336
    Width = 543
    Height = 19
    Panels = <
      Item
        Width = 200
      end>
    SimplePanel = False
  end
  object Edt_RemArk: TEdit [33]
    Left = 76
    Top = 258
    Width = 182
    Height = 20
    TabOrder = 9
  end
  object CmBx_usestyle: TComboBox [34]
    Left = 411
    Top = 222
    Width = 107
    Height = 20
    ItemHeight = 12
    TabOrder = 11
    Items.Strings = (
      '0  发料'
      '1  销售')
  end
  inherited AdoQry_Tmp: TAdoQuery
    ConnectionString = 
      'Provider=SQLOLEDB.1;Password=mdrcmrm;Persist Security Info=True;' +
      'User ID=mdrcmrm;Initial Catalog=mdrcmrm;Data Source=192.168.0.8'
    Left = 220
    Top = 7
  end
  object ActionList1: TActionList
    Left = 312
    Top = 64
    object Action1: TAction
      Caption = 'Action1'
      ShortCut = 120
      OnExecute = Action1Execute
    end
  end
  object AdoQry_tmp1: TAdoQuery
    CacheSize = 100
    EnableBCD = False
    Parameters = <>
    Left = 264
    Top = 8
  end
end