bas_bom2_d.dfm

一个MRPII系统源代码版本

inherited Frm_Bas_Bom2_D: TFrm_Bas_Bom2_D
  Left = 188
  Top = 158
  ActiveControl = Edt_ItemCode
  Caption = 'Bom构造(父对子)'
  ClientHeight = 355
  ClientWidth = 543
  PixelsPerInch = 96
  TextHeight = 12
  object Label1: TLabel [0]
    Left = 38
    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 = 95
    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 = 334
    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 = 266
    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 = 232
    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 = 393
    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 = 38
    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 = 94
    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 = 42
    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 = 334
    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 = 42
    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 = 98
    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 = 65
    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 = 191
    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 = 312
    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 = 334
    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 = 42
    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 = 177
    Top = 230
    Width = 72
    Height = 12
    Caption = 'Lbl_DeptName'
  end
  object Label10: TLabel [18]
    Left = 29
    Top = 97
    Width = 450
    Height = 12
    Caption = 
      '----------------------------------------------------------------' +
      '-----------'
  end
  object Label2: TLabel [19]
    Left = 41
    Top = 265
    Width = 60
    Height = 12
    Caption = '子项备注：'
  end
  object Label4: TLabel [20]
    Left = 334
    Top = 230
    Width = 60
    Height = 12
    Caption = '用料方式：'
  end
  object Label6: TLabel [21]
    Left = 232
    Top = 123
    Width = 60
    Height = 12
    Caption = '计量单位：'
  end
  object Lbl_SlaveUom: TLabel [22]
    Left = 289
    Top = 123
    Width = 72
    Height = 12
    Caption = 'Lbl_SlaveUom'
  end
  inherited btn_ok: TButton
    Left = 312
    Top = 302
    TabOrder = 9
  end
  inherited btn_Cancel: TButton
    Left = 421
    Top = 302
    TabOrder = 11
  end
  inherited Pnl_Add: TPanel
    Left = 415
    Top = 9
    TabOrder = 0
  end
  object Edt_Qty: TEdit [26]
    Left = 98
    Top = 185
    Width = 73
    Height = 20
    TabOrder = 3
    Text = '1'
    OnChange = Edt_QtyChange
    OnExit = Edt_QtyExit
  end
  object CmBx_Type: TComboBox [27]
    Left = 390
    Top = 115
    Width = 103
    Height = 20
    Style = csDropDownList
    ItemHeight = 12
    TabOrder = 2
    OnExit = CmBx_TypeExit
    Items.Strings = (
      '0 普通物料'
      '1 工作中心'
      '2 工具'
      '3 结构虚项'
      '4 副产品'
      '5 成本中心'
      '6 替代虚项'
      '7 参考'
      '')
  end
  object Edt_ScrAp: TEdit [28]
    Left = 236
    Top = 185
    Width = 68
    Height = 20
    MaxLength = 8
    TabOrder = 4
    Text = '0'
    OnExit = Edt_ScrApExit
  end
  object CmBx_Status: TComboBox [29]
    Left = 390
    Top = 184
    Width = 107
    Height = 20
    Style = csDropDownList
    ItemHeight = 12
    TabOrder = 5
    Items.Strings = (
      '0 正常'
      '1 未生效'
      '2 暂定'
      '3 暂停使用')
  end
  object Edt_DeptCode: TEdit [30]
    Left = 98
    Top = 222
    Width = 73
    Height = 20
    ChArCase = ecUpperCase
    TabOrder = 6
    OnExit = Edt_DeptCodeExit
  end
  object Edt_ItemCode: TEdit [31]
    Left = 98
    Top = 115
    Width = 125
    Height = 20
    ChArCase = ecUpperCase
    MaxLength = 16
    TabOrder = 1
    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 = 98
    Top = 258
    Width = 404
    Height = 20
    TabOrder = 7
  end
  object CmBx_usestyle: TComboBox [34]
    Left = 390
    Top = 222
    Width = 107
    Height = 20
    ItemHeight = 12
    TabOrder = 8
    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 = 328
    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