Delphi通过ADOQuery控件实现Sqlserver数据库多结果集的数据打印

//引用单元：
TADOQuery----------ADODB
TppDBPipeline-----------ppDBPipe
TDataSource-----------DB
Tppreport-----------ppReport
TppDesigner-----------ppEndUsr
//打印调用
procedure TfrmMain.N1Click(Sender: TObject);
begin
    strsql := ' select top 1 * from ZY_BRXXK '
            + ' select top 1 * from YY_YBFLK '
            + ' select top 1 * from ZY_BRSYK '
            + ' select top 1 * from ZY_BRXXK '
            + ' select top 1 * from ZY_BRXXK ';
    dm.print(strsql,'zyb_brxxcx_temple.rtm');
end;
//打印函数声明
//TADOQuery多结果集打印
procedure TDM.Print(asql, strMb: string);
    procedure QueryToPrint(aAdoQuqery :TADOQuery;aTemplateName :string);
    var
        aAdoDataSet :TADODataSet;
        i,j :Integer;
        appDBpipeLine :TppDBPipeline;
        aDataSource :TDataSource;
        pp