pm_enter_simplesureno_d.dfm

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

inherited Frm_Pm_Enter_SimpleSureNo_D: TFrm_Pm_Enter_SimpleSureNo_D
  Left = 201
  Top = 230
  Caption = '样品确认单号'
  ClientHeight = 198
  ClientWidth = 386
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 12
  object Label1: TLabel [0]
    Left = 21
    Top = 37
    Width = 72
    Height = 12
    Caption = '供应商代码：'
  end
  object Label2: TLabel [1]
    Left = 33
    Top = 61
    Width = 60
    Height = 12
    Caption = '物料代码：'
  end
  object Label3: TLabel [2]
    Left = 9
    Top = 84
    Width = 84
    Height = 12
    Caption = '有效起始日期：'
  end
  object Label4: TLabel [3]
    Left = 9
    Top = 108
    Width = 84
    Height = 12
    Caption = '有效终止日期：'
  end
  object Lbl_VendorName: TLabel [4]
    Left = 197
    Top = 37
    Width = 6
    Height = 12
  end
  object Lbl_ItemName: TLabel [5]
    Left = 197
    Top = 61
    Width = 6
    Height = 12
  end
  object Label5: TLabel [6]
    Left = 9
    Top = 13
    Width = 84
    Height = 12
    Caption = '样品确认单号：'
  end
  inherited btn_ok: TButton
    Left = 104
    Top = 135
    TabOrder = 5
  end
  inherited btn_Cancel: TButton
    Left = 189
    Top = 135
    TabOrder = 6
    OnClick = btn_CancelClick
  end
  inherited Pnl_Add: TPanel
    TabOrder = 7
  end
  object Edt_StArtDate: TEdit [10]
    Left = 94
    Top = 80
    Width = 100
    Height = 20
    TabOrder = 3
    OnExit = DateCheck
  end
  object Edt_EndDate: TEdit [11]
    Left = 94
    Top = 104
    Width = 100
    Height = 20
    TabOrder = 4
    OnExit = DateCheck
  end
  object LEdt_VendorCode: TLinkEdit [12]
    Left = 94
    Top = 32
    Width = 100
    Height = 20
    LinkStyle = lsEllipsis
    TabOrder = 1
    OnButtonClick = VendorHint1
    OnChange = AllChange
    OnExit = LEdt_VendorCodeExit
    OnKeyDown = VendorHint
  end
  object LEdt_ItemCode: TLinkEdit [13]
    Left = 94
    Top = 56
    Width = 100
    Height = 20
    LinkStyle = lsEllipsis
    TabOrder = 2
    OnButtonClick = ItemHint1
    OnChange = AllChange
    OnExit = LEdt_ItemCodeExit
    OnKeyDown = ItemHint
  end
  object Edt_Itemsampleno: TEdit [14]
    Left = 94
    Top = 8
    Width = 100
    Height = 20
    TabOrder = 0
    OnExit = Edt_ItemsamplenoExit
  end
  inherited AdoQry_Tmp: TAdoQuery
    Left = 336
    Top = 8
  end
end