ar210report.dfm

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

      AutoSize = True
      AutoStretch = False
      Caption = #26412#26085#25910#27454#21512#35336':'
      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 = 611
      Top = 4
      Width = 144
      Height = 14
      Frame.Color = clBlack
      Frame.DrawTop = False
      Frame.DrawBottom = False
      Frame.DrawLeft = False
      Frame.DrawRight = False
      Size.Values = (
        37.0416666666667
        1616.60416666667
        10.5833333333333
        381)
      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 = 519
      Top = 4
      Width = 160
      Height = 14
      Frame.Color = clBlack
      Frame.DrawTop = False
      Frame.DrawBottom = False
      Frame.DrawLeft = False
      Frame.DrawRight = False
      Size.Values = (
        37.0416666666667
        1373.1875
        10.5833333333333
        423.333333333333)
      Alignment = taRightJustify
      AlignToBand = False
      AutoSize = True
      AutoStretch = False
      Color = clWhite
      ResetAfterPrint = False
      Transparent = False
      WordWrap = True
      Expression = 'SUM(qyReport.ReceiveAmount)'
      Mask = '#,##0'
      FontSize = 10
    end
    object QRExpr3: TQRExpr
      Left = 464
      Top = 4
      Width = 115
      Height = 14
      Frame.Color = clBlack
      Frame.DrawTop = False
      Frame.DrawBottom = False
      Frame.DrawLeft = False
      Frame.DrawRight = False
      Size.Values = (
        37.0416666666667
        1227.66666666667
        10.5833333333333
        304.270833333333)
      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 = 414
      Top = 4
      Width = 125
      Height = 14
      Frame.Color = clBlack
      Frame.DrawTop = False
      Frame.DrawBottom = False
      Frame.DrawLeft = False
      Frame.DrawRight = False
      Size.Values = (
        37.0416666666667
        1095.375
        10.5833333333333
        330.729166666667)
      Alignment = taRightJustify
      AlignToBand = False
      AutoSize = True
      AutoStretch = False
      Color = clWhite
      ResetAfterPrint = False
      Transparent = False
      WordWrap = True
      Expression = 'SUM(qyReport.Advance)'
      Mask = '#,##0'
      FontSize = 10
    end
    object QRExpr5: TQRExpr
      Left = 339
      Top = 4
      Width = 136
      Height = 14
      Frame.Color = clBlack
      Frame.DrawTop = False
      Frame.DrawBottom = False
      Frame.DrawLeft = False
      Frame.DrawRight = False
      Size.Values = (
        37.0416666666667
        896.9375
        10.5833333333333
        359.833333333333)
      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 = 281
      Top = 4
      Width = 126
      Height = 14
      Frame.Color = clBlack
      Frame.DrawTop = False
      Frame.DrawBottom = False
      Frame.DrawLeft = False
      Frame.DrawRight = False
      Size.Values = (
        37.0416666666667
        743.479166666667
        10.5833333333333
        333.375)
      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 = 189
      Top = 4
      Width = 150
      Height = 14
      Frame.Color = clBlack
      Frame.DrawTop = False
      Frame.DrawBottom = False
      Frame.DrawLeft = False
      Frame.DrawRight = False
      Size.Values = (
        37.0416666666667
        500.0625
        10.5833333333333
        396.875)
      Alignment = taRightJustify
      AlignToBand = False
      AutoSize = True
      AutoStretch = False
      Color = clWhite
      ResetAfterPrint = False
      Transparent = False
      WordWrap = True
      Expression = 'SUM(qyReport.ReceiveCheck)'
      Mask = '#,##0'
      FontSize = 10
    end
    object QRExpr8: TQRExpr
      Left = 123
      Top = 4
      Width = 144
      Height = 14
      Frame.Color = clBlack
      Frame.DrawTop = False
      Frame.DrawBottom = False
      Frame.DrawLeft = False
      Frame.DrawRight = False
      Size.Values = (
        37.0416666666667
        325.4375
        10.5833333333333
        381)
      Alignment = taRightJustify
      AlignToBand = False
      AutoSize = True
      AutoStretch = False
      Color = clWhite
      ResetAfterPrint = False
      Transparent = False
      WordWrap = True
      Expression = 'SUM(qyReport.ReceiveCash)'
      Mask = '#,##0'
      FontSize = 10
    end
    object QRLabel19: TQRLabel
      Left = 160
      Top = 4
      Width = 30
      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
        79.375)
      Alignment = taLeftJustify
      AlignToBand = False
      AutoSize = True
      AutoStretch = False
      Caption = #32317#35336':'
      Color = clWhite
      Transparent = False
      WordWrap = True
      FontSize = 10
    end
  end
  inherited qyReport: TQuery
    BeforeOpen = qyReportBeforeOpen
    SQL.Strings = (
      
        'SELECT R.CustomerAttribName, M.CustomerID, M.ReceiveID, M.Receiv' +
        'eDate,'
      
        'M.ReceiveCash, M.ReceiveCheck, M.Discount, M.Remittance, M.Advan' +
        'ce,'
      'M.Others, M.ReceiveAmount, M.TotalBalance, M.CompanyID'
      'FROM AccountReceivableMaster M, CustomerMaster R'
      'WHERE M.CompanyID = :CompanyID'
      
        'AND M.ReceiveDate >= :BeginReceiveDate AND M.ReceiveDate <= :End' +
        'ReceiveDate'
      
        'AND M.CustomerID >= :BeginCustomerID AND M.CustomerID <= :EndCus' +
        'tomerID'
      'AND M.CompanyID = R.CompanyID AND M.CustomerID = R.CustomerID'
      'ORDER BY M.ReceiveDate, M.ReceiveID')
    ParamData = <
      item
        DataType = ftString
        Name = 'CompanyID'
        ParamType = ptUnknown
      end
      item
        DataType = ftString
        Name = 'BeginReceiveDate'
        ParamType = ptUnknown
      end
      item
        DataType = ftString
        Name = 'EndReceiveDate'
        ParamType = ptUnknown
      end
      item
        DataType = ftString
        Name = 'BeginCustomerID'
        ParamType = ptUnknown
      end
      item
        DataType = ftString
        Name = 'EndCustomerID'
        ParamType = ptUnknown
      end>
    object qyReportCustomerAttribName: TStringField
      FieldName = 'CustomerAttribName'
      Origin = 'KINGSBYPRG.CustomerMaster.CustomerAttribName'
      FixedChar = True
      Size = 10
    end
    object qyReportCustomerID: TStringField
      FieldName = 'CustomerID'
      Origin = 'KINGSBYPRG.AccountReceivableMaster.CustomerID'
      FixedChar = True
      Size = 8
    end
    object qyReportReceiveID: TStringField
      FieldName = 'ReceiveID'
      Origin = 'KINGSBYPRG.AccountReceivableMaster.ReceiveID'
      FixedChar = True
      Size = 10
    end
    object qyReportReceiveDate: TStringField
      FieldName = 'ReceiveDate'
      Origin = 'KINGSBYPRG.AccountReceivableMaster.ReceiveDate'
      FixedChar = True
      Size = 8
    end
    object qyReportReceiveCash: TBCDField
      FieldName = 'ReceiveCash'
      Origin = 'KINGSBYPRG.AccountReceivableMaster.ReceiveCash'
      DisplayFormat = '#,##0'
      Precision = 12
      Size = 0
    end
    object qyReportReceiveCheck: TBCDField
      FieldName = 'ReceiveCheck'
      Origin = 'KINGSBYPRG.AccountReceivableMaster.ReceiveCheck'
      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 qyReportAdvance: TBCDField
      FieldName = 'Advance'
      Origin = 'KINGSBYPRG.AccountReceivableMaster.Advance'
      DisplayFormat = '#,##0'
      Precision = 12
      Size = 0
    end
    object qyReportOthers: TBCDField
      FieldName = 'Others'
      Origin = 'KINGSBYPRG.AccountReceivableMaster.Others'
      DisplayFormat = '#,##0'
      Precision = 12
      Size = 0
    end
    object qyReportReceiveAmount: TBCDField
      FieldName = 'ReceiveAmount'
      Origin = 'KINGSBYPRG.AccountReceivableMaster.ReceiveAmount'
      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.ReceiveCash) AS ReceiveCash, SUM(M.ReceiveCheck) AS' +
        ' ReceiveCheck,'
      'SUM(M.Discount) AS Discount, SUM(M.Remittance) AS Remittance,'
      'SUM(M.Advance) AS Advance, SUM(M.Others) AS Others,'
      
        'SUM(M.ReceiveAmount) AS ReceiveAmount, SUM(M.TotalBalance) AS To' +
        'talBalance'
      'FROM AccountReceivableMaster M'
      'WHERE M.CompanyID = :CompanyID AND M.ReceiveDate = :ReceiveDate'
      '')
    Left = 132
    Top = 12
    ParamData = <
      item
        DataType = ftFixedChar
        Name = 'CompanyID'
        ParamType = ptUnknown
        Size = 3
      end
      item
        DataType = ftFixedChar
        Name = 'ReceiveDate'
        ParamType = ptUnknown
        Size = 9
      end>
    object Query1ReceiveCash: TBCDField
      FieldName = 'ReceiveCash'
      Origin = 'KINGSBYPRG.AccountReceivableMaster.ReceiveCash'
      DisplayFormat = '#,##0'
      Precision = 32
      Size = 0
    end
    object Query1ReceiveCheck: TBCDField
      FieldName = 'ReceiveCheck'
      Origin = 'KINGSBYPRG.AccountReceivableMaster.ReceiveCheck'
      DisplayFormat = '#,##0'
      Precision = 32
      Size = 0
    end
    object Query1Discount: TBCDField
      FieldName = 'Discount'
      Origin = 'KINGSBYPRG.AccountReceivableMaster.Discount'
      DisplayFormat = '#,##0'
      Precision = 32
      Size = 0
    end
    object Query1Remittance: TBCDField
      FieldName = 'Remittance'
      Origin = 'KINGSBYPRG.AccountReceivableMaster.Remittance'
      DisplayFormat = '#,##0'
      Precision = 32
      Size = 0
    end
    object Query1Advance: TBCDField
      FieldName = 'Advance'
      Origin = 'KINGSBYPRG.AccountReceivableMaster.Advance'
      DisplayFormat = '#,##0'
      Precision = 32
      Size = 0
    end
    object Query1Others: TBCDField
      FieldName = 'Others'
      Origin = 'KINGSBYPRG.AccountReceivableMaster.Others'
      DisplayFormat = '#,##0'
      Precision = 32
      Size = 0
    end
    object Query1ReceiveAmount: TBCDField
      FieldName = 'ReceiveAmount'
      Origin = 'KINGSBYPRG.AccountReceivableMaster.ReceiveAmount'
      DisplayFormat = '#,##0'
      Precision = 32
      Size = 0
    end
    object Query1TotalBalance: TBCDField
      FieldName = 'TotalBalance'
      Origin = 'KINGSBYPRG.AccountReceivableMaster.TotalBalance'
      DisplayFormat = '#,##0'
      Precision = 32
      Size = 0
    end
  end
end