bas_bom3_d.dfm

一个MRPII系统源代码版本

inherited Frm_Bas_Bom3_D: TFrm_Bas_Bom3_D
  Left = 199
  Top = 132
  Caption = 'Bom构造(子对父)'
  ClientHeight = 387
  ClientWidth = 550
  PixelsPerInch = 96
  TextHeight = 12
  object Label1: TLabel [0]
    Left = 24
    Top = 40
    Width = 60
    Height = 12
    Caption = '子项代码：'
  end
  object Lb_ItemCode: TLabel [1]
    Left = 80
    Top = 40
    Width = 125
    Height = 12
    AutoSize = False
    Caption = 'Lb_ItemCode'
  end
  object Label3: TLabel [2]
    Left = 224
    Top = 40
    Width = 60
    Height = 12
    Caption = '子项描述：'
  end
  object Lb_ItemName: TLabel [3]
    Left = 280
    Top = 40
    Width = 66
    Height = 12
    Caption = 'Lb_ItemName'
  end
  object Label5: TLabel [4]
    Left = 24
    Top = 64
    Width = 48
    Height = 12
    Caption = '制购码：'
  end
  object Lb_PmCode: TLabel [5]
    Left = 70
    Top = 64
    Width = 54
    Height = 12
    Caption = 'Lb_PmCode'
  end
  object Label7: TLabel [6]
    Left = 24
    Top = 88
    Width = 72
    Height = 12
    Caption = '准备提前期：'
  end
  object Lb_PrepareLT: TLabel [7]
    Left = 93
    Top = 88
    Width = 72
    Height = 12
    Caption = 'Lb_PrepareLT'
  end
  object Label9: TLabel [8]
    Left = 224
    Top = 88
    Width = 72
    Height = 12
    Caption = '运行提前期：'
  end
  object Lb_RunLt: TLabel [9]
    Left = 295
    Top = 88
    Width = 48
    Height = 12
    Caption = 'Lb_RunLt'
  end
  object Label11: TLabel [10]
    Left = 379
    Top = 88
    Width = 72
    Height = 12
    Caption = '质检提前期：'
  end
  object Lb_QcLT: TLabel [11]
    Left = 450
    Top = 88
    Width = 42
    Height = 12
    Caption = 'Lb_QcLT'
  end
  object Label13: TLabel [12]
    Left = 224
    Top = 64
    Width = 36
    Height = 12
    Caption = '图号：'
  end
  object Lb_DesignNo: TLabel [13]
    Left = 256
    Top = 64
    Width = 66
    Height = 12
    Caption = 'Lb_DesignNo'
  end
  object Label15: TLabel [14]
    Left = 16
    Top = 105
    Width = 540
    Height = 12
    Caption = 
      '----------------------------------------------------------------' +
      '--------------------------'
  end
  object Label17: TLabel [15]
    Left = 21
    Top = 217
    Width = 60
    Height = 12
    Caption = '子项属性：'
    Font.ChArset = GB2312_CHArSET
    Font.Color = clWindowText
    Font.Height = -12
    Font.Name = '宋体'
    Font.Style = []
    ParentFont = False
  end
  object Label19: TLabel [16]
    Left = 44
    Top = 245
    Width = 36
    Height = 12
    Caption = '定额：'
    Font.ChArset = GB2312_CHArSET
    Font.Color = clWindowText
    Font.Height = -12
    Font.Name = '宋体'
    Font.Style = []
    ParentFont = False
  end
  object Label20: TLabel [17]
    Left = 299
    Top = 245
    Width = 48
    Height = 12
    Caption = '损耗率：'
    Font.ChArset = GB2312_CHArSET
    Font.Color = clWindowText
    Font.Height = -12
    Font.Name = '宋体'
    Font.Style = []
    ParentFont = False
  end
  object Label21: TLabel [18]
    Left = 428
    Top = 245
    Width = 12
    Height = 12
    Caption = '％'
    Font.ChArset = GB2312_CHArSET
    Font.Color = clWindowText
    Font.Height = -12
    Font.Name = '宋体'
    Font.Style = []
    ParentFont = False
  end
  object Label22: TLabel [19]
    Left = 289
    Top = 217
    Width = 60
    Height = 12
    Caption = '子项状态：'
    Font.ChArset = GB2312_CHArSET
    Font.Color = clWindowText
    Font.Height = -12
    Font.Name = '宋体'
    Font.Style = []
    ParentFont = False
  end
  object Label23: TLabel [20]
    Left = 20
    Top = 276
    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 [21]
    Left = 145
    Top = 276
    Width = 72
    Height = 12
    Caption = 'Lbl_DeptName'
  end
  object Label24: TLabel [22]
    Left = 21
    Top = 307
    Width = 60
    Height = 12
    Caption = '子项备注：'
  end
  object Label25: TLabel [23]
    Left = 289
    Top = 276
    Width = 60
    Height = 12
    Caption = '用料方式：'
  end
  object Label27: TLabel [24]
    Left = 1
    Top = 185
    Width = 540
    Height = 12
    Caption = 
      '----------------------------------------------------------------' +
      '--------------------------'
  end
  object Label28: TLabel [25]
    Left = 24
    Top = 120
    Width = 60
    Height = 12
    Caption = '父项代码：'
  end
  object Label30: TLabel [26]
    Left = 24
    Top = 144
    Width = 36
    Height = 12
    Caption = '单位：'
  end
  object Lb_UomName: TLabel [27]
    Left = 56
    Top = 144
    Width = 60
    Height = 12
    Caption = 'Lb_UomName'
  end
  object Label32: TLabel [28]
    Left = 224
    Top = 144
    Width = 48
    Height = 12
    Caption = '制购码：'
  end
  object Lb_ite_PmCode: TLabel [29]
    Left = 272
    Top = 144
    Width = 78
    Height = 12
    Caption = 'Lb_ite_PmCode'
  end
  object Label34: TLabel [30]
    Left = 379
    Top = 144
    Width = 72
    Height = 12
    Caption = '准备提前期：'
  end
  object Lb_ite_PrepareLT: TLabel [31]
    Left = 450
    Top = 144
    Width = 96
    Height = 12
    Caption = 'Lb_ite_PrepareLT'
  end
  object Label36: TLabel [32]
    Left = 24
    Top = 168
    Width = 72
    Height = 12
    Caption = '运行提前期：'
  end
  object Lb_ite_RunLt: TLabel [33]
    Left = 96
    Top = 168
    Width = 72
    Height = 12
    Caption = 'Lb_ite_RunLt'
  end
  object Label38: TLabel [34]
    Left = 224
    Top = 168
    Width = 72
    Height = 12
    Caption = '质检提前期：'
  end
  object Lb_ite_QcLT: TLabel [35]
    Left = 292
    Top = 168
    Width = 66
    Height = 12
    Caption = 'Lb_ite_QcLT'
  end
  object Label40: TLabel [36]
    Left = 379
    Top = 168
    Width = 36
    Height = 12
    Caption = '图号：'
  end
  object Lb_ite_DesignNo: TLabel [37]
    Left = 411
    Top = 168
    Width = 90
    Height = 12
    Caption = 'Lb_ite_DesignNo'
  end
  object Label42: TLabel [38]
    Left = 224
    Top = 120
    Width = 60
    Height = 12
    Caption = '父项描述：'
  end
  object Lb_ite_ItemName: TLabel [39]
    Left = 283
    Top = 120
    Width = 6
    Height = 12
  end
  object Label2: TLabel [40]
    Left = 376
    Top = 64
    Width = 36
    Height = 12
    Caption = '单位：'
  end
  object lb_Uom: TLabel [41]
    Left = 416
    Top = 64
    Width = 36
    Height = 12
    Caption = 'lb_Uom'
  end
  inherited btn_ok: TButton
    Left = 319
    Top = 334
    TabOrder = 8
  end
  inherited btn_Cancel: TButton
    Left = 428
    Top = 334
    TabOrder = 9
  end
  inherited Pnl_Add: TPanel
    Left = 415
    Top = 9
    TabOrder = 10
  end
  object StatusBar1: TStatusBar [45]
    Left = 0
    Top = 368
    Width = 550
    Height = 19
    Panels = <
      Item
        Width = 200
      end>
    SimplePanel = False
  end
  object Edt_Qty: TEdit [46]
    Left = 78
    Top = 241
    Width = 73
    Height = 20
    TabOrder = 3
    Text = '0'
    OnChange = Edt_QtyChange
    OnExit = Edt_QtyExit
  end
  object CmBx_Type: TComboBox [47]
    Left = 78
    Top = 213
    Width = 103
    Height = 20
    Style = csDropDownList
    ItemHeight = 12
    TabOrder = 1
    OnExit = CmBx_TypeExit
    Items.Strings = (
      '0 普通物料'
      '1 工作中心'
      '2 工具'
      '3 结构虚项'
      '4 副产品'
      '5 成本中心'
      '6 替代虚项'
      '7参考')
  end
  object Edt_ScrAp: TEdit [48]
    Left = 344
    Top = 241
    Width = 68
    Height = 20
    MaxLength = 8
    TabOrder = 4
    Text = '0'
    OnExit = FloatCheck
  end
  object CmBx_Status: TComboBox [49]
    Left = 344
    Top = 213
    Width = 107
    Height = 20
    Style = csDropDownList
    ItemHeight = 12
    TabOrder = 2
    Items.Strings = (
      '0 正常'
      '1 未生效'
      '2 暂定'
      '3 暂停使用')
  end
  object Edt_RemArk: TEdit [50]
    Left = 78
    Top = 300
    Width = 371
    Height = 20
    TabOrder = 7
  end
  object CmBx_usestyle: TComboBox [51]
    Left = 344
    Top = 272
    Width = 107
    Height = 20
    ItemHeight = 12
    TabOrder = 6
    Items.Strings = (
      '0  发料'
      '1  销售')
  end
  object Extedt_ite_ItemCode: TExtEdit [52]
    Left = 88
    Top = 120
    Width = 125
    Height = 20
    TabOrder = 0
    OnExit = ItemCodeCheck
    OnKeyDown = ItemHint
    DispLabel = Lb_ite_ItemName
  end
  object Edt_DeptCode: TExtEdit [53]
    Left = 78
    Top = 272
    Width = 54
    Height = 20
    TabOrder = 5
    Text = 'Edt_DeptCode'
    OnExit = DeptCodeCheck
    OnKeyDown = DeptHint
    DispLabel = Lbl_DeptName
  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 = 296
    Top = 8
    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