足球比赛成绩管理 - 图文

沈阳航空航天大学设计用纸

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页