zoukankan      html  css  js  c++  java
  • DLL封装ReportMachine/FastReport报表

    DLL封装ReportMachine/FastReport报表


    如果有报表文件兼容性问题,可以参考下面的方法来将某版本的报表封装到DLL中来使用。
    首先建立一个DLL工厂,然后建立一个主窗体,在窗体中放入报表相关的控件。


    为了传入变量,我们简单定义一个变量名称/值对应用的对象:



    //变量对应,可以用于变量和对象
      RMVariants
    =class
        VarName:
    string;
        VarValue:
    string;
     
    end;



    然后定义一个输出函数:




    procedure ShowReport(vFile:string;vDSList:TList;vVarValueList:TList=nil);stdcall;
    var
      i:Integer;
      aDataSet:TADODataSet;
      aRMDBDataSet:TRMDBDataSet;
      aRMVariants:RMVariants;
    begin
     
    try
        frmReport:
    =TfrmReport.Create(nil);
       
    with frmReport do
       
    begin
          RMReport1.LoadFromFile(vFile);

         
    //创建结果集列表
         
    if vDSList<>nil then
         
    for I := 0 to vDSList.Count - 1 do
         
    begin
            aDataSet:
    =TADODataSet.Create(nil);
            aDataSet.Clone(TADODataSet(vDSList[i]));
            aDataSet.Name:
    =TDataSet(vDSList[i]).Name;

            aRMDBDataSet:
    =TRMDBDataSet.Create(nil);
            aRMDBDataSet.DataSet:
    =aDataSet;
            aRMDBDataSet.Name:
    ="RMDB"+aDataSet.Name;

            InsertComponent(aDataSet);
            InsertComponent(aRMDBDataSet);
         
    end;

         
    //对变量进行赋值
         
    if vVarValueList<>nil then
         
    for I := 0 to vVarValueList.Count - 1 do
         
    begin
            aRMVariants:
    =RMVariants(vVarValueList[i]);
            RMReport1.Dictionary.Variables[aRMVariants.VarName] :
    =aRMVariants.VarValue;
         
    end;

          RMReport1.ShowReport
       
    end;
     
    finally
        frmReport.Free;
     
    end;
    end;



    然后在需要的时候调用该DLL即可。


    上面代码使用了ADO,为了更通用,可以使用ClientDataSet来处理数据,在窗体中放在TDataSetProvider和TClientDataSet来处理结果集,如果不想发布Midas.dll,可以引用单元MidasLib



    注:以上示例使用了ReportMachine,同样适用于FastReport.

  • 相关阅读:
    Dapper and Repository Pattern in MVC
    在linux中使用多个redis端口来构建redis集群
    搭建Sql Server AlwaysOn 视频教程
    支付宝支付插件使用文档
    NopCommerce添加事务机制
    NopCommerce(3.9)作业调度插件
    微信扫码支付插件使用文档
    生成HTML表格的后台模板代码
    json字符串和字典类型的相互转换
    NopCommerce适应多数据库方案
  • 原文地址:https://www.cnblogs.com/edrp/p/2465801.html
Copyright © 2011-2022 走看看