bas_batch_d.dfm

一个MRPII系统源代码版本

inherited Frm_Bas_Batch_D: TFrm_Bas_Batch_D
  Left = 231
  Top = 176
  Caption = '批次主文件维护'
  ClientHeight = 298
  PixelsPerInch = 96
  TextHeight = 12
  object Label1: TLabel [0]
    Left = 47
    Top = 42
    Width = 60
    Height = 12
    Caption = '物料描述：'
  end
  object Label2: TLabel [1]
    Left = 59
    Top = 67
    Width = 48
    Height = 12
    Caption = '批次号：'
  end
  object Label3: TLabel [2]
    Left = 47
    Top = 91
    Width = 60
    Height = 12
    Caption = '批次描述：'
  end
  object Label4: TLabel [3]
    Left = 35
    Top = 116
    Width = 72
    Height = 12
    Caption = '供应商代码：'
  end
  object Label5: TLabel [4]
    Left = 35
    Top = 141
    Width = 72
    Height = 12
    Caption = '供应商描述：'
  end
  object Label6: TLabel [5]
    Left = 23
    Top = 166
    Width = 84
    Height = 12
    Caption = '供应商批次号：'
  end
  object Label10: TLabel [6]
    Left = 11
    Top = 190
    Width = 96
    Height = 12
    Caption = '是否控制有效期：'
  end
  object Lbl_ItemName: TLabel [7]
    Left = 107
    Top = 40
    Width = 72
    Height = 12
    Caption = 'Lbl_ItemName'
  end
  object Label11: TLabel [8]
    Left = 222
    Top = 17
    Width = 60
    Height = 12
    Caption = '计量单位：'
  end
  object Lbl_UomName: TLabel [9]
    Left = 282
    Top = 17
    Width = 66
    Height = 12
    Caption = 'Lbl_UomName'
  end
  object Label12: TLabel [10]
    Left = 47
    Top = 17
    Width = 60
    Height = 12
    Caption = '物料代码：'
  end
  object Label7: TLabel [11]
    Left = 46
    Top = 215
    Width = 60
    Height = 12
    Caption = '有效天数：'
  end
  object Label8: TLabel [12]
    Left = 71
    Top = 240
    Width = 36
    Height = 12
    Caption = '备注：'
  end
  object lbl_VendorName: TLabel [13]
    Left = 107
    Top = 141
    Width = 84
    Height = 12
    Caption = 'lbl_VendorName'
  end
  object lbl_ItemCode: TLabel [14]
    Left = 109
    Top = 16
    Width = 72
    Height = 12
    Caption = 'lbl_ItemCode'
  end
  inherited btn_ok: TButton
    Left = 203
    Top = 267
    TabOrder = 7
  end
  inherited btn_Cancel: TButton
    Left = 312
    Top = 267
    TabOrder = 8
  end
  inherited Pnl_Add: TPanel
    TabOrder = 9
  end
  object Edt_VendorBatchno: TEdit [18]
    Left = 107
    Top = 162
    Width = 97
    Height = 20
    TabOrder = 3
    Text = 'Edt_VendorBatchno'
  end
  object Edt_usefuldate: TEdit [19]
    Left = 107
    Top = 211
    Width = 97
    Height = 20
    TabOrder = 5
    Text = 'Edt_usefuldate'
    OnExit = FloatCheck
  end
  object edt_Batchno: TEdit [20]
    Left = 107
    Top = 61
    Width = 99
    Height = 20
    Color = clActiveBOrder
    Enabled = False
    TabOrder = 0
    Text = 'edt_Batchno'
    OnExit = edt_BatchnoExit
  end
  object edt_BatchName: TEdit [21]
    Left = 107
    Top = 88
    Width = 311
    Height = 20
    TabOrder = 1
    Text = 'edt_BatchName'
    OnExit = edt_BatchNameExit
  end
  object edt_remArk: TEdit [22]
    Left = 107
    Top = 235
    Width = 311
    Height = 20
    TabOrder = 6
    Text = 'edt_remArk'
  end
  object cmbx_usefulCtrl: TComboBox [23]
    Left = 107
    Top = 186
    Width = 47
    Height = 20
    Style = csDropDownList
    ItemHeight = 12
    TabOrder = 4
    OnChange = cmbx_usefulCtrlChange
    Items.Strings = (
      '否'
      '是')
  end
  object Extedt_VendorCode: TExtEdit [24]
    Left = 107
    Top = 112
    Width = 121
    Height = 20
    TabOrder = 2
    Text = 'Extedt_VendorCode'
    OnExit = VendorCodeCheck
    OnKeyDown = Extedt_VendorCodeKeyDown
    DispLabel = lbl_VendorName
  end
  inherited AdoQry_Tmp: TAdoQuery
    Left = 392
    Top = 56
  end
end