bas_stosbom.dfm

一个MRPII系统源代码版本

inherited Frm_Bas_SToSBom: TFrm_Bas_SToSBom
  Left = 54
  Top = 94
  Caption = '一对一制造Bom构造'
  ClientHeight = 357
  ClientWidth = 585
  FormStyle = fsMDIChild
  Visible = True
  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 Label3: TLabel [1]
    Left = 400
    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 [2]
    Left = 315
    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 [3]
    Left = 280
    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 [4]
    Left = 457
    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 [5]
    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 [6]
    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 [7]
    Left = 38
    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 [8]
    Left = 362
    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 [9]
    Left = 38
    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 [10]
    Left = 96
    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 [11]
    Left = 38
    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 [12]
    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 [13]
    Left = 315
    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 [14]
    Left = 367
    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 [15]
    Left = 38
    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 Label21: TLabel [16]
    Left = 230
    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 = 288
    Top = 230
    Width = 72
    Height = 12
    Caption = 'Lbl_DeptName'
  end
  object Label10: TLabel [18]
    Left = 29
    Top = 97
    Width = 504
    Height = 12
    Caption = 
      '----------------------------------------------------------------' +
      '--------------------'
  end
  object Label2: TLabel [19]
    Left = 39
    Top = 266
    Width = 60
    Height = 12
    Caption = '子项备注：'
  end
  inherited btn_ok: TButton
    Left = 366
    Top = 292
  end
  inherited btn_Cancel: TButton
    Left = 475
    Top = 292
    OnClick = btn_CancelClick
  end
  inherited Pnl_Add: TPanel
    Left = 600
    Top = 25
    Width = 2
  end
  object Edt_Qty: TEdit [23]
    Left = 74
    Top = 185
    Width = 73
    Height = 20
    TabOrder = 6
    OnExit = Edt_QtyExit
  end
  object CmBx_Type: TComboBox [24]
    Left = 424
    Top = 115
    Width = 107
    Height = 20
    Style = csDropDownList
    ItemHeight = 12
    TabOrder = 5
    OnExit = CmBx_TypeExit
    Items.Strings = (
      '0 普通物料'
      '1 工作中心'
      '2 工具'
      '3 结构虚项'
      '4 副产品'
      '5 成本中心'
      '6 替代虚项')
  end
  object Edt_ScrAp: TEdit [25]
    Left = 217
    Top = 185
    Width = 93
    Height = 20
    TabOrder = 7
    OnExit = Edt_ScrApExit
  end
  object CmBx_Status: TComboBox [26]
    Left = 424
    Top = 184
    Width = 107
    Height = 20
    Style = csDropDownList
    ItemHeight = 12
    TabOrder = 8
    Items.Strings = (
      '0 正常'
      '1 未生效'
      '2 暂定'
      '3 暂停使用')
  end
  object Edt_DeptCode: TEdit [27]
    Left = 95
    Top = 222
    Width = 53
    Height = 20
    ChArCase = ecUpperCase
    TabOrder = 9
    OnExit = Edt_DeptCodeExit
  end
  object Edt_ItemCode: TEdit [28]
    Left = 98
    Top = 115
    Width = 125
    Height = 20
    ChArCase = ecUpperCase
    MaxLength = 16
    TabOrder = 4
    OnExit = Edt_ItemCodeExit
  end
  object StatusBar1: TStatusBar [29]
    Left = 0
    Top = 338
    Width = 585
    Height = 19
    Panels = <
      Item
        Width = 200
      end>
    SimplePanel = False
  end
  object Edt_MasterCode: TEdit [30]
    Left = 96
    Top = 35
    Width = 125
    Height = 20
    ChArCase = ecUpperCase
    MaxLength = 16
    TabOrder = 3
    OnExit = Edt_MasterCodeExit
  end
  object Edt_RemArk: TEdit [31]
    Left = 95
    Top = 259
    Width = 180
    Height = 20
    TabOrder = 10
  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 = 371
    Top = 64
    object Action1: TAction
      Caption = 'Action1'
      ShortCut = 120
      OnExecute = Action1Execute
    end
  end
end