VB6.0中通过MSChart控件调用数据库

转载 2007年09月28日 13:36:00
VB6.0中的MSChart控件是一个功能强大的高级图表工具,拥有丰富的图表绘制功能,可显示二维和三维的棒图、区域图、线形图、饼图等多种常用图表。近日我为了在双击图表的某个区域时将与该区域相对应的数据库的内容在DataGrid控件上显示出来,遇到了许多困难,最后用一个自定义的变量SelectSeries解决了问题,具体方法如下:
  设数据库名称为“学生信息”,有一Access表“学生成绩”,其内容为一个班学生的考试成绩,包括学号、姓名、成绩3个字段,成绩字段格式是字符型,值为“优”、“良”、“中”、“差”中的一个。
  窗体Form1包括一个MSChart控件McScore,类型为二维饼图,用于显示每种成绩的学生数;一个ADO控件AdScore用于连接数据库;一个DataGrid控件DgScore用于以表格形式显示数据库内容。
  工作过程为:双击饼图的某个区域,则DgScore显示相应成绩的学生名单。
  代码如下:
  Option Explicit
  Dim SelectedSeries as Integer ′自定义变量
  Dim Rs() as String ′提取记录集用的字符串数组
  Private Sub Form_Load()
  ′设定DataGrid控件的数据源
  DgScore.DataSource=″AdScore″
  ′设定ADO控件的连接字串和初始的记录源,即显示内容
  AdScore.ConnectString=″Provider=Microsoft.OLEDB.3.51;Persist_Security Info=False;Data Source=学生信息″
  AdScore.RecordSource=″selet * from学生成绩order by成绩″
  AdScore.Refresh
  ′预设好提取记录用的SQL语句
  Rs(1)=″select* from学生成绩where成绩=″+Chr(34)+″优″+_Chr(34)+″order by成绩″
Rs(2)=″select *from学生成绩where成绩=″+Chr(34)+″良″+_Chr(34)+″order by成绩″
Rs(3)=″select * from学生成绩where成绩=″+Chr(34)+″中″+_Chr(34)+″order by成绩″
Rs(4)=″select * from学生成绩where成绩=″+Chr(34)+″差″_Chr(34)+″order by成绩″
End Sub
  Private Sub McScore_SeriesSelected(Series as Integer,MouseFlags as _Integer,Cancel as Integer)
SelectedSeries=Series
  End Sub
  Private Sub McScore_PointSelected(Series as Integer,DataPoint as_Integer,MouseFlags as
Integer,Cancel as Integer)
  SelectedSeries=Series
  End Sub
  Private Sub McScore_Db1Click()
  ′改变ADO控件的记录源并刷新
  Adoc1.RecordSource=Rs(SeletedSeries)
  Adoc1.Refresh
  End Sub 
 

VB中用MSChart控件生成图表_用相对路径调用数据库文件

在VB中通过MSChart控件生成图表,采用Access数据库,使用相对路径调用数据库文件,源程序代码如下:------------------------Private Sub btnCopy_Cl...
  • flyaim
  • flyaim
  • 2007年07月13日 10:06
  • 3328

《 VB6.0中通过MSChart控件调用数据库 》

VB6.0中的MSChart控件是一个功能强大的高级图表工具,拥有丰富的图表绘制功能,可显示二维和三维的棒图、区域图、线形图、饼图等多种常用图表。近日我为了在双击图表的某个区域时将与该区域相对应的数据...
  • xdy233
  • xdy233
  • 2011年04月02日 10:09
  • 297

MFC下MSChart控件重绘曲线时清除原曲线方法

这段时间用mschart控件,需要不停的绘制曲线,而新的曲线要覆盖掉旧曲线,在网上查了很多相关的方法,要么是重绘mschart控件,要不就是对曲线的值赋0。 而对于动态绘制曲线时,第一种方法效率太低...
  • cindylx422
  • cindylx422
  • 2011年11月14日 14:44
  • 4269

用mschart画的饼图

上传后者图片质量失真严重! 相应下面这句可以帮助很多用mschart画饼图的朋友:)If you have a pie chart and you set the Label property, it...
  • ikmb
  • ikmb
  • 2009年09月11日 15:22
  • 2353

MsChart控件在VC++中的使用

关于MsChart控件的注册: 32位系统之下 1. 将mschrt20.ocx放在windows/system32目录下。注意,这个文件名中的没有字母a, 即没有写chart中的字母a,就是这一细节...
  • u014023993
  • u014023993
  • 2014年11月27日 10:33
  • 1916

MFC中MSChart的使用示例

转载:http://www.360doc.com/content/15/0119/21/7378868_442142515.shtml MFC中MSChart的使用示例   最近由于...
  • u010444671
  • u010444671
  • 2015年05月17日 10:07
  • 3302

MSChart使用技巧总结

上一篇文章写了用dotnetCHARTING 制作柱形图,折线图和圆饼图 园友一直在推荐用微软的MSChart..于是,这几天工作之余研究了一下,其中也发现了不少问题.   首先当然需要下载MSCha...
  • yulongguiziyao
  • yulongguiziyao
  • 2013年10月03日 12:18
  • 3467

VC++6.0中MsChart控件的用法

  1.   MSChart制图类1.1 添加MSChart控件MSChart是VC++6.0中自带的一个特殊控件类,用于绘制坐标曲线图。如果要使用这个控件,则可以按下图的示意进行添加此控件。    ...
  • andy8205
  • andy8205
  • 2007年11月23日 23:14
  • 15294

将MSChart ActiveX控件添加进VS2010项目

下载个MSCHART20.ocx,放进c:/windows/system32下载个控件注册工具,下载地址在VS2010项目中添加类CDMSChart类,项目- 添加类- 添加ActiveX控件的MFC...
  • qq361301276
  • qq361301276
  • 2011年02月11日 20:28
  • 10615

MFC画图的强大工具MSChart的使用

MFC画图的强大工具MSChart的使用 图表由于其直观明了的特性,在实际应用中十分很广泛。我们常常希望数据能通过图表来显示其特性。例如在Delphi和C++Builder编程中,我们可以很方便地实...
  • shaopengf
  • shaopengf
  • 2014年08月06日 12:42
  • 2249
内容举报
返回顶部
收藏助手
不良信息举报
您举报文章:VB6.0中通过MSChart控件调用数据库
举报原因:
原因补充:

(最多只允许输入30个字)