//引用单元:
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
Delphi通过ADOQuery控件实现Sqlserver数据库多结果集的数据打印
最新推荐文章于 2021-06-25 13:48:08 发布
该博客介绍了如何在Delphi应用中利用TADOQuery组件来处理Sqlserver数据库的多结果集,并通过TppReport进行数据打印。通过创建并配置TDataSource和TppDBPipeline,将多个数据集连接到报告模板,实现多表数据的打印功能。
摘要由CSDN通过智能技术生成