------------------------------------------------------
품명 판매가
------------------------------------------------------
고객명 *홍길동*
당근 200
배추 100
------------------------------------------------------
(300)
고객명 *홍길동*
당근 200
배추 100
고추 400
------------------------------------------------------
(700)
각각의 판매가..(300)..(700) 으로 나오게 하고 싶어요..
아시는분 가르처 주세요
바로 다음다음장에 비슷한 질문에 제가 참고하여 답글올린게있네요.
---------------------------------------
우선 전체 총건수를 나타내실 정수 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);를 해주시면 되겠지요.
즐코~
--- 300, 700각각 그룹의 합이니 i가 될테고, 페이지의 가장아래에 1000? 이란는 전체합계를 올리고싶다면 j가 되겠죠.
밴드선택은 아래와 같이 하시면 됩니다. 그럼..^^
------------------------------------------------------
(Column Header) 품명 판매가
(Group Header)고객명 *홍길동*
(Detail) 당근 200
(Group Footer) (300)
----------------------------------------------------------
Summary (1000)