loading沈阳航空航天大学设计用纸
d. Thisform.OLecontrol1.ColumnCount=2 &&图表控件包含两列 e. Thisform.Olecontrol1.Column=1 &&指向第1列
f. Thisform.Olecontrol1.Data=tblData.field1 &&设置数据为tblData
表的field1字段
g. Thisform.Olecontrol1.Column=2 &&指向第2列
h. Thisform.Olecontrol1.Data=tblData.field2 &&设置数据为tblData
表的field2字段
i. RowCount属性数值型。返回或设置与图表关联的数据网格列的行数。 j. DataGrid属性返回DataGrid对象的引用，它描述与图表关联的数据网格。
k. DataSource属性返回或设置一个数据源，通过该数据源将该控件绑定到
一个数据库。此属性的使用参考后面的“绑定ADO数据源”
利用以上控件以及控件的属性，来实现总分直方图，程序如下： Private Sub Command1_Click() Dim lngI%
Me.Adodc1.Refresh '填充表格数据
MSChart1.RowCount = 1
MSChart1.ColumnCount = Me.Adodc1.Recordset.RecordCount Me.Adodc1.Recordset.MoveFirst
For lngI = 1 To Me.Adodc1.Recordset.RecordCount MSChart1.Column = lngI
'用Data属性向MSChart数据网格填充数据
MSChart1.Data = Val(Adodc1.Recordset.Fields(\总分\ MSChart1.ColumnLabel = Adodc1.Recordset.Fields(\队名\ Adodc1.Recordset.MoveNext Next lngI
MSChart1.RowLabel = \总分直方图\End Sub
主要窗体
第13页，共27页
沈阳航空航天大学设计用纸
图
1 起始窗体
图2显示成绩
第14页，共27页
沈阳航空航天大学设计用纸
图3确认添加
图 4 赢的次数
第15页，共27页
沈阳航空航天大学设计用纸
图
5 查找
图 6 直方图
四、总结
这次课设我的题目是足球比赛成绩管理，通过这次课设让我了解了VB与数据库之间的联系，可以应用SQL语言查询和更改数据库中的信息，并能向其中添加新的信息。
第16页，共27页