pm_pc_check_b.dfm

一个MRPII系统源代码版本

inherited Frm_Pm_Pc_Check_B: TFrm_Pm_Pc_Check_B
  Left = 23
  Top = 171
  Caption = '采购价格单批准'
  ClientHeight = 507
  ClientWidth = 775
  PixelsPerInch = 96
  TextHeight = 12
  inherited ControlBar: TControlBar
    Width = 775
  end
  inherited Pnl_Title: TPanel
    Width = 775
    Caption = '采购合同批准'
    inherited Image2: TImage
      Width = 775
    end
  end
  inherited Pnl_Head: TPanel
    Width = 775
    Height = 72
    inherited Image1: TImage
      Width = 775
      Height = 72
    end
    object Lbl_PcNo: TLabel
      Left = 702
      Top = 5
      Width = 48
      Height = 12
      Caption = 'Lbl_PcNo'
      TransParent = True
      Visible = False
    end
    object Lbl_VendorCode: TLabel
      Left = 693
      Top = 54
      Width = 60
      Height = 12
      Caption = 'Lbl_Vendor'
      TransParent = True
      Visible = False
    end
    object Lbl_VendorName: TLabel
      Left = 185
      Top = 30
      Width = 84
      Height = 12
      Caption = 'Lbl_VendorName'
      Visible = False
    end
    object Lbl_PcTaxRate_Percent: TLabel
      Left = 705
      Top = -2
      Width = 12
      Height = 12
      Caption = '17'
      Visible = False
    end
    object Lbl_PcRemArk: TLabel
      Left = 109
      Top = 56
      Width = 72
      Height = 12
      Caption = 'Lbl_PcRemArk'
      Visible = False
    end
    object Lbl_PcStatus: TLabel
      Left = 677
      Top = 44
      Width = 84
      Height = 14
      Caption = 'Lbl_PcStatus'
      Font.ChArset = GB2312_CHArSET
      Font.Color = clBlack
      Font.Height = -14
      Font.Name = '宋体'
      Font.Style = []
      ParentFont = False
      TransParent = True
      Visible = False
    end
    object Lbl_Currency: TLabel
      Left = 685
      Top = 37
      Width = 72
      Height = 12
      Caption = 'Lbl_Currency'
      TransParent = True
      Visible = False
    end
    object Lbl_BillDate: TLabel
      Left = 685
      Top = 22
      Width = 72
      Height = 12
      Caption = 'Lbl_BillDate'
      TransParent = True
      Visible = False
    end
    object Label10: TLabel
      Left = 1
      Top = 6
      Width = 84
      Height = 12
      Caption = '采购价格单号：'
      TransParent = True
    end
    object Label11: TLabel
      Left = 37
      Top = 29
      Width = 48
      Height = 12
      Caption = '供应商：'
      TransParent = True
    end
    object Label12: TLabel
      Left = 359
      Top = 6
      Width = 36
      Height = 12
      Caption = '日期：'
      TransParent = True
    end
    object Label13: TLabel
      Left = 49
      Top = 53
      Width = 36
      Height = 12
      Caption = '备注：'
      TransParent = True
    end
    object Label14: TLabel
      Left = 487
      Top = 6
      Width = 36
      Height = 12
      Caption = '税率：'
      TransParent = True
    end
    object Label15: TLabel
      Left = 487
      Top = 29
      Width = 36
      Height = 12
      Caption = '货币：'
      TransParent = True
    end
    object Label16: TLabel
      Left = 487
      Top = 53
      Width = 84
      Height = 12
      Caption = '合同批准状态：'
      Font.ChArset = GB2312_CHArSET
      Font.Color = clBlack
      Font.Height = -12
      Font.Name = '宋体'
      Font.Style = []
      ParentFont = False
      TransParent = True
    end
    object Edt_PcNo: TEdit
      Left = 83
      Top = 2
      Width = 68
      Height = 20
      TabStop = False
      TabOrder = 0
      Text = 'Edt_PcNo'
    end
    object MEdt_BillDate: TMaskEdit
      Left = 398
      Top = 2
      Width = 74
      Height = 20
      EditMask = '0000\.00\.00;1;_'
      MaxLength = 10
      TabOrder = 1
      Text = '    .  .  '
    end
    object ExtEdt_VendorCode: TLinkEdit
      Left = 82
      Top = 25
      Width = 68
      Height = 20
      LinkStyle = lsEllipsis
      TabOrder = 2
      Text = 'ExtEdt_VendorCode'
    end
    object Edt_VendorName: TEdit
      Left = 153
      Top = 25
      Width = 319
      Height = 20
      Enabled = False
      TabOrder = 3
      Text = 'Edt_VendorName'
    end
    object Edt_RemArk: TEdit
      Left = 82
      Top = 48
      Width = 390
      Height = 20
      TabOrder = 4
      Text = 'Edt_RemArk'
    end
    object Edt_TaxRate: TEdit
      Left = 524
      Top = 2
      Width = 50
      Height = 20
      Enabled = False
      TabOrder = 5
      Text = 'Edt_TaxRate'
    end
    object Edt_CurrencyName: TEdit
      Left = 577
      Top = 25
      Width = 60
      Height = 20
      Enabled = False
      TabOrder = 6
      Text = 'Edt_CurrencyName'
    end
    object Edt_CurrencyCode: TEdit
      Left = 524
      Top = 25
      Width = 50
      Height = 20
      Enabled = False
      TabOrder = 7
      Text = 'Edt_CurrencyCode'
    end
    object Edt_PcStatus: TEdit
      Left = 577
      Top = 48
      Width = 60
      Height = 20
      TabOrder = 8
      Text = 'Edt_PcStatus'
    end
  end
  inherited Pnl_Hint: TPanel
    Top = 481
    Width = 775
    inherited Image4: TImage
      Width = 775
    end
    object Label4: TLabel
      Left = 16
      Top = 8
      Width = 84
      Height = 12
      Caption = '当前物料描述：'
    end
    object DBText1: TDBText
      Left = 104
      Top = 8
      Width = 42
      Height = 12
      AutoSize = True
      DataField = 'ItemName'
      DataSource = DataSource
    end
  end
  inherited Pnl_Body: TPanel
    Top = 129
    Width = 775
    Height = 352
    inherited Image3: TImage
      Width = 775
      Height = 352
    end
    inherited DBGridEh: TDBGridEh
      Width = 775
      Height = 352
      Columns = <
        Item
          FieldName = 'PcLineId'
          PickList.Strings = ()
          Title.Caption = '采购合同行ID'
          Visible = False
          KeyList.Strings = ()
        end
        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 = 125
          KeyList.Strings = ()
        end
        Item
          FieldName = 'PcStArtDate'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Title.Caption = '起始日期'
          Width = 71
          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 = '起始数量'
          Width = 57
          KeyList.Strings = ()
        end
        Item
          FieldName = 'PcendQty'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Title.Caption = '终止数量'
          Width = 61
          KeyList.Strings = ()
        end
        Item
          FieldName = 'PcTaxPrice'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Title.Caption = '含税价'
          Width = 60
          KeyList.Strings = ()
        end
        Item
          FieldName = 'PcNoTaxPrice'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Title.Caption = '未税价'
          KeyList.Strings = ()
        end
        Item
          FieldName = 'PcPriceType'
          PickList.Strings = (
            '采购'
            '委外')
          Title.Alignment = taCenter
          Title.Caption = '价格类型'
          Width = 55
          KeyList.Strings = (
            '0'
            '1')
        end
        Item
          FieldName = 'PCReferencedPrice'
          PickList.Strings = (
            '否'
            '是')
          Title.Alignment = taCenter
          Title.Caption = '是否参考价'
          Width = 62
          KeyList.Strings = (
            '0'
            '1')
        end>
    end
  end
  inherited AdoQry_Tmp: TAdoQuery
    Left = 381
    Top = 267
  end
  inherited ActionList: TActionList
    Left = 200
    Top = 320
    inherited Act_CancelCheck: TAction
      OnExecute = Act_CancelCheckExecute
    end
    inherited Act_Check: TAction
      OnExecute = Act_CheckExecute
    end
  end
  inherited AdoQry_Body: TAdoQuery
    SQL.Strings = (
      
        'select pcline.*,Item.ItemName from pcline,Item where Item.Itemco' +
        'de=pcline.ItemCode')
    Top = 305
    object AdoQry_BodyPcNo: TStringField
      FieldName = 'PcNo'
      Origin = 'Pcline'
      Size = 16
    end
    object AdoQry_BodyPcLineId: TAutoIncField
      FieldName = 'PcLineId'
      Origin = 'pcline'
      ReadOnly = True
    end
    object AdoQry_BodyItemCode: TStringField
      FieldName = 'ItemCode'
      Origin = 'pcline'
      Size = 16
    end
    object AdoQry_BodyPcTaxPrice: TFloatField
      FieldName = 'PcTaxPrice'
      Origin = 'pcline'
    end
    object AdoQry_BodyPcNoTaxPrice: TFloatField
      FieldName = 'PcNoTaxPrice'
      Origin = 'pcline'
    end
    object AdoQry_BodyPcStArtDate: TDateTimeField
      FieldName = 'PcStArtDate'
      Origin = 'pcline'
    end
    object AdoQry_BodyPcendDate: TDateTimeField
      FieldName = 'PcendDate'
      Origin = 'pcline'
    end
    object AdoQry_BodyPcStArtQty: TFloatField
      FieldName = 'PcStArtQty'
      Origin = 'pcline'
    end
    object AdoQry_BodyPcendQty: TFloatField
      FieldName = 'PcendQty'
      Origin = 'pcline'
    end
    object AdoQry_BodyPcPriceType: TIntegerField
      FieldName = 'PcPriceType'
      Origin = 'pcline'
    end
    object AdoQry_BodyPCReferencedPrice: TIntegerField
      FieldName = 'PCReferencedPrice'
      Origin = 'pcline'
    end
    object AdoQry_BodyItemName: TStringField
      FieldName = 'ItemName'
      Origin = 'Item'
      Size = 60
    end
  end
  inherited DataSource: TDataSource
    Left = 344
    Top = 265
  end
end