知识大全 ASP.NET中实时图表的实现

Posted 2022-07-17 文件

篇首语：亦余心之所善兮，虽九死其犹未悔。本文由小常识网(cha138.com)小编为大家整理，主要介绍了知识大全 ASP.NET中实时图表的实现相关的知识，希望对你有一定的参考价值。

ASP.NET中实时图表的实现 以下文字资料是由(全榜网网www.cha138.com)小编为大家搜集整理后发布的内容，让我们赶快一起来看一下吧！

　　在对大批量的数据进行分析比较时最常用也是最直观明了的表现方法莫过于绘制趋势图表一般情况下我们利用EXCEL制作各种类型的趋势图表但它们都是基于静态数据的即数据是事先整理好的而不是动态生成的如果在网上发布只能将绘制好的图表以静态GIF图像发布这无法从根本上满足不同用户对不同数据的需求

　　ASP擅长服务器端的Web编程操作后台数据库更是它的强项但是用ASP制作实时数据库图表有点困难因为ASP本身并不支持图表功能只能借助第三方控件进行开发如VB的MSChart控件微软推出的 NET Framework较好地解决了这个问题微软在 NET平台上集成了实时数据库图表制作组件—OWC（Microsoft Office Web Components）通过在ASP NET页面中调用OWC 我们可以轻松地绘制出各种类型的实时图表 OWC支持近种图表类型包括曲线图折线图柱状图面积图 K线图等与MSChart相比 OWC功能强大操作简单此外由于OWC是基于服务端的而MSChart只能应用在客户端因此在服务器端的Web开发中 MSChart要比OWC逊色不少

　　下面笔者将结合实例来具体阐述OWC在ASP NET页面中的应用这个实例是笔者开发的项目《化纤产品及其原料市场分析系统》中的一个子系统笔者在该项目中用到OWC 充分享受到了OWC的强大功能给开发工作带来的方便

　　三层结构

　　系统整体架构采用了B/S三层结构模式将系统分为用户界面层（也称为表现层）业务逻辑层（也称为功能层）和数据库服务层（也称为数据层）开发平台则采用了 NET Framework 有效地降低了系统对客户机的要求避免了在客户机上分发应用程序与版本控制的困难

　　● 用户界面层用户界面采用的是ASP NET技术 ASP NET技术的应用增强了系统的通用性客户端只需安装IE或Netscape等任一款浏览器无需加载任何组件

　　● 业务逻辑层采用了 NET Framework调用OWC的技术能够根据用户的要求快速取得数据库中的数据动态生成图表系统能够支持复杂的检索条件检索速度快响应时间短

　　● 数据库服务层数据库服务层可采用任何一款关系型数据库在本项目中笔者使用的是SQL Server 它能与 NET Framework无缝集成数据库存取技术则采用了ADO NET

　　下文我们将着重介绍业务逻辑层的实现方法

　　图表元素简介

　　一张完整的图表由若干个元素组成我们必须对它们有所了解才能随心所欲充分自如地对图表进行全方位的控制也才能更好地理解本程序笔者制作了一张简易的图表在图中标注了程序涉及到的主要部位和元素的名称借此帮助读者掌握OWC以及理解本文所引用的代码

　　使用OWC组件

　　在这一节里所涉及的源代码摘自于《化纤产品及其原料市场分析系统》该系统在Window /XP简体中文专业版 NET Framewrok 环境下通过使用OWC组件的步骤如下

　　在当前目录中新建一个存放图表文件的子目录chart 同时把对该目录的修改权限赋予ASP NET账户具体步骤如下用鼠标右键单击chart目录名选择属性菜单项在弹出的 Chart 属性对话框中单击安全选项卡再单击添加按钮找到ASP NET账户赋予修改权限单击确定按钮结束这样 ASP NET就可以在chart目录中写入图表文件了

　　定义一个服务器端的Image图像控件该图像的属性imageURL将在程序末尾被指向动态生成的图表文件因此在这里无需为它赋值

　　< asp image id= imgChart Width= Height= Visible= False Runat= server >< /asp image>

　　添加OWC引用

　　在使用OWC之前首先必须将OWC的引用加入到解决方案资源管理器中具体步骤如下打开解决方案资源管理器面板鼠标右键单击引用选择添加引用菜单在弹出的添加引用对话框中单击卡片找到 Microsoft Office Web Components 单击选择和确定按钮 OWC就被添加到了引用中

　　定义OWC空间并在该空间中加入一个OWC图表owcChart

　　Dim owcChartSpace As OWC ChartSpace = New OWC ChartSpace（）

　　Dim owcChart As OWC WCChart = owcChartSpace Charts Add

　　用SQL检索条件进行数据库检索并将检索结果以RecordSet数据集的方式赋给owcChart

　　OWC只支持RecordSet数据集不支持DataSet数据集因此在检索时不能使用sqlCommand sqlDataAdapter等对象只能使用RecordSet对象进行检索

　　打开connection连接

　　ConnADO Open（connectionString）

　　RecordsetADO ActiveConnection = ConnADO

　　设置游标为静态游标

　　RecordsetADO CursorType = ADODB CursorTypeEnum adOpenStatic

　　RecordsetADO CursorLocation = ADODB CursorLocationEnum adUseClient

　　变量strSQL中存放了标准SQL检索条件

　　RecordsetADO Open（strSQL）

　　然后将RecordSet数据集赋给OWC对象

　　owcChartSpace DataSource = RecordsetADO

　　在本例中我们假定用SQL语句检索出的数据共有三个字段产品日期和价格这三个字段的值分别与图表中的曲线分类（X）轴和数值（Y）轴的数据一一对应

　　确定曲线类型并确定区别不同曲线的字段名

　　首先确定曲线类型为平滑曲线

　　owcChart Type = OWC ChartChartTypeEnum chChartTypeSmoothLine

　　OWC支持在同一张图表中显示两条以上的曲线因此我们必须给出区别不同曲线的依据这个依据就是产品字段的取值具体地说产品字段中有几个不同的取值就会生成几条不同的曲线

　　owcChart SetData（OWC ChartDimensionsEnum chDimSeriesNames 产品）

　　确定分类（X）轴标签与数值（Y）轴标签所对应的字段

　　首先需要定义owcSeries为OWC的曲线集合然后遍历图表中的每一条曲线将日期字段的值赋给分类（X）轴作为X轴刻度标签将价格字段的值赋给数值（Y）轴作为Y轴刻度标签如果我们能够确定图表中只有一条曲线也可以省略遍历的过程但这样无疑会降低程序的通用性

　　Dim owcSeries As OWC WCSeries

　　For Each owcSeries In owcChart SeriesCollection

　　owcSeries SetData（OWC ChartDimensionsEnum chDimCategories 日期）

　　owcSeries SetData（OWC ChartDimensionsEnum chDimValues 价格）

　　对坐标轴的属性进行设置

　　这部分代码通过对坐标轴标题的文字内容颜色大小主要和次要刻度线及其标签主要和次要网络线等方面的设置美化图表读者如果对本段代码中的概念有些模糊可以参考前一部分提供的那张图表具体设置方法请参见以下代码

　　先定义axis为坐标轴集合

　　Dim axis As OWC WCAxis

　　遍历坐标轴集合

　　For Each axis In owcChart Axes

　　显示轴标题

　　axis HasTitle = True

　　先对分类（X）轴进行设置

　　If axis Type=OWC ChartAxisTypeEnum

　　chCategoryAxis Then

　　axis HasTickLabels = True

　　显示X轴刻度标签

　　axis Position = OWC ChartAxisPositionEnum chAxisPositionBottom

　　标签的显示位置

　　axis Title Font Color = blue

　　 X轴的标题文字颜色

　　axis Title Font Size =

　　 X轴的标题文字大小

　　axis Title Caption = 日期范围

　　 X轴的标题文字内容

　　Else

　　对数值（Y）轴进行设置

　　axis MajorGridlines Line Color = silver

　　 Y轴主要网络线的颜色

　　axis MajorTickMarks = OWC ChartTickMarkEnum chTickMarkNone

　　不显示Y轴主要刻度标记

　　axis HasTickLabels = True

　　显示Y轴刻度标签

　　axis Title Font Color = blue

　　 Y轴的标题文字颜色

　　axis Title Font Size =

　　 Y轴的标题文字大小

　　axis Title Caption= 价格（千元/吨）

　　 Y轴的标题文字内容

　　End If

　　以GIF图像格式输出图表并将图像文件名赋给Image控件

　　用随机数来生成随机文件名

　　Randomize（）

　　Dim nFileNameSuffix As Integer

　　Dim sFileNameSuffix As String

　　nFileNameSuffix = * Rnd（）

　　sFileNameSuffix = System Convert ToString（nFileNameSuffix）

　　以GIF格式输出图表大小为 * 图表的文件名为 polyesterprice_随机数 gif 存放在chart子目录中

　　owcChartSpace ExportPicture（MapPath（ chart/PolyesterPrice_ ） + sFileNameSuffix + gif gif ）

　　将Image控件的URL指向该图表文件

　　imgChart ImageUrl= chart/PolyesterPrice_ + sFileNameSuffix + gif

　　通过以上九个步骤我们就完成了一个实时数据库图表的生成与显示在此需要指出的是以上的九个步骤只是生成一张图表必不可少的基本过程通过设置OWC的其他属性可以更好更精确地控制图表的生成与显示方式如图例线条的粗细与颜色坐标轴刻度线及标签的显示频度网络线等这部分笔者不再介绍请参见本文第四部分的源代码

　　本文代码生成的图表效果请见下图

　　优化

　　上文中所有实时生成的图表文件都存放在chart文件夹中由于采用了随机文件名的方式因此这些文件不会互相覆蓋但是如此日积月累越来越多的文件不仅占用了硬盘空间也妨碍了管理降低了性能我们能不能在程序中自动删除以前的图表文件呢？答案是肯定的我们只要在代码文件的Page_Load（）函数中放置如下一段代码程序运行的时候就会自动删除当日以前的文件这样 chart文件夹中存放的就总是当日生成的图表文件从而有效地避免了文件垃圾

　　先取得chart文件夹中的文件列表

　　Dim fileEntries（） As String = System IO Directory GetFiles（MapPath（ chart ））

　　Dim sFile As String

　　遍历文件列表

　　For Each sFile In fileEntries

　　将文件的生成日期与系统日期相比如果是当日以前生成的文件删除它

　　If DateTime Compare（System IO File GetCreationTime（sFile） AddDays（） DateTime Now） < Then

　　System IO File Delete（sFile）

　　End If

cha138/Article/program/net/201311/11850