在VB 5.0中生成统计图形

Author: 陈震晗 Date: 1999年第8期 13版

    在用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的属性即可定制成其他各种二维或三维图表。