Q&A
- quick report의 newpage를 어떻게 쓰지요?
델파이4, 퀵레포트3.0.3, 윈98을 쓰고
자료값은 db에서 부르는게 아니라 소켓을 통해 받은값을 바로 스트링그리드에 뿌려주고
그값을 퀵레포트를 통해 보여주고 있습니다.
//스트링 그리드를 레포트로 출력하기
procedure TFmReportFormat.StringGridQReport(GRD:TStringGrid; Title:String);
var
i,j, Fcnt, Rcnt, margin : Integer;
QRSGval : Array of TQRLabel ;
DetailBand, FooterBand : TQRBand;
begin
Fcnt := GRD.ColCount ;
Rcnt := GRD.RowCount ;
SetLength(QRSGval,Fcnt);
QRtitle.Caption := Title ;
DetailBand := TQRBand.Create(FmReportFormat);
DetailBand.Parent := QuickRep;
DetailBand.BandType := rbDetail;
DetailBand.Size.Height := 4;
FooterBand := TQRBand.Create(FmReportFormat);
FooterBand.Parent := QuickRep;
FooterBand.BandType := rbPageFooter;
FooterBand.Frame.DrawTop := TRUE;
FooterBand.Size.Height := 1;
QRLabel.Caption := '총 건수 : ' + intTostr(Rcnt - 2);
for i := 0 to Rcnt -1 do
begin
margin := 5 ;
for j:= 0 to fcnt -1 do
begin
if i = 0 then
begin
DetailBand.Frame.DrawTop := TRUE;
DetailBand.Frame.DrawBottom := TRUE;
DetailBand.Size.Height := 5;
end;
if i = 50 then QuickRep.NewPage;
QRSGval[j] := TQRLabel.Create(FmReportFormat);
QRSGval[j].Parent := DetailBand ;
QRSGval[j].Caption := GRD.Cells[j,i] ;
QRSGval[j].Top := i * 15 ;
QRSGval[j].Left := margin ;
margin := margin + GRD.ColWidths[j] + 5 ;
end;
end;
FmDisplayReport := TFmDisplayReport.create(application);
FmDisplayReport.Show;
QuickRep.preview;
end;
이와같이 하는데 값이 a4용지 한장만 출력되고 그다음에는 나오지 않습니다.
아마도 db를 안써고 라벨에다가 바로 값을 뿌려줘서 그러는것 같은데
그럴경우 newpage라는 함수를 써서 다음장에 값을 보여주고 싶은데
어떻게 써야하는지 모르겠습니다.
많은 도움바랍니다.
자료값은 db에서 부르는게 아니라 소켓을 통해 받은값을 바로 스트링그리드에 뿌려주고
그값을 퀵레포트를 통해 보여주고 있습니다.
//스트링 그리드를 레포트로 출력하기
procedure TFmReportFormat.StringGridQReport(GRD:TStringGrid; Title:String);
var
i,j, Fcnt, Rcnt, margin : Integer;
QRSGval : Array of TQRLabel ;
DetailBand, FooterBand : TQRBand;
begin
Fcnt := GRD.ColCount ;
Rcnt := GRD.RowCount ;
SetLength(QRSGval,Fcnt);
QRtitle.Caption := Title ;
DetailBand := TQRBand.Create(FmReportFormat);
DetailBand.Parent := QuickRep;
DetailBand.BandType := rbDetail;
DetailBand.Size.Height := 4;
FooterBand := TQRBand.Create(FmReportFormat);
FooterBand.Parent := QuickRep;
FooterBand.BandType := rbPageFooter;
FooterBand.Frame.DrawTop := TRUE;
FooterBand.Size.Height := 1;
QRLabel.Caption := '총 건수 : ' + intTostr(Rcnt - 2);
for i := 0 to Rcnt -1 do
begin
margin := 5 ;
for j:= 0 to fcnt -1 do
begin
if i = 0 then
begin
DetailBand.Frame.DrawTop := TRUE;
DetailBand.Frame.DrawBottom := TRUE;
DetailBand.Size.Height := 5;
end;
if i = 50 then QuickRep.NewPage;
QRSGval[j] := TQRLabel.Create(FmReportFormat);
QRSGval[j].Parent := DetailBand ;
QRSGval[j].Caption := GRD.Cells[j,i] ;
QRSGval[j].Top := i * 15 ;
QRSGval[j].Left := margin ;
margin := margin + GRD.ColWidths[j] + 5 ;
end;
end;
FmDisplayReport := TFmDisplayReport.create(application);
FmDisplayReport.Show;
QuickRep.preview;
end;
이와같이 하는데 값이 a4용지 한장만 출력되고 그다음에는 나오지 않습니다.
아마도 db를 안써고 라벨에다가 바로 값을 뿌려줘서 그러는것 같은데
그럴경우 newpage라는 함수를 써서 다음장에 값을 보여주고 싶은데
어떻게 써야하는지 모르겠습니다.
많은 도움바랍니다.
1
COMMENTS
(NOTICE) You must be logged in to comment on this post.
-
- 이길환
- 2000.03.27 23:55
- 0 COMMENTS
- /
- 0 LIKES
-
- 이치형
- •
- 2000.03.27 23:54
- 2 COMMENTS
- /
- 0 LIKES
-
임철우•2001.12.12 05:26내용은 잘 보았습니다. 그런식으로 해도 되겠지요 하지만 간단한 명령어가 있는데 그렇게 할 필요가 있을...
-
최용일•2000.03.28 00:51아래의 코드는 완전한 무한루프이군요. 그리고 라벨컴포넌트가 이동되는것이 아니라고 하셨는데 이동되...
-
- Ghost lee
- 2000.03.27 23:25
- 0 COMMENTS
- /
- 0 LIKES
-
- hjcho96
- •
- 2000.03.27 23:24
- 1 COMMENTS
- /
- 0 LIKES
-
김용택•2000.04.18 23:55hjcho96 wrote: > interbase password & user id를 변경하는 방법있으면 좀 > 갈카 주세요.... > 그리고...
-
- 이수환
- •
- 2000.03.27 23:09
- 1 COMMENTS
- /
- 0 LIKES
-
최용일•2000.03.28 00:54무식하게 안만들고 할 수 있나요? 어차피 델파이입장에서 보면 씨디, 엠피, 믹서.... 이러한 것들이 폼...
-
- 김종근
- 2000.03.27 22:41
- 0 COMMENTS
- /
- 0 LIKES
-
- 장민석
- •
- 2000.03.27 22:40
- 3 COMMENTS
- /
- 0 LIKES
-
종이학•2000.03.28 05:12델파이 메뉴에서 Tools의 debuger options중 AccessViolation를 user program에서 핸들링하지 말고 디...
-
유솔로몬•2000.03.28 00:36이 에러는 특이하게도 델파이로 개발된 응용프로그램에서 많이 볼 수 있습니다. 메모리 덤프인지 에러 ...
-
유솔로몬•2000.03.29 01:06만약 디버거로 소스에서 원인 찾기를 실패하셨다면 운영체제 및 관련 프로그램 재설치를 권합니다. 종...
-
- toto1052
- 2000.03.27 22:38
- 0 COMMENTS
- /
- 0 LIKES
-
- ses
- 2000.03.27 22:15
- 0 COMMENTS
- /
- 0 LIKES
-
- 심인식
- •
- 2000.03.27 21:01
- 1 COMMENTS
- /
- 0 LIKES
-
조규춘•2000.03.27 21:54심인식 wrote: > 폼을 투명하게 만들려고 하는데... 방법을 갈켜주세요. > 아래 설정으로 작성을 해봤지...
-
- 오정섭
- •
- 2000.03.27 21:01
- 1 COMMENTS
- /
- 0 LIKES
델파이4, 퀵레포트3.0.3, 윈98을 쓰고 자료값은 db에서 부르는게 아니라 소켓을 통해 받은값을 바로 스트링그리드에 뿌려주고 그값을 퀵레포트를 통해 보여주고 있습니다. //스트링 그리드를 레포트로 출력하기 procedure TFmReportFormat...-
HART•2000.03.27 21:44newpage 메소드는 preview 나 print 명령어를 먼저 실행해야 사용할 수 있는 메소드임. 아마 아래소스는 ...
-
- 임형호
- 2000.03.27 20:50
- 0 COMMENTS
- /
- 0 LIKES
-
- 민은홍
- •
- 2000.03.27 20:35
- 1 COMMENTS
- /
- 0 LIKES
-
최용일•2000.03.27 20:44이미 저장이 되있는데 다시 활성화가 될 필요가 있겠습니까? 폼이나 에디트의 내용을 고친다면 다시 활...
-
- 델초
- •
- 2000.03.27 20:29
- 1 COMMENTS
- /
- 0 LIKES
-
최용일•2000.03.27 20:42그냥 항상 쓰시던대로 컴포넌트를 배열로 만들어서 쓰셔도 되는데요... var CompoArray: array[0..99...
-
- 이치형
- 2000.03.27 20:07
- 0 COMMENTS
- /
- 0 LIKES
-
- 유희정
- •
- 2000.03.27 18:54
- 3 COMMENTS
- /
- 0 LIKES
-
최용일•2000.03.27 19:15==> {$define TEST} 부분도 추가해하시면 됩니다. 유희정 wrote: > 도와주세요. > Object pascal에...
-
유희정•2000.03.27 19:35최용일님의 경우는 이미 test해 보았습니다. {$Define TEST}를 sam_header.pas부분에 넣으면 항상 {ifdef ...
-
최용일•2000.03.27 19:46심볼을 제거할땐 $undef컴파일러 지시자를 쓰시면 됩니다. 이미 지정된 심볼을 다시 없애버리는 기능입니...
-
- 이동준
- •
- 2000.03.27 18:49
- 1 COMMENTS
- /
- 0 LIKES
-
이재식•2000.03.27 19:23이동준 wrote: > 궁금한것이 한가지 있습니다. > 숫자를 표현할때 보통 10,000 처럼 ,를 쓰지요. > 근데...
-
-
- 꼽빼기
- •
- 2000.03.27 12:39
- 1 COMMENTS
- /
- 0 LIKES
-
안경옥•2000.03.27 18:52꼽빼기 wrote: > 이제 막 델파이에 입문한 초보입니다. > > 다른건 모르겠는데 > > quick report는 ...
-
- 윤티
- 2000.03.27 09:31
- 0 COMMENTS
- /
- 0 LIKES
아마 아래소스는 퀴리포드 중에서 before print 이벤트나 before previwe 이벤트에
서 처리하면 아래 소스로도 다음 페이지에 출력이 됩니다.
오정섭 wrote:
> 델파이4, 퀵레포트3.0.3, 윈98을 쓰고
> 자료값은 db에서 부르는게 아니라 소켓을 통해 받은값을 바로 스트링그리드에 뿌려주고
> 그값을 퀵레포트를 통해 보여주고 있습니다.
>
> //스트링 그리드를 레포트로 출력하기
> procedure TFmReportFormat.StringGridQReport(GRD:TStringGrid; Title:String);
> var
> i,j, Fcnt, Rcnt, margin : Integer;
> QRSGval : Array of TQRLabel ;
> DetailBand, FooterBand : TQRBand;
> begin
> Fcnt := GRD.ColCount ;
> Rcnt := GRD.RowCount ;
>
> SetLength(QRSGval,Fcnt);
> QRtitle.Caption := Title ;
>
> DetailBand := TQRBand.Create(FmReportFormat);
> DetailBand.Parent := QuickRep;
> DetailBand.BandType := rbDetail;
> DetailBand.Size.Height := 4;
>
> FooterBand := TQRBand.Create(FmReportFormat);
> FooterBand.Parent := QuickRep;
> FooterBand.BandType := rbPageFooter;
> FooterBand.Frame.DrawTop := TRUE;
> FooterBand.Size.Height := 1;
> QRLabel.Caption := '총 건수 : ' + intTostr(Rcnt - 2);
>
> for i := 0 to Rcnt -1 do
> begin
> margin := 5 ;
> for j:= 0 to fcnt -1 do
> begin
> if i = 0 then
> begin
> DetailBand.Frame.DrawTop := TRUE;
> DetailBand.Frame.DrawBottom := TRUE;
> DetailBand.Size.Height := 5;
> end;
> if i = 50 then QuickRep.NewPage;
> QRSGval[j] := TQRLabel.Create(FmReportFormat);
> QRSGval[j].Parent := DetailBand ;
> QRSGval[j].Caption := GRD.Cells[j,i] ;
> QRSGval[j].Top := i * 15 ;
> QRSGval[j].Left := margin ;
> margin := margin + GRD.ColWidths[j] + 5 ;
> end;
> end;
> FmDisplayReport := TFmDisplayReport.create(application);
> FmDisplayReport.Show;
> QuickRep.preview;
> end;
>
> 이와같이 하는데 값이 a4용지 한장만 출력되고 그다음에는 나오지 않습니다.
> 아마도 db를 안써고 라벨에다가 바로 값을 뿌려줘서 그러는것 같은데
> 그럴경우 newpage라는 함수를 써서 다음장에 값을 보여주고 싶은데
> 어떻게 써야하는지 모르겠습니다.
> 많은 도움바랍니다.