pm_qry_purchaseassignalanysis.dfm

一个MRPII系统源代码版本

inherited Frm_Pm_Qry_PurchaseAssignAlanysis: TFrm_Pm_Qry_PurchaseAssignAlanysis
  Left = 71
  Top = 107
  Caption = '采购分配比列执行分析'
  PixelsPerInch = 96
  TextHeight = 12
  inherited Pnl_Title: TPanel
    Caption = '采购分配比列执行分析'
  end
  inherited Pnl_Head: TPanel
    Height = 39
    inherited Image1: TImage
      Height = 39
    end
    inherited Lbl_OrderTitle: TLabel
      Top = 22
    end
    inherited Lbl_Condition: TLabel
      Width = 24
      Caption = '全部'
    end
    inherited Lbl_Order: TLabel
      Top = 22
      Width = 114
      Caption = '物料代码/供应商代码'
    end
  end
  inherited Pnl_Hint: TPanel
    Top = 405
    Height = 24
    inherited Image4: TImage
      Height = 24
    end
  end
  inherited Pnl_Body: TPanel
    Top = 96
    Height = 309
    inherited Image3: TImage
      Height = 309
    end
    inherited DBGridEh: TDBGridEh
      Height = 309
      FrozenCols = 4
      Columns = <
        Item
          FieldName = 'ItemCode'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Width = 73
          KeyList.Strings = ()
        end
        Item
          FieldName = 'ItemName'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Width = 143
          KeyList.Strings = ()
        end
        Item
          FieldName = 'VendorCode'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Width = 71
          KeyList.Strings = ()
        end
        Item
          FieldName = 'VendorName'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Width = 152
          KeyList.Strings = ()
        end
        Item
          FieldName = 'Assignrate'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Width = 81
          KeyList.Strings = ()
        end
        Item
          FieldName = 'poqty'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Width = 52
          KeyList.Strings = ()
        end
        Item
          FieldName = 'per_Sumpoqty'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Width = 78
          KeyList.Strings = ()
        end
        Item
          FieldName = 'Diffpoqty'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Width = 105
          KeyList.Strings = ()
        end
        Item
          FieldName = 'porealinqty'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Width = 54
          KeyList.Strings = ()
        end
        Item
          FieldName = 'per_Sumporealinqty'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Width = 72
          KeyList.Strings = ()
        end
        Item
          FieldName = 'per_Finishqty'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Width = 66
          KeyList.Strings = ()
        end>
    end
  end
  inherited AdoQry_Tmp: TAdoQuery
    Left = 285
    Top = 251
  end
  inherited ActionList: TActionList
    Left = 104
    Top = 248
  end
  inherited AdoQry_Main: TAdoQuery
    ConnectionString = 
      'Provider=SQLOLEDB.1;Password=mdrcmrm;Persist Security Info=True;' +
      'User ID=mdrcmrm;Initial Catalog=mdrcmrm;Data Source=ZHENGJIArONG'
    CurSorType = ctStatic
    SQL.Strings = (
      'drop table #tmppoline'
      'drop table #tmppolinesum'
      'select po.VendorCode,      --供应商代码'
      '       Vendor.VendorName,  --供应商名称'
      '       poline.ItemCode,    --物料代码'
      '       Item.ItemName,      --物料名称'
      '       sum(poline.poqty) as poqty,       --下单量'
      '       sum(poline.porealinqty) as porealinqty,  --入库量'
      '       sum(poline.ponoFinishqty) as ponoFinishqty--未结量'
      'into #tmppoline       '
      'from poline'
      'join po on poline.pono=po.pono'
      'left join Vendor on po.VendorCode=Vendor.VendorCode'
      'left join Item on poline.ItemCode=Item.ItemCode'
      
        'where poline.ItemCode in ( select distinct ItemCode from Vendori' +
        'temAssign )'
      
        'group by po.VendorCode,Vendor.VendorName, poline.ItemCode,Item.i' +
        'temName'
      ''
      ''
      'select poline.ItemCode,'
      '       sum(poline.poqty) as poqty, --下单总量'
      '       sum(poline.porealinqty ) as porealinqty --总入库量'
      'into #tmppolinesum'
      'from poline'
      
        'where poline.ItemCode in ( select distinct ItemCode from Vendori' +
        'temAssign )'
      'group by poline.ItemCode      '
      ' '
      'select 0 as flag,'
      '       VendorItemAssign.ItemCode,'
      '       #tmppoline.ItemName,'
      '       VendorItemAssign.VendorCode,'
      '       #tmppoline.VendorName,'
      
        '       convert(varchAr,VendorItemAssign.Assignrate) as Assignrat' +
        'e,'
      '       #tmppoline.poqty as poqty,'
      
        '       convert(varchAr,#tmppoline.poqty/#tmppolinesum.poqty*100.' +
        '00)+'#39'%'#39' as per_Sumpoqty,'
      
        '       convert(varchAr,VendorItemAssign.Assignrate-#tmppoline.po' +
        'qty/#tmppolinesum.poqty*100.00)+'#39'%'#39' as Diffpoqty,'
      '       #tmppoline.porealinqty as porealinqty,'
      
        '       convert(varchAr,#tmppoline.porealinqty/#tmppolinesum.pore' +
        'alinqty*100.00)+'#39'%'#39' as per_Sumporealinqty,'
      
        '       convert(varchAr,(#tmppoline.poqty-#tmppoline.ponoFinishqt' +
        'y)/#tmppoline.poqty*100.00)+'#39'%'#39' as per_Finishqty '
      'from  VendorItemAssign'
      
        'left join #tmppoline on VendorItemAssign.ItemCode=#tmppoline.ite' +
        'mCode'
      '     and  VendorItemAssign.VendorCode=#tmppoline.VendorCode'
      'join #tmppolinesum on #tmppoline.ItemCode=#tmppolinesum.ItemCode'
      'where VendorItemAssign.ItemCode='#39'3140020001'#39' ')
    Left = 344
    Top = 225
    object AdoQry_MainItemCode: TStringField
      DisplayLabel = '物料代码'
      FieldName = 'ItemCode'
      Origin = '#poResult'
      Size = 16
    end
    object AdoQry_MainItemName: TStringField
      DisplayLabel = '物料描述'
      FieldName = 'ItemName'
      Origin = '#poResult'
      Size = 80
    end
    object AdoQry_MaInvendorCode: TStringField
      DisplayLabel = '供应商代码'
      FieldName = 'VendorCode'
      Origin = '#poResult'
      Size = 12
    end
    object AdoQry_MaInvendorName: TStringField
      DisplayLabel = '供应商名称'
      FieldName = 'VendorName'
      Origin = '#poResult'
      Size = 60
    end
    object AdoQry_Mainpoqty: TFloatField
      DisplayLabel = '下单量'
      FieldName = 'poqty'
      Origin = '#poResult'
    end
    object AdoQry_Mainper_Sumpoqty: TStringField
      DisplayLabel = '占总下单数%'
      FieldName = 'per_Sumpoqty'
      Origin = '#poResult'
      ReadOnly = True
      Size = 31
    end
    object AdoQry_MainDiffpoqty: TStringField
      DisplayLabel = '计划与实际比例差'
      FieldName = 'Diffpoqty'
      Origin = '#poResult'
      ReadOnly = True
      Size = 31
    end
    object AdoQry_Mainporealinqty: TFloatField
      DisplayLabel = '入库量'
      FieldName = 'porealinqty'
      Origin = '#poResult'
    end
    object AdoQry_Mainper_Sumporealinqty: TStringField
      DisplayLabel = '占总入库数%'
      FieldName = 'per_Sumporealinqty'
      Origin = '#poResult'
      ReadOnly = True
      Size = 31
    end
    object AdoQry_Mainper_Finishqty: TStringField
      DisplayLabel = '订单完成%'
      FieldName = 'per_Finishqty'
      Origin = '#poResult'
      ReadOnly = True
      Size = 31
    end
    object AdoQry_MainAssignrate: TStringField
      DisplayLabel = '计划分配比例'
      FieldName = 'Assignrate'
      Origin = '#poResult'
      ReadOnly = True
      Size = 30
    end
    object AdoQry_Mainflag: TIntegerField
      FieldName = 'flag'
      ReadOnly = True
    end
  end
  inherited DataSource: TDataSource
    Left = 368
    Top = 153
  end
end