mrp_enter_automo_d.dfm

来自「一个MRPII系统源代码版本」· DFM 代码 · 共 153 行

DFM
153
字号
inherited Frm_Mrp_Enter_AutoMo_D: TFrm_Mrp_Enter_AutoMo_D
  Left = 256
  Top = 183
  Caption = '生产订单'
  ClientHeight = 220
  ClientWidth = 434
  PixelsPerInch = 96
  TextHeight = 12
  object Label4: TLabel [0]
    Left = 23
    Top = 66
    Width = 72
    Height = 12
    Caption = '约定交货量:'
  end
  object Label3: TLabel [1]
    Left = 23
    Top = 89
    Width = 72
    Height = 12
    Caption = '约定交货日:'
  end
  object Label2: TLabel [2]
    Left = 35
    Top = 20
    Width = 60
    Height = 12
    Caption = '物料代码:'
  end
  object Label1: TLabel [3]
    Left = 23
    Top = 111
    Width = 72
    Height = 12
    Caption = '约定开工日:'
  end
  object Label5: TLabel [4]
    Left = 35
    Top = 43
    Width = 60
    Height = 12
    Caption = '物料描述:'
  end
  object Label6: TLabel [5]
    Left = 11
    Top = 134
    Width = 84
    Height = 12
    Caption = '是否拉式领料:'
  end
  object Label7: TLabel [6]
    Left = 58
    Top = 157
    Width = 36
    Height = 12
    Caption = '备注:'
  end
  inherited btn_ok: TButton
    Left = 152
    Top = 186
    TabOrder = 5
  end
  inherited btn_Cancel: TButton
    Left = 253
    Top = 186
    TabOrder = 6
  end
  inherited Pnl_Add: TPanel
    Left = 326
    Top = 5
    Width = 53
    Height = 21
    TabOrder = 7
  end
  object edt_qty: TEdit [10]
    Left = 96
    Top = 62
    Width = 107
    Height = 20
    TabOrder = 0
    OnExit = FloatCheck
  end
  object medt_Modate: TMaskEdit [11]
    Left = 96
    Top = 85
    Width = 106
    Height = 20
    AutoSelect = False
    EditMask = '!9999.99.99;1;'
    MaxLength = 10
    TabOrder = 1
    Text = '    .  .  '
    OnExit = DateCheck
  end
  object MEdt_MoStArtWorkDate: TMaskEdit [12]
    Left = 96
    Top = 108
    Width = 106
    Height = 20
    AutoSelect = False
    EditMask = '!9999.99.99;1;'
    MaxLength = 10
    TabOrder = 2
    Text = '    .  .  '
    OnExit = MEdt_MoStArtWorkDateExit
  end
  object cmbBackflush: TComboBox [13]
    Left = 96
    Top = 131
    Width = 109
    Height = 20
    Style = csDropDownList
    ItemHeight = 12
    TabOrder = 3
    Items.Strings = (
      '0 否'
      '1 是')
  end
  object ExtEdt_ItemCode: TLinkEdit [14]
    Left = 96
    Top = 16
    Width = 125
    Height = 20
    LinkStyle = lsEllipsis
    TabOrder = 8
    OnButtonClick = ExtEdt_ItemCodeButtonClick
    OnExit = ExtEdt_ItemCodeExit
    OnKeyDown = ExtEdt_ItemCodeKeyDown
  end
  object edt_ItemName: TEdit [15]
    Left = 96
    Top = 39
    Width = 250
    Height = 20
    Enabled = False
    TabOrder = 9
  end
  object edt_remArk: TEdit [16]
    Left = 96
    Top = 154
    Width = 193
    Height = 20
    Enabled = False
    MaxLength = 30
    TabOrder = 4
  end
  inherited AdoQry_Tmp: TAdoQuery
    CacheSize = 500
    Left = 342
    Top = 98
  end
end

⌨️ 快捷键说明

复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?