pm_enter_purcharseprice_d.dfm

一个MRPII系统源代码版本

inherited Frm_Pm_Enter_PurcharsePrice_D: TFrm_Pm_Enter_PurcharsePrice_D
  Left = 219
  Top = 200
  Caption = '采购价格表'
  ClientHeight = 266
  ClientWidth = 440
  PixelsPerInch = 96
  TextHeight = 12
  object Label2: TLabel [0]
    Left = 31
    Top = 54
    Width = 60
    Height = 12
    Caption = '物料标识：'
  end
  object Label5: TLabel [1]
    Left = 43
    Top = 31
    Width = 48
    Height = 12
    Caption = '供应商：'
    TransParent = True
  end
  object Label11: TLabel [2]
    Left = 31
    Top = 76
    Width = 60
    Height = 12
    Caption = '计量单位：'
  end
  object Label6: TLabel [3]
    Left = 152
    Top = 76
    Width = 36
    Height = 12
    Caption = '税率：'
    TransParent = True
  end
  object Label8: TLabel [4]
    Left = 252
    Top = 76
    Width = 36
    Height = 12
    Caption = '货币：'
    TransParent = True
  end
  object Label3: TLabel [5]
    Left = 31
    Top = 99
    Width = 60
    Height = 12
    Caption = '起始日期：'
  end
  object Label4: TLabel [6]
    Left = 31
    Top = 122
    Width = 60
    Height = 12
    Caption = '终止日期：'
  end
  object Label1: TLabel [7]
    Left = 31
    Top = 145
    Width = 60
    Height = 12
    Caption = '起始数量：'
  end
  object Label7: TLabel [8]
    Left = 31
    Top = 167
    Width = 60
    Height = 12
    Caption = '终止数量：'
  end
  object Label9: TLabel [9]
    Left = 229
    Top = 99
    Width = 72
    Height = 12
    Caption = '暂估含税价：'
  end
  object Label10: TLabel [10]
    Left = 229
    Top = 122
    Width = 72
    Height = 12
    Caption = '暂估未税价：'
  end
  object Label12: TLabel [11]
    Left = 31
    Top = 190
    Width = 60
    Height = 12
    Caption = '业务类型：'
  end
  object Label13: TLabel [12]
    Left = 229
    Top = 144
    Width = 72
    Height = 12
    Caption = '正式含税价：'
  end
  object Label14: TLabel [13]
    Left = 229
    Top = 167
    Width = 72
    Height = 12
    Caption = '正式未税价：'
  end
  inherited btn_ok: TButton
    Left = 112
    Top = 227
    TabOrder = 17
  end
  inherited btn_Cancel: TButton
    Left = 210
    Top = 227
    Width = 73
    TabOrder = 18
  end
  inherited Pnl_Add: TPanel
    Left = 308
    Top = 5
    Width = 53
    Height = 21
    TabOrder = 19
  end
  object Extedt_ItemCode: TLinkEdit [17]
    Left = 91
    Top = 48
    Width = 86
    Height = 20
    LinkStyle = lsEllipsis
    TabOrder = 2
    OnButtonClick = Extedt_ItemCodeButtonClick
    OnExit = Extedt_ItemCodeExit
    OnKeyDown = Extedt_ItemCodeKeyDown
  end
  object edt_ItemName: TEdit [18]
    Left = 179
    Top = 48
    Width = 220
    Height = 20
    Enabled = False
    TabOrder = 3
  end
  object ExtEdt_VendorCode: TLinkEdit [19]
    Left = 91
    Top = 25
    Width = 86
    Height = 20
    LinkStyle = lsEllipsis
    TabOrder = 0
    OnButtonClick = VendorHint1
    OnExit = ExtEdt_VendorCodeExit
    OnKeyDown = VendorHint
  end
  object Edt_VendorName: TEdit [20]
    Left = 179
    Top = 25
    Width = 220
    Height = 20
    Enabled = False
    TabOrder = 1
  end
  object Lbl_UomName: TEdit [21]
    Left = 91
    Top = 71
    Width = 49
    Height = 20
    Enabled = False
    TabOrder = 4
  end
  object Edt_TaxRate: TEdit [22]
    Left = 189
    Top = 71
    Width = 52
    Height = 20
    Enabled = False
    TabOrder = 5
  end
  object Edt_CurrencyCode: TEdit [23]
    Left = 288
    Top = 71
    Width = 37
    Height = 20
    Enabled = False
    TabOrder = 6
  end
  object Edt_CurrencyName: TEdit [24]
    Left = 328
    Top = 71
    Width = 70
    Height = 20
    Enabled = False
    TabOrder = 7
  end
  object MEdt_PcStArtDate: TMaskEdit [25]
    Left = 91
    Top = 94
    Width = 73
    Height = 20
    EditMask = '0000\.00\.00;1;_'
    MaxLength = 10
    TabOrder = 8
    Text = '    .  .  '
    OnExit = DateCheck
  end
  object MEdt_PcendDate: TMaskEdit [26]
    Left = 91
    Top = 117
    Width = 73
    Height = 20
    EditMask = '0000\.00\.00;1;_'
    MaxLength = 10
    TabOrder = 9
    Text = '    .  .  '
    OnExit = MEdt_PcendDateExit
  end
  object Edt_PcStArtQty: TEdit [27]
    Left = 91
    Top = 140
    Width = 97
    Height = 20
    TabOrder = 10
    OnExit = Edt_PcStArtQtyExit
  end
  object Edt_PcendQty: TEdit [28]
    Left = 91
    Top = 163
    Width = 97
    Height = 20
    TabOrder = 11
    OnExit = Edt_PcendQtyExit
  end
  object Edt_PcTaxPrice: TEdit [29]
    Left = 304
    Top = 94
    Width = 94
    Height = 20
    TabOrder = 12
    OnExit = Edt_PcTaxPriceExit
  end
  object Edt_PcNoTaxPrice: TEdit [30]
    Left = 304
    Top = 117
    Width = 94
    Height = 20
    TabOrder = 13
    OnExit = Edt_PcNoTaxPriceExit
  end
  object CmBx_PcPriceType: TComboBox [31]
    Left = 91
    Top = 186
    Width = 98
    Height = 20
    Style = csDropDownList
    ItemHeight = 12
    TabOrder = 16
    Items.Strings = (
      '采购'
      '委外')
  end
  object Edt_PcTaxPrice_Formal: TEdit [32]
    Left = 304
    Top = 140
    Width = 94
    Height = 20
    TabOrder = 14
    OnExit = Edt_PcTaxPrice_FormalExit
  end
  object Edt_PcNoTaxPrice_Formal: TEdit [33]
    Left = 304
    Top = 163
    Width = 94
    Height = 20
    TabOrder = 15
    OnExit = Edt_PcNoTaxPrice_FormalExit
  end
  inherited AdoQry_Tmp: TAdoQuery
    Left = 409
    Top = 189
  end
end