Q&A

  • 퀵 레포트에 관해서..답번좀...부탁합니다.
------------------------------------------------------
                      품명                 판매가
------------------------------------------------------
고객명  *홍길동*
            
                    당근                    200
                    배추                    100
                                                                  총 ?? 건
------------------------------------------------------
고객명  *고길동*
            
                    당근                    200
                    배추                    100
                    고추                    500                      
                                                                  총 ?? 건
------------------------------------------------------
                                                                   총 5 건

각각의 총건(??)을 나타내고 싶어요...
마지막 총건(QRSysData 이용)은 나오는데 ..Group마다의 총건도 QRSysData로 표현하고 싶은데...
부디 가르처 주세요..
2  COMMENTS
  • Profile
    래머 2003.02.24 19:29
    그냥 라벨놔두시고 뿌리셔도 간단합니다. 참고하세요
    -----------------------------------------------

    우선 전체 총건수를 나타내실 정수 j를 초기화시키고

    var
       i, j : integer;
    procedure Tform.QuickRepBeforePrint(Sender: TQuickRep;
      var PrintReport: Boolean);
    begin
        j := 0;
    end;

    각 그룹별로의 건수를 나타내기위해선  그룹헤더밴드가 출력되기전의 이벤트인 QRGroup1BeforPrint 이벤트에 i값을 초기화 시키셔야합니다.

    i := 0; 식으로..

    각각의 그룹별로 레코드가 돌아가면 Detail밴드가 그수만큼 돌아가는거 알고계시죠? 그럼 레코드가 하나씩 늘어날때마다 i와 j값을 증가시켜줘야합니다.

    DetailBandBeforPrint 이벤트에

    i := i + 1;
    j := j + 1;
    식으로 늘려줍니다.
    임의의 S라는 스트링을 주어 := intToStr(i);를 하시면 현재레코드의 NO가 S에 들어가겠죠.(그냥 -_-;;)

    그런후에.. QrbandBeforPrint이벤트에 건수를 뿌려주실 Label를 놔두시고
    .caption := intToStr(i); 를 해주시면 그룹별의 레코드건수가 출력됩니다.

    총건수를 출력하기위해선 PageFooterBandBeforPrint이벤트에다가
    같은식으로 라벨을 두신후 .Caption := intTostr(j);를 해주시면 되겠지요.

    즐코~

    (헷갈려서 책보고 참고하여 답변을 적었습니다. ^^''에고 창피)
  • Profile
    정성훈 2003.02.24 19:21
    2일전에 제가 답변한걸로 알고있는데????
    그룹밴드 쓰실때 합계 Expr 쓰시는거라면 왼쪽 프로퍼티 봐보세요
    ResetAfterPrint 옵션이 True면 인쇄후 값이 초기화, 즉 0 이 되고
    False 면 인쇄끝날때까지 값이 누적됩니다.