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;