델파이 응용프로그램 실행중 Query, Table의 Data를 dbf로 만들어낼 수 있는지

있다면 방법을 알려주심 고맙겠읍니다.

음냐 이것은 약간의 꽁수가 필요하네요...하지만 무지 간단해요...



QRShape를 이용하는 방법인데

이것의 Shape프로퍼티를 qrsHorLine로 맞추면 선이 나오겠죠..?

이것을 일딴 디테일 밴드의 QRDBText를 늘어놓은 곳에 바로 밑에

얹져놓으세요...



그리고 나서 Dataset의 AfterScroll이벤트에서 5라인을 체크하여

이 QRShape를 켜주었다 꺼주었다 하는 거죠.....

코딩은 아래와 같이 하면 되겠슴다...



procedure TForm1.Table1AfterScroll(DataSet: TDataSet);

begin

QRShape1.Pen.Color := clWhite;

if (DataSet.RecNo mod 5) = 0 then

QRShape1.Pen.Color := clBlack;

end;



procedure TForm1.FormCreate(Sender: TObject);

begin

QRShape1.Pen.Color := clWhite;

end;



캭캭....QRShape1에 visible프로퍼티가 제대로 작동을 안하네요...

왜그럴까요....한번 연구해서 저좀 알려 줘요..



방편으로 펜의 칼라를 조정하였습니다....하이트로...



음냐 그럼 컬러 프린터에서는 헉..............이런

그럼 사이즈를 조정하지뭐.........헤헤



음냐 조금 무식한 방법일 수도 있지만 코딩 깔끔하잖아요....^^;



고혜정 wrote:

> QRReport를 이용해서 보고서를 만들고 있는데, 자료가 출력될때 5개 나오고 선나오고 그리고 계속해서 이런 방식으로 자료가 출력되게 끔 하고 싶습니다.

> 예를 들어.

> 1999-02-02 고혜정 5000 5000

> .

> .

> .

> .

> -----------------------------------------------

> 19990-02-03 고혜정 5000 5000

> .

> .

> .

> .

> 이런한 방식으로 출력할수 있는 분께서는 죄송하지만, 알려주시기 바라겠습니다.

신인재 wrote:

> 음냐 이것은 약간의 꽁수가 필요하네요...하지만 무지 간단해요...

>

> QRShape를 이용하는 방법인데

> 이것의 Shape프로퍼티를 qrsHorLine로 맞추면 선이 나오겠죠..?

> 이것을 일딴 디테일 밴드의 QRDBText를 늘어놓은 곳에 바로 밑에

> 얹져놓으세요...

>

> 그리고 나서 Dataset의 AfterScroll이벤트에서 5라인을 체크하여

> 이 QRShape를 켜주었다 꺼주었다 하는 거죠.....

> 코딩은 아래와 같이 하면 되겠슴다...

>

> procedure TForm1.Table1AfterScroll(DataSet: TDataSet);

> begin

> QRShape1.Pen.Color := clWhite;

> if (DataSet.RecNo mod 5) = 0 then

> QRShape1.Pen.Color := clBlack;

> end;

>

> procedure TForm1.FormCreate(Sender: TObject);

> begin

> QRShape1.Pen.Color := clWhite;

> end;

>

> 캭캭....QRShape1에 visible프로퍼티가 제대로 작동을 안하네요...

> 왜그럴까요....한번 연구해서 저좀 알려 줘요..

>

> 방편으로 펜의 칼라를 조정하였습니다....하이트로...

>

> 음냐 그럼 컬러 프린터에서는 헉..............이런

> 그럼 사이즈를 조정하지뭐.........헤헤

>

> 음냐 조금 무식한 방법일 수도 있지만 코딩 깔끔하잖아요....^^;

>

> 고혜정 wrote:

> > QRReport를 이용해서 보고서를 만들고 있는데, 자료가 출력될때 5개 나오고 선나오고 그리고 계속해서 이런 방식으로 자료가 출력되게 끔 하고 싶습니다.

> > 예를 들어.

> > 1999-02-02 고혜정 5000 5000

> > .

> > .

> > .

> > .

> > -----------------------------------------------

> > 19990-02-03 고혜정 5000 5000

> > .

> > .

> > .

> > .

> > 이런한 방식으로 출력할수 있는 분께서는 죄송하지만, 알려주시기 바라겠습니다.

>

>



신인재님의 방식으로 해도 되구요 다음과 같이 사용하셔도 될껄요



QRShape에 visible은 2.0에서는 되지만요 3.0이상에서는 enabled 를 사용하시면 됩니다. 저도 처음에는 당황해서 left를 조정하는 무식함을 드러냈지만

enabled를 사용하면서 해결했지요



그리고 5라인 마다 QRShape를 그어주실려면

디테일밴드의 BeforePrint 이벤트핸들러에서

라인을 그어주는 방식을 사용하셔도 됩니다.

예)

var

lcnt:integer;<-전역변수 선언





if table1.recno = 1 then

lcnt := 0 ;



lcnt := lcnt + 1;

.

.

.

.

if lcnt = 5 then

begin

QRShape.enabled := true;

lcnt := 0 ;

end

else

QRShape.enabled := false;





하셔도 되구요 또는

디테일밴드의 프레임 프로퍼티를 이용하셔도 됩니다.