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

踏雪寻梅i

于 2018-04-05 18:39:48 发布

阅读量1.7k

点赞数

分类专栏： Delphi 文章标签： Delphi Sqlserver 多结果集合 TADOQuery 打印

本文链接：https://blog.csdn.net/weixin_41660162/article/details/79828210

版权

该博客介绍了如何在Delphi应用中利用TADOQuery组件来处理Sqlserver数据库的多结果集，并通过TppReport进行数据打印。通过创建并配置TDataSource和TppDBPipeline，将多个数据集连接到报告模板，实现多表数据的打印功能。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

//引用单元：
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

最低0.47元/天解锁文章