pm_enter_purchaseapply_d.dfm

一个MRPII系统源代码版本

inherited Frm_Pm_Enter_PurchaseApply_D: TFrm_Pm_Enter_PurchaseApply_D
  Left = 112
  Top = 152
  Caption = '采购请购单'
  ClientHeight = 274
  ClientWidth = 523
  PixelsPerInch = 96
  TextHeight = 12
  object Label1: TLabel [0]
    Left = 66
    Top = 21
    Width = 60
    Height = 12
    Caption = '物料代码：'
  end
  object Label2: TLabel [1]
    Left = 54
    Top = 49
    Width = 72
    Height = 12
    Caption = '系统建议量：'
  end
  object Label3: TLabel [2]
    Left = 318
    Top = 49
    Width = 48
    Height = 12
    Caption = '计划量：'
  end
  object Label4: TLabel [3]
    Left = 6
    Top = 77
    Width = 120
    Height = 12
    Caption = '系统建议约定交货日：'
  end
  object Label5: TLabel [4]
    Left = 270
    Top = 77
    Width = 96
    Height = 12
    Caption = '计划约定交货日：'
  end
  object Label6: TLabel [5]
    Left = 258
    Top = 105
    Width = 108
    Height = 12
    Caption = '多供应商供应标识：'
  end
  object Label7: TLabel [6]
    Left = 282
    Top = 132
    Width = 84
    Height = 12
    Caption = '替代虚项标识：'
  end
  object Label8: TLabel [7]
    Left = 30
    Top = 132
    Width = 96
    Height = 12
    Caption = '产生采购订单否：'
  end
  object Label9: TLabel [8]
    Left = 42
    Top = 188
    Width = 84
    Height = 12
    Caption = '系统建挡日期：'
  end
  object Label10: TLabel [9]
    Left = 42
    Top = 160
    Width = 84
    Height = 12
    Caption = '系统建挡人员：'
  end
  object Label11: TLabel [10]
    Left = 282
    Top = 188
    Width = 84
    Height = 12
    Caption = '系统修改日期：'
  end
  object Label12: TLabel [11]
    Left = 282
    Top = 160
    Width = 84
    Height = 12
    Caption = '系统修改人员：'
  end
  object Lbl_CreateEmployee: TLabel [12]
    Left = 189
    Top = 160
    Width = 6
    Height = 12
  end
  object Lbl_EdItEmployee: TLabel [13]
    Left = 430
    Top = 161
    Width = 6
    Height = 12
  end
  object Label13: TLabel [14]
    Left = 42
    Top = 105
    Width = 84
    Height = 12
    Caption = '计划开工日期：'
  end
  inherited btn_ok: TButton
    Left = 176
    Top = 232
    TabOrder = 12
  end
  inherited btn_Cancel: TButton
    Left = 309
    Top = 232
    TabOrder = 13
  end
  inherited Pnl_Add: TPanel
    TabOrder = 14
  end
  object Edt_ItemCode: TEdit [18]
    Left = 125
    Top = 16
    Width = 120
    Height = 20
    TabOrder = 0
  end
  object Edt_SSQty: TEdit [19]
    Left = 125
    Top = 46
    Width = 120
    Height = 20
    TabOrder = 1
  end
  object Edt_PlanQty: TEdit [20]
    Left = 367
    Top = 46
    Width = 120
    Height = 20
    TabOrder = 2
  end
  object Edt_SSReleaseDate: TEdit [21]
    Left = 125
    Top = 73
    Width = 120
    Height = 20
    TabOrder = 3
  end
  object Edt_PlanReleaseDate: TEdit [22]
    Left = 367
    Top = 73
    Width = 120
    Height = 20
    TabOrder = 4
    OnExit = Edt_PlanReleaseDateExit
  end
  object Edt_EditDate: TEdit [23]
    Left = 367
    Top = 182
    Width = 120
    Height = 20
    TabOrder = 11
    OnExit = DateCheck
  end
  object LEdt_CreateEmployee: TLinkEdit [24]
    Left = 125
    Top = 155
    Width = 60
    Height = 20
    LinkStyle = lsEllipsis
    TabOrder = 5
    OnButtonClick = EmployeeHint1
    OnChange = AllChange
    OnExit = LEdt_CreateEmployeeExit
    OnKeyDown = EmployeeHint
  end
  object LEdt_EdItEmployee: TLinkEdit [25]
    Left = 367
    Top = 155
    Width = 60
    Height = 20
    LinkStyle = lsEllipsis
    TabOrder = 6
    OnButtonClick = EmployeeHint1
    OnChange = AllChange
    OnExit = LEdt_EdItEmployeeExit
    OnKeyDown = EmployeeHint
  end
  object CmbBx_IsMultiVendor: TComboBox [26]
    Left = 367
    Top = 100
    Width = 120
    Height = 20
    ItemHeight = 12
    TabOrder = 8
    Items.Strings = (
      '0 否'
      '1 是'
      '2 没分配')
  end
  object Cmbbx_ISRefill: TComboBox [27]
    Left = 367
    Top = 128
    Width = 120
    Height = 20
    ItemHeight = 12
    TabOrder = 9
    Items.Strings = (
      '0 否'
      '1 是')
  end
  object Edt_Createdate: TEdit [28]
    Left = 125
    Top = 182
    Width = 120
    Height = 20
    TabOrder = 10
  end
  object Cmbbx_IScreatePo: TComboBox [29]
    Left = 125
    Top = 128
    Width = 120
    Height = 20
    ItemHeight = 12
    TabOrder = 7
    Items.Strings = (
      '0 没'
      '1 已')
  end
  object Edt_ItemName: TEdit [30]
    Left = 258
    Top = 16
    Width = 154
    Height = 20
    TabOrder = 15
  end
  object Edt_PlanDueDate: TEdit [31]
    Left = 125
    Top = 100
    Width = 120
    Height = 20
    TabOrder = 16
  end
  inherited AdoQry_Tmp: TAdoQuery
    Left = 424
    Top = 232
  end
end