pm_enter_purcharseprice.dfm

一个MRPII系统源代码版本

inherited Frm_Pm_Enter_PurcharsePrice: TFrm_Pm_Enter_PurcharsePrice
  Left = 11
  Top = 109
  Caption = '采购价格表'
  ClientHeight = 423
  ClientWidth = 804
  OnDestroy = FormDestroy
  PixelsPerInch = 96
  TextHeight = 12
  inherited ControlBar: TControlBar
    Width = 804
  end
  inherited Pnl_Title: TPanel
    Width = 804
    Caption = '采购价格表'
    inherited Image2: TImage
      Width = 804
    end
  end
  inherited Pnl_Head: TPanel
    Width = 804
    inherited Image1: TImage
      Width = 804
    end
    inherited Lbl_Order: TLabel
      Width = 168
      Caption = '供应商代码/物料代码/起始日期'
    end
  end
  inherited Pnl_Hint: TPanel
    Top = 390
    Width = 804
    Height = 33
    inherited Image4: TImage
      Width = 804
      Height = 33
    end
  end
  inherited Pnl_Body: TPanel
    Width = 804
    Height = 293
    inherited Image3: TImage
      Width = 804
      Height = 293
    end
    inherited DBGridEh: TDBGridEh
      Width = 804
      Height = 293
      FrozenCols = 4
      Columns = <
        Item
          FieldName = 'VendorCode'
          PickList.Strings = ()
          Width = 73
          KeyList.Strings = ()
        end
        Item
          FieldName = 'VendorName'
          PickList.Strings = ()
          Width = 155
          KeyList.Strings = ()
        end
        Item
          FieldName = 'ItemCode'
          PickList.Strings = ()
          Width = 68
          KeyList.Strings = ()
        end
        Item
          FieldName = 'ItemName'
          PickList.Strings = ()
          Width = 171
          KeyList.Strings = ()
        end
        Item
          FieldName = 'UomName'
          PickList.Strings = ()
          Width = 34
          KeyList.Strings = ()
        end
        Item
          FieldName = 'PcTaxPrice'
          PickList.Strings = ()
          KeyList.Strings = ()
        end
        Item
          FieldName = 'PcNoTaxPrice'
          PickList.Strings = ()
          KeyList.Strings = ()
        end
        Item
          FieldName = 'PcTaxPrice_Formal'
          PickList.Strings = ()
          KeyList.Strings = ()
        end
        Item
          FieldName = 'PcNoTaxPrice_Formal'
          PickList.Strings = ()
          KeyList.Strings = ()
        end
        Item
          FieldName = 'ReferencePricePass'
          PickList.Strings = (
            '未批准'
            '已批准')
          Width = 94
          KeyList.Strings = (
            '0'
            '1')
        end
        Item
          FieldName = 'FormalPricePass'
          PickList.Strings = (
            '未批准'
            '已批准')
          Width = 98
          KeyList.Strings = (
            '0'
            '1')
        end
        Item
          FieldName = 'PcPriceType'
          PickList.Strings = (
            '0 采购'
            '1 委外 ')
          KeyList.Strings = (
            '0'
            '1')
        end
        Item
          FieldName = 'PcStArtDate'
          PickList.Strings = ()
          Width = 70
          KeyList.Strings = ()
        end
        Item
          FieldName = 'PcendDate'
          PickList.Strings = ()
          Width = 70
          KeyList.Strings = ()
        end
        Item
          FieldName = 'PcStArtQty'
          PickList.Strings = ()
          KeyList.Strings = ()
        end
        Item
          FieldName = 'PcendQty'
          PickList.Strings = ()
          KeyList.Strings = ()
        end
        Item
          FieldName = 'PcTaxRate_Percent'
          PickList.Strings = ()
          KeyList.Strings = ()
        end
        Item
          FieldName = 'CurrencyCode'
          PickList.Strings = ()
          Width = 58
          KeyList.Strings = ()
        end
        Item
          FieldName = 'CurrencyName'
          PickList.Strings = ()
          Width = 67
          KeyList.Strings = ()
        end
        Item
          FieldName = 'PcNo'
          PickList.Strings = ()
          Width = 73
          KeyList.Strings = ()
        end
        Item
          FieldName = 'PcDate'
          PickList.Strings = ()
          Width = 70
          KeyList.Strings = ()
        end>
    end
  end
  inherited AdoQry_Tmp: TAdoQuery
    CurSorType = ctStatic
    SQL.Strings = (
      'select max(Mpsid) from Mps with(index(pk_Mps))')
    Left = 334
    Top = 146
  end
  inherited ActionList: TActionList
    Top = 226
  end
  inherited AdoQry_Main: TAdoQuery
    ConnectionString = 
      'Provider=SQLOLEDB.1;Password=mdrcmrm;Persist Security Info=True;' +
      'User ID=mdrcmrm;Initial Catalog=Mrpii_Standard;Data Source=192.1' +
      '68.0.100;Use procedure for Prepare=1;Auto Translate=True;Packet ' +
      'Size=4096;Workstation ID=XYB'
    CurSorType = ctDynamic
    AfterPost = AdoQry_MainAfterPost
    SQL.Strings = (
      'select Pc.VendorCode,'
      '       Vendor.VendorName,'
      '       PcLine.ItemCode,'
      '       Item.ItemName,'
      '       Uom.UomName,'
      '       PcLine.PcTaxPrice,'
      '       PcLine.PcNoTaxPrice,'
      '       PcLine.PcTaxPrice_Formal,'
      '       PcLine.PcNoTaxPrice_Formal,'
      '       PcLine.ReferencePricePass,'
      '       PcLine.FormalPricePass,'
      '       PcLine.PcPriceType,'
      '       PcLine.PcStArtDate,'
      '       PcLine.PcendDate,'
      '       PcLine.PcStArtQty,'
      '       PcLine.PcendQty,'
      '       Pc.PcTaxRate_Percent,'
      '       Pc.CurrencyCode,'
      '       Currency.CurrencyName,'
      '       PcLine.PcNo,'
      '       PcLine.PcLineId,'
      '       Pc.PcDate'
      'from PcLine'
      'join Pc on PcLine.PcNo=Pc.PcNo'
      'left join Vendor on Pc.VendorCode=Vendor.VendorCode'
      'left join Item on PcLine.ItemCode=Item.ItemCode'
      'left join Uom on Item.UomCode=Uom.UomCode'
      'left join Currency on Pc.CurrencyCode=Currency.CurrencyCode'
      '')
    Left = 461
    Top = 224
    object AdoQry_MaInvendorCode: TStringField
      DisplayLabel = '供应商代码'
      FieldName = 'VendorCode'
      Origin = 'Pc'
      Size = 12
    end
    object AdoQry_MaInvendorName: TStringField
      DisplayLabel = '供应商名称'
      FieldName = 'VendorName'
      Origin = 'Vendor'
      Size = 60
    end
    object AdoQry_MainItemCode: TStringField
      DisplayLabel = '物料代码'
      FieldName = 'ItemCode'
      Origin = 'PcLine'
      Size = 16
    end
    object AdoQry_MainItemName: TStringField
      DisplayLabel = '物料名称'
      FieldName = 'ItemName'
      Origin = 'Item'
      Size = 80
    end
    object AdoQry_MainUomName: TStringField
      DisplayLabel = '单位'
      FieldName = 'UomName'
      Origin = 'Uom'
      Size = 10
    end
    object AdoQry_MainPcTaxPrice: TFloatField
      DisplayLabel = '暂估含税价'
      FieldName = 'PcTaxPrice'
      Origin = 'PcLine'
      OnChange = AdoQry_MainPcTaxPriceChange
    end
    object AdoQry_MainPcNoTaxPrice: TFloatField
      DisplayLabel = '暂估未税价'
      FieldName = 'PcNoTaxPrice'
      Origin = 'PcLine'
      OnChange = AdoQry_MainPcNoTaxPriceChange
    end
    object AdoQry_MainPcTaxPrice_Formal: TFloatField
      DisplayLabel = '正式含税价'
      FieldName = 'PcTaxPrice_Formal'
      Origin = 'PcLine'
    end
    object AdoQry_MainPcNoTaxPrice_Formal: TFloatField
      DisplayLabel = '正式未税价'
      FieldName = 'PcNoTaxPrice_Formal'
      Origin = 'PcLine'
    end
    object AdoQry_MainReferencePricePass: TIntegerField
      DisplayLabel = '暂估价是否批准'
      FieldName = 'ReferencePricePass'
      Origin = 'PcLine'
    end
    object AdoQry_MainformalPricePass: TIntegerField
      DisplayLabel = '正式价是否批准'
      FieldName = 'FormalPricePass'
      Origin = 'PcLine'
    end
    object AdoQry_MainPcPriceType: TIntegerField
      DisplayLabel = '业务类型'
      FieldName = 'PcPriceType'
      Origin = 'PcLine'
    end
    object AdoQry_MainPcStArtDate: TDateTimeField
      DisplayLabel = '起始日期'
      FieldName = 'PcStArtDate'
      Origin = 'PcLine'
    end
    object AdoQry_MainPcendDate: TDateTimeField
      DisplayLabel = '终止日期'
      FieldName = 'PcendDate'
      Origin = 'PcLine'
    end
    object AdoQry_MainPcStArtQty: TFloatField
      DisplayLabel = '起始数量'
      FieldName = 'PcStArtQty'
      Origin = 'PcLine'
    end
    object AdoQry_MainPcendQty: TFloatField
      DisplayLabel = '终止数量'
      FieldName = 'PcendQty'
      Origin = 'PcLine'
    end
    object AdoQry_MainPcTaxRate_Percent: TIntegerField
      DisplayLabel = '税率'
      FieldName = 'PcTaxRate_Percent'
      Origin = 'Pc'
    end
    object AdoQry_MainCurrencyCode: TStringField
      DisplayLabel = '货币代码'
      FieldName = 'CurrencyCode'
      Origin = 'Pc'
      Size = 3
    end
    object AdoQry_MainCurrencyName: TStringField
      DisplayLabel = '货币名称'
      FieldName = 'CurrencyName'
      Origin = 'Currency'
      Size = 30
    end
    object AdoQry_MainPcNo: TStringField
      DisplayLabel = '价格单号'
      FieldName = 'PcNo'
      Origin = 'PcLine'
      Size = 16
    end
    object AdoQry_MainPcDate: TDateTimeField
      DisplayLabel = '下单日期'
      FieldName = 'PcDate'
      Origin = 'Pc'
    end
    object AdoQry_MainPcLineId: TAutoIncField
      FieldName = 'PcLineId'
    end
  end
  inherited DataSource: TDataSource
    Left = 346
    Top = 210
  end
  inherited ExtPrintReport: TExtPrintReport
    DataSet = AdoQry_Main
    Title1 = '主生产计划表'
  end
end