|
 |
推荐文章 |
|
|
|
|
|
|
|
|
|
|
| 作者：本站收集 日期：2005-8-4 11:33:20 |
|
|
在用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的属性即可定制成其他各种二维或三维图表。 |
|
|
|
|
|
特别声明： 本站除部分特别声明禁止转载的专稿外的其他文章可以自由转载，但请务必注明出处和原始作者。文章版权归文章原始作者所有。对于被本站转载文章的个人和网站，我们表示深深的谢意。如果本站转载的文章有版权问题请联系编辑人员，我们尽快予以更正。 |
|
|
|
|
|
责任编辑： 原点 |
投稿作者： 本站收集 |
|
|
信息来源： 网络 |
录入时间： 2005-8-4 11:33:20 |
|
|
|
| |
|
设为首页
加入收藏
总编信箱
投稿或申请专栏请先 [登 陆]