pr260report.dfm

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

      Frame.DrawBottom = False
      Frame.DrawLeft = False
      Frame.DrawRight = False
      Size.Values = (
        37.0416666666667
        1145.64583333333
        10.5833333333333
        261.9375)
      Alignment = taRightJustify
      AlignToBand = False
      AutoSize = True
      AutoStretch = False
      Color = clWhite
      DataSet = qyReport
      DataField = 'PurchaseAmount'
      Transparent = False
      WordWrap = True
      FontSize = 10
    end
    object QRDBText5: TQRDBText
      Left = 303
      Top = 4
      Width = 113
      Height = 14
      Frame.Color = clBlack
      Frame.DrawTop = False
      Frame.DrawBottom = False
      Frame.DrawLeft = False
      Frame.DrawRight = False
      Size.Values = (
        37.0416666666667
        801.6875
        10.5833333333333
        298.979166666667)
      Alignment = taRightJustify
      AlignToBand = False
      AutoSize = True
      AutoStretch = False
      Color = clWhite
      DataSet = qyReport
      DataField = 'PurchaseQuantity'
      Transparent = False
      WordWrap = True
      FontSize = 10
    end
    object QRDBText4: TQRDBText
      Left = 96
      Top = 4
      Width = 78
      Height = 14
      Frame.Color = clBlack
      Frame.DrawTop = False
      Frame.DrawBottom = False
      Frame.DrawLeft = False
      Frame.DrawRight = False
      Size.Values = (
        37.0416666666667
        254
        10.5833333333333
        206.375)
      Alignment = taLeftJustify
      AlignToBand = False
      AutoSize = True
      AutoStretch = False
      Color = clWhite
      DataSet = qyReport
      DataField = 'ProductName'
      Transparent = False
      WordWrap = True
      FontSize = 10
    end
  end
  inherited bdPageFooter: TQRBand
    Top = 168
    Size.Values = (
      105.833333333333
      2000.25)
    inherited QRLabel3: TQRLabel
      Size.Values = (
        44.9791666666667
        1651
        52.9166666666667
        89.9583333333333)
      FontSize = 10
    end
    inherited UserName: TQRLabel
      Size.Values = (
        44.9791666666667
        1746.25
        52.9166666666667
        150.8125)
      FontSize = 10
    end
  end
  object brGroupHeader: TQRGroup [3]
    Left = 19
    Top = 125
    Width = 756
    Height = 20
    Frame.Color = clBlack
    Frame.DrawTop = False
    Frame.DrawBottom = False
    Frame.DrawLeft = False
    Frame.DrawRight = False
    AlignToBottom = False
    Color = clWhite
    ForceNewColumn = False
    ForceNewPage = False
    Size.Values = (
      52.9166666666667
      2000.25)
    Expression = 'qyReport.SupplierID'
    Master = Owner
    ReprintOnNewPage = False
    object QRLabel6: TQRLabel
      Left = 4
      Top = 4
      Width = 73
      Height = 14
      Frame.Color = clBlack
      Frame.DrawTop = False
      Frame.DrawBottom = False
      Frame.DrawLeft = False
      Frame.DrawRight = False
      Size.Values = (
        37.0416666666667
        10.5833333333333
        10.5833333333333
        193.145833333333)
      Alignment = taLeftJustify
      AlignToBand = False
      AutoSize = True
      AutoStretch = False
      Caption = #20379#25033#21830#32232#34399':'
      Color = clWhite
      Transparent = False
      WordWrap = True
      FontSize = 10
    end
    object QRDBText1: TQRDBText
      Left = 80
      Top = 4
      Width = 71
      Height = 14
      Frame.Color = clBlack
      Frame.DrawTop = False
      Frame.DrawBottom = False
      Frame.DrawLeft = False
      Frame.DrawRight = False
      Size.Values = (
        37.0416666666667
        211.666666666667
        10.5833333333333
        187.854166666667)
      Alignment = taLeftJustify
      AlignToBand = False
      AutoSize = True
      AutoStretch = False
      Color = clWhite
      DataSet = qyReport
      DataField = 'SupplierID'
      Transparent = False
      WordWrap = True
      FontSize = 10
    end
    object QRLabel7: TQRLabel
      Left = 168
      Top = 4
      Width = 73
      Height = 14
      Frame.Color = clBlack
      Frame.DrawTop = False
      Frame.DrawBottom = False
      Frame.DrawLeft = False
      Frame.DrawRight = False
      Size.Values = (
        37.0416666666667
        444.5
        10.5833333333333
        193.145833333333)
      Alignment = taLeftJustify
      AlignToBand = False
      AutoSize = True
      AutoStretch = False
      Caption = #20379#25033#21830#31777#31281':'
      Color = clWhite
      Transparent = False
      WordWrap = True
      FontSize = 10
    end
    object QRDBText2: TQRDBText
      Left = 244
      Top = 4
      Width = 127
      Height = 14
      Frame.Color = clBlack
      Frame.DrawTop = False
      Frame.DrawBottom = False
      Frame.DrawLeft = False
      Frame.DrawRight = False
      Size.Values = (
        37.0416666666667
        645.583333333333
        10.5833333333333
        336.020833333333)
      Alignment = taLeftJustify
      AlignToBand = False
      AutoSize = True
      AutoStretch = False
      Color = clWhite
      DataSet = qyReport
      DataField = 'SupplierAttribName'
      Transparent = False
      WordWrap = True
      FontSize = 10
    end
  end
  inherited qyReport: TQuery
    BeforeOpen = qyReportBeforeOpen
    SQL.Strings = (
      
        'SELECT S.SupplierAttribName, A.SupplierID, A.PurchaseYear, A.Pur' +
        'chaseMonth, A.ProductID, A.PurchaseQuantity, A.PurchaseAmount, A' +
        '.PurchaseReturnQuantity, A.PurchaseReturnAmount, P.ProductName'
      'FROM PurchaseAnalyst A, Supplier S, Product P'
      'WHERE A.CompanyID = :CompanyID'
      
        'AND A.SupplierID >= :BeginSupplierID AND A.SupplierID <= :EndSup' +
        'plierID'
      'AND (A.PurchaseYear + A.PurchaseMonth) >= :BeginYearMonth'
      'AND (A.PurchaseYear + A.PurchaseMonth) <= :EndYearMonth'
      'AND A.CompanyID = S.CompanyID AND A.SupplierID = S.SupplierID'
      'AND A.CompanyID = P.CompanyID AND A.ProductID = P.ProductID'
      'ORDER BY A.SupplierID, A.ProductID')
    ParamData = <
      item
        DataType = ftString
        Name = 'CompanyID'
        ParamType = ptUnknown
      end
      item
        DataType = ftString
        Name = 'BeginSupplierID'
        ParamType = ptUnknown
      end
      item
        DataType = ftString
        Name = 'EndSupplierID'
        ParamType = ptUnknown
      end
      item
        DataType = ftString
        Name = 'BeginYearMonth'
        ParamType = ptUnknown
      end
      item
        DataType = ftString
        Name = 'EndYearMonth'
        ParamType = ptUnknown
      end>
    object qyReportPurchaseYear: TStringField
      FieldName = 'PurchaseYear'
      Origin = 'KINGSBYPRG.PurchaseAnalyst.PurchaseYear'
      FixedChar = True
      Size = 2
    end
    object qyReportPurchaseMonth: TStringField
      FieldName = 'PurchaseMonth'
      Origin = 'KINGSBYPRG.PurchaseAnalyst.PurchaseMonth'
      FixedChar = True
      Size = 2
    end
    object qyReportSupplierID: TStringField
      FieldName = 'SupplierID'
      Origin = 'KINGSBYPRG.PurchaseAnalyst.SupplierID'
      FixedChar = True
      Size = 8
    end
    object qyReportSupplierAttribName: TStringField
      FieldName = 'SupplierAttribName'
      Origin = 'KINGSBYPRG.Supplier.SupplierAttribName'
      FixedChar = True
      Size = 10
    end
    object qyReportProductID: TStringField
      FieldName = 'ProductID'
      Origin = 'KINGSBYPRG.PurchaseAnalyst.ProductID'
      FixedChar = True
      Size = 10
    end
    object qyReportProductName: TStringField
      FieldName = 'ProductName'
      Origin = 'KINGSBYPRG.Product.ProductName'
      FixedChar = True
      Size = 30
    end
    object qyReportPurchaseQuantity: TBCDField
      FieldName = 'PurchaseQuantity'
      Origin = 'KINGSBYPRG.PurchaseAnalyst.PurchaseQuantity'
      DisplayFormat = '#,##0'
      Precision = 12
      Size = 0
    end
    object qyReportPurchaseAmount: TBCDField
      FieldName = 'PurchaseAmount'
      Origin = 'KINGSBYPRG.PurchaseAnalyst.PurchaseAmount'
      DisplayFormat = '#,##0'
      Precision = 12
      Size = 0
    end
    object qyReportPurchaseReturnQuantity: TBCDField
      FieldName = 'PurchaseReturnQuantity'
      Origin = 'KINGSBYPRG.PurchaseAnalyst.PurchaseReturnQuantity'
      DisplayFormat = '#,##0'
      Precision = 12
      Size = 0
    end
    object qyReportPurchaseReturnAmount: TBCDField
      FieldName = 'PurchaseReturnAmount'
      Origin = 'KINGSBYPRG.PurchaseAnalyst.PurchaseReturnAmount'
      DisplayFormat = '#,##0'
      Precision = 12
      Size = 0
    end
  end
end