qc_checkresultqry_c.dfm

一个MRPII系统源代码版本

inherited Frm_Qc_CheckResultQry_C: TFrm_Qc_CheckResultQry_C
  Left = 364
  Top = 116
  ClientHeight = 272
  ClientWidth = 395
  PixelsPerInch = 96
  TextHeight = 12
  object Label1: TLabel [0]
    Left = 56
    Top = 26
    Width = 72
    Height = 12
    Caption = '供应商代码：'
  end
  object Label2: TLabel [1]
    Left = 56
    Top = 51
    Width = 72
    Height = 12
    Caption = '供应商名称：'
  end
  object Label4: TLabel [2]
    Left = 68
    Top = 154
    Width = 60
    Height = 12
    Caption = '质量状态：'
  end
  object Lbl_VendorName: TLabel [3]
    Left = 133
    Top = 51
    Width = 6
    Height = 12
  end
  object Label3: TLabel [4]
    Left = 56
    Top = 124
    Width = 72
    Height = 12
    Caption = '到货日期从：'
  end
  object Label5: TLabel [5]
    Left = 237
    Top = 124
    Width = 12
    Height = 12
    Caption = '到'
  end
  object Label6: TLabel [6]
    Left = 68
    Top = 74
    Width = 60
    Height = 12
    Caption = '物料代码：'
  end
  object Label7: TLabel [7]
    Left = 68
    Top = 98
    Width = 60
    Height = 12
    Caption = '物料名称：'
  end
  object lbl_ItemName: TLabel [8]
    Left = 136
    Top = 98
    Width = 6
    Height = 12
  end
  inherited btn_ok: TButton
    Top = 222
    TabOrder = 5
  end
  inherited btn_Cancel: TButton
    Top = 222
    TabOrder = 6
  end
  object ExtEdt_VendorCode: TExtEdit [11]
    Left = 133
    Top = 22
    Width = 121
    Height = 20
    TabOrder = 0
    OnExit = GetVendorName
    OnKeyDown = VendorHint
    DispLabel = Lbl_VendorName
  end
  object Cmbx_QcStatus: TComboBox [12]
    Left = 133
    Top = 150
    Width = 121
    Height = 20
    Style = csDropDownList
    ItemHeight = 12
    TabOrder = 4
    Items.Strings = (
      '0 全部 '
      '1 正常'
      '2 拒收'
      '3 让步'
      '4 挑选'
      '5 试用'
      '6 特采')
  end
  object MEdt_EndDate: TMaskEdit [13]
    Left = 260
    Top = 119
    Width = 97
    Height = 20
    EditMask = '9999\.99\.99;1;_'
    MaxLength = 10
    TabOrder = 3
    Text = '    .  .  '
    OnExit = MEdt_EndDateExit
  end
  object MEdt_StArtDate: TMaskEdit [14]
    Left = 133
    Top = 117
    Width = 97
    Height = 20
    EditMask = '9999\.99\.99;1;_'
    MaxLength = 10
    TabOrder = 2
    Text = '    .  .  '
    OnExit = MEdt_StArtDateExit
  end
  object ExtEdt_ItemCode: TExtEdit [15]
    Left = 133
    Top = 69
    Width = 125
    Height = 20
    TabOrder = 1
    OnExit = GetItemName
    OnKeyDown = ItemHint
    DispLabel = lbl_ItemName
  end
end