Q&A
- stringgrid를 qreport로 출력시..
어떻게 해야 되죠??..
온통 DB 연동해서 하는것 밖에 없네요..
찾다찾다 질문을 올려봅니다요.
프린트하고자하는 stringfrid의 cell과 row의 수는 계속 바뀝니다.
이걸 일일이 고정된 수의 qrlabel을 만들어 거기다가 붙여줄수도 없는 문제구요.
좋은 방법 없을까요..
밑에 찾아보니 QRstringband 를 쓰면 된다고 돼 있는데 초자라 예제없인
알아먹기가 힘들어서요.. DB연동 없는 QReport출력 예제같은거 보내주심 더 좋구요.
고맙습니다~~ (QRdbstringgrid 같은거 없나.. 바로 옮겨버리면 좋을텐데~~.. )
온통 DB 연동해서 하는것 밖에 없네요..
찾다찾다 질문을 올려봅니다요.
프린트하고자하는 stringfrid의 cell과 row의 수는 계속 바뀝니다.
이걸 일일이 고정된 수의 qrlabel을 만들어 거기다가 붙여줄수도 없는 문제구요.
좋은 방법 없을까요..
밑에 찾아보니 QRstringband 를 쓰면 된다고 돼 있는데 초자라 예제없인
알아먹기가 힘들어서요.. DB연동 없는 QReport출력 예제같은거 보내주심 더 좋구요.
고맙습니다~~ (QRdbstringgrid 같은거 없나.. 바로 옮겨버리면 좋을텐데~~.. )
4
COMMENTS
-
-
quickrep에 needdate에 간단한 코딩을 해주면 됩니다.
먼저 private 에서 i를 선언해줍니다. 그리고 beforeprint에 i := 1로 줍니다.
그리고 NeedData에
begin
QuickRep1.ShowProgress := true;
begin
if j <= inqryform.SG_detail.RowCount then
begin
QRL_date.Caption := inqryform.SG_detail.cells[0,j];
QRL_cac.Caption := inqryform.SG_detail.cells[2,j];
QRL_fno.Caption := inqryform.SG_detail.cells[3,j];
QRL_mark.Caption := inqryform.SG_detail.cells[5,j];
QRL_mile1.Caption := inqryform.SG_detail.cells[6,j];
QRL_mile2.Caption := inqryform.SG_detail.cells[7,j];
QRL_mile4.Caption := inqryform.SG_detail.cells[8,j];
QRL_mile3.Caption := inqryform.SG_detail.cells[9,j];
end;
inc(j);
MoreData := j <=inqryform.SG_detail.RowCount;
end;
end;
아래와 같은 코딩을 해주면 됩니다.
여기서 QRLable들은 detailband위에 놓입니다.
도움이 되였으면 좋겠네요.
-
정일준 wrote:
> 어떻게 해야 되죠??..
>
> 온통 DB 연동해서 하는것 밖에 없네요..
>
> 찾다찾다 질문을 올려봅니다요.
>
> 프린트하고자하는 stringfrid의 cell과 row의 수는 계속 바뀝니다.
>
> 이걸 일일이 고정된 수의 qrlabel을 만들어 거기다가 붙여줄수도 없는 문제구요.
>
> 좋은 방법 없을까요..
>
> 밑에 찾아보니 QRstringband 를 쓰면 된다고 돼 있는데 초자라 예제없인
>
> 알아먹기가 힘들어서요.. DB연동 없는 QReport출력 예제같은거 보내주심 더 좋구요.
>
> 고맙습니다~~ (QRdbstringgrid 같은거 없나.. 바로 옮겨버리면 좋을텐데~~.. )
배열을 사용하여도 되고요..
-
먼저 quickrep의 detailband에 QRLable을 가져다 놓습니다.
그리고 privete에서 j를 integer로 선언합니다. 그리고 beforeprint event에 j:=1;
을 써줍니다.
그리고 needdate에 아래와 같은 코딩을 해줍니다. 도움이 되였으면....
begin
QuickRep1.ShowProgress := true;
begin
if j <= inqryform.SG_detail.RowCount then
begin
QRL_date.Caption := inqryform.SG_detail.cells[0,j];
QRL_cac.Caption := inqryform.SG_detail.cells[2,j];
QRL_fno.Caption := inqryform.SG_detail.cells[3,j];
QRL_mark.Caption := inqryform.SG_detail.cells[5,j];
QRL_mile1.Caption := inqryform.SG_detail.cells[6,j];
QRL_mile2.Caption := inqryform.SG_detail.cells[7,j];
QRL_mile4.Caption := inqryform.SG_detail.cells[8,j];
QRL_mile3.Caption := inqryform.SG_detail.cells[9,j];
end;
inc(j);
MoreData := j <=inqryform.SG_detail.RowCount;
end;
end;
(NOTICE) You must be logged in to comment on this post.
-
- zerodog
- •
- 2001.02.12 04:04
- 1 COMMENTS
- /
- 0 LIKES
-
초보•2001.02.12 18:39zerodog wrote: > formatfloat('###,###,###',Float형 변수) > 이런식으로 쓰면된다고 하는데여... 제가 ...
-
- 장우석
- •
- 2001.02.12 03:25
- 1 COMMENTS
- /
- 0 LIKES
-
홍세비•2001.02.12 19:38장우석 wrote: > var > S: String; > A: array[0..8] of Char; > KeyValue: array[0..8] of inte...
-
- 정일준
- •
- 2001.02.12 02:01
- 4 COMMENTS
- /
- 0 LIKES
어떻게 해야 되죠??.. 온통 DB 연동해서 하는것 밖에 없네요.. 찾다찾다 질문을 올려봅니다요. 프린트하고자하는 stringfrid의 cell과 row의 수는 계속 바뀝니다. 이걸 일일이 고정된 수의 qrlabel을 만들어 거기다가 붙여줄수도 없는 문...-
델사랑•2001.04.11 01:21먼저 quickrep의 detailband에 QRLable을 가져다 놓습니다. 그리고 privete에서 j를 integer로 선언합니다...
-
델사랑•2001.04.11 01:18quickrep에 needdate에 간단한 코딩을 해주면 됩니다. 먼저 private 에서 i를 선언해줍니다. 그리고 b...
-
이종현•2001.02.12 04:03정일준 wrote: > 어떻게 해야 되죠??.. > > 온통 DB 연동해서 하는것 밖에 없네요.. > > 찾다찾다 ...
-
델사랑•2001.04.11 01:22먼저 quickrep의 detailband에 QRLable을 가져다 놓습니다. 그리고 privete에서 j를 integer로 선언합니다...
-
- hackdibs
- •
- 2001.02.11 21:30
- 1 COMMENTS
- /
- 0 LIKES
-
초보•2001.02.12 18:58hackdibs wrote: > 공부를 하다보니깐요.. > begin > Label1.Caption := '....'; > end; > 이...
-
- 이선주
- •
- 2001.02.11 11:13
- 3 COMMENTS
- /
- 0 LIKES
-
정대연•2001.02.14 01:40이선주 wrote: > 정말 이해가 안갑니다.저는 ADO를 써서 프로그램을 만들었는데 > 프로그램에서 하나는 ...
-
초보•2001.02.12 19:09이선주 wrote: > 정말 이해가 안갑니다.저는 ADO를 써서 프로그램을 만들었는데 > 프로그램에서 하나는 ...
-
나도초보•2001.02.12 18:53저도 초보라 도움이 될지 모르겠네요~ ^^; 전반적인 어떻게 코딩을 하셨는지 파악이 잘 안되서 잘 모르겠...
-
- 이영국
- 2001.02.11 05:21
- 0 COMMENTS
- /
- 0 LIKES
-
- 안명호
- 2001.02.11 04:05
- 0 COMMENTS
- /
- 0 LIKES
-
- 임호성
- •
- 2001.02.11 03:36
- 1 COMMENTS
- /
- 0 LIKES
-
서록•2001.02.11 20:00미국에 있는 서버로 연결되기 위해선 미국과 케이블이 연결되어 있겠죠? 외국으로 연결하기 위해서 그렇기...
-
- eewook
- •
- 2001.02.11 01:46
- 2 COMMENTS
- /
- 0 LIKES
-
서록•2001.02.11 19:54POSUSB 드라이버를 이용하시면 간단합니다. 물론 HID를 이용하시는것두 있지만 제어루틴들이 필요하게 되...
-
eewook•2001.02.14 06:57서록 wrote: > POSUSB 드라이버를 이용하시면 간단합니다. > 물론 HID를 이용하시는것두 있지만 제어루틴...
-
- 왕초보
- •
- 2001.02.11 00:58
- 2 COMMENTS
- /
- 0 LIKES
-
기상원•2001.02.11 06:59시리얼 통신으로 시스템 제어가 가능 하더군요.. 전.. 8051 하구 통신 을 해 봤습니다.. 19200 bps 정도 까...
-
최시영•2001.02.12 18:17컴퓨터 인터페이스 카드로 직접 보드의 어드레스랑..데이터도 제어 가능합니다... 이것으로 오슬로스코프...
-
- 델초보
- •
- 2001.02.11 00:56
- 3 COMMENTS
- /
- 0 LIKES
-
김기수•2001.04.06 08:32델초보 wrote: > 시리얼통신으로 LED를 제어할려구 합니다. > 시리얼케이블로 연결은 했는데, 연구자료로...
-
김기수•2001.04.06 08:35김기수 wrote: > 델초보 wrote: > > 시리얼통신으로 LED를 제어할려구 합니다. > > 시리얼케이블로 연결...
-
kylix•2001.02.11 01:20허허허~~ 질문이 너무 추상적이군요... 추상적인 답변을 할께요... LED가 어떤 신호에 응답해서 불이...
-
- 천사의 마을
- •
- 2001.02.10 23:34
- 2 COMMENTS
- /
- 0 LIKES
-
정대연•2001.02.14 02:04천사의 마을 wrote: > 다들 즐플하고 계시죠?? 기온도 많이 올라가고 낮잠자기에도 좋고, 특히 데이트하...
-
천사의 마을•2001.02.14 04:58대현님의 답변 감사드립니다!!!! 이제서야 게시물을 보고 감사인사 드리는점 죄송합니다. 플밍을하면서 ...
-
- 버드
- 2001.02.10 23:29
- 0 COMMENTS
- /
- 0 LIKES
-
- 궁금증
- 2001.02.10 21:53
- 0 COMMENTS
- /
- 0 LIKES
-
- 이기준
- •
- 2001.02.10 21:38
- 1 COMMENTS
- /
- 0 LIKES
-
도지성•2001.02.11 09:11이기준 wrote: > winamp처럼 녹음시 이퀄라이져 기능은 어떻게 구현하나요? winamp 는 어떻게 하는지 ...
-
- 빙구
- 2001.02.10 21:14
- 0 COMMENTS
- /
- 0 LIKES
-
- 아보가드로
- •
- 2001.02.10 21:06
- 2 COMMENTS
- /
- 0 LIKES
-
major•2001.02.11 00:56아보가드로 wrote: > 두개의 table에서 읽어와서 출력을 하려고 합니다. 두 테이블은 전혀 연관이 없구 >...
-
아폴론•2001.02.10 23:57아보가드로 wrote: > 두개의 table에서 읽어와서 출력을 하려고 합니다. 두 테이블은 전혀 연관이 없구 >...
-
- 이수정
- 2001.02.10 20:08
- 0 COMMENTS
- /
- 0 LIKES
-
- sonwow
- •
- 2001.02.10 19:06
- 1 COMMENTS
- /
- 0 LIKES
-
정성훈•2001.02.10 22:24sonwow wrote: > ms-sql7.0 을 98에 설치후 > 98에서 클라이언트 접속방법좀 알려주세요...... 안녕...
-
- 안익환
- •
- 2001.02.10 19:03
- 1 COMMENTS
- /
- 0 LIKES
-
안익환•2001.02.10 19:40안익환 wrote: > 안녕하세요? > 처음 질문을 올립니다. 이렇게 올리게 된건 이곳을 게시판을 뒤져봐도 ...
그리고 privete에서 j를 integer로 선언합니다. 그리고 beforeprint event에 j:=1;
을 써줍니다.
그리고 needdate에 아래와 같은 코딩을 해줍니다. 도움이 되였으면....
begin
QuickRep1.ShowProgress := true;
begin
if j <= inqryform.SG_detail.RowCount then
begin
QRL_date.Caption := inqryform.SG_detail.cells[0,j];
QRL_cac.Caption := inqryform.SG_detail.cells[2,j];
QRL_fno.Caption := inqryform.SG_detail.cells[3,j];
QRL_mark.Caption := inqryform.SG_detail.cells[5,j];
QRL_mile1.Caption := inqryform.SG_detail.cells[6,j];
QRL_mile2.Caption := inqryform.SG_detail.cells[7,j];
QRL_mile4.Caption := inqryform.SG_detail.cells[8,j];
QRL_mile3.Caption := inqryform.SG_detail.cells[9,j];
end;
inc(j);
MoreData := j <=inqryform.SG_detail.RowCount;
end;
end;