pm_pc_check_d.dfm

一个MRPII系统源代码版本

inherited Frm_Pm_Pc_Check_D: TFrm_Pm_Pc_Check_D
  Left = 273
  Top = 183
  Caption = '采购价格表'
  ClientHeight = 298
  ClientWidth = 465
  PixelsPerInch = 96
  TextHeight = 12
  object Label1: TLabel [0]
    Left = 32
    Top = 49
    Width = 60
    Height = 12
    Caption = '物料代码：'
  end
  object Label3: TLabel [1]
    Left = 32
    Top = 97
    Width = 60
    Height = 12
    Caption = '起始日期：'
  end
  object Label4: TLabel [2]
    Left = 32
    Top = 121
    Width = 60
    Height = 12
    Caption = '终止日期：'
  end
  object Label5: TLabel [3]
    Left = 32
    Top = 146
    Width = 60
    Height = 12
    Caption = '起始数量：'
  end
  object Label6: TLabel [4]
    Left = 32
    Top = 170
    Width = 60
    Height = 12
    Caption = '终止数量：'
  end
  object Label7: TLabel [5]
    Left = 229
    Top = 97
    Width = 72
    Height = 12
    Caption = '暂估含税价：'
  end
  object Label8: TLabel [6]
    Left = 229
    Top = 121
    Width = 72
    Height = 12
    Caption = '暂估未税价：'
  end
  object Label9: TLabel [7]
    Left = 32
    Top = 194
    Width = 60
    Height = 12
    Caption = '业务类型：'
  end
  object Lbl_ItemName: TLabel [8]
    Left = 392
    Top = 35
    Width = 72
    Height = 12
    Caption = 'Lbl_ItemName'
    Visible = False
  end
  object Label2: TLabel [9]
    Left = 32
    Top = 73
    Width = 60
    Height = 12
    Caption = '物料描述：'
  end
  object Label13: TLabel [10]
    Left = 229
    Top = 145
    Width = 72
    Height = 12
    Caption = '正式含税价：'
  end
  object Label14: TLabel [11]
    Left = 229
    Top = 169
    Width = 72
    Height = 12
    Caption = '正式未税价：'
  end
  inherited btn_ok: TButton
    Left = 231
    Top = 256
    TabOrder = 11
  end
  inherited btn_Cancel: TButton
    Left = 340
    Top = 256
    TabOrder = 12
  end
  inherited Pnl_Add: TPanel
    TabOrder = 13
  end
  object MEdt_PcStArtDate: TMaskEdit [15]
    Left = 96
    Top = 93
    Width = 73
    Height = 20
    EditMask = '0000\.00\.00;1;_'
    MaxLength = 10
    TabOrder = 4
    Text = '    .  .  '
    OnExit = DateCheck
  end
  object MEdt_PcendDate: TMaskEdit [16]
    Left = 96
    Top = 117
    Width = 73
    Height = 20
    EditMask = '0000\.00\.00;1;_'
    MaxLength = 10
    TabOrder = 5
    Text = '    .  .  '
    OnExit = MEdt_PcendDateExit
  end
  object Edt_PcStArtQty: TEdit [17]
    Left = 96
    Top = 142
    Width = 97
    Height = 20
    TabOrder = 6
    OnExit = Edt_PcStArtQtyExit
  end
  object Edt_PcendQty: TEdit [18]
    Left = 96
    Top = 166
    Width = 97
    Height = 20
    TabOrder = 7
  end
  object Edt_PcTaxPrice: TEdit [19]
    Left = 304
    Top = 93
    Width = 94
    Height = 20
    TabOrder = 0
    OnExit = Edt_PcTaxPriceExit
  end
  object Edt_PcNoTaxPrice: TEdit [20]
    Left = 304
    Top = 117
    Width = 94
    Height = 20
    TabOrder = 1
    OnExit = Edt_PcNoTaxPriceExit
  end
  object CmBx_PcPriceType: TComboBox [21]
    Left = 96
    Top = 190
    Width = 98
    Height = 20
    Style = csDropDownList
    ItemHeight = 12
    TabOrder = 10
    Items.Strings = (
      '采购'
      '委外')
  end
  object ExtEdt_ItemCode: TLinkEdit [22]
    Left = 96
    Top = 45
    Width = 123
    Height = 20
    LinkStyle = lsEllipsis
    TabOrder = 2
    OnExit = ItemCodeCheck
    OnKeyDown = ItemHint
  end
  object Edt_ItemName: TEdit [23]
    Left = 96
    Top = 69
    Width = 250
    Height = 20
    Enabled = False
    TabOrder = 3
  end
  object Edt_PcTaxPrice_Formal: TEdit [24]
    Left = 304
    Top = 141
    Width = 94
    Height = 20
    TabOrder = 8
    OnExit = Edt_PcTaxPrice_FormalExit
  end
  object Edt_PcNoTaxPrice_Formal: TEdit [25]
    Left = 304
    Top = 165
    Width = 94
    Height = 20
    TabOrder = 9
    OnExit = Edt_PcNoTaxPrice_FormalExit
  end
  inherited AdoQry_Tmp: TAdoQuery
    Left = 344
    Top = 8
  end
end