荔园在线
荔园之美，在春之萌芽，在夏之绽放，在秋之收获，在冬之沉淀
[回到开始]
[上一篇][下一篇]
发信人: baty (新一代懒人), 信区: Database
标 题: VB6.0中通过MSChart控件调用数据库
发信站: BBS 荔园晨风站 (Mon Mar 12 22:01:54 2001), 转信
【 以下文字转载自 baty 的信箱 】
【 原文由 baty.bbs@argo.zsu.edu.cn 所发表 】
发信人: CMusic (音韵), 信区: Database
标 题: VB6.0中通过MSChart控件调用数据库
发信站: 逸仙时空 Yat-sen Channel (Wed Nov 1 00:29:20 2000), 站内信件
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 I
nfo=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)＋″
orde
r by成绩″
Rs(3)=″select ＊ from学生成绩where成绩=″＋Chr(34)＋″中″＋_Chr(34)＋
″ord
er by成绩″
Rs(4)=″select ＊ from学生成绩where成绩=″＋Chr(34)＋″差″_Chr(34)＋″
order
by成绩″
End Sub
Private Sub McScore_SeriesSelected(Series as Integer,MouseFlags as
_Inte
ger,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
--
为何在这里，无聊像半醉
曾在这空间，跟你相倾诉
※ 来源:．逸仙时空 Yat-sen Channel bbs.zsu.edu.cn．[FROM: 192.168.2.177]
--
※ 转寄:．逸仙时空 Yat-sen Channel bbs.zsu.edu.cn．[FROM: 210.39.3.50]
--
※ 转载:·BBS 荔园晨风站 bbs.szu.edu.cn·[FROM: 192.168.1.118]
[回到开始]
[上一篇][下一篇]
荔园在线首页 友情链接：深圳大学 深大招生 荔园晨风BBS S-Term软件 网络书店