mrp_qry_analyzermo5.dfm

一个MRPII系统源代码版本

inherited Frm_Mrp_Qry_AnalyzerMo5: TFrm_Mrp_Qry_AnalyzerMo5
  Left = 68
  Top = 135
  Caption = '产品材料耗用定额分析'
  ClientWidth = 719
  PixelsPerInch = 96
  TextHeight = 12
  inherited ControlBar: TControlBar
    Width = 719
  end
  inherited Pnl_Title: TPanel
    Width = 719
    Caption = '产品材料耗用定额分析'
  end
  inherited Pnl_Head: TPanel
    Width = 719
    inherited Lbl_Condition: TLabel
      Width = 24
      Caption = '全部'
    end
    inherited Lbl_Order: TLabel
      Width = 102
      Caption = '父项代码/子项代码'
    end
  end
  inherited Pnl_Hint: TPanel
    Width = 719
  end
  inherited Pnl_Body: TPanel
    Width = 719
    inherited DBGridEh: TDBGridEh
      Width = 719
      UseMultiTitle = True
      Columns = <
        Item
          Alignment = tArightJustify
          FieldName = 'Ite_ItemCode'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Title.Caption = '父项|代码'
          Width = 96
          KeyList.Strings = ()
        end
        Item
          FieldName = 'MoQty'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Title.Caption = '父项|生产总数'
          KeyList.Strings = ()
        end
        Item
          Alignment = tArightJustify
          FieldName = 'ItemCode'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Title.Caption = '子项|代码'
          Width = 104
          KeyList.Strings = ()
        end
        Item
          FieldName = 'RationQty'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Title.Caption = '子项|定额领料总数'
          Width = 79
          KeyList.Strings = ()
        end
        Item
          FieldName = 'OverAgeQty'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Title.Caption = '子项|超额领料总数'
          Width = 83
          KeyList.Strings = ()
        end
        Item
          FieldName = 'Sjdg'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Title.Caption = '实际单耗'
          Width = 67
          KeyList.Strings = ()
        end
        Item
          FieldName = 'Bzdg'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Title.Caption = '当前标准定额'
          Width = 94
          KeyList.Strings = ()
        end
        Item
          Alignment = tArightJustify
          FieldName = 'dgbl'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Title.Caption = '超额比率'
          Width = 81
          KeyList.Strings = ()
        end>
    end
  end
  inherited AdoQry_Tmp: TAdoQuery
    Left = 501
    Top = 43
  end
  inherited ActionList: TActionList
    Left = 160
    Top = 232
    inherited Act_Sum: TAction
      Caption = '订单分析'
      Enabled = True
      Hint = '订单分析'
      Visible = True
    end
    inherited Act_Look: TAction
      Enabled = True
      Visible = True
      OnExecute = Act_LookExecute
    end
    inherited Act_ShowGrid: TAction
      Caption = '订单分析'
      Hint = '订单分析'
      OnExecute = Act_ShowGridExecute
    end
  end
  inherited AdoQry_Main: TAdoQuery
    CurSorType = ctStatic
    OnFetchProgress = AdoQry_MainFetchProgress
    SQL.Strings = (
      
        'Select Tmp6.Ite_ItemCode,Tmp6.ItemCode,Tmp6.MoQty,Tmp6.RationQty' +
        ',Tmp6.OverAgeQty,Tmp6.Sjdg,Tmp6.Bzdg,'
      
        'Case When IsNull(Tmp6.Bzdg,0)<>0 Then Convert(ChAr,(Tmp6.Sjdg-Tm' +
        'p6.Bzdg)/Tmp6.Bzdg*100)+'#39'%'#39' '
      'else '#39'0%'#39
      'end dgbl'
      'From '
      
        '(Select Tmp5.Ite_ItemCode,Tmp5.ItemCode,Tmp5.MoQty,Tmp5.RationQt' +
        'y,Tmp5.OverAgeQty,'
      
        'Case When IsNull(Tmp5.MoQty,0)<> 0 Then (IsNull(Tmp5.RationQty,0' +
        ')+IsNull(Tmp5.OverAgeQty,0))/Tmp5.Moqty'
      '     Else 0 end Sjdg,#TmpOpenBomLast.BomQty as Bzdg'
      'From'
      
        '(Select Tmp3.Ite_ItemCode,Tmp4.ItemCode,IsNull(Tmp3.MoQty,0) As ' +
        'MoQty,IsNull(Tmp4.RationQty,0) as RationQty ,isNull(Tmp4.OverAge' +
        'Qty,0) as  OverAgeQty'
      'From'
      
        '(Select #TmPMoLine.ItemCode as Ite_ItemCode,Sum(isnull(#TmPmoLin' +
        'e.MoRealInQty,0)) As MoQty From #TmPMoLine'
      '  Group By #TmPMoLine.ItemCode) Tmp3'
      'Left Join '
      
        '(Select Tmp1.Ite_ItemCode,Tmp1.ItemCode,Tmp1.RationQty,Tmp2.Over' +
        'AgeQty From '
      
        '(Select #TmPMoLine.ItemCode As Ite_ItemCode,#TmpInvOutBillline.I' +
        'temCode As ItemCode,'
      '    Sum(Isnull(#TmpInvOutBillline.InvBillQty,0)) As RationQty'
      ' From   #TmpInvOutBillline Join  #TmPMoLine'
      
        '      On  #TmpInvOutBillline.MoNo+Convert(ChAr,#TmpInvOutBilllin' +
        'e.MoLineNo)=#TmPMoLine.MoNo+Convert(chAr,#TmPMoLine.MoLineNo)'
      '      and #TmpInvOutBillline.OverPlan=0'
      
        ' Group By   #TmPMoLine.ItemCode ,#TmpInvOutBillline.ItemCode)Tmp' +
        '1'
      ' Left Join '
      
        '(Select #TmPMoLine.ItemCode As Ite_ItemCode,#TmpInvOutBillline.I' +
        'temCode As ItemCode,'
      '    Sum(Isnull(#TmpInvOutBillline.InvBillQty,0)) As OverAgeQty'
      ' From   #TmpInvOutBillline Join  #TmPMoLine'
      
        '      On  #TmpInvOutBillline.MoNo+Convert(ChAr,#TmpInvOutBilllin' +
        'e.MoLineNo)=#TmPMoLine.MoNo+Convert(chAr,#TmPMoLine.MoLineNo)'
      '      and #TmpInvOutBillline.OverPlan=1'
      
        ' Group By   #TmPMoLine.ItemCode ,#TmpInvOutBillline.ItemCode)tmp' +
        '2'
      'On Tmp1.Ite_ItemCode=Tmp2.Ite_ItemCode'
      'and Tmp1.ItemCode=Tmp2.ItemCode) Tmp4'
      'On Tmp3.Ite_ItemCode=Tmp4.Ite_ItemCode) Tmp5'
      'join #TmpOpenBomLast on #TmpOpenBomLast.ItemCode=Tmp5.ItemCode'
      '  And #TmpOpenBomLast.Ite_ItemCode=Tmp5.Ite_ItemCode) Tmp6'
      ' ')
    Left = 344
    Top = 241
    object AdoQry_MainIte_ItemCode: TStringField
      FieldName = 'Ite_ItemCode'
      Origin = '#tmp7'
      Size = 16
    end
    object AdoQry_MainItemCode: TStringField
      FieldName = 'ItemCode'
      Origin = '#tmp7'
      Size = 16
    end
    object AdoQry_MainMoQty: TFloatField
      FieldName = 'MoQty'
      Origin = '#tmp7'
    end
    object AdoQry_MainRationQty: TFloatField
      FieldName = 'RationQty'
      Origin = '#tmp7'
    end
    object AdoQry_MainOverAgeQty: TFloatField
      FieldName = 'OverAgeQty'
      Origin = '#tmp7'
    end
    object AdoQry_MainSjdg: TFloatField
      DisplayWidth = 19
      FieldName = 'Sjdg'
      Origin = '#tmp7'
      ReadOnly = True
      DisplayFormat = '#########.#######'
    end
    object AdoQry_MainBzdg: TFloatField
      FieldName = 'Bzdg'
      Origin = '#tmp7'
    end
    object dgbl: TStringField
      FieldName = 'dgbl'
      Origin = '#tmp7'
      ReadOnly = True
      Size = 31
    end
  end
  inherited DataSource: TDataSource
    Top = 145
  end
end