------------------------------------------------------
품명 판매가
------------------------------------------------------
고객명 *홍길동*
당근 200
배추 100
총 ?? 건
------------------------------------------------------
고객명 *고길동*
당근 200
배추 100
고추 500
총 ?? 건
------------------------------------------------------
총 5 건
각각의 총건(??)을 나타내고 싶어요...
마지막 총건(QRSysData 이용)은 나오는데 ..Group마다의 총건도 QRSysData로 표현하고 싶은데...
부디 가르처 주세요..
-----------------------------------------------
우선 전체 총건수를 나타내실 정수 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);를 해주시면 되겠지요.
즐코~
(헷갈려서 책보고 참고하여 답변을 적었습니다. ^^''에고 창피)