needdata 를 잘못사용하는 것 같습니다..

디비가 인쇄가 되지 않습니다.

needdata 이벤트를 아예 타지를 않습니다.



인쇄하면

qrlabel1

qrlabel2

qrlabel3

으로만 나오고..



부산시 강서구

홍길동

604-822



부산시 부산진구

홍길동

614-122

.. 이런식으로 나와야 하는데요..



procedure TForm2.QuickRep1NeedData(Sender: TObject; var MoreData: Boolean);



begin

moredata := count < form1.query1.RecordCount;



if moredata then

begin



if form1.query1.fieldbyname('WhereDM').asstring = 'J' then

qrlabel1.caption := form1.query1.fieldbyname('JAddress').asstring

else

qrlabel1.caption := form1.query1.fieldbyname('HAddress').asstring;

qrlabel2.caption := form1.query1.fieldbyname('Name').asstring;

qrlabel3.caption := form1.query1.fieldbyname('HZipCode').asstring;



form1.query1.next;

inc(count);

end;





end;



procedure TForm2.Button1Click(Sender: TObject);

begin

quickrep1.preview;



end;



procedure TForm2.QuickRep1BeforePrint(Sender: TCustomQuickRep;

var PrintReport: Boolean);

begin

form1.query1.first;

count := 0;

end;





(form1에서 하는 일)



Query1.Close;

Query1.SQL.Clear;

Query1.SQL.Add('Select *from "Client.db" Code');

Query1.SQL.Add('where Code between "' + trim(edit1.text) + '" and "' + trim (edit2.text) + '"');

Query1.Open;