bas_whposition_d.dfm

一个MRPII系统源代码版本

inherited Frm_Bas_WhPosition_D: TFrm_Bas_WhPosition_D
  Left = 192
  Top = 146
  Caption = '货位主文件'
  ClientHeight = 296
  ClientWidth = 417
  PixelsPerInch = 96
  TextHeight = 12
  object Label1: TLabel [0]
    Left = 43
    Top = 17
    Width = 60
    Height = 12
    Caption = '仓库代码：'
  end
  object Label2: TLabel [1]
    Left = 43
    Top = 42
    Width = 60
    Height = 12
    Caption = '仓库名称：'
  end
  object Label3: TLabel [2]
    Left = 43
    Top = 194
    Width = 60
    Height = 12
    Caption = '货位属性：'
  end
  object Label5: TLabel [3]
    Left = 67
    Top = 219
    Width = 36
    Height = 12
    Caption = '备注：'
  end
  object Lbl_WhName: TLabel [4]
    Left = 108
    Top = 42
    Width = 6
    Height = 12
  end
  object Label4: TLabel [5]
    Left = 43
    Top = 68
    Width = 60
    Height = 12
    Caption = '货位代码：'
  end
  object Label6: TLabel [6]
    Left = 43
    Top = 93
    Width = 60
    Height = 12
    Caption = '货位名称：'
  end
  object Label7: TLabel [7]
    Left = 19
    Top = 118
    Width = 84
    Height = 12
    Caption = '是否拉式货位：'
  end
  object Label8: TLabel [8]
    Left = 43
    Top = 143
    Width = 60
    Height = 12
    Caption = '车间代码：'
  end
  object Label9: TLabel [9]
    Left = 43
    Top = 169
    Width = 60
    Height = 12
    Caption = '车间名称：'
  end
  object Label10: TLabel [10]
    Left = 108
    Top = 169
    Width = 6
    Height = 12
  end
  inherited btn_ok: TButton
    Left = 217
    Top = 248
    TabOrder = 7
  end
  inherited btn_Cancel: TButton
    Left = 315
    Top = 248
    TabOrder = 8
  end
  inherited Pnl_Add: TPanel
    Left = 343
    TabOrder = 9
  end
  object edt_remArk: TEdit [14]
    Left = 108
    Top = 215
    Width = 241
    Height = 20
    MaxLength = 60
    TabOrder = 6
  end
  object cmbx_WhPositionType: TComboBox [15]
    Left = 108
    Top = 190
    Width = 89
    Height = 20
    Style = csDropDownList
    ItemHeight = 12
    TabOrder = 5
    OnExit = cmbx_WhPositionTypeExit
    Items.Strings = (
      '可用'
      '待检'
      '冻结'
      '在运'
      '废品')
  end
  object ExtEdt_WhCode: TExtEdit [16]
    Left = 108
    Top = 13
    Width = 61
    Height = 20
    MaxLength = 4
    TabOrder = 0
    OnExit = WarehouseCodeCheck
    OnKeyUp = WarehouseHint
    DispLabel = Lbl_WhName
  end
  object Edt_WhPositionCode: TEdit [17]
    Left = 108
    Top = 64
    Width = 60
    Height = 20
    MaxLength = 4
    TabOrder = 1
    OnExit = Edt_WhPositionCodeExit
  end
  object Edt_WhPositionName: TEdit [18]
    Left = 108
    Top = 89
    Width = 239
    Height = 20
    TabOrder = 2
    OnExit = Edt_WhPositionNameExit
  end
  object Cmb_BackFlushWhP: TComboBox [19]
    Left = 108
    Top = 114
    Width = 85
    Height = 20
    Style = csDropDownList
    ItemHeight = 12
    TabOrder = 3
    Items.Strings = (
      '0 否'
      '1 是')
  end
  object Edt_DeptCode: TExtEdit [20]
    Left = 108
    Top = 139
    Width = 61
    Height = 20
    TabOrder = 4
    OnExit = Edt_DeptCodeExit
    OnKeyUp = Edt_DeptCodeKeyUp
    DispLabel = Label10
  end
  inherited AdoQry_Tmp: TAdoQuery
    Left = 352
    Top = 74
  end
end