pm_pc_check.dfm

一个MRPII系统源代码版本

inherited Frm_Pm_Pc_Check: TFrm_Pm_Pc_Check
  Left = 13
  Top = 104
  Caption = '暂估采购价批准'
  OnDestroy = FormDestroy
  PixelsPerInch = 96
  TextHeight = 12
  inherited Pnl_Title: TPanel
    Caption = '暂估采购价批准'
  end
  inherited Pnl_Head: TPanel
    inherited Lbl_Condition: TLabel
      Width = 72
      Caption = '暂估价未批准'
    end
    inherited Lbl_Order: TLabel
      Width = 198
      Caption = '供应商/物料代码/起始日期/起始数量'
    end
  end
  inherited Pnl_Hint: TPanel
    Top = 415
    Height = 26
    inherited Image4: TImage
      Height = 26
    end
    object Label1: TLabel
      Left = 8
      Top = 8
      Width = 72
      Height = 12
      Caption = '当前供应商：'
      TransParent = True
    end
    object DBText1: TDBText
      Left = 79
      Top = 8
      Width = 42
      Height = 12
      AutoSize = True
      DataField = 'VendorCodeName'
      DataSource = DataSource
      TransParent = True
    end
    object DBText2: TDBText
      Left = 367
      Top = 8
      Width = 42
      Height = 12
      AutoSize = True
      DataField = 'ItemCodeName'
      DataSource = DataSource
      TransParent = True
    end
    object Label2: TLabel
      Left = 304
      Top = 8
      Width = 60
      Height = 12
      Caption = '当前物料：'
      TransParent = True
    end
  end
  inherited Pnl_Body: TPanel
    Height = 318
    inherited Image3: TImage
      Height = 318
    end
    inherited DBGridEh: TDBGridEh
      Height = 318
      ReadOnly = False
      OnDblClick = Act_ModifyExecute
      OnTitleClick = DBGridEhTitleClick
      FrozenCols = 3
      Columns = <
        Item
          FieldName = 'TmpFlag'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Title.Caption = '标记'
          Title.Font.ChArset = GB2312_CHArSET
          Title.Font.Color = clBlue
          Title.Font.Height = -12
          Title.Font.Name = '宋体'
          Title.Font.Style = []
          Width = 28
          KeyList.Strings = (
            '1'
            '0')
          Checkboxes = True
        end
        Item
          FieldName = 'VendorCode'
          PickList.Strings = ()
          ReadOnly = True
          Title.Alignment = taCenter
          Title.Caption = '供应商代码'
          Width = 71
          Visible = False
          KeyList.Strings = ()
        end
        Item
          FieldName = 'VendorName'
          PickList.Strings = ()
          ReadOnly = True
          Title.Alignment = taCenter
          Title.Caption = '供应商名称'
          Width = 162
          Visible = False
          KeyList.Strings = ()
        end
        Item
          FieldName = 'PcDate'
          PickList.Strings = ()
          ReadOnly = True
          Title.Alignment = taCenter
          Title.Caption = '建表日期'
          Width = 71
          KeyList.Strings = ()
        end
        Item
          FieldName = 'VendorCodeName'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Title.Caption = '供应商标识'
          Width = 98
          KeyList.Strings = ()
        end
        Item
          FieldName = 'ReferencePricePass'
          PickList.Strings = (
            '0 未批准'
            '1 已批准')
          ReadOnly = True
          Title.Caption = '暂估价批准否'
          Width = 80
          KeyList.Strings = (
            '0'
            '1')
        end
        Item
          FieldName = 'ItemCode'
          PickList.Strings = ()
          ReadOnly = True
          Title.Alignment = taCenter
          Title.Caption = '物料代码'
          Width = 66
          Visible = False
          KeyList.Strings = ()
        end
        Item
          FieldName = 'ItemName'
          PickList.Strings = ()
          ReadOnly = True
          Title.Alignment = taCenter
          Title.Caption = '物料描述'
          Width = 186
          Visible = False
          KeyList.Strings = ()
        end
        Item
          FieldName = 'ItemCodeName'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Title.Caption = '物料标识'
          Width = 111
          KeyList.Strings = ()
        end
        Item
          FieldName = 'PcStArtDate'
          PickList.Strings = ()
          ReadOnly = True
          Title.Alignment = taCenter
          Title.Caption = '起始日期'
          Width = 67
          KeyList.Strings = ()
        end
        Item
          FieldName = 'PcendDate'
          PickList.Strings = ()
          ReadOnly = True
          Title.Alignment = taCenter
          Title.Caption = '终止日期'
          Width = 67
          KeyList.Strings = ()
        end
        Item
          FieldName = 'PcStArtQty'
          PickList.Strings = ()
          ReadOnly = True
          Title.Alignment = taCenter
          Title.Caption = '起始数量'
          Width = 57
          KeyList.Strings = ()
        end
        Item
          FieldName = 'PcendQty'
          PickList.Strings = ()
          ReadOnly = True
          Title.Alignment = taCenter
          Title.Caption = '终止数量'
          Width = 61
          KeyList.Strings = ()
        end
        Item
          FieldName = 'PcTaxPrice'
          PickList.Strings = ()
          ReadOnly = True
          Title.Alignment = taCenter
          Title.Caption = '暂估含税价'
          Width = 67
          KeyList.Strings = ()
        end
        Item
          FieldName = 'PcNoTaxPrice'
          PickList.Strings = ()
          ReadOnly = True
          Title.Alignment = taCenter
          Title.Caption = '暂估未税价'
          KeyList.Strings = ()
        end
        Item
          FieldName = 'FormalPricePass'
          PickList.Strings = (
            '0 未批准'
            '1 已批准')
          ReadOnly = True
          Title.Caption = '正式价批准否'
          Width = 79
          KeyList.Strings = (
            '0'
            '1')
        end
        Item
          FieldName = 'PcTaxPrice_Formal'
          PickList.Strings = ()
          ReadOnly = True
          KeyList.Strings = ()
        end
        Item
          FieldName = 'PcNoTaxPrice_Formal'
          PickList.Strings = ()
          ReadOnly = True
          KeyList.Strings = ()
        end
        Item
          FieldName = 'PcPriceType'
          PickList.Strings = (
            '采购'
            '委外')
          ReadOnly = True
          Title.Alignment = taCenter
          Title.Caption = '价格类型'
          Width = 55
          KeyList.Strings = (
            '0'
            '1')
        end
        Item
          FieldName = 'PcTaxRate_Percent'
          PickList.Strings = ()
          ReadOnly = True
          Title.Alignment = taCenter
          Title.Caption = '税率%'
          Width = 35
          KeyList.Strings = ()
        end
        Item
          FieldName = 'CurrencyName'
          PickList.Strings = ()
          ReadOnly = True
          Title.Alignment = taCenter
          Title.Caption = '货币'
          Width = 42
          KeyList.Strings = ()
        end
        Item
          FieldName = 'RemArk'
          PickList.Strings = ()
          ReadOnly = True
          Title.Alignment = taCenter
          Title.Caption = '备注'
          Width = 254
          KeyList.Strings = ()
        end>
    end
  end
  inherited ActionList: TActionList
    inherited Act_Modify: TAction
      Enabled = True
      Visible = True
      OnExecute = Act_ModifyExecute
    end
    inherited Act_CancelCheck: TAction
      OnExecute = Act_CancelCheckExecute
    end
    inherited Act_Check: TAction
      OnExecute = Act_CheckExecute
    end
  end
  inherited AdoQry_Head: 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 top 0 Pc.PcNo'
      '    ,Pc.VendorCode'
      '    ,Vendor.VendorName'
      '    ,Pc.VendorCode+'#39' '#39'+Vendor.VendorName As VendorCodeName'
      '    ,Pc.PcDate'
      '    ,Pc.PcTaxRate_Percent'
      '    ,Pc.CurrencyCode'
      '    ,Currency.CurrencyName'
      '    ,Pc.RemArk'
      ''
      '    ,PcLine.TmpFlag'
      '    ,PcLine.ItemCode'
      '    ,Item.ItemName'
      '    ,PcLine.ItemCode+'#39' '#39'+Item.ItemName As ItemCodeName'
      '    ,PcLine.PcLineStatus'
      '    ,PcLine.PcTaxPrice'
      '    ,PcLine.PcNoTaxPrice,'
      '     PcLine.PcTaxPrice_Formal,'
      '     pcLine.PcNoTaxPrice_Formal,'
      '     PcLine.ReferencePricePass,'
      '     PcLine.FormalPricePass'
      '    ,PcLine.PcStArtDate'
      '    ,PcLine.PcendDate'
      '    ,PcLine.PcStArtQty'
      '    ,PcLine.PcendQty'
      '    ,PcLine.PcPriceType'
      '    ,PcLine.PCReferencedPrice'
      '    ,PcLine.PcLineId'
      '     From PcLine'
      '     Join Pc On PcLine.PcNo=Pc.PcNo'
      '     Join Vendor On Pc.VendorCode=Vendor.VendorCode'
      '     Join Currency On Pc.CurrencyCode=Currency.CurrencyCode'
      '     Join Item on Item.ItemCode=PcLine.ItemCode')
    Left = 408
    Top = 297
    object AdoQry_HeadPcNo: TStringField
      FieldName = 'PcNo'
      Origin = 'pc'
      Size = 16
    end
    object AdoQry_HeadVendorCode: TStringField
      FieldName = 'VendorCode'
      Origin = 'pc'
      Size = 12
    end
    object AdoQry_HeadVendorName: TStringField
      FieldName = 'VendorName'
      Origin = 'Vendor'
      Size = 60
    end
    object AdoQry_HeadVendorCodeName: TStringField
      FieldName = 'VendorCodeName'
      ReadOnly = True
      Size = 73
    end
    object AdoQry_HeadPcDate: TDateTimeField
      FieldName = 'PcDate'
      Origin = 'pc'
    end
    object AdoQry_HeadPcTaxRate_Percent: TIntegerField
      FieldName = 'PcTaxRate_Percent'
      Origin = 'pc'
    end
    object AdoQry_HeadCurrencyCode: TStringField
      FieldName = 'CurrencyCode'
      Origin = 'pc'
      Size = 2
    end
    object AdoQry_HeadCurrencyName: TStringField
      FieldName = 'CurrencyName'
      Origin = 'currency'
      Size = 30
    end
    object AdoQry_HeadRemArk: TStringField
      FieldName = 'RemArk'
      Origin = 'pc'
      Size = 250
    end
    object AdoQry_HeadTmpFlag: TIntegerField
      FieldName = 'TmpFlag'
      Origin = 'pcline'
    end
    object AdoQry_HeadItemCode: TStringField
      FieldName = 'ItemCode'
      Origin = 'pcline'
      Size = 16
    end
    object AdoQry_HeadItemName: TStringField
      FieldName = 'ItemName'
      Origin = 'Item'
      Size = 80
    end
    object AdoQry_HeadItemCodeName: TStringField
      FieldName = 'ItemCodeName'
      ReadOnly = True
      Size = 97
    end
    object AdoQry_HeadPcLineStatus: TIntegerField
      FieldName = 'PcLineStatus'
      Origin = 'pcline'
    end
    object AdoQry_HeadPcTaxPrice: TFloatField
      FieldName = 'PcTaxPrice'
      Origin = 'pcline'
    end
    object AdoQry_HeadPcNoTaxPrice: TFloatField
      FieldName = 'PcNoTaxPrice'
      Origin = 'pcline'
    end
    object AdoQry_HeadPcStArtDate: TDateTimeField
      FieldName = 'PcStArtDate'
      Origin = 'pcline'
    end
    object AdoQry_HeadPcendDate: TDateTimeField
      FieldName = 'PcendDate'
      Origin = 'pcline'
    end
    object AdoQry_HeadPcStArtQty: TFloatField
      FieldName = 'PcStArtQty'
      Origin = 'pcline'
    end
    object AdoQry_HeadPcendQty: TFloatField
      FieldName = 'PcendQty'
      Origin = 'pcline'
    end
    object AdoQry_HeadPcPriceType: TIntegerField
      FieldName = 'PcPriceType'
      Origin = 'pcline'
    end
    object AdoQry_HeadPcLineId: TAutoIncField
      FieldName = 'PcLineId'
      Origin = 'pcline'
      ReadOnly = True
    end
    object AdoQry_HeadPcTaxPrice_Formal: TFloatField
      DisplayLabel = '正式含税价'
      FieldName = 'PcTaxPrice_Formal'
      Origin = 'PcLine'
    end
    object AdoQry_HeadPcNoTaxPrice_Formal: TFloatField
      DisplayLabel = '正式未税价'
      FieldName = 'PcNoTaxPrice_Formal'
      Origin = 'PcLine'
    end
    object AdoQry_HeadReferencePricePass: TIntegerField
      DisplayLabel = '暂估价批准标志'
      FieldName = 'ReferencePricePass'
      Origin = 'PcLine'
    end
    object AdoQry_HeadFormalPricePass: TIntegerField
      DisplayLabel = '正式价批准标志'
      FieldName = 'FormalPricePass'
      Origin = 'PcLine'
    end
  end
  inherited DataSource: TDataSource
    Left = 472
    Top = 209
  end
end