图表在VB中应用.docVIP

图表在VB中应用 　　摘要：图表可以使数据图形化，非常直观地显示数据，使数据之间的对比或趋势一清二楚。它对提高信息价值，更准确地表达信息和观点意义重大。文章以实例探讨了图表在VB中的应用。 　　中图分类号：TP311 文献标识码：A 文章编号：1009-3044（2016）21-0091-05 　　1 背景 　　图表是指在屏幕中显示，可直观展示统计时间、数量等信息属性，对知识挖掘和信息直观生动感受起关键作用的图形结构。或许我们无法轻易记住一连串的数字，以及它们之间的趋势和关系，但是可以很容易地记住一个曲线、一幅图画。图表可以用来表现数据间的某种相对关系，例如，柱形图可以比较数据间的多少关系，用折线图可以分析和比较数据。通过使用图表，可以使数据更加有趣、吸引人、易于阅读和评价，从而更容易表达观点。 　　2 实现方法 　　2.1 开发工具介绍 　　软件开发工具为VB6.0，数据库管理系统为Access 2010。VB是Microsoft公司开发的一种程序设计语言。它采用了面向对象的设计思想、事件驱动的编程机制。它具备强大的数据库访问能力，可以方便地访问Oracle、SQL Server、Access等多种数据库管理系统。Access是一个方便灵活的关系型数据库管理系统，它提供了完整的数据库应用开发工具，适合开发特定的面向数据库的Windows应用程序。 　　2.2 实现过程 　　在VB中，单击“工程”菜单下的“部件”，勾选“Microsoft Tabbled Control 6.0（SP6）”，即在工具箱中添加SSTab控件，用作选项卡；勾选“Microsoft Chart Control 6.0（SP4）（OLEDB）”，用于显示图表；同时勾选“Microsoft Hierarchical FlexGrid Control 6.0（OLEDB）”，即在工具箱中添加MSHFlexGrid控件，用以显示查询结果。单击“工程”菜单下的“引用”，勾选“Microsoft ActiveX Data Objects 2.8 Library”，即引用ADO对象。 　　Access数据库名为“收支管理”，在“收支管理”数据库中有以下几张表结构及基础数据。 　　“图表类型”下拉列表中可以选择“二维柱形图”、“二维饼图”。“收入情况”选项卡中，单击按“姓名统计”按钮，MSChart控件按姓名能显示出相应类型的图表，MSHFlexGrid控件显示明细，Combo1～Combo2用来保存图例。“按项目统计”根据收入项目显示图表及明细。“支出情况”选项卡同“收入情况”选项卡类似。默认图表类型为二维饼图。 　　代码如下： 　　1）建立MdlExecuteSQL模块，主要用来连接数据库和执行查询，代码如下： 　　Public Str_path As String 　　Public Function Connectstring（） As String 　　Str_path = CurDir（） ＼ 收支管理.accdb 　　Connectstring = Provider=Microsoft.Jet.OLEDB.4.0；Data Source= Str_path ；Persist Security Info=False 　　End Function 　　Public Function ExeCutesql（ByVal Sql As String， Msgstring As String） As ADODB.Recordset 　　Dim cnn As New ADODB.Connection 　　Dim Rst As ADODB.Recordset 　　Dim Stokens（） As String 数组 　　On Error GoTo executesql_error 　　Stokens = Split（Sql） 将sql语句按关键字保存在数组中 　　Set cnn = New ADODB.Connection 　　cnn.Open Connectstring 　　If InStr（INSERT，DELETE，UPDATE， UCase$（Stokens（0））） 0 Then 　　cnn.Execute Sql 　　Msgstring = Stokens（0） 操作成功 　　Else 　　Set Rst = New ADODB.Recordset 　　Rst.Open Trim$（Sql）， cnn， adOpenKeyset， adLockOptimistic 从服务器中提取符合要求的记录集 　　Set ExeCutesql = Rst 　　Msgstring = 查询到