ActiveReports 报表应用教程 (6)---分组报表

系统 1785 0
原文: ActiveReports 报表应用教程 (6)---分组报表

在 ActiveReports 中可以设置单级分组、嵌套分组,同时,还可以使用表格、列表以及矩阵等数据区域控件对数据源进行分组操作。分组报表在商业报表系统中应用不胜枚举,客户信息归类统计表、商品分类统计表、销售记录年度、阅读统计等等。本文将介绍如何在 ActiveReports 中实现分组报表。

1、创建报表文件

在应用程序中添加一个 ActiveReports 报表文件,使用的项目模板类型为 ActiveReports 页面报表。添加完成之后从 VS 报表菜单中选择报表属性菜单项,并在外观选项卡中设置报表页边距为 1cm

ActiveReports 报表功能展示 固定页面报表

2、打开报表资源管理器,并按照以下信息创建报表数据源

名称:
NWind_CHS

类型:
Micorsoft OleDb Provider

OLE DB 提供程序:
Microsoft.Jet.OLEDB.4.0

服务器或文件名称:
Data\NWind_CHS.mdb

ActiveReports 报表功能展示 页面报表数据源

3、 添加数据集

在新建的 NWind_CHS 数据源上鼠标右键并选择添加数据集菜单项,数据集信息如下:

常规-名称:Products

查询-查询:

      
        
          SELECT
        
         产品.*,类别.类别名称,类别.说明 
        
          AS
        
         类别说明,类别.图片 
        
          AS
        
         类别图片, 供应商.公司名称 
        
          AS
        
         供应商,供应商.联系人姓名,供应商.城市,供应商.地址


      
        
          FROM
        
         (供应商 
        
          INNER
        
        
          JOIN
        
         产品 
        
          ON
        
         供应商.供应商ID = 产品.供应商ID) 
        
          INNER
        
        
          JOIN
        
         类别 
        
          ON
        
         产品.类别ID = 类别.类别ID


      
        
          ORDER
        
        
          BY
        
         产品.类别ID;
      

4、设计报表界面

选中报表的第一页 Page1,点击属性窗口命令区域中【属性对话框】命令链接,在出现的设置对话框中设置以下信息:

常规-数据集名称:
Products

分组-表达式:
=[类别名称]

4.1、从 VS 工具箱中将 Table 控件添加到报表设计界面,设置 Table1 的 FixedSize 为 19cm * 25cm,并按照以下信息各个数据单元格的属性:

单元格行列索引
控件
属性

Cells[1,1]
TextBox
Value=First(Fields!类别名称.Value) & "  (" & First(Fields!类别说明.Value) & ")"

Cells[3,1]
TextBox
Value=Fields!产品名称.Value

Cells[3,2]
TextBox
Value=Fields!单位数量.Value

Cells[3,3]
TextBox
Value=Fields!单价.Value

Cells[3,4]
TextBox
Value=Fields!订购量.Value

Cells[3,5]
TextBox
Value=Fields!再订购量.Value

Cells[3,6]
TextBox
Value=Fields!单价.Value *  Fields!订购量.Value

Cells[3,7]
Image
Value=IconSet("Symbols2",Fields!中止.Value = 0,False,Fields!中止.Value * -1,False,False)

Cells[4,5]
TextBox
Value=Sum(Fields!订购量.Value, "Table1")

Cells[5,5]
TextBox
Value=Sum(Fields!库存量.Value, "Table1")

Cells[6,5]
TextBox
Value=Sum(Fields!单价.Value * Fields!订购量.Value, "Table1")

最终得到的设计界面如下图所示:

ActiveReports 报表功能展示 分组报表

5、运行程序

通过 F5 键运行程序,得到以下运行结果:

ActiveReports 报表功能展示 分组报表

在线演示及源码下载地址:

http://www.gcpowertools.com.cn/products/activereports_demo.htm
ActiveReports 报表功能展示

ActiveReports 报表应用教程 (6)---分组报表


更多文章、技术交流、商务合作、联系博主

微信扫码或搜索:z360901061

微信扫一扫加我为好友

QQ号联系: 360901061

您的支持是博主写作最大的动力,如果您喜欢我的文章,感觉我的文章对您有帮助,请用微信扫描下面二维码支持博主2元、5元、10元、20元等您想捐的金额吧,狠狠点击下面给点支持吧,站长非常感激您!手机微信长按不能支付解决办法:请将微信支付二维码保存到相册,切换到微信,然后点击微信右上角扫一扫功能,选择支付二维码完成支付。

【本文对您有帮助就好】

您的支持是博主写作最大的动力,如果您喜欢我的文章,感觉我的文章对您有帮助,请用微信扫描上面二维码支持博主2元、5元、10元、自定义金额等您想捐的金额吧,站长会非常 感谢您的哦!!!

发表我的评论
最新评论 总共0条评论