inv_mnoutsumqry1.dfm

一个MRPII系统源代码版本

inherited Frm_Inv_MnOutSumQry1: TFrm_Inv_MnOutSumQry1
  Left = 19
  Top = 190
  Caption = '生产领料汇总1'
  ClientHeight = 462
  ClientWidth = 769
  PixelsPerInch = 96
  TextHeight = 12
  inherited ControlBar: TControlBar
    Width = 769
  end
  inherited Pnl_Title: TPanel
    Width = 769
    Caption = '生产领料汇总1'
  end
  inherited Pnl_Head: TPanel
    Width = 769
  end
  inherited Pnl_Hint: TPanel
    Top = 421
    Width = 769
    Height = 41
    object Lab_Amount: TLabel
      Left = 545
      Top = 14
      Width = 60
      Height = 12
      Caption = '金额汇总：'
      Visible = False
    end
    object edt_Amount: TEdit
      Left = 608
      Top = 10
      Width = 137
      Height = 20
      Enabled = False
      TabOrder = 0
      Visible = False
    end
  end
  inherited Pnl_Body: TPanel
    Width = 769
    Height = 324
    inherited DBGridEh: TDBGridEh
      Width = 769
      Height = 324
      ParentFont = False
      Columns = <
        Item
          FieldName = 'Ite_ItemCode'
          PickList.Strings = ()
          Title.Caption = '父项物料代码'
          Visible = False
          KeyList.Strings = ()
        end
        Item
          FieldName = 'ItemName'
          PickList.Strings = ()
          Title.Caption = '父项物料名称'
          Visible = False
          KeyList.Strings = ()
        end
        Item
          FieldName = 'Ite_ItemFlag'
          PickList.Strings = ()
          Title.Caption = '父项物料标识'
          Width = 206
          KeyList.Strings = ()
        end
        Item
          FieldName = 'ItemCode'
          PickList.Strings = ()
          Title.Caption = '子项物料代码'
          Visible = False
          KeyList.Strings = ()
        end
        Item
          FieldName = 'ItemName_1'
          PickList.Strings = ()
          Title.Caption = '子项物料名称'
          Visible = False
          KeyList.Strings = ()
        end
        Item
          FieldName = 'ItemFlag'
          PickList.Strings = ()
          Title.Caption = '子项物料标识'
          Width = 338
          KeyList.Strings = ()
        end
        Item
          FieldName = 'InvBillQty'
          PickList.Strings = ()
          Title.Caption = '子项领用数量'
          KeyList.Strings = ()
        end
        Item
          FieldName = 'Price'
          PickList.Strings = ()
          Title.Caption = '价格'
          Width = 70
          KeyList.Strings = ()
        end
        Item
          FieldName = 'InvBillNotTaxAmount'
          PickList.Strings = ()
          Title.Caption = '金额'
          Width = 80
          KeyList.Strings = ()
        end>
    end
  end
  inherited ActionList: TActionList
    Top = 120
  end
  inherited AdoQry_Main: TAdoQuery
    ConnectionString = 
      'Provider=SQLOLEDB.1;Password=mdrcmrm;Persist Security Info=True;' +
      'User ID=mdrcmrm;Initial Catalog=mdrcmrm_B;Data Source=ZHENGJIArO' +
      'NG;Use procedure for Prepare=1;Auto Translate=True;Packet Size=4' +
      '096;Workstation ID=XYB'
    CurSorType = ctStatic
    SQL.Strings = (
      
        'Select  TmpInvOutBill.Ite_ItemCode,TmpItem1.ItemName,TmpInvOutBi' +
        'll.Ite_ItemCode+'#39#39#39' '#39#39#39'+TmpItem1.ItemName As Ite_ItemFlag,'
      
        '        TmpInvOutBill.ItemCode,TmpItem2.ItemName,TmpInvOutBill.I' +
        'temCode+'#39#39#39' '#39#39#39'+TmpItem2.ItemName As ItemFlag,'
      '        InvBillQty,Price=Case InvBillQty '
      '                        When 0 then 0 '
      '                        Else InvBillNotTaxAmount/InvBillQty*1.0 '
      '                    end,InvBillNotTaxAmount,ItemCodeFlag'
      ' From ('
      'Select MoLine.ItemCode As Ite_ItemCode,InvOutBillLine.ItemCode,'
      
        '           Sum(IsNull(InvOutBillLine.InvBillQty,0)) As InvBillQt' +
        'y,'
      
        '           Sum(Isnull(InvOutBillLine.InvBillnotaxAmount,0)) As I' +
        'nvBillNotTaxAmount,'
      '           InvOutBillLine.ItemCode As ItemCodeFlag'
      '      From InvOutBill'
      
        '           Join InvOutBillLine On InvOutBill.InvBillId=InvOutBil' +
        'lLine.InvBillID'
      
        '           Join MoLine On MoLine.MONo+Convert(varchAr,MoLine.MoL' +
        'ineNo)='
      
        '                          InvOutBill.MoNo+Convert(varchAr,InvOut' +
        'Bill.MoLineNo)'
      '     Group By  MoLine.ItemCode,InvOutBillLine.ItemCode'
      'Union'
      'Select '#39#39#39' '#39#39#39' As Ite_ItemCode,InvOutBillLine.ItemCode,'
      
        '           Sum(IsNull(InvOutBillLine.InvBillQty,0)) As InvBillQt' +
        'y,'
      
        '           Sum(Isnull(InvOutBillLine.InvBillnotaxAmount,0)) As I' +
        'nvBillNotTaxAmount,'
      '           InvOutBillLine.ItemCode+'#39#39#39' 合计'#39#39#39' As ItemCodeFlag'
      '      From InvOutBill'
      
        '           Join InvOutBillLine On InvOutBill.InvBillId=InvOutBil' +
        'lLine.InvBillID'
      '     Group By  InvOutBillLine.ItemCode      ) TmpInvOutBill'
      
        'Join Item TmpItem1 On TmpInvOutBill.Ite_ItemCode=TmpItem1.ItemCo' +
        'de'
      'Join Item TmpItem2 On TmpInvOutBill.ItemCode=TmpItem2.ItemCode'
      'Order By ItemCodeFlag'
      '')
    Top = 121
    object AdoQry_MainIte_ItemCode: TStringField
      FieldName = 'Ite_ItemCode'
      Size = 16
    end
    object AdoQry_MainItemName: TStringField
      FieldName = 'ItemName'
      Size = 80
    end
    object AdoQry_MainIte_ItemFlag: TStringField
      FieldName = 'Ite_ItemFlag'
      ReadOnly = True
      Size = 99
    end
    object AdoQry_MainItemCode: TStringField
      FieldName = 'ItemCode'
      Size = 16
    end
    object AdoQry_MainItemName_1: TStringField
      FieldName = 'ItemName_1'
      Size = 80
    end
    object AdoQry_MainItemFlag: TStringField
      FieldName = 'ItemFlag'
      ReadOnly = True
      Size = 99
    end
    object AdoQry_MainInvBillQty: TFloatField
      FieldName = 'InvBillQty'
    end
    object AdoQry_MainPrice: TFloatField
      FieldName = 'Price'
      ReadOnly = True
    end
    object AdoQry_MainInvBillNotTaxAmount: TFloatField
      FieldName = 'InvBillNotTaxAmount'
    end
    object AdoQry_MainItemCodeFlag: TStringField
      FieldName = 'ItemCodeFlag'
      Size = 23
    end
  end
  inherited ExtPrintReport: TExtPrintReport
    PAperType = ptNArrow
    Headers = <
      Item
        Name = 'Header1'
        Alignment = taLeftJustify
        FieldName = 'ItemCodeName'
        Sum = False
        DisplayWidth = 0
        Style = dsNormal
      end
      Item
        Name = 'Header2'
        Alignment = taLeftJustify
        FieldName = 'UomName'
        Sum = False
        DisplayWidth = 0
        Style = dsNormal
      end
      Item
        Name = 'Header3'
        Alignment = taLeftJustify
        FieldName = 'InvBillqty'
        Sum = True
        DisplayWidth = 0
        Style = dsNormal
      end
      Item
        Name = 'Header4'
        Alignment = taLeftJustify
        FieldName = 'Price'
        Sum = False
        DisplayWidth = 0
        Style = dsNormal
      end
      Item
        Name = 'Header5'
        Alignment = taLeftJustify
        FieldName = 'InvBillnotaxAmount'
        Sum = True
        DisplayWidth = 0
        Style = dsNormal
      end>
  end
end