ActiveReports报表应用教程(14)---数据可视化-创新互联

ActiveReports 中提供了丰富的数据可视化解决方案，用户可以将数据以图像化的方式进行显示，让报表数据更加形象且便于理解。在 ActiveReports 报表中提供了大多数常用的二维和三维图表类型，包括XY表和财务图表。通过使用图表控件的定制功能，如修改坐标轴、图注、图例等，用户可以创建任何其所需要的图表效果。除了常见的图表类型外，还提供了波形图、数据条、图标等丰富的数据可视化控件。本示主要展示在表格控件中嵌套使用波形图控件来显示每月销售明细趋势，以及使用数据条控件和图形控件来显示全年销售业绩的完成情况。

创新互联公司服务项目包括紫阳网站建设、紫阳网站制作、紫阳网页制作以及紫阳网络营销策划等。多年来，我们专注于互联网行业，利用自身积累的技术优势、行业经验、深度合作伙伴关系等，向广大中小型企业、政府机构等提供互联网行业的解决方案，紫阳网站推广取得了明显的社会效益与经济效益。目前，我们服务的客户以成都为中心已经辐射到紫阳省份的部分城市，未来相信会继续扩大服务区域并继续获得客户的支持与信任！

1、创建报表文件

在应用程序中创建一个名为 rptSalesDashboard.rdlx 的 ActiveReports 报表文件，使用的项目模板为 ActiveReports 页面报表，创建完成之后从 VS 的报表菜单项中选择转换为连续页面布局(CPL)报表，将固定页面报表转换为连续页面报表。

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

名称：	NWind_CHS
类型：	Micorsoft OleDb Provider
OLE DB 提供程序：	Microsoft.Jet.OLEDB.4.0
服务器或文件名称：	Data\NWind_CHS.mdb

3、添加数据集

在新建的 NWind_CHS 数据源上鼠标右键并选择添加数据集菜单项，添加以下两个数据集：

常规-名称：SalesByCategory

查询-查询：

Select

类别.类别名称,t.*

from

(

SELECT

DATEPART("m",订单.订购日期)

AS

订购月,类别.类别ID,

SUM

(订单明细.数量)

AS

销售量

FROM

(( 订单

INNERJOIN

订单明细

ON

订单.订单ID = 订单明细.订单ID)

INNERJOIN

产品

ON

订单明细.产品ID = 产品.产品ID)

INNERJOIN

类别

ON

产品.类别ID = 类别.类别ID

WHERE

DATEDIFF("yyyy",订单.订购日期,'2011-01-01') = 0

GROUPBY

DATEPART("m",订单.订购日期),类别.类别ID, 类别.类别名称

ORDERBY

DATEPART("m",订单.订购日期),类别.类别ID, 类别.类别名称 )

as

INNERJOIN

类别

ON

t.类别ID = 类别.类别ID

常规-名称：SalesBySupplier

查询-查询：

SELECT

供应商.公司名称,

First

(产品.产品名称)

AS

产品名称,

SUM

(订单明细.数量)

AS

销售量,

SUM

(订单明细.单价 * 订单明细.数量)

AS

销售金额

FROM

订单明细

INNERJOIN

(产品

INNERJOIN

供应商

ON

产品.供应商ID = 供应商.供应商ID)

ON

订单明细.产品ID = 产品.产品ID

GROUPBY

供应商.公司名称, 产品.产品ID,产品.产品名称

ORDERBY

供应商.公司名称;

4、设计报表界面

4.1、从 Visual Studio 工具箱中将 Table 控件添加到报表设计界面，按照以下列表设置 Table 控件的属性：

常规-数据集名称：	SalesByCategory
详细数据分组：	名称：Table1_Detail_Group 分组表达式：=[类别ID]

各个单元格中使用的控件和设置的属性如下：

单元格	控件	属性
Cells[3,1]	TextBox	Value:=Fields!类别名称.Value
Cells[3,2]	TextBox	Value:=Fields!类别名称.Value
Cells[3,3]	Sparkline	SeriesValue：=Fields!销售量.Value Range.Backdrop.GradientStyle：VerticalCenter Range.Backdrop.FillColor：Gray Range.Backdrop.GradientEndColor：=Theme.Colors!Accent3 Range.LowerBound：=Fields!销售量.Value < Avg(Fields!销售量.Value, "SalesByCategory") * 0.8 Range.UpperBound：=Fields!销售量.Value > Avg(Fields!销售量.Value, "SalesByCategory") * 1.5 SparklineType：Columns
Cells[3,4]	Bullet	BestValue：2.5 Range1Boundary：0.85 Range2Boundary：1.65 TargetStyle.LineColor：Brown TargetStyle.LineWidth：5pt TargetValue：1 TickMarks：Inside TicksStyle.LineColor：Gray TicksStyle.LineWidth：1pt Value：=Fields!销售量.Value /Avg(Fields!销售量.Value, "SalesByCategory") ValueColor：=Theme.Colors!HyperlinkFollowed WorstValue：0
Cells[4,4]	Image	MIMEType：p_w_picpath/png Source：Database Value：=IconSet("Arrows",Fields!销售量.Value /Avg(Fields!销售量.Value, "SalesByCategory") >= 1.5,Fields!销售量.Value /Avg(Fields!销售量.Value, "SalesByCategory") >= 1.2,Fields!销售量.Value /Avg(Fields!销售量.Value, "SalesByCategory") >= 1.0,Fields!销售量.Value /Avg(Fields!销售量.Value, "SalesByCategory") >= 0.8,Fields!销售量.Value /Avg(Fields!销售量.Value, "SalesByCategory") < 0.8)

4.2、从 Visual Studio 工具箱中将 Table 控件添加到报表设计界面，按照以下列表设置 Table 控件的属性：

常规-数据集名称：	SalesBySupplier
排序：	表达式：=[销售量] 方向：降序
详细数据分组：	名称：Table1_Detail_Group 分组表达式：=[类别ID]
过滤：	表达式：=[销售量] 运算符：TopN 值：10

各个单元格中使用的控件和设置的属性如下：

单元格	控件	属性
Cells[3,1]	TextBox	Value:=Fields!产品名称.Value
Cells[3,2]	TextBox	Value:=Fields!公司名称.Value
Cells[3,3]	TextBox	=Fields!销售量.Value
Cells[3,4]	Bullet	BestValue：1.6 LabelFormat：0% Range1Boundary：0.4 Range2Boundary：0.8 TargetShape：Dot TargetStyle.LineColor：Brown TargetStyle.LineWidth：3pt TargetValue：0.6 TickMarks：Inside TicksStyle.LineColor：LightGray TicksStyle.LineWidth：1pt Value=Fields!销售量.Value /Avg(Fields!销售量.Value, "SalesBySupplier") ValueColor：=Theme.Colors!HyperlinkFollowed WorstValue：0
Cells[4,4]	Image	MIMEType：p_w_picpath/png Source：Database Value：=IconSet("Flags",Fields!销售量.Value /Avg(Fields!销售量.Value, "SalesBySupplier") > 1.2,Fields!销售量.Value /Avg(Fields!销售量.Value, "SalesBySupplier") > 1.0,Fields!销售量.Value /Avg(Fields!销售量.Value, "SalesBySupplier") <=1.0,False,False)

最终设计效果如下：

ActiveReports 报表应用教程 (14)---数据可视化

5、运行程序

ActiveReports 报表应用教程 (14)---数据可视化

在线演示及×××地址：

http://www.gcpowertools.com.cn/products/activereports_demo.htm
ActiveReports 报表应用教程 (14)---数据可视化

另外有需要云服务器可以了解下创新互联scvps.cn，海内外云服务器15元起步，三天无理由+7*72小时售后在线，公司持有idc许可证，提供“云服务器、裸金属服务器、高防服务器、香港服务器、美国服务器、虚拟主机、免备案服务器”等云主机租用服务以及企业上云的综合解决方案，具有“安全稳定、简单易用、服务可用性高、性价比高”等特点与优势，专为企业上云打造定制，能够满足用户丰富、多元化的应用场景需求。

网站栏目：ActiveReports报表应用教程(14)---数据可视化-创新互联
本文地址：http://scjbc.cn/article/cessip.html