VBGood网站全文搜索 Google

搜索VBGood全站网页(全文搜索)
首页 - 经验之谈 - 运用MSChart,生成统计图形
发表评论(0)作者:, 平台:, 阅读:21035, 日期:2000-03-12
在VB5中生成统计图形


在用VB5进行数据库编程时,经常要生成统计图形。生成的方法有很多种,最

简单的是利用VB5提供的MSChart控件。具体操作方法如下:

  1.首先在VB5“工程”→“部件”中找到“Microsoft Chart Control5.0”项,

选中并应用,此时在工具面板中出现MSChart控件图标。选中它并在新工程的Form1

中画一矩形,生成MSChart1,即出现缺省状态的直方图。设其ColumnCount属性为1。

  2.利用Access或VB5的可视化数据管理器生成一个example.mdb的数据库,在其

中建一名为temp的数据表,包含“日期”和“数据”两个字段,并在表中输入一些

记录。

  3.在Form1中生成一个Command1按钮,然后在Private Sub Command1_click()

中写入以下代码:

  dim i as integer

  dim NewDyn as recordset

  dim OpenWs as Workspace

  dim OpenDB as DataBase

  set OpenWs=DBengine.Workspaces(0)

  set OpenDB=OpenWs.Opendatabase(app.path & ″\example.mdb″)

  set NetDyn=OpenDB.Openrecordset(″select * from temp″,dbOpenSnapShot)

  NewDyn.MoveLast

  NewDyn.Movefirst

  If NewDyn.RecordCount=0 then

  Msgbox″请在数据库中输入数据!″,vbCritical

  Exit sub

  End if

  With MSChart1

  .TitleText=″直方图示例″

  .RowCount=NewDyn.ReordCount

  For i=1 to NewDyn.RecordCount

  .Row=i

  .Data=NewDyn.Fields(″数据″)

  .Rowlabel=NewDyn.Fields(″日期″)

  NewDyn.MoveNext

  Next i

  End With

  NewDyn.Close

  4.运行时按Command1键即可生成统计图表了。

  如果想生成其他类型的图形,修改MSChart1的属性即可定制成其他各种二维或三维

图表。