田径运动会管理系统———详细设计说明书.docVIP

田径运动会管理系统———详细设计说明书 详细设计说明书 1引言 1.1编写目的 随着学校规模的不断扩大以及体育运动的不断发展，校运动会的规模也不断扩大，比赛项目和种类也日益增多，运动会所处理的数据量剧增，产生错误和时延的可能性也增大。为了能方便、及时、准确地对运动会的各种数据进行有效的管理，本系统尝试运用计算机技术加以解决。 1.2背景 说明： 待开发软件系统的名称 ：田径运动会管理系统 列出此项目的任务提出者：于姝晖 开发者 ：于姝晖，王莹 用户 ：举行田径运动会的各大、中、小学 2程序系统的结构 系统框架详解 数据库类模块（Class Database） 介绍：原有的asp编程当中要在每个页面反复的创建ado对象，并且打开与数据库的连接，代码量比较大。现在将其抽象到一个类中，使其完成与数据库的连接，查询等功能。而且类可以在组件中使用，复用程度比较高。 代码实现： Option Explicit 类名:数据库 作用:处理数据库联接方面的工作 Private madoConnection As ADODB.Connection Private mobjParent As Application Public Property Set Parent(prt As Application) Set mobjParent = prt End Property Public Property Get Parent() As Application Set Parent = mobjParent End Property 初始化类 Private Sub Class_Initialize() Set madoConnection = New ADODB.Connection End Sub 终结类 Private Sub Class_Terminate() On Error Resume Next madoConnection.Close Set madoConnection = Nothing On Error GoTo 0 End Sub 配置连接字符串 Public Sub Configure(ConnStr As Variant) madoConnection.ConnectionString = ConnStr End Sub 打开数据库联接,成功返回 Public Function OpenConnection() As Boolean If madoConnection.ConnectionString = Then OpenConnection = False Exit Function End If On Error Resume Next If madoConnection.State = 0 Then madoConnection.Open On Error GoTo 0 OpenConnection = True End Function 执行Sql语句，返回一个记录集 Public Function RunSql(SqlStr As Variant, NeedUpdate As Variant) As ADODB.Recordset If Not OpenConnection() Then Exit Function End If Dim rstTemp As ADODB.Recordset SqlStr = Me.Parent.Tools.dfVntToTrimStr(SqlStr) NeedUpdate = Me.Parent.Tools.dfVntToBool(NeedUpdate) Set rstTemp = New ADODB.Recordset If Len(SqlStr) 0 Then If CBool(NeedUpdate) Then rstTemp.Open SqlStr, madoConnection, 1, 3 Else rstTemp.Open SqlStr, madoConnection, 1, 1 End If End If Set RunSql = rstTemp Set rstTemp = Nothing End Function Public Sub Execute(Sql