아보가드로 wrote:

> 퀵레포트 사용시 DB없이 바로 출력할수 있나여?

> 즉1장으로 출력되는게 아니고 여러장으로 출력을 할수도 있는데

> DB이용안하고 출력할수 있는 방법이 있는지 궁금합니다.

> 고수님들의 조언 부탁드립니다.



type

TForm1 = class(TForm)

QuickRep1: TQuickRep;

PageHeaderBand1: TQRBand;

TitleBand1: TQRBand;

ColumnHeaderBand1: TQRBand;

DetailBand1: TQRBand;

QRLabel1: TQRLabel;

QRLabel2: TQRLabel;

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

procedure FormCreate(Sender: TObject);

procedure DetailBand1BeforePrint(Sender: TQRCustomBand;

var PrintBand: Boolean);

procedure FormClose(Sender: TObject; var Action: TCloseAction);

private

{ Private declarations }

pFile: TextFile;

pSeq: string;

public

{ Public declarations }

end;



var

Form1: TForm1;



implementation



{$R *.DFM}



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

begin

Readln(pFile,pSeq);

Moredata := not eof(pFile);

end;



procedure TForm1.FormCreate(Sender: TObject);

begin

AssignFile(pFile,'c:temptest.dat'); // data가있는 text파일

reset(pFile);

QuickRep1.preview;

end;



procedure TForm1.DetailBand1BeforePrint(Sender: TQRCustomBand;

var PrintBand: Boolean);

begin

qrlabel2.caption := pseq;

end;



procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);

begin

CloseFile(pfile);

end;



end.