sum060report.dfm

电子充值系统:全球通的充值卡通过POS机传到销售点.

      DataField = 'OUTCOUNT'
      Transparent = False
      WordWrap = True
      FontSize = 10
    end
    object QRDBText7: TQRDBText
      Left = 416
      Top = 4
      Width = 36
      Height = 14
      Frame.Color = clBlack
      Frame.DrawTop = False
      Frame.DrawBottom = False
      Frame.DrawLeft = False
      Frame.DrawRight = False
      Size.Values = (
        37.0416666666667
        1100.66666666667
        10.5833333333333
        95.25)
      Alignment = taRightJustify
      AlignToBand = False
      AutoSize = True
      AutoStretch = False
      Color = clWhite
      DataSet = qyReport
      DataField = 'INSUM'
      Transparent = False
      WordWrap = True
      FontSize = 10
    end
    object QRDBText6: TQRDBText
      Left = 282
      Top = 4
      Width = 50
      Height = 14
      Frame.Color = clBlack
      Frame.DrawTop = False
      Frame.DrawBottom = False
      Frame.DrawLeft = False
      Frame.DrawRight = False
      Size.Values = (
        37.0416666666667
        746.125
        10.5833333333333
        132.291666666667)
      Alignment = taRightJustify
      AlignToBand = False
      AutoSize = True
      AutoStretch = False
      Color = clWhite
      DataSet = qyReport
      DataField = 'INCOUNT'
      Transparent = False
      WordWrap = True
      FontSize = 10
    end
    object QRDBText1: TQRDBText
      Left = 658
      Top = 4
      Width = 43
      Height = 14
      Frame.Color = clBlack
      Frame.DrawTop = False
      Frame.DrawBottom = False
      Frame.DrawLeft = False
      Frame.DrawRight = False
      Size.Values = (
        37.0416666666667
        1740.95833333333
        10.5833333333333
        113.770833333333)
      Alignment = taRightJustify
      AlignToBand = False
      AutoSize = True
      AutoStretch = False
      Color = clWhite
      DataSet = qyReport
      DataField = 'OUTSUM'
      Transparent = False
      WordWrap = True
      FontSize = 10
    end
    object QRDBText2: TQRDBText
      Left = 96
      Top = 4
      Width = 57
      Height = 14
      Frame.Color = clBlack
      Frame.DrawTop = False
      Frame.DrawBottom = False
      Frame.DrawLeft = False
      Frame.DrawRight = False
      Size.Values = (
        37.0416666666667
        254
        10.5833333333333
        150.8125)
      Alignment = taLeftJustify
      AlignToBand = False
      AutoSize = True
      AutoStretch = False
      Color = clWhite
      DataSet = qyReport
      DataField = 'CARDTYPE'
      Transparent = False
      WordWrap = True
      FontSize = 10
    end
  end
  inherited bdPageFooter: TQRBand
    Top = 188
    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 QRBand1: TQRBand [3]
    Left = 19
    Top = 148
    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 QRExpr4: TQRExpr
      Left = 560
      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
        1481.66666666667
        10.5833333333333
        373.0625)
      Alignment = taRightJustify
      AlignToBand = False
      AutoSize = True
      AutoStretch = False
      Color = clWhite
      ResetAfterPrint = False
      Transparent = False
      WordWrap = True
      Expression = 'SUM(qyReport.OUTSUM)'
      Mask = '#,##0'
      FontSize = 10
    end
    object QRExpr3: TQRExpr
      Left = 427
      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
        1129.77083333333
        10.5833333333333
        410.104166666667)
      Alignment = taRightJustify
      AlignToBand = False
      AutoSize = True
      AutoStretch = False
      Color = clWhite
      ResetAfterPrint = False
      Transparent = False
      WordWrap = True
      Expression = 'SUM(qyReport.OUTCOUNT)'
      Mask = '#,##0'
      FontSize = 10
    end
    object QRExpr2: TQRExpr
      Left = 322
      Top = 4
      Width = 134
      Height = 14
      Frame.Color = clBlack
      Frame.DrawTop = False
      Frame.DrawBottom = False
      Frame.DrawLeft = False
      Frame.DrawRight = False
      Size.Values = (
        37.0416666666667
        851.958333333333
        10.5833333333333
        354.541666666667)
      Alignment = taRightJustify
      AlignToBand = False
      AutoSize = True
      AutoStretch = False
      Color = clWhite
      ResetAfterPrint = False
      Transparent = False
      WordWrap = True
      Expression = 'SUM(qyReport.INSUM)'
      Mask = '#,##0'
      FontSize = 10
    end
    object QRExpr1: TQRExpr
      Left = 185
      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
        489.479166666667
        10.5833333333333
        391.583333333333)
      Alignment = taRightJustify
      AlignToBand = False
      AutoSize = True
      AutoStretch = False
      Color = clWhite
      ResetAfterPrint = False
      Transparent = False
      WordWrap = True
      Expression = 'SUM(qyReport.INCOUNT)'
      Mask = '#,##0'
      FontSize = 10
    end
    object QRLabel6: TQRLabel
      Left = 24
      Top = 4
      Width = 40
      Height = 14
      Frame.Color = clBlack
      Frame.DrawTop = False
      Frame.DrawBottom = False
      Frame.DrawLeft = False
      Frame.DrawRight = False
      Size.Values = (
        37.0416666666667
        63.5
        10.5833333333333
        105.833333333333)
      Alignment = taLeftJustify
      AlignToBand = False
      AutoSize = True
      AutoStretch = False
      Caption = #21512#35745#65306
      Color = clWhite
      Transparent = False
      WordWrap = True
      FontSize = 10
    end
  end
  inherited qyReport: TQuery
    DatabaseName = 'ePaperApp'
    SQL.Strings = (
      ''
      'select CardType,CardParValue,opDate,'
      '  sum(InCount) as InCount,sum(InSum) as InSum,'
      '  sum(OutCount) as OutCount,sum(OutSum) as OutSum'
      'from ('
      
        '    select CardType,CardParValue,to_char(CreateDate,'#39'yyyy-mm-dd'#39 +
        ') as opDate,'
      '       InCount,InSum,OutCount,OutSum'
      '    from('
      '        select CardType,CardParValue,CreateDate,'
      '           sum(1) as InCount,sum(CardParValue) as InSum,'
      '           0 as OutCount, 0 as OutSum'
      '        from Pwpt_CardStock '
      
        '        where CreateDate >= :BeginDate and CreateDate <= :EndDat' +
        'e '
      '        group by CreateDate,CardType,CardParValue'
      '        union '
      '        select CardType,CardParValue,OutDate,'
      '           0, 0,'
      '           sum(1) as OutCount, sum( CardParValue) as OutSum'
      '           from Pwpt_CardStock'
      
        '           where OutDate >= :BeginDate and OutDate <= :EndDate a' +
        'nd bOut='#39'1'#39'  '
      '           group by OutDate,CardType,CardParValue'
      '        )'
      '     )'
      'group by opDate,CardType,CardParValue'
      'order by opDate,CardType,CardParValue')
    ParamData = <
      item
        DataType = ftDateTime
        Name = 'BeginDate'
        ParamType = ptUnknown
      end
      item
        DataType = ftDateTime
        Name = 'EndDate'
        ParamType = ptUnknown
      end
      item
        DataType = ftDateTime
        Name = 'BeginDate'
        ParamType = ptUnknown
      end
      item
        DataType = ftDateTime
        Name = 'EndDate'
        ParamType = ptUnknown
      end>
    object qyReportCARDTYPE: TStringField
      FieldName = 'CARDTYPE'
    end
    object qyReportCARDPARVALUE: TFloatField
      FieldName = 'CARDPARVALUE'
    end
    object qyReportINCOUNT: TFloatField
      FieldName = 'INCOUNT'
    end
    object qyReportINSUM: TFloatField
      FieldName = 'INSUM'
    end
    object qyReportOUTCOUNT: TFloatField
      FieldName = 'OUTCOUNT'
    end
    object qyReportOUTSUM: TFloatField
      FieldName = 'OUTSUM'
    end
    object qyReportOPDATE: TStringField
      FieldName = 'OPDATE'
      Size = 10
    end
  end
end