Grid++Report是为优秀的报表控件，子报表是其重要功能之一，但Grid++Report提供的网页报表示范主要是以页面为主的，UniGui在Delphi中以快速编写web管理软件著称，但由于资料文档很少，经过摸索，Grid++Report的子报表要在uniGUi中正确获取子报表数据，只能通过Ajax数据回调的方式进行，在uniGUi中对前端Ajax的响应，就要是通过控件的AjaxEvent事件来处理。报表模板的展示部分的HTML代码要放在UniURLFrame控件的HTML属性中。
AjaxEvent事件函数如下：

FormAjaxEvent(Sender: TComponent; EventName: string;  Params: TStrings);

EventName代表浏览器前端传入的事件名称

Params 浏览器前端传入的参数

UniURLFrame中的网页代码：

其中：

{xmlTop10Product}
{xmlProductList}
{xmlTop10Customer}
{xmlCustomer}

这几个地方需要在服务端运行时替换为UniGui可以识别的回调URL地址。
---------------------
作者：shuiying
来源：CSDN
原文：https://blog.csdn.net/shuiying/article/details/49948667
版权声明：本文为博主原创文章，转载请附上博文链接！

<span style="font-family: Arial, Helvetica, sans-serif;"><head></span>

<title>Web报表(B/S报表)演示 - 子报表，子报表模板集成定义</title>

    <meta http-equiv="Content-Type" content="text/html; charset=utf-"/>

    <script src="files/CreateControl.js" type="text/javascript"></script>

    <script type="text/javascript">

var CustomerReport;

var ProductReport;

var Top10CustomerReport;

var Top10ProductReport;

//在网页初始加载时向报表提供数据

function window_onload() {

    CustomerReport = ReportViewer.Report.ControlByName("srCustomerList").AsSubReport.Report;

   ProductReport = ReportViewer.Report.ControlByName("srProductList").AsSubReport.Report;

    Top10CustomerReport = ReportViewer.Report.ControlByName("srTop10Customer").AsSubReport.Report;

    Top10ProductReport = ReportViewer.Report.ControlByName("srTop10Product").AsSubReport.Report;

    //关联事件

    CustomerReport.OnInitialize = OnCustomerInitialize;

    ProductReport.OnInitialize = OnProductInitialize;

    Top10CustomerReport.OnInitialize = OnTop10CustomerInitialize;

    Top10ProductReport.OnInitialize = OnTop10ProductInitialize;

    //开启报表生成进度条显示

//    ReportViewer.Report.ShowProgressUI = true;

    //启动运行

    ReportViewer.Start();

}

function OnCustomerInitialize()

{

    //载入子报表数据

    CustomerReport.LoadDataFromURL("{xmlCustomer}");

}

function OnProductInitialize()

{

    //载入子报表数据

    ProductReport.LoadDataFromURL("{xmlProductList}");

}

function OnTop10CustomerInitialize()

{

    //载入子报表数据

    Top10CustomerReport.LoadDataFromURL("{xmlTop10Customer}");

}

function OnTop10ProductInitialize()

{

    //载入子报表数据

    Top10ProductReport.LoadDataFromURL("{xmlTop10Product}");

}

    </script>

    <style type="text/css">

        html,body {

            margin:0;

            height:100%;

        }

    </style>

</head>

<body style="margin:" onload="window_onload()">

    <script type="text/javascript">

        CreatePrintViewerEx("%", "%", "files/4a.grf", "", false, "");

    </script>

</body>

---------------------

作者：shuiying

来源：CSDN

原文：https://blog.csdn.net/shuiying/article/details/49948667

版权声明：本文为博主原创文章，转载请附上博文链接！

Delphi中Main单元的代码：

unit Main;

interface

uses

  Windows, Messages, SysUtils, Variants, Classes, Graphics,

  Controls, Forms, Dialogs, uniGUITypes, uniGUIAbstractClasses,

  uniGUIClasses, uniGUIRegClasses, uniGUIForm, Data.DB, Datasnap.DBClient,

  uniToolBar, uniGUIBaseClasses, uniPanel, uniHTMLFrame, uniURLFrame;

type

  TMainForm = class(TUniForm)

    UniToolBar1: TUniToolBar;

    btnClose: TUniToolButton;

    cdsCDS1: TClientDataSet;

    UniURLFrame1: TUniURLFrame;

    procedure UniFormCreate(Sender: TObject);

    procedure UniFormAjaxEvent(Sender: TComponent; EventName: string;

      Params: TStrings);

    procedure btnCloseClick(Sender: TObject);

  private

    { Private declarations }

  public

    procedure ReplaceTags;

    { Public declarations }

  end;

function MainForm: TMainForm;

implementation

{$R *.dfm}

uses

  uniGUIVars, MainModule, uniGUIApplication;

function MainForm: TMainForm;

begin

  Result := TMainForm(UniMainModule.GetFormInstance(TMainForm));

end;

procedure TMainForm.btnCloseClick(Sender: TObject);

begin

  UniMainModule.Terminate;

end;

procedure TMainForm.ReplaceTags;

var

  S, Sc : string;

begin

  S:=UniURLFrame1.HTML.Text;

  Sc:=UniSession.CallbackUrl('subReportData', Self, ['RES', 'xmlCustomer']);

  S:=StringReplace(S, '{xmlCustomer}', Sc, []);

  Sc:=UniSession.CallbackUrl('subReportData', Self, ['RES', 'xmlProductList']);

  S:=StringReplace(S, '{xmlProductList}', Sc, []);

  Sc:=UniSession.CallbackUrl('subReportData', Self, ['RES', 'xmlTop10Product']);

  S:=StringReplace(S, '{xmlTop10Product}', Sc, []);

  Sc:=UniSession.CallbackUrl('subReportData', Self, ['RES', 'xmlTop10Customer']);

  S:=StringReplace(S, '{xmlTop10Customer}', Sc, []);

  UniURLFrame1.HTML.Text:=S;

end;

procedure TMainForm.UniFormAjaxEvent(Sender: TComponent; EventName: string;

  Params: TStrings);

var

  st:TStringList;

begin

  if EventName='subReportData' then   //定义的子报表数据回调事件

  begin

     if Params.Values['RES']='xmlCustomer' then  //根据Res参数判断是哪一个子报表请求数据

     begin

        try

          st := TStringList.Create;

          st.LoadFromFile(ExtractFilePath(Application.ExeName)+'data\xmlCustomer.xml');

          UniSession.AResponse.ContentText := st.Text;

        finally

          st.Free;

        end;

     end;

     if Params.Values['RES']='xmlProductList' then

     begin

        try

          st := TStringList.Create;

          st.LoadFromFile(ExtractFilePath(Application.ExeName)+'data\xmlProductList.xml');

          UniSession.AResponse.ContentText := st.Text;

        finally

          st.Free;

        end;

     end;

     if Params.Values['RES']='xmlTop10Product' then

     begin

        try

          st := TStringList.Create;

          st.LoadFromFile(ExtractFilePath(Application.ExeName)+'data\xmlTop10Product.xml');

          UniSession.AResponse.ContentText := st.Text;

        finally

          st.Free;

        end;

     end;

     if Params.Values['RES']='xmlTop10Customer' then

     begin

        try

          st := TStringList.Create;

          st.LoadFromFile(ExtractFilePath(Application.ExeName)+'data\xmlTop10Customer.xml');//可以修改为实时生成的报表支持的xml格式的文本也行

          UniSession.AResponse.ContentText := st.Text;

        finally

          st.Free;

        end;

     end;

  end;

end;

procedure TMainForm.UniFormCreate(Sender: TObject);

begin

  Self.ReplaceTags;

end;

initialization

  RegisterAppFormClass(TMainForm);

end.

---------------------

作者：shuiying

来源：CSDN

原文：https://blog.csdn.net/shuiying/article/details/49948667

版权声明：本文为博主原创文章，转载请附上博文链接！

UniGui中使用Grid++Report报表控件子报表获取数据的方法的更多相关文章

  1. 葡萄城公布新版ActiveReports 9报表控件和报表server

    2014年11月10日---葡萄城宣布正式公布ActiveReports9,包含了三种报表模型:RDL报表.页面报表.区域报表.对于ActiveReports中的这个最新版本号中,我们专注于提高产品的 ...

  2. 市委组织部考核项目——利用EasyUi中可编辑的DataGrid控件对多行数据进行编辑并提交

    http://blog.csdn.net/cjr15233661143/article/details/19041165 市委组织部考核项目中需要录入原始数据,拿开发区的数据录入举例说明,见下图,需要 ...

  3. 在Repeater控件的OnItemDataBound获取数据源记录总数

    Insus.NEt曾经有写过一篇<Repeater控件最后一笔记录高亮显示> ,它的实现是先宣告一个页面级的变量,然后在Data_Binding()方法内获取数据源的记录总数. 本篇是的重 ...

  4. 报表控件NCReport教程：集成NCReport到Qt应用程序中

    NCReport是一款轻量级.快速.多平台.简单易用的基于Qt toolkit的C++编写的报表解决方案,目前主要包括报表渲染库和报表设计器GUI应用程序. 但是好多使用NCReport控件的朋友都不 ...

  5. 在ASP.NET MVC 中使用ActiveReports报表控件

    随着MVC模式的广泛运用,对Web应用系统的开发带来了巨大的影响,我们好像又回到了原来的ASP时代,视乎这是一种后退而不是一种进步,不过MVC模式给我们带来的影响不仅限于我们所看到的这一点..MVC看 ...

  6. Qt开发环境中使用报表控件FastReport遇到的一些问题（一）

    FastReport是一款优秀的报表控件,由俄罗斯开发,国内有代理商.Qt环境下可实现报表功能的还有一款叫NCReport,也是收费控件,比较来比较去还是觉得前者功能强点.网上讲解此控件在Qt中使用的 ...

  7. 在网页中编辑报表的报表设计器Stimulsoft Reports Designer.Web报表控件

    Stimulsoft Reports Designer.Web报表控件是一款网页报表设计器.您想在网页中编辑您的报表吗?现在是可能的! Stimulsoft Reports Designer.Web ...

  8. 机房收费系统中的Grid++Report报表设计器的应用

    在进行账单查询功能的时候我应用了Grid++Report报表设计器,下面我就为大家介绍一下,还望大家多多指点. 首先,在Grid++Report报表设计器中进行报表界面的设置.在属性编辑窗口中这里对报 ...

  9. FastReport报表控件使用技巧总结

    FastReport报表控件使用技巧总结 1.FastReport中如何访问报表中的对象? 可以使用FindObject方法. TfrxMemoView(frxReport1.FindObject(' ...

随机推荐

  1. vim常用配置 vimrc文件

    自从接触vim,自己瞎鼓捣.vimrc也有一段时间了.收集记录一下好用的配置. 一.奇技淫巧 1.折叠代码 折叠代码常常用在代码块较长的情况下,比如一个文件里定义了很多个函数,或者注释.括号影响的阅读 ...

  2. mybatis generator 源码学习

    mybatis/generator 源码地址mybatis/parent 源码地址1. 分别点击Download ZIP下载到本地. 2. 解压generator-master.zip中的core到g ...

  3. 切面编程AOP之Castle.Core

    1.Nuget中搜索Castle.Core并install 2.创建一个普通的类(注意类中只有标记virtual才能实现拦截 ) public class TestInterceptor { publ ...

  4. 帆软报表(FineReport)实现跨数据源父子查询(2阶段查询)

    问题描述: 在报表中需要查询多个系统多个数据源,且有一个数据源的入参是另一个数据源的返回值.所以当用户点击查询到展现报表数据这个过程中,需要先做父查询,查询出的结果在作为子查询. 实现方案: 方案一: ...

  5. node.js中对 redis 的安装和基本操作

    一.win下安装redis https://github.com/MicrosoftArchive/redis/releases 下载Redis-x64-3.2.100.zip,然后解压,放到自定义目 ...

  6. VBA读写ini 配置文件

    Option Explicit 'read Private Declare Function GetPrivateProfileString Lib "kernel32" Alia ...

  7. python爬虫工具集合

    python爬虫工具集合 大家一起来整理吧!强烈建议PR.这是初稿,总是有很多问题,而且考虑不全面,希望大家支持! 源文件 主要针对python3 常用库 urllib Urllib是python提供 ...

  8. Mysql必知必会 第一章 了解SQL

    第一章 了解SQL 1.1 数据库基础 1.1.1 什么是数据库 数据库的定义:保存有组织的数据的容器 数据库软件不是数据库,而是DBMS 1.1.2 表 表(Table)的定义:某种特定类型数据的结 ...

  9. 什么是 superset

    Superset 是 Airbnb 开源的大数据可视化平台,其特性包括: backend 支持几乎所有主流的数据库 支持复杂的权限控制和管理(OpenId, OAuth 等),满足企业内部不同部门人员 ...

  10. 【SerpentAI：Python开源游戏智能体开发框架——相比OpenAI Universe可导入自己的游戏、可脱离Docker/VNC运行】

    https://weibo.com/fly51fly?from=myfollow_all&is_all=1#1514439335614 [SerpentAI:Python开源游戏智能体开发框架 ...