×

关注微信公众号

免备案网站空间虚拟主机双线空间域名查询PS数码后期
photoshop互助课堂数百G视频教程下载英语培训机构初中英语如何学随时随地聆听大师开讲/课堂
酷素材!视频教程打包下手绘教程抠图教程路径专辑photoshop cs3视频教程
查看: 254761|回复: 5

[vb,vc,delphi] 在VB5中生成统计图形

[复制链接]
发表于 2005-11-25 09:25:18 | 显示全部楼层 |阅读模式
在用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的属性即可定制成其他各种二维或三维图表。
本帖的地址:http://bbs.jcwcn.com/forum.php?mod=viewthread&tid=5350
跟着教程做一遍,做完的图要到这里评论交作业,教程有看不懂的地方,可以在贴子下面评论
发表于 2018-7-11 19:14:58 | 显示全部楼层
酷素材
很不错。。。
回复 支持 反对

使用道具 举报

发表于 2018-7-11 19:21:03 | 显示全部楼层
好帖就是要顶
回复 支持 反对

使用道具 举报

发表于 2018-7-11 19:29:47 | 显示全部楼层
很好哦。。。
回复 支持 反对

使用道具 举报

发表于 2018-7-11 19:21:38 | 显示全部楼层
酷素材
学习了。。。
回复 支持 反对

使用道具 举报

发表于 2018-7-11 19:30:31 | 显示全部楼层
酷素材
教程网我挺你
回复 支持 反对

使用道具 举报

您需要登录后才可以回帖 登录 | [立即注册]

本版积分规则

2345