ap210report.~dfm

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

      Frame.DrawBottom = False
      Frame.DrawLeft = False
      Frame.DrawRight = False
      Size.Values = (
        37.0416666666667
        285.75
        10.5833333333333
        227.541666666667)
      Alignment = taLeftJustify
      AlignToBand = False
      AutoSize = True
      AutoStretch = False
      Caption = #26412#26085#25910#27454#21512#35745':'
      Color = clWhite
      Transparent = False
      WordWrap = True
      FontSize = 10
    end
  end
  object QRBand1: TQRBand [5]
    Left = 19
    Top = 212
    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
    Size.Values = (
      105.833333333333
      2000.25)
    BandType = rbSummary
    object QRExpr1: TQRExpr
      Left = 572
      Top = 4
      Width = 183
      Height = 14
      Frame.Color = clBlack
      Frame.DrawTop = False
      Frame.DrawBottom = False
      Frame.DrawLeft = False
      Frame.DrawRight = False
      Size.Values = (
        37.0416666666667
        1513.41666666667
        10.5833333333333
        484.1875)
      Alignment = taRightJustify
      AlignToBand = False
      AutoSize = True
      AutoStretch = False
      Color = clWhite
      ResetAfterPrint = False
      Transparent = False
      WordWrap = True
      Expression = 'SUM(qyReport.TotalBalance)'
      Mask = '#,##0'
      FontSize = 10
    end
    object QRExpr2: TQRExpr
      Left = 517
      Top = 4
      Width = 162
      Height = 14
      Frame.Color = clBlack
      Frame.DrawTop = False
      Frame.DrawBottom = False
      Frame.DrawLeft = False
      Frame.DrawRight = False
      Size.Values = (
        37.0416666666667
        1367.89583333333
        10.5833333333333
        428.625)
      Alignment = taRightJustify
      AlignToBand = False
      AutoSize = True
      AutoStretch = False
      Color = clWhite
      ResetAfterPrint = False
      Transparent = False
      WordWrap = True
      Expression = 'SUM(qyReport.PayAmount)'
      Mask = '#,##0'
      FontSize = 10
    end
    object QRExpr3: TQRExpr
      Left = 438
      Top = 4
      Width = 141
      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
        373.0625)
      Alignment = taRightJustify
      AlignToBand = False
      AutoSize = True
      AutoStretch = False
      Color = clWhite
      ResetAfterPrint = False
      Transparent = False
      WordWrap = True
      Expression = 'SUM(qyReport.Others)'
      Mask = '#,##0'
      FontSize = 10
    end
    object QRExpr4: TQRExpr
      Left = 391
      Top = 4
      Width = 148
      Height = 14
      Frame.Color = clBlack
      Frame.DrawTop = False
      Frame.DrawBottom = False
      Frame.DrawLeft = False
      Frame.DrawRight = False
      Size.Values = (
        37.0416666666667
        1034.52083333333
        10.5833333333333
        391.583333333333)
      Alignment = taRightJustify
      AlignToBand = False
      AutoSize = True
      AutoStretch = False
      Color = clWhite
      ResetAfterPrint = False
      Transparent = False
      WordWrap = True
      Expression = 'SUM(qyReport.Prepaid)'
      Mask = '#,##0'
      FontSize = 10
    end
    object QRExpr5: TQRExpr
      Left = 306
      Top = 4
      Width = 169
      Height = 14
      Frame.Color = clBlack
      Frame.DrawTop = False
      Frame.DrawBottom = False
      Frame.DrawLeft = False
      Frame.DrawRight = False
      Size.Values = (
        37.0416666666667
        809.625
        10.5833333333333
        447.145833333333)
      Alignment = taRightJustify
      AlignToBand = False
      AutoSize = True
      AutoStretch = False
      Color = clWhite
      ResetAfterPrint = False
      Transparent = False
      WordWrap = True
      Expression = 'SUM(qyReport.Remittance)'
      Mask = '#,##0'
      FontSize = 10
    end
    object QRExpr6: TQRExpr
      Left = 252
      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
        666.75
        10.5833333333333
        410.104166666667)
      Alignment = taRightJustify
      AlignToBand = False
      AutoSize = True
      AutoStretch = False
      Color = clWhite
      ResetAfterPrint = False
      Transparent = False
      WordWrap = True
      Expression = 'SUM(qyReport.Discount)'
      Mask = '#,##0'
      FontSize = 10
    end
    object QRExpr7: TQRExpr
      Left = 184
      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
        486.833333333333
        10.5833333333333
        410.104166666667)
      Alignment = taRightJustify
      AlignToBand = False
      AutoSize = True
      AutoStretch = False
      Color = clWhite
      ResetAfterPrint = False
      Transparent = False
      WordWrap = True
      Expression = 'SUM(qyReport.PayCheck)'
      Mask = '#,##0'
      FontSize = 10
    end
    object QRExpr8: TQRExpr
      Left = 119
      Top = 4
      Width = 148
      Height = 14
      Frame.Color = clBlack
      Frame.DrawTop = False
      Frame.DrawBottom = False
      Frame.DrawLeft = False
      Frame.DrawRight = False
      Size.Values = (
        37.0416666666667
        314.854166666667
        10.5833333333333
        391.583333333333)
      Alignment = taRightJustify
      AlignToBand = False
      AutoSize = True
      AutoStretch = False
      Color = clWhite
      ResetAfterPrint = False
      Transparent = False
      WordWrap = True
      Expression = 'SUM(qyReport.PayCash)'
      Mask = '#,##0'
      FontSize = 10
    end
    object QRLabel19: TQRLabel
      Left = 160
      Top = 4
      Width = 34
      Height = 14
      Frame.Color = clBlack
      Frame.DrawTop = False
      Frame.DrawBottom = False
      Frame.DrawLeft = False
      Frame.DrawRight = False
      Size.Values = (
        37.0416666666667
        423.333333333333
        10.5833333333333
        89.9583333333333)
      Alignment = taLeftJustify
      AlignToBand = False
      AutoSize = True
      AutoStretch = False
      Caption = #24635#35745':'
      Color = clWhite
      Transparent = False
      WordWrap = True
      FontSize = 10
    end
  end
  inherited qyReport: TQuery
    BeforeOpen = qyReportBeforeOpen
    SQL.Strings = (
      
        'SELECT S.SupplierAttribName, M.SupplierID, M.PaymentID, M.PayDat' +
        'e,'
      'M.PayCash, M.PayCheck, M.Discount, M.Remittance, M.Prepaid,'
      'M.Others, M.PayAmount, M.TotalBalance, M.CompanyID'
      'FROM AccountPayableMaster M, Supplier S'
      'WHERE M.CompanyID = :CompanyID'
      'AND M.PayDate >= :BeginPayDate AND M.PayDate <= :EndPayDate'
      
        'AND M.SupplierID >= :BeginSupplierID AND M.SupplierID <= :EndSup' +
        'plierID'
      'AND M.CompanyID = S.CompanyID AND M.SupplierID = S.SupplierID'
      'ORDER BY M.PayDate, M.PaymentID')
    ParamData = <
      item
        DataType = ftString
        Name = 'CompanyID'
        ParamType = ptUnknown
      end
      item
        DataType = ftString
        Name = 'BeginPayDate'
        ParamType = ptUnknown
      end
      item
        DataType = ftString
        Name = 'EndPayDate'
        ParamType = ptUnknown
      end
      item
        DataType = ftString
        Name = 'BeginSupplierID'
        ParamType = ptUnknown
      end
      item
        DataType = ftString
        Name = 'EndSupplierID'
        ParamType = ptUnknown
      end>
    object qyReportSupplierID: TStringField
      FieldName = 'SupplierID'
      Origin = 'KINGSBYPRG.AccountPayableMaster.SupplierID'
      FixedChar = True
      Size = 8
    end
    object qyReportSupplierAttribName: TStringField
      FieldName = 'SupplierAttribName'
      Origin = 'KINGSBYPRG.Supplier.SupplierAttribName'
      FixedChar = True
      Size = 10
    end
    object qyReportPaymentID: TStringField
      FieldName = 'PaymentID'
      Origin = 'KINGSBYPRG.AccountPayableMaster.PaymentID'
      FixedChar = True
      Size = 10
    end
    object qyReportPayDate: TStringField
      FieldName = 'PayDate'
      Origin = 'KINGSBYPRG.AccountPayableMaster.PayDate'
      FixedChar = True
      Size = 8
    end
    object qyReportPayCash: TBCDField
      FieldName = 'PayCash'
      Origin = 'KINGSBYPRG.AccountPayableMaster.PayCash'
      DisplayFormat = '#,##0'
      Precision = 12
      Size = 0
    end
    object qyReportPayCheck: TBCDField
      FieldName = 'PayCheck'
      Origin = 'KINGSBYPRG.AccountPayableMaster.PayCheck'
      DisplayFormat = '#,##0'
      Precision = 12
      Size = 0
    end
    object qyReportDiscount: TBCDField
      FieldName = 'Discount'
      Origin = 'KINGSBYPRG.AccountReceivableMaster.Discount'
      DisplayFormat = '#,##0'
      Precision = 12
      Size = 0
    end
    object qyReportRemittance: TBCDField
      FieldName = 'Remittance'
      Origin = 'KINGSBYPRG.AccountReceivableMaster.Remittance'
      DisplayFormat = '#,##0'
      Precision = 12
      Size = 0
    end
    object qyReportPrepaid: TBCDField
      FieldName = 'Prepaid'
      Origin = 'KINGSBYPRG.AccountPayableMaster.Prepaid'
      DisplayFormat = '#,##0'
      Precision = 12
      Size = 0
    end
    object qyReportOthers: TBCDField
      FieldName = 'Others'
      Origin = 'KINGSBYPRG.AccountReceivableMaster.Others'
      DisplayFormat = '#,##0'
      Precision = 12
      Size = 0
    end
    object qyReportPayAmount: TBCDField
      FieldName = 'PayAmount'
      Origin = 'KINGSBYPRG.AccountPayableMaster.PayAmount'
      DisplayFormat = '#,##0'
      Precision = 12
      Size = 0
    end
    object qyReportTotalBalance: TBCDField
      FieldName = 'TotalBalance'
      Origin = 'KINGSBYPRG.AccountReceivableMaster.TotalBalance'
      DisplayFormat = '#,##0'
      Precision = 12
      Size = 0
    end
    object qyReportCompanyID: TStringField
      FieldName = 'CompanyID'
      Origin = 'KINGSBYPRG.AccountReceivableMaster.CompanyID'
      FixedChar = True
      Size = 2
    end
  end
  object dsReport: TDataSource
    DataSet = qyReport
    Left = 48
    Top = 36
  end
  object Query1: TQuery
    DatabaseName = 'KingsByPrg'
    DataSource = dsReport
    SQL.Strings = (
      'SELECT SUM(M.PayCash) AS PayCash, SUM(M.PayCheck) AS PayCheck,'
      'SUM(M.Discount) AS Discount, SUM(M.Remittance) AS Remittance,'
      'SUM(M.Prepaid) AS Prepaid, SUM(M.Others) AS Others,'
      
        'SUM(M.PayAmount) AS PayAmount, SUM(M.TotalBalance) AS TotalBalan' +
        'ce'
      'FROM AccountPayableMaster M'
      'WHERE M.CompanyID = :CompanyID AND M.PayDate = :PayDate')
    Left = 132
    Top = 12
    ParamData = <
      item
        DataType = ftFixedChar
        Name = 'CompanyID'
        ParamType = ptUnknown
        Size = 3
      end
      item
        DataType = ftFixedChar
        Name = 'PayDate'
        ParamType = ptUnknown
        Size = 9
      end>
    object Query1PayCash: TBCDField
      FieldName = 'PayCash'
      Origin = 'KINGSBYPRG.AccountPayableMaster.PayCash'
      DisplayFormat = '#,##0'
      Precision = 32
      Size = 0
    end
    object Query1PayCheck: TBCDField
      FieldName = 'PayCheck'
      Origin = 'KINGSBYPRG.AccountPayableMaster.PayCheck'
      DisplayFormat = '#,##0'
      Precision = 32
      Size = 0
    end
    object Query1Discount: TBCDField
      FieldName = 'Discount'
      Origin = 'KINGSBYPRG.AccountPayableMaster.Discount'
      DisplayFormat = '#,##0'
      Precision = 32
      Size = 0
    end
    object Query1Remittance: TBCDField
      FieldName = 'Remittance'
      Origin = 'KINGSBYPRG.AccountPayableMaster.Remittance'
      DisplayFormat = '#,##0'
      Precision = 32
      Size = 0
    end
    object Query1Prepaid: TBCDField
      FieldName = 'Prepaid'
      Origin = 'KINGSBYPRG.AccountPayableMaster.Prepaid'
      DisplayFormat = '#,##0'
      Precision = 32
      Size = 0
    end
    object Query1Others: TBCDField
      FieldName = 'Others'
      Origin = 'KINGSBYPRG.AccountPayableMaster.Others'
      DisplayFormat = '#,##0'
      Precision = 32
      Size = 0
    end
    object Query1PayAmount: TBCDField
      FieldName = 'PayAmount'
      Origin = 'KINGSBYPRG.AccountPayableMaster.PayAmount'
      DisplayFormat = '#,##0'
      Precision = 32
      Size = 0
    end
    object Query1TotalBalance: TBCDField
      FieldName = 'TotalBalance'
      Origin = 'KINGSBYPRG.AccountPayableMaster.TotalBalance'
      DisplayFormat = '#,##0'
      Precision = 32
      Size = 0
    end
  end
end