pm_pc_entry_b1.dfm

一个MRPII系统源代码版本

inherited Frm_Pm_Pc_Entry_B1: TFrm_Pm_Pc_Entry_B1
  Left = 18
  Top = 110
  Caption = '采购价格表'
  ClientHeight = 425
  ClientWidth = 766
  PixelsPerInch = 96
  TextHeight = 12
  inherited ControlBar: TControlBar
    Width = 766
  end
  inherited Pnl_Title: TPanel
    Width = 766
    Caption = '采购合同准备'
    inherited Image2: TImage
      Width = 766
    end
  end
  inherited Pnl_Head: TPanel
    Width = 766
    Height = 75
    inherited Image1: TImage
      Width = 766
      Height = 75
    end
    object Label2: TLabel
      Left = 45
      Top = 7
      Width = 48
      Height = 12
      Caption = '供应商：'
      TransParent = True
    end
    object Label3: TLabel
      Left = 171
      Top = 30
      Width = 36
      Height = 12
      Caption = '税率：'
      TransParent = True
    end
    object Label5: TLabel
      Left = 57
      Top = 54
      Width = 36
      Height = 12
      Caption = '备注：'
      TransParent = True
    end
    object Label8: TLabel
      Left = 268
      Top = 30
      Width = 36
      Height = 12
      Caption = '货币：'
      TransParent = True
    end
    object Lbl_Currency: TLabel
      Left = 689
      Top = 17
      Width = 72
      Height = 12
      Caption = 'Lbl_Currency'
      TransParent = True
      Visible = False
    end
    object Label9: TLabel
      Left = 54
      Top = 30
      Width = 36
      Height = 12
      Caption = '日期：'
      TransParent = True
    end
    object Lbl_TaxRate: TLabel
      Left = 699
      Top = 32
      Width = 66
      Height = 12
      Caption = 'Lbl_TaxRate'
      TransParent = True
      Visible = False
    end
    object Lbl_VendorName: TLabel
      Left = 670
      Top = 7
      Width = 84
      Height = 12
      Caption = 'Lbl_VendorName'
      TransParent = True
      Visible = False
    end
    object Edt_RemArk: TEdit
      Left = 91
      Top = 48
      Width = 539
      Height = 20
      MaxLength = 120
      TabOrder = 2
      OnExit = TextCheck
    end
    object MEdt_BillDate: TMaskEdit
      Left = 91
      Top = 26
      Width = 70
      Height = 20
      EditMask = '0000\.00\.00;1;_'
      MaxLength = 10
      TabOrder = 0
      Text = '    .  .  '
      OnExit = DateCheck
    end
    object ExtEdt_VendorCode: TLinkEdit
      Left = 91
      Top = 2
      Width = 65
      Height = 20
      LinkStyle = lsEllipsis
      TabOrder = 1
      OnButtonClick = VendorHint1
      OnChange = ExtEdt_VendorCodeChange
      OnExit = VendorCodeCheck
      OnKeyDown = VendorHint
    end
    object Edt_VendorName: TEdit
      Left = 158
      Top = 2
      Width = 286
      Height = 20
      Enabled = False
      TabOrder = 3
    end
    object Edt_CurrencyName: TEdit
      Left = 359
      Top = 26
      Width = 85
      Height = 20
      Enabled = False
      TabOrder = 6
    end
    object Edt_TaxRate: TEdit
      Left = 209
      Top = 26
      Width = 52
      Height = 20
      Enabled = False
      TabOrder = 4
    end
    object Edt_CurrencyCode: TEdit
      Left = 306
      Top = 26
      Width = 50
      Height = 20
      Enabled = False
      TabOrder = 5
    end
  end
  inherited Pnl_Hint: TPanel
    Top = 399
    Width = 766
    inherited Image4: TImage
      Width = 766
    end
    object Label7: TLabel
      Left = 16
      Top = 8
      Width = 84
      Height = 12
      Caption = '当前物料描述：'
      TransParent = True
    end
    object DBTxt_ItemName: TDBText
      Left = 104
      Top = 8
      Width = 84
      Height = 12
      AutoSize = True
      DataField = 'ItemName'
      DataSource = DataSource
      TransParent = True
    end
  end
  inherited Pnl_Body: TPanel
    Top = 132
    Width = 766
    Height = 267
    inherited Image3: TImage
      Width = 766
      Height = 267
    end
    inherited DBGridEh: TDBGridEh
      Width = 766
      Height = 267
      FrozenCols = 2
      Columns = <
        Item
          FieldName = 'ItemCode'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Title.Caption = '物料代码'
          Width = 125
          KeyList.Strings = ()
        end
        Item
          FieldName = 'ItemName'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Title.Caption = '物料描述'
          Width = 250
          KeyList.Strings = ()
        end
        Item
          FieldName = 'UomName'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Title.Caption = '计量单位'
          Width = 58
          KeyList.Strings = ()
        end
        Item
          FieldName = 'PcLineStatus'
          PickList.Strings = (
            '未批准'
            '已批准')
          Title.Alignment = taCenter
          Title.Caption = '行状态'
          Width = 49
          KeyList.Strings = (
            '0'
            '1')
        end
        Item
          FieldName = 'PcStArtDate'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Title.Caption = '起始日期'
          Width = 66
          KeyList.Strings = ()
        end
        Item
          FieldName = 'PcendDate'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Title.Caption = '终止日期'
          Width = 69
          KeyList.Strings = ()
        end
        Item
          FieldName = 'PcStArtQty'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Title.Caption = '起始数量'
          KeyList.Strings = ()
        end
        Item
          FieldName = 'PcendQty'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Title.Caption = '终止数量'
          KeyList.Strings = ()
        end
        Item
          FieldName = 'PcTaxPrice'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Title.Caption = '暂估含税价'
          KeyList.Strings = ()
        end
        Item
          FieldName = 'PcNoTaxPrice'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Title.Caption = '暂估未税价'
          KeyList.Strings = ()
        end
        Item
          FieldName = 'PcTaxPrice_Formal'
          PickList.Strings = ()
          Title.Caption = '正式含税价'
          KeyList.Strings = ()
        end
        Item
          FieldName = 'PcNoTaxPrice_Formal'
          PickList.Strings = ()
          Title.Caption = '正式未税价'
          KeyList.Strings = ()
        end
        Item
          FieldName = 'PcPriceType'
          PickList.Strings = (
            '采购'
            '委外')
          Title.Alignment = taCenter
          Title.Caption = '价格类型'
          KeyList.Strings = (
            '0'
            '1')
        end>
    end
  end
  inherited ActionList: TActionList
    inherited Act_Filter: TAction
      Enabled = True
      Visible = True
    end
    inherited Act_Order: TAction
      Enabled = True
      Visible = True
    end
  end
  inherited AdoQry_Body: TAdoQuery
    ConnectionString = 
      'Provider=SQLOLEDB.1;Password=mdrcmrm;Persist Security Info=True;' +
      'User ID=mdrcmrm;Initial Catalog=Mrpii_kelong;Data Source=192.168' +
      '.0.100;Use procedure for Prepare=1;Auto Translate=True;Packet Si' +
      'ze=4096;Workstation ID=XYB'
    SQL.Strings = (
      'Select pcline.PcNo,'
      '     pcline.PcLineId,'
      '     pcline.ItemCode,'
      '     Item.ItemName,'
      '     Uom.UomName,'
      '     pcline.PcTaxPrice,'
      '     pcline.PcNoTaxPrice,'
      '     pcline.PcStArtDate,'
      '     pcline.PcendDate,'
      '     pcline.PcStArtQty,'
      '     pcline.PcendQty,'
      '     pcline.PcPriceType,'
      '     PcLine.PcTaxPrice_Formal,'
      '     PcLIne.PcNoTaxPrice_Formal,'
      '     PcLine.ReferencePricePass,'
      '     PcLine.FormalPricePass'
      '--     pcline.PCReferencedPrice'
      'From pcline Join Item On pcline.ItemCode=Item.ItemCode'
      '            Join Uom On Item.UomCode=Uom.UomCode'
      ' '
      ' '
      ' ')
    Left = 400
    Top = 257
  end
  inherited DataSource: TDataSource
    Left = 448
    Top = 289
  end
  object ActionList1: TActionList [9]
    Left = 696
    Top = 201
  end
end