한국 델파이 개발자 모임 - 그룹헤더에 소계를 출력하는 방법은??

그룹헤더에 소계를 출력하는 방법은??

질문과 같이 그룹헤더에 소계가 나타나게 하면 해결이 될듯 싶습니다.
데이터셋 그리고 그룹밴드를 사용하였습니다.
그룹헤더에 소계가 필요한것은 선택 출력시 그룹헤더의 사용여부를 판단하기 위해서 입니다.
건수가 0건 이상일때만 그룹헤더에 출력하려고 하는데 이벤트 순서가 그룹헤더 후에 디테일이 출력되니 헤더에 소계가 원하는 값이 나오지 않습니다.
그룹이벤트를 재호출 할수도 없는것 같고해서.
이런경우에 어떻게 하면 되는지 알려주시면 감사하겠습니다.
수고하세요~

이 게시물을

1 COMMENTS

nilriri™ • 2006.11.11 01:19

퀵레포트라면...     QuickRep1.Prepare 를 이용하시면 될듯 싶습니다.

그리고 기본적으로 그룹헤더는 디테일벤드가 존재할때만 찍히는 거구요..

디테일이 없이 그룹헤더가 찍힌다면 뭔가 다른 버그일듯 싶습니다...^^

아래는 간단한 테스트 셈플의 pas소스 입니다.



unit Unit1;

interface

uses
   Windows,
   Messages,
   SysUtils,
   Variants,
   Classes,
   Graphics,
   Controls,
   Forms,
   Dialogs,
   DB,
   DBTables,
   QRCtrls,
   QuickRpt,
   ExtCtrls,
   StdCtrls;

type
   TForm1 = class(TForm)
      QuickRep1 : TQuickRep;
      DetailBand1 : TQRBand;
      PageHeaderBand1 : TQRBand;
      PageFooterBand1 : TQRBand;
      ColumnHeaderBand1 : TQRBand;
      SummaryBand1 : TQRBand;
      TitleBand1 : TQRBand;
      QRLabel1 : TQRLabel;
      QRLabel2 : TQRLabel;
      QRLabel3 : TQRLabel;
      QRLabel4 : TQRLabel;
      QRLabel5 : TQRLabel;
      QRLabel6 : TQRLabel;
      QRBand1 : TQRBand;
      QRGroup1 : TQRGroup;
      QRLabel7 : TQRLabel;
      QRLabel8 : TQRLabel;
      QRDBText1 : TQRDBText;
      QRDBText2 : TQRDBText;
      QRExpr1 : TQRExpr;
      Query1 : TQuery;
      Button1 : TButton;
      QRLabel9 : TQRLabel;
      procedure Button1Click(Sender : TObject);
      procedure QRLabel9Print(sender : TObject; var Value : string);
      procedure QRExpr1Print(sender : TObject; var Value : string);
      procedure QuickRep1BeforePrint(Sender : TCustomQuickRep;
         var PrintReport : Boolean);
      procedure QRGroup1BeforePrint(Sender : TQRCustomBand;
         var PrintBand : Boolean);
      procedure FormClose(Sender : TObject; var Action : TCloseAction);
      procedure FormCreate(Sender : TObject);
   private
      { Private declarations }
      idx : integer;
      isPrepare : boolean;
      list : TStrings;
   public
      { Public declarations }
   end;

var
   Form1 : TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender : TObject);
begin
   isPrepare := True;
   self.QuickRep1.Prepare;

   isPrepare := False;

   self.QuickRep1.PreviewModal;
end;

procedure TForm1.QRLabel9Print(sender : TObject; var Value : string);
begin
   if List.Count > idx then
      Value := List.Strings[idx];
end;

procedure TForm1.QRExpr1Print(sender : TObject; var Value : string);
begin
   List.Add(Value);
end;

procedure TForm1.QuickRep1BeforePrint(Sender : TCustomQuickRep;
   var PrintReport : Boolean);
begin
   if isPrepare then
      List.Clear;

   idx := -1;
end;

procedure TForm1.QRGroup1BeforePrint(Sender : TQRCustomBand;
   var PrintBand : Boolean);
begin
   idx := idx + 1;
end;

procedure TForm1.FormClose(Sender : TObject; var Action : TCloseAction);
begin
   List.Clear;
   List.Free;
end;

procedure TForm1.FormCreate(Sender : TObject);
begin
   list := TStringList.Create;
end;

end.



dfm파일 내용 ^^

object Form1: TForm1
  Left = 344
  Top = 152
  Width = 870
  Height = 640
  Caption = 'Form1'
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  Scaled = False
  OnClose = FormClose
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 13
  object QuickRep1: TQuickRep
    Left = 55
    Top = 87
    Width = 794
    Height = 1123
    Frame.Color = clBlack
    Frame.DrawTop = False
    Frame.DrawBottom = False
    Frame.DrawLeft = False
    Frame.DrawRight = False
    BeforePrint = QuickRep1BeforePrint
    DataSet = Query1
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -13
    Font.Name = 'Arial'
    Font.Style = []
    Functions.Strings = (
      'PAGENUMBER'
      'COLUMNNUMBER'
      'REPORTTITLE')
    Functions.DATA = (
      '0'
      '0'
      '''''')
    Options = [FirstPageHeader, LastPageFooter]
    Page.Columns = 1
    Page.Orientation = poPortrait
    Page.PaperSize = A4
    Page.Values = (
      100.000000000000000000
      2970.000000000000000000
      100.000000000000000000
      2100.000000000000000000
      100.000000000000000000
      100.000000000000000000
      0.000000000000000000)
    PrinterSettings.Copies = 1
    PrinterSettings.OutputBin = Auto
    PrinterSettings.Duplex = False
    PrinterSettings.FirstPage = 0
    PrinterSettings.LastPage = 0
    PrinterSettings.ExtendedDuplex = 0
    PrinterSettings.UseStandardprinter = False
    PrinterSettings.UseCustomBinCode = False
    PrinterSettings.CustomBinCode = 0
    PrinterSettings.UseCustomPaperCode = False
    PrinterSettings.CustomPaperCode = 0
    PrinterSettings.PrintMetaFile = False
    PrintIfEmpty = True
    SnapToGrid = True
    Units = MM
    Zoom = 100
    PrevFormStyle = fsNormal
    PreviewInitialState = wsNormal
    object DetailBand1: TQRBand
      Left = 38
      Top = 198
      Width = 718
      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.833333333333300000
        1899.708333333333000000)
      BandType = rbDetail
      object QRLabel4: TQRLabel
        Left = 8
        Top = 12
        Width = 34
        Height = 17
        Frame.Color = clBlack
        Frame.DrawTop = False
        Frame.DrawBottom = False
        Frame.DrawLeft = False
        Frame.DrawRight = False
        Size.Values = (
          44.979166666666670000
          21.166666666666670000
          31.750000000000000000
          89.958333333333340000)
        Alignment = taLeftJustify
        AlignToBand = False
        AutoSize = True
        AutoStretch = False
        Caption = 'Detail'
        Color = clWhite
        Transparent = True
        WordWrap = True
        FontSize = 10
      end
      object QRDBText1: TQRDBText
        Left = 248
        Top = 13
        Width = 72
        Height = 17
        Frame.Color = clBlack
        Frame.DrawTop = False
        Frame.DrawBottom = False
        Frame.DrawLeft = False
        Frame.DrawRight = False
        Size.Values = (
          44.979166666666670000
          656.166666666666800000
          34.395833333333340000
          190.500000000000000000)
        Alignment = taLeftJustify
        AlignToBand = False
        AutoSize = True
        AutoStretch = False
        Color = clWhite
        DataSet = Query1
        DataField = 'AmountPaid'
        Transparent = True
        WordWrap = True
        FontSize = 10
      end
      object QRDBText2: TQRDBText
        Left = 150
        Top = 13
        Width = 44
        Height = 17
        Frame.Color = clBlack
        Frame.DrawTop = False
        Frame.DrawBottom = False
        Frame.DrawLeft = False
        Frame.DrawRight = False
        Size.Values = (
          44.979166666666670000
          396.875000000000000000
          34.395833333333340000
          116.416666666666700000)
        Alignment = taLeftJustify
        AlignToBand = False
        AutoSize = True
        AutoStretch = False
        Color = clWhite
        DataSet = Query1
        DataField = 'CustNo'
        Transparent = True
        WordWrap = True
        FontSize = 10
      end
    end
    object PageHeaderBand1: TQRBand
      Left = 38
      Top = 38
      Width = 718
      Height = 40
      Frame.Color = clBlack
      Frame.DrawTop = False
      Frame.DrawBottom = False
      Frame.DrawLeft = False
      Frame.DrawRight = False
      AlignToBottom = False
      Color = 13688765
      ForceNewColumn = False
      ForceNewPage = False
      Size.Values = (
        105.833333333333300000
        1899.708333333333000000)
      BandType = rbPageHeader
      object QRLabel1: TQRLabel
        Left = 8
        Top = 12
        Width = 72
        Height = 17
        Frame.Color = clBlack
        Frame.DrawTop = False
        Frame.DrawBottom = False
        Frame.DrawLeft = False
        Frame.DrawRight = False
        Size.Values = (
          44.979166666666670000
          21.166666666666670000
          31.750000000000000000
          190.500000000000000000)
        Alignment = taLeftJustify
        AlignToBand = False
        AutoSize = True
        AutoStretch = False
        Caption = 'PageHeader'
        Color = clWhite
        Transparent = True
        WordWrap = True
        FontSize = 10
      end
    end
    object PageFooterBand1: TQRBand
      Left = 38
      Top = 318
      Width = 718
      Height = 40
      Frame.Color = clBlack
      Frame.DrawTop = False
      Frame.DrawBottom = False
      Frame.DrawLeft = False
      Frame.DrawRight = False
      AlignToBottom = False
      Color = 13688765
      ForceNewColumn = False
      ForceNewPage = False
      Size.Values = (
        105.833333333333300000
        1899.708333333333000000)
      BandType = rbPageFooter
      object QRLabel6: TQRLabel
        Left = 8
        Top = 12
        Width = 68
        Height = 17
        Frame.Color = clBlack
        Frame.DrawTop = False
        Frame.DrawBottom = False
        Frame.DrawLeft = False
        Frame.DrawRight = False
        Size.Values = (
          44.979166666666670000
          21.166666666666670000
          31.750000000000000000
          179.916666666666700000)
        Alignment = taLeftJustify
        AlignToBand = False
        AutoSize = True
        AutoStretch = False
        Caption = 'PageFooter'
        Color = clWhite
        Transparent = True
        WordWrap = True
        FontSize = 10
      end
    end
    object ColumnHeaderBand1: TQRBand
      Left = 38
      Top = 118
      Width = 718
      Height = 40
      Frame.Color = clBlack
      Frame.DrawTop = False
      Frame.DrawBottom = False
      Frame.DrawLeft = False
      Frame.DrawRight = False
      AlignToBottom = False
      Color = 14680047
      ForceNewColumn = False
      ForceNewPage = False
      Size.Values = (
        105.833333333333300000
        1899.708333333333000000)
      BandType = rbColumnHeader
      object QRLabel3: TQRLabel
        Left = 8
        Top = 7
        Width = 86
        Height = 17
        Frame.Color = clBlack
        Frame.DrawTop = False
        Frame.DrawBottom = False
        Frame.DrawLeft = False
        Frame.DrawRight = False
        Size.Values = (
          44.979166666666670000
          21.166666666666670000
          18.520833333333330000
          227.541666666666700000)
        Alignment = taLeftJustify
        AlignToBand = False
        AutoSize = True
        AutoStretch = False
        Caption = 'ColumnHeader'
        Color = clWhite
        Transparent = True
        WordWrap = True
        FontSize = 10
      end
    end
    object SummaryBand1: TQRBand
      Left = 38
      Top = 278
      Width = 718
      Height = 40
      Frame.Color = clBlack
      Frame.DrawTop = False
      Frame.DrawBottom = False
      Frame.DrawLeft = False
      Frame.DrawRight = False
      AlignToBottom = False
      Color = 11599871
      ForceNewColumn = False
      ForceNewPage = False
      Size.Values = (
        105.833333333333300000
        1899.708333333333000000)
      BandType = rbSummary
      object QRLabel5: TQRLabel
        Left = 8
        Top = 12
        Width = 57
        Height = 17
        Frame.Color = clBlack
        Frame.DrawTop = False
        Frame.DrawBottom = False
        Frame.DrawLeft = False
        Frame.DrawRight = False
        Size.Values = (
          44.979166666666670000
          21.166666666666670000
          31.750000000000000000
          150.812500000000000000)
        Alignment = taLeftJustify
        AlignToBand = False
        AutoSize = True
        AutoStretch = False
        Caption = 'Summary'
        Color = clWhite
        Transparent = True
        WordWrap = True
        FontSize = 10
      end
    end
    object TitleBand1: TQRBand
      Left = 38
      Top = 78
      Width = 718
      Height = 40
      Frame.Color = clBlack
      Frame.DrawTop = False
      Frame.DrawBottom = False
      Frame.DrawLeft = False
      Frame.DrawRight = False
      AlignToBottom = False
      Color = 16765650
      ForceNewColumn = False
      ForceNewPage = False
      Size.Values = (
        105.833333333333300000
        1899.708333333333000000)
      BandType = rbTitle
      object QRLabel2: TQRLabel
        Left = 8
        Top = 12
        Width = 25
        Height = 17
        Frame.Color = clBlack
        Frame.DrawTop = False
        Frame.DrawBottom = False
        Frame.DrawLeft = False
        Frame.DrawRight = False
        Size.Values = (
          44.979166666666670000
          21.166666666666670000
          31.750000000000000000
          66.145833333333340000)
        Alignment = taLeftJustify
        AlignToBand = False
        AutoSize = True
        AutoStretch = False
        Caption = 'Title'
        Color = clWhite
        Transparent = True
        WordWrap = True
        FontSize = 10
      end
    end
    object QRBand1: TQRBand
      Left = 38
      Top = 238
      Width = 718
      Height = 40
      Frame.Color = clBlack
      Frame.DrawTop = False
      Frame.DrawBottom = False
      Frame.DrawLeft = False
      Frame.DrawRight = False
      AlignToBottom = False
      Color = 13820415
      ForceNewColumn = False
      ForceNewPage = False
      Size.Values = (
        105.833333333333300000
        1899.708333333333000000)
      BandType = rbGroupFooter
      object QRLabel8: TQRLabel
        Left = 8
        Top = 7
        Width = 73
        Height = 17
        Frame.Color = clBlack
        Frame.DrawTop = False
        Frame.DrawBottom = False
        Frame.DrawLeft = False
        Frame.DrawRight = False
        Size.Values = (
          44.979166666666670000
          21.166666666666670000
          18.520833333333330000
          193.145833333333300000)
        Alignment = taLeftJustify
        AlignToBand = False
        AutoSize = True
        AutoStretch = False
        Caption = 'GroupFooter'
        Color = clWhite
        Transparent = True
        WordWrap = True
        FontSize = 10
      end
      object QRExpr1: TQRExpr
        Left = 248
        Top = 12
        Width = 101
        Height = 17
        Frame.Color = clBlack
        Frame.DrawTop = False
        Frame.DrawBottom = False
        Frame.DrawLeft = False
        Frame.DrawRight = False
        Size.Values = (
          44.979166666666670000
          656.166666666666800000
          31.750000000000000000
          267.229166666666700000)
        Alignment = taLeftJustify
        AlignToBand = False
        AutoSize = True
        AutoStretch = False
        Color = clWhite
        OnPrint = QRExpr1Print
        ResetAfterPrint = True
        Transparent = True
        WordWrap = True
        Expression = 'sum(amountpaid)'
        FontSize = 10
      end
    end
    object QRGroup1: TQRGroup
      Left = 38
      Top = 158
      Width = 718
      Height = 40
      Frame.Color = clBlack
      Frame.DrawTop = False
      Frame.DrawBottom = False
      Frame.DrawLeft = False
      Frame.DrawRight = False
      AlignToBottom = False
      BeforePrint = QRGroup1BeforePrint
      Color = 13820415
      ForceNewColumn = False
      ForceNewPage = False
      Size.Values = (
        105.833333333333300000
        1899.708333333333000000)
      Expression = 'custno'
      FooterBand = QRBand1
      Master = QuickRep1
      ReprintOnNewPage = False
      object QRLabel7: TQRLabel
        Left = 7
        Top = 7
        Width = 77
        Height = 17
        Frame.Color = clBlack
        Frame.DrawTop = False
        Frame.DrawBottom = False
        Frame.DrawLeft = False
        Frame.DrawRight = False
        Size.Values = (
          44.979166666666670000
          18.520833333333330000
          18.520833333333330000
          203.729166666666700000)
        Alignment = taLeftJustify
        AlignToBand = False
        AutoSize = True
        AutoStretch = False
        Caption = 'GroupHeader'
        Color = clWhite
        Transparent = True
        WordWrap = True
        FontSize = 10
      end
      object QRLabel9: TQRLabel
        Left = 246
        Top = 12
        Width = 105
        Height = 17
        Frame.Color = clBlack
        Frame.DrawTop = False
        Frame.DrawBottom = False
        Frame.DrawLeft = False
        Frame.DrawRight = False
        Size.Values = (
          44.979166666666670000
          650.875000000000000000
          31.750000000000000000
          277.812500000000000000)
        Alignment = taLeftJustify
        AlignToBand = False
        AutoSize = False
        AutoStretch = False
        Caption = 'QRLabel9'
        Color = clWhite
        OnPrint = QRLabel9Print
        Transparent = True
        WordWrap = True
        FontSize = 10
      end
    end
  end
  object Button1: TButton
    Left = 132
    Top = 26
    Width = 75
    Height = 25
    Caption = 'Button1'
    TabOrder = 1
    OnClick = Button1Click
  end
  object Query1: TQuery
    Active = True
    DatabaseName = 'DBDEMOS'
    SQL.Strings = (
      'select custno, empno, amountpaid from orders'
      'order by custno')
    Left = 63
    Top = 31
  end
end
- 0
- 0
- 댓글

(NOTICE) You must be logged in to comment on this post.

- 정승무
- •
- 2006.11.03 01:36
- 1 COMMENTS
- /
- 0 LIKES
Econvert 에러가 납니다.
- 황준동
  
  •
  
  2006.11.07 01:06
  
  Runtime 에러로서 메시지 내용을 보면 20061107은 올바른 날짜형 데이터가 아니여서 변환하는 도중에...
- 인치온
- 2006.11.02 22:26
- 0 COMMENTS
- /
- 0 LIKES
vc++ 의 dll파일을 델파이에서 사용하려면 어떻게 하나요
- 백진기
- 2006.11.02 20:30
- 0 COMMENTS
- /
- 0 LIKES
퀵리포트나 퍼스트리포트 관련 강좌, 서적, 메뉴얼 부탁드립니다.
- kivalan
- 2006.11.02 13:01
- 0 COMMENTS
- /
- 0 LIKES
로그파일 저장루틴입니다. IO에러가 간혹 나는경우가 있는데
- 이상현
- 2006.11.02 02:01
- 0 COMMENTS
- /
- 0 LIKES
dbgrid
- 허버벅
- 2006.11.02 01:21
- 0 COMMENTS
- /
- 0 LIKES
idftp를 이용한 다운로드프로그램을 만드는데...
- 인치온
- 2006.11.01 23:57
- 0 COMMENTS
- /
- 0 LIKES
닷넷소스의 델파이 변환
- 김현주
- •
- 2006.11.01 23:39
- 2 COMMENTS
- /
- 0 LIKES
답이 없어 질문다시 올립니돠..아시는분 안계신가요~~ 체크박스관련...
- 황준동
  
  •
  
  2006.11.07 01:00
  
  우선 체크 박스가 아니라 CheckListBox에 넣으시는것 같구요. AddItem(Item: String; AObject: TObjec...
- 김현주
  
  •
  
  2006.11.07 20:48
  
  제가 질문을 잘못했네요.. 체크박스가 아니고 콤보박스였습돠 ^^ 답변감사드립니다.
- 김규억
- 2006.11.01 18:35
- 0 COMMENTS
- /
- 0 LIKES
ActiveX 이벤트 발생시 브라우저가 깜박거립니다.
- 인치온
- 2006.11.01 08:05
- •
- 0 COMMENTS
- /
- 0 LIKES
xml 통신좀 봐주세요
- 올페
- •
- 2006.10.31 21:01
- 1 COMMENTS
- /
- 0 LIKES
그룹헤더에 소계를 출력하는 방법은??

질문과 같이 그룹헤더에 소계가 나타나게 하면 해결이 될듯 싶습니다. 데이터셋 그리고 그룹밴드를 사용하였습니다. 그룹헤더에 소계가 필요한것은 선택 출력시 그룹헤더의 사용여부를 판단하기 위해서 입니다. 건수가 0건 이상일때만 그...
- nilriri™
  
  •
  
  2006.11.11 01:19
  
  퀵레포트라면... QuickRep1.Prepare 를 이용하시면 될듯 싶습니다. 그리고 기...
- 유이진
- •
- 2006.10.31 04:01
- 1 COMMENTS
- /
- 0 LIKES
SQL2000설치시 문제점...
- 박성준
  
  •
  
  2006.10.31 05:51
  
  안녕하세요? 서버구성요소는 운영체제가 서버일때만 지원합니다. Windows 2000 Server나 NT운영체제에...
- 박종철
- •
- 2006.10.31 03:08
- 1 COMMENTS
- /
- 0 LIKES
DBGrid MultiSelect가 Ctrl키만 됩니다.. ㅠ_ㅠ
- 박종철
  
  •
  
  2006.10.31 03:14
  
  크... 바로 자답이군요... ㅠ_ㅠ 바보 DBGrid는 원래 Shift키를 이용한 멀티셀렉트가 없습니다. 다만 B...
- 큐브
- •
- 2006.10.30 22:26
- 1 COMMENTS
- /
- 0 LIKES
메시지 전송 방법
- 전명재
  
  •
  
  2006.10.31 19:59
  
  소켓 통신에 관한 강좌를 보시면 간단히 해결 하실 수 있을 듯 합니다. 그정도의 작업이라면 TCP 통신으로...
- 착한천사
- •
- 2006.10.29 22:42
- 1 COMMENTS
- /
- 0 LIKES
델6과 델2005,2006을 모두 설치 후 별도로 사용(컴파일,수정등등) 가능할까요?
- 착한천사
  
  •
  
  2006.10.29 23:27
  
  근데.. BDS2005가 설치시 에러가 많이 나네요.. 뭔가 억수로 많이 깔고.. 그러네요.. 실행해 놓고 보니.....
- 소대봉
- 2006.10.28 14:44
- 0 COMMENTS
- /
- 0 LIKES
DELPHI 6.0에서 DELPHI 2005로 Migration 할 때...문제 발생...
- 소대봉
- 2006.10.28 14:03
- 0 COMMENTS
- /
- 0 LIKES
BDE에서 MSSQL driver가 안보이네요.~ (DELPHI 2005 Acrhitect 설치 후)
- 이규하
- 2006.10.28 10:47
- 0 COMMENTS
- /
- 0 LIKES
디자인 툴(?) 을 만들고 싶습니다 .
- 윤병길
- 2006.10.28 01:34
- 0 COMMENTS
- /
- 0 LIKES
혹시 Error Diffusion 처리 방법에 대해 아시나요?
- 원진호
- 2006.10.27 10:31
- 0 COMMENTS
- /
- 0 LIKES
델파이에 대한 몇가지 질문입니다

올페
2006/10/31 21:01
Views496

Likes0

Comments1

Reports0
Tag List
수정
삭제
목록으로

←First Page

193 194 195 196 197 198 199 200 201 202

Last Page→