pr280report.~dfm

一套融入了系统营销管理思想的管理软件产品

      Frame.DrawRight = False
      Size.Values = (
        37.0416666666667
        1775.35416666667
        10.5833333333333
        410.104166666667)
      Alignment = taRightJustify
      AlignToBand = False
      AutoSize = True
      AutoStretch = False
      Color = clWhite
      ResetAfterPrint = False
      Transparent = False
      WordWrap = True
      Expression = 'SUM(qyReport.Amount09)'
      Mask = '#,##0'
      FontSize = 10
    end
    object QRExpr6: TQRExpr
      Left = 591
      Top = 4
      Width = 155
      Height = 14
      Frame.Color = clBlack
      Frame.DrawTop = False
      Frame.DrawBottom = False
      Frame.DrawLeft = False
      Frame.DrawRight = False
      Size.Values = (
        37.0416666666667
        1563.6875
        10.5833333333333
        410.104166666667)
      Alignment = taRightJustify
      AlignToBand = False
      AutoSize = True
      AutoStretch = False
      Color = clWhite
      ResetAfterPrint = False
      Transparent = False
      WordWrap = True
      Expression = 'SUM(qyReport.Amount08)'
      Mask = '#,##0'
      FontSize = 10
    end
    object QRExpr13: TQRExpr
      Left = 515
      Top = 4
      Width = 155
      Height = 14
      Frame.Color = clBlack
      Frame.DrawTop = False
      Frame.DrawBottom = False
      Frame.DrawLeft = False
      Frame.DrawRight = False
      Size.Values = (
        37.0416666666667
        1362.60416666667
        10.5833333333333
        410.104166666667)
      Alignment = taRightJustify
      AlignToBand = False
      AutoSize = True
      AutoStretch = False
      Color = clWhite
      ResetAfterPrint = False
      Transparent = False
      WordWrap = True
      Expression = 'SUM(qyReport.Amount07)'
      Mask = '#,##0'
      FontSize = 10
    end
    object QRExpr12: TQRExpr
      Left = 438
      Top = 4
      Width = 155
      Height = 14
      Frame.Color = clBlack
      Frame.DrawTop = False
      Frame.DrawBottom = False
      Frame.DrawLeft = False
      Frame.DrawRight = False
      Size.Values = (
        37.0416666666667
        1158.875
        10.5833333333333
        410.104166666667)
      Alignment = taRightJustify
      AlignToBand = False
      AutoSize = True
      AutoStretch = False
      Color = clWhite
      ResetAfterPrint = False
      Transparent = False
      WordWrap = True
      Expression = 'SUM(qyReport.Amount06)'
      Mask = '#,##0'
      FontSize = 10
    end
    object QRExpr11: TQRExpr
      Left = 362
      Top = 4
      Width = 155
      Height = 14
      Frame.Color = clBlack
      Frame.DrawTop = False
      Frame.DrawBottom = False
      Frame.DrawLeft = False
      Frame.DrawRight = False
      Size.Values = (
        37.0416666666667
        957.791666666667
        10.5833333333333
        410.104166666667)
      Alignment = taRightJustify
      AlignToBand = False
      AutoSize = True
      AutoStretch = False
      Color = clWhite
      ResetAfterPrint = False
      Transparent = False
      WordWrap = True
      Expression = 'SUM(qyReport.Amount05)'
      Mask = '#,##0'
      FontSize = 10
    end
    object QRExpr10: TQRExpr
      Left = 286
      Top = 4
      Width = 155
      Height = 14
      Frame.Color = clBlack
      Frame.DrawTop = False
      Frame.DrawBottom = False
      Frame.DrawLeft = False
      Frame.DrawRight = False
      Size.Values = (
        37.0416666666667
        756.708333333333
        10.5833333333333
        410.104166666667)
      Alignment = taRightJustify
      AlignToBand = False
      AutoSize = True
      AutoStretch = False
      Color = clWhite
      ResetAfterPrint = False
      Transparent = False
      WordWrap = True
      Expression = 'SUM(qyReport.Amount04)'
      Mask = '#,##0'
      FontSize = 10
    end
    object QRExpr9: TQRExpr
      Left = 215
      Top = 4
      Width = 155
      Height = 14
      Frame.Color = clBlack
      Frame.DrawTop = False
      Frame.DrawBottom = False
      Frame.DrawLeft = False
      Frame.DrawRight = False
      Size.Values = (
        37.0416666666667
        568.854166666667
        10.5833333333333
        410.104166666667)
      Alignment = taRightJustify
      AlignToBand = False
      AutoSize = True
      AutoStretch = False
      Color = clWhite
      ResetAfterPrint = False
      Transparent = False
      WordWrap = True
      Expression = 'SUM(qyReport.Amount03)'
      Mask = '#,##0'
      FontSize = 10
    end
    object QRExpr8: TQRExpr
      Left = 143
      Top = 4
      Width = 155
      Height = 14
      Frame.Color = clBlack
      Frame.DrawTop = False
      Frame.DrawBottom = False
      Frame.DrawLeft = False
      Frame.DrawRight = False
      Size.Values = (
        37.0416666666667
        378.354166666667
        10.5833333333333
        410.104166666667)
      Alignment = taRightJustify
      AlignToBand = False
      AutoSize = True
      AutoStretch = False
      Color = clWhite
      ResetAfterPrint = False
      Transparent = False
      WordWrap = True
      Expression = 'SUM(qyReport.Amount02)'
      Mask = '#,##0'
      FontSize = 10
    end
    object QRExpr7: TQRExpr
      Left = 63
      Top = 4
      Width = 155
      Height = 14
      Frame.Color = clBlack
      Frame.DrawTop = False
      Frame.DrawBottom = False
      Frame.DrawLeft = False
      Frame.DrawRight = False
      Size.Values = (
        37.0416666666667
        166.6875
        10.5833333333333
        410.104166666667)
      Alignment = taRightJustify
      AlignToBand = False
      AutoSize = True
      AutoStretch = False
      Color = clWhite
      ResetAfterPrint = False
      Transparent = False
      WordWrap = True
      Expression = 'SUM(qyReport.Amount01)'
      Mask = '#,##0'
      FontSize = 10
    end
  end
  inherited qyReport: TQuery
    BeforeOpen = qyReportBeforeOpen
    SQL.Strings = (
      'SELECT A.SupplierID, S.SupplierAttribName,'
      '      (SELECT SUM(X.PurchaseAmount - X.PurchaseReturnAmount)'
      '       FROM PurchaseAnalyst X'
      '       WHERE X.CompanyID = :CompanyID'
      '       AND X.SupplierID = A.SupplierID'
      
        '       AND X.PurchaseYear = A.PurchaseYear AND X.PurchaseMonth =' +
        ' '#39'01'#39') AS Amount01,'
      '      (SELECT SUM(X.PurchaseAmount - X.PurchaseReturnAmount)'
      '       FROM PurchaseAnalyst X'
      '       WHERE X.CompanyID = :CompanyID'
      '       AND X.SupplierID = A.SupplierID'
      
        '       AND X.PurchaseYear = A.PurchaseYear AND X.PurchaseMonth =' +
        ' '#39'02'#39') AS Amount02,'
      '      (SELECT SUM(X.PurchaseAmount - X.PurchaseReturnAmount)'
      '       FROM PurchaseAnalyst X'
      '       WHERE X.CompanyID = :CompanyID'
      '       AND X.SupplierID = A.SupplierID'
      
        '       AND X.PurchaseYear = A.PurchaseYear AND X.PurchaseMonth =' +
        ' '#39'03'#39') AS Amount03,'
      '      (SELECT SUM(X.PurchaseAmount - X.PurchaseReturnAmount)'
      '       FROM PurchaseAnalyst X'
      '       WHERE X.CompanyID = :CompanyID'
      '       AND X.SupplierID = A.SupplierID'
      
        '       AND X.PurchaseYear = A.PurchaseYear AND X.PurchaseMonth =' +
        ' '#39'04'#39') AS Amount04,'
      '      (SELECT SUM(X.PurchaseAmount - X.PurchaseReturnAmount)'
      '       FROM PurchaseAnalyst X'
      '       WHERE X.CompanyID = :CompanyID'
      '       AND X.SupplierID = A.SupplierID'
      
        '       AND X.PurchaseYear = A.PurchaseYear AND X.PurchaseMonth =' +
        ' '#39'05'#39') AS Amount05,'
      '      (SELECT SUM(X.PurchaseAmount - X.PurchaseReturnAmount)'
      '       FROM PurchaseAnalyst X'
      '       WHERE X.CompanyID = :CompanyID'
      '       AND X.SupplierID = A.SupplierID'
      
        '       AND X.PurchaseYear = A.PurchaseYear AND X.PurchaseMonth =' +
        ' '#39'06'#39') AS Amount06,'
      '      (SELECT SUM(X.PurchaseAmount - X.PurchaseReturnAmount)'
      '       FROM PurchaseAnalyst X'
      '       WHERE X.CompanyID = :CompanyID'
      '       AND X.SupplierID = A.SupplierID'
      
        '       AND X.PurchaseYear = A.PurchaseYear AND X.PurchaseMonth =' +
        ' '#39'07'#39') AS Amount07,'
      '      (SELECT SUM(X.PurchaseAmount - X.PurchaseReturnAmount)'
      '       FROM PurchaseAnalyst X'
      '       WHERE X.CompanyID = :CompanyID'
      '       AND X.SupplierID = A.SupplierID'
      
        '       AND X.PurchaseYear = A.PurchaseYear AND X.PurchaseMonth =' +
        ' '#39'08'#39') AS Amount08,'
      '      (SELECT SUM(X.PurchaseAmount - X.PurchaseReturnAmount)'
      '       FROM PurchaseAnalyst X'
      '       WHERE X.CompanyID = :CompanyID'
      '       AND X.SupplierID = A.SupplierID'
      
        '       AND X.PurchaseYear = A.PurchaseYear AND X.PurchaseMonth =' +
        ' '#39'09'#39') AS Amount09,'
      '      (SELECT SUM(X.PurchaseAmount - X.PurchaseReturnAmount)'
      '       FROM PurchaseAnalyst X'
      '       WHERE X.CompanyID = :CompanyID'
      '       AND X.SupplierID = A.SupplierID'
      
        '       AND X.PurchaseYear = A.PurchaseYear AND X.PurchaseMonth =' +
        ' '#39'10'#39') AS Amount10,'
      '      (SELECT SUM(X.PurchaseAmount - X.PurchaseReturnAmount)'
      '       FROM PurchaseAnalyst X'
      '       WHERE X.CompanyID = :CompanyID'
      '       AND X.SupplierID = A.SupplierID'
      
        '       AND X.PurchaseYear = A.PurchaseYear AND X.PurchaseMonth =' +
        ' '#39'11'#39') AS Amount11,'
      '      (SELECT SUM(X.PurchaseAmount - X.PurchaseReturnAmount)'
      '       FROM PurchaseAnalyst X'
      '       WHERE X.CompanyID = :CompanyID'
      '       AND X.SupplierID = A.SupplierID'
      
        '       AND X.PurchaseYear = A.PurchaseYear AND X.PurchaseMonth =' +
        ' '#39'12'#39') AS Amount12,'
      '      (SELECT SUM(X.PurchaseAmount - X.PurchaseReturnAmount)'
      '       FROM PurchaseAnalyst X'
      '       WHERE X.CompanyID = :CompanyID'
      '       AND X.SupplierID = A.SupplierID'
      '       AND X.PurchaseYear = A.PurchaseYear) AS Amount'
      'FROM PurchaseAnalyst A, Supplier S'
      
        'WHERE A.CompanyID = :CompanyID AND A.PurchaseYear = :PurchaseYea' +
        'r'
      
        'AND A.SupplierID >= :BeginSupplierID AND A.SupplierID <= :EndSup' +
        'plierID'
      'ORDER BY A.SupplierID')
    ParamData = <
      item
        DataType = ftString
        Name = 'CompanyID'
        ParamType = ptUnknown
      end
      item
        DataType = ftString
        Name = 'CompanyID'
        ParamType = ptUnknown
      end
      item
        DataType = ftString
        Name = 'CompanyID'
        ParamType = ptUnknown
      end
      item
        DataType = ftString
        Name = 'CompanyID'
        ParamType = ptUnknown
      end
      item
        DataType = ftString
        Name = 'CompanyID'
        ParamType = ptUnknown
      end
      item
        DataType = ftString
        Name = 'CompanyID'
        ParamType = ptUnknown
      end
      item
        DataType = ftString
        Name = 'CompanyID'
        ParamType = ptUnknown
      end
      item
        DataType = ftString
        Name = 'CompanyID'
        ParamType = ptUnknown
      end
      item
        DataType = ftString
        Name = 'CompanyID'
        ParamType = ptUnknown
      end
      item
        DataType = ftString
        Name = 'CompanyID'
        ParamType = ptUnknown
      end
      item
        DataType = ftString
        Name = 'CompanyID'
        ParamType = ptUnknown
      end
      item
        DataType = ftString
        Name = 'CompanyID'
        ParamType = ptUnknown
      end
      item
        DataType = ftString
        Name = 'CompanyID'
        ParamType = ptUnknown
      end
      item
        DataType = ftString
        Name = 'CompanyID'
        ParamType = ptUnknown
      end
      item
        DataType = ftString
        Name = 'PurchaseYear'
        ParamType = ptUnknown
      end
      item
        DataType = ftString
        Name = 'BeginSupplierID'
        ParamType = ptUnknown
      end
      item
        DataType = ftString
        Name = 'EndSupplierID'
        ParamType = ptUnknown
      end>
    object qyReportSupplierID: TStringField
      FieldName = 'SupplierID'
      FixedChar = True
      Size = 8
    end
    object qyReportSupplierAttribName: TStringField
      FieldName = 'SupplierAttribName'
      FixedChar = True
      Size = 10
    end
    object qyReportAmount01: TBCDField
      FieldName = 'Amount01'
      DisplayFormat = '#,##0'
      Precision = 32
      Size = 0
    end
    object qyReportAmount02: TBCDField
      FieldName = 'Amount02'
      DisplayFormat = '#,##0'
      Precision = 32
      Size = 0
    end
    object qyReportAmount03: TBCDField
      FieldName = 'Amount03'
      DisplayFormat = '#,##0'
      Precision = 32
      Size = 0
    end
    object qyReportAmount04: TBCDField
      FieldName = 'Amount04'
      DisplayFormat = '#,##0'
      Precision = 32
      Size = 0
    end
    object qyReportAmount05: TBCDField
      FieldName = 'Amount05'
      DisplayFormat = '#,##0'
      Precision = 32
      Size = 0
    end
    object qyReportAmount06: TBCDField
      FieldName = 'Amount06'
      DisplayFormat = '#,##0'
      Precision = 32
      Size = 0
    end
    object qyReportAmount07: TBCDField
      FieldName = 'Amount07'
      DisplayFormat = '#,##0'
      Precision = 32
      Size = 0
    end
    object qyReportAmount08: TBCDField
      FieldName = 'Amount08'
      DisplayFormat = '#,##0'
      Precision = 32
      Size = 0
    end
    object qyReportAmount09: TBCDField
      FieldName = 'Amount09'
      DisplayFormat = '#,##0'
      Precision = 32
      Size = 0
    end
    object qyReportAmount10: TBCDField
      FieldName = 'Amount10'
      DisplayFormat = '#,##0'
      Precision = 32
      Size = 0
    end
    object qyReportAmount11: TBCDField
      FieldName = 'Amount11'
      DisplayFormat = '#,##0'
      Precision = 32
      Size = 0
    end
    object qyReportAmount12: TBCDField
      FieldName = 'Amount12'
      DisplayFormat = '#,##0'
      Precision = 32
      Size = 0
    end
    object qyReportAmount: TBCDField
      FieldName = 'Amount'
      DisplayFormat = '#,##0'
      Precision = 32
      Size = 0
    end
  end
end