안녕하세요...델파이를 접한지 1주일 되었거든요...]
검색 프로그램인데요..검색어 치믄 리스트박스에 제목이 나오고
리스트박스에 제목을 눌르믄 메모장에 그 내용이 나오거든요
그러니깐 Table 내용은 제목,분류,내용 으로 돼 있는거지요..
근데 메모장에서 미리보기가 힘들자나요(아예 안돼나??)
그래서 퀵리포트를 사용하는데 메모장에 있는 내용을 레포트로 불러와서
인쇄 미리보기 할려고요....
넘 초보라 흉들 보지 마시구 답변 좀 부탁 해요...
unit Unit3;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
ComCtrls, ExtCtrls, StdCtrls, Buttons, Menus, Tabnotbk, quickrpt, Qrctrls;
type
TFrmComn2 = class(TForm)
QuickRep1: TQuickRep;
TitleBand1: TQRBand;
QRLabel1: TQRLabel;
QRLabel2: TQRLabel;
SummaryBand1: TQRBand;
QRExpr1: TQRExpr;
procedure QuickRep1BeforePrint(Sender: TQuickRep;
var PrintReport: Boolean);
private
{ Private declarations }
public
{ Public declarations }
end;
var
FrmComn2: TFrmComn2;
implementation
uses unit1;
{$R *.DFM}
procedure TFrmComn2.QuickRep1BeforePrint(Sender: TQuickRep;
var PrintReport: Boolean);
var aa7st : string;
begin
QuickRep1.DataSet := FrmComn.Q1;
QRLabel2.caption := FrmComn.edit2.Text;
QRExpr1.Lines := FrmComn.Memo1.lines;
end;
end.
//~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
// 끝
//~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~