DELPHI 报表输出

//建立对象

con1: TADOConnection;

qry1: TADOQuery;

rmrprt1: TRMReport;

rmdbdtst1: TRMDBDataSet;

btn1: TButton;

btn2: TButton;

procedure btn1Click(Sender: TObject);

procedure btn2Click(Sender: TObject);

con1->qry1->rmdbdtst1->rmrprt1 数据源的指向

设计TRMReport

qry1的SQL属性设置为（SQL语句），同时将Active设置为True

//也可以用过代码改写

//预览

procedure TForm1.btn1Click(Sender: TObject);

begin

rmrprt1.LoadFromFile('e:\\cc1.rmf');

rmrprt1.ShowReport;

end;

//打印

procedure TForm1.btn2Click(Sender: TObject);

begin

rmrprt1.PrintReport;

end;