pr240report.dfm

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

    object QRDBText9: TQRDBText
      Left = 68
      Top = 4
      Width = 85
      Height = 14
      Frame.Color = clBlack
      Frame.DrawTop = False
      Frame.DrawBottom = False
      Frame.DrawLeft = False
      Frame.DrawRight = False
      Size.Values = (
        37.0416666666667
        179.916666666667
        10.5833333333333
        224.895833333333)
      Alignment = taLeftJustify
      AlignToBand = False
      AutoSize = True
      AutoStretch = False
      Color = clWhite
      DataSet = qyReport
      DataField = 'PurchaseDate'
      Transparent = False
      WordWrap = True
      FontSize = 10
    end
  end
  object bdGroupHeader2: TQRGroup [4]
    Left = 19
    Top = 145
    Width = 756
    Height = 24
    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 = (
      63.5
      2000.25)
    Expression = 'qyReport.PurchaseID'
    Master = Owner
    ReprintOnNewPage = False
    object QRLabel13: TQRLabel
      Left = 4
      Top = 4
      Width = 60
      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
        158.75)
      Alignment = taLeftJustify
      AlignToBand = False
      AutoSize = True
      AutoStretch = False
      Caption = #36914#36008#21934#34399':'
      Color = clWhite
      Transparent = False
      WordWrap = True
      FontSize = 10
    end
    object QRDBText1: TQRDBText
      Left = 68
      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
        179.916666666667
        10.5833333333333
        187.854166666667)
      Alignment = taLeftJustify
      AlignToBand = False
      AutoSize = True
      AutoStretch = False
      Color = clWhite
      DataSet = qyReport
      DataField = 'PurchaseID'
      Transparent = False
      WordWrap = True
      FontSize = 10
    end
    object QRLabel6: TQRLabel
      Left = 148
      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
        391.583333333333
        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 QRLabel7: TQRLabel
      Left = 296
      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
        783.166666666667
        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 QRDBText3: TQRDBText
      Left = 220
      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
        582.083333333333
        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 QRDBText2: TQRDBText
      Left = 372
      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
        984.25
        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
  object QRBand1: TQRBand [5]
    Left = 19
    Top = 192
    Width = 756
    Height = 40
    Frame.Color = clBlack
    Frame.DrawTop = False
    Frame.DrawBottom = False
    Frame.DrawLeft = False
    Frame.DrawRight = False
    AlignToBottom = False
    Color = clWhite
    ForceNewColumn = False
    ForceNewPage = False
    LinkBand = bdGroupHeader2
    Size.Values = (
      105.833333333333
      2000.25)
    BandType = rbSummary
    object QRExpr2: TQRExpr
      Left = 557
      Top = 4
      Width = 197
      Height = 14
      Frame.Color = clBlack
      Frame.DrawTop = False
      Frame.DrawBottom = False
      Frame.DrawLeft = False
      Frame.DrawRight = False
      Size.Values = (
        37.0416666666667
        1473.72916666667
        10.5833333333333
        521.229166666667)
      Alignment = taRightJustify
      AlignToBand = False
      AutoSize = True
      AutoStretch = False
      Color = clWhite
      ResetAfterPrint = False
      Transparent = False
      WordWrap = True
      Expression = 'SUM(qyReport.PurchaseAmount)'
      Mask = '#,##0'
      FontSize = 10
    end
    object QRExpr1: TQRExpr
      Left = 364
      Top = 4
      Width = 211
      Height = 14
      Frame.Color = clBlack
      Frame.DrawTop = False
      Frame.DrawBottom = False
      Frame.DrawLeft = False
      Frame.DrawRight = False
      Size.Values = (
        37.0416666666667
        963.083333333333
        10.5833333333333
        558.270833333333)
      Alignment = taRightJustify
      AlignToBand = False
      AutoSize = True
      AutoStretch = False
      Color = clWhite
      ResetAfterPrint = False
      Transparent = False
      WordWrap = True
      Expression = 'SUM(qyReport.PurchaseQuantity)'
      Mask = '#,##0'
      FontSize = 10
    end
  end
  inherited qyReport: TQuery
    BeforeOpen = qyReportBeforeOpen
    SQL.Strings = (
      'SELECT M.PurchaseDate, M.PurchaseID, S.SupplierAttribName,'
      
        'D.ProductID, D.PurchaseQuantity, D.PurchaseUnitPrice, D.Purchase' +
        'Amount,'
      ' P.ProductName, M.PurchaseProperty, M.SupplierID'
      'FROM PurchaseMaster M, PurchaseDetail D, Supplier S, Product P'
      'WHERE M.CompanyID = :CompanyID'
      
        'AND M.PurchaseDate >= :BeginPurchaseDate AND M.PurchaseDate <= :' +
        'EndPurchaseDate'
      
        'AND M.SupplierID >= :BeginSupplierID AND M.SupplierID <= :EndSup' +
        'plierID'
      
        'AND M.WarehouseID >= :BeginWarehouseID AND M.WarehouseID <= :End' +
        'WarehouseID'
      
        'AND D.ProductID >= :BeginProductID AND D.ProductID <= :EndProduc' +
        'tID'
      'AND M.PurchaseProperty = '#39'8'#39
      'AND M.CompanyID = D.CompanyID AND M.PurchaseID = D.PurchaseID'
      'AND M.CompanyID = S.CompanyID AND M.SupplierID = S.SupplierID'
      'AND D.CompanyID = P.CompanyID AND D.ProductID = P.ProductID'
      'ORDER BY M.PurchaseDate, M.PurchaseID, D.PurchaseItem')
    ParamData = <
      item
        DataType = ftString
        Name = 'CompanyID'
        ParamType = ptUnknown
      end
      item
        DataType = ftString
        Name = 'BeginPurchaseDate'
        ParamType = ptUnknown
      end
      item
        DataType = ftString
        Name = 'EndPurchaseDate'
        ParamType = ptUnknown
      end
      item
        DataType = ftString
        Name = 'BeginSupplierID'
        ParamType = ptUnknown
      end
      item
        DataType = ftString
        Name = 'EndSupplierID'
        ParamType = ptUnknown
      end
      item
        DataType = ftString
        Name = 'BeginWarehouseID'
        ParamType = ptUnknown
      end
      item
        DataType = ftString
        Name = 'EndWarehouseID'
        ParamType = ptUnknown
      end
      item
        DataType = ftString
        Name = 'BeginProductID'
        ParamType = ptUnknown
      end
      item
        DataType = ftString
        Name = 'EndProductID'
        ParamType = ptUnknown
      end>
    object qyReportPurchaseDate: TStringField
      FieldName = 'PurchaseDate'
      Origin = 'KINGSBYPRG.PurchaseMaster.PurchaseDate'
      FixedChar = True
      Size = 8
    end
    object qyReportPurchaseID: TStringField
      FieldName = 'PurchaseID'
      Origin = 'KINGSBYPRG.PurchaseMaster.PurchaseID'
      FixedChar = True
      Size = 10
    end
    object qyReportSupplierID: TStringField
      FieldName = 'SupplierID'
      Origin = 'KINGSBYPRG.PurchaseMaster.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.PurchaseDetail.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.PurchaseDetail.PurchaseQuantity'
      DisplayFormat = '#,##0'
      Precision = 12
      Size = 0
    end
    object qyReportPurchaseUnitPrice: TBCDField
      FieldName = 'PurchaseUnitPrice'
      Origin = 'KINGSBYPRG.PurchaseDetail.PurchaseUnitPrice'
      DisplayFormat = '#,##0'
      Precision = 12
      Size = 0
    end
    object qyReportPurchaseAmount: TBCDField
      FieldName = 'PurchaseAmount'
      Origin = 'KINGSBYPRG.PurchaseDetail.PurchaseAmount'
      DisplayFormat = '#,##0'
      Precision = 12
      Size = 0
    end
    object qyReportPurchaseProperty: TStringField
      FieldName = 'PurchaseProperty'
      Origin = 'KINGSBYPRG.PurchaseMaster.PurchaseProperty'
      FixedChar = True
      Size = 1
    end
  end
end