在VB5中生成统计图形
2006-02-27 11:55:09 来源:WEB开发网核心提示:在用VB5进行数据库编程时,经常要生成统计图形,在VB5中生成统计图形,生成的方法有很多种,最简单的是利用VB5提供的MSChart控件,vbCriticalExitsubEndifWithMSChart1.TitleText=″直方图示例″.RowCount=NewDyn.ReordCountFori=1toNewD
在用VB5进行数据库编程时,经常要生成统计图形。生成的方法有很多种,最简单的是利用VB5提供的MSChart控件。具体操作方法如下:
1.首先在VB5“工程”→“部件”中找到“MicrosoftChartControl5.0”项,选中并应用,此时在工具面板中出现MSChart控件图标。选中它并在新工程的Form1中画一矩形,生成MSChart1,即出现缺省状态的直方图。设其ColumnCount属性为1。
2.利用access或VB5的可视化数据管理器生成一个example.mdb的数据库,在其中建一名为temp的数据表,包含“日期”和“数据”两个字段,并在表中输入一些记录。
3.在Form1中生成一个Command1按钮,然后在PRivateSubCommand1_click()中写入以下代码:
dimiasinteger
dimNewDynasrecordset
dimOpenWsasWorkspace
dimOpenDBasDataBase
setOpenWs=DBengine.Workspaces(0)
setOpenDB=OpenWs.Opendatabase(app.path&″\example.mdb″)
setNetDyn=OpenDB.Openrecordset(″select*fromtemp″,dbOpenSnapShot)
NewDyn.MoveLast
NewDyn.Movefirst
IfNewDyn.RecordCount=0then
Msgbox″请在数据库中输入数据!″,vbCritical
Exitsub
Endif
WithMSChart1
.TitleText=″直方图示例″
.RowCount=NewDyn.ReordCount
Fori=1toNewDyn.RecordCount
.Row=i
.Data=NewDyn.Fields(″数据″)
.Rowlabel=NewDyn.Fields(″日期″)
NewDyn.MoveNext
Nexti
EndWith
NewDyn.Close
4.运行时按Command1键即可生成统计图表了。
如果想生成其他类型的图形,修改MSChart1的属性即可定制成其他各种二维或三维图表。->
1.首先在VB5“工程”→“部件”中找到“MicrosoftChartControl5.0”项,选中并应用,此时在工具面板中出现MSChart控件图标。选中它并在新工程的Form1中画一矩形,生成MSChart1,即出现缺省状态的直方图。设其ColumnCount属性为1。
2.利用access或VB5的可视化数据管理器生成一个example.mdb的数据库,在其中建一名为temp的数据表,包含“日期”和“数据”两个字段,并在表中输入一些记录。
3.在Form1中生成一个Command1按钮,然后在PRivateSubCommand1_click()中写入以下代码:
dimiasinteger
dimNewDynasrecordset
dimOpenWsasWorkspace
dimOpenDBasDataBase
setOpenWs=DBengine.Workspaces(0)
setOpenDB=OpenWs.Opendatabase(app.path&″\example.mdb″)
setNetDyn=OpenDB.Openrecordset(″select*fromtemp″,dbOpenSnapShot)
NewDyn.MoveLast
NewDyn.Movefirst
IfNewDyn.RecordCount=0then
Msgbox″请在数据库中输入数据!″,vbCritical
Exitsub
Endif
WithMSChart1
.TitleText=″直方图示例″
.RowCount=NewDyn.ReordCount
Fori=1toNewDyn.RecordCount
.Row=i
.Data=NewDyn.Fields(″数据″)
.Rowlabel=NewDyn.Fields(″日期″)
NewDyn.MoveNext
Nexti
EndWith
NewDyn.Close
4.运行时按Command1键即可生成统计图表了。
如果想生成其他类型的图形,修改MSChart1的属性即可定制成其他各种二维或三维图表。->
更多精彩
赞助商链接