运动会成绩管理系统论文

齐齐哈尔大学 数据库课程设计报告

题目： 运动会成绩管理系统 班级： 计本083 姓名： *** 学号： ********** 指导教师： **

2011年6月24

数据库课程设计评分表

班级 计本083 姓名 邢鹏禹 指导教师 金梅 题目： 运动会成绩管理系统 评分标准 评分标准 选题 分数权重 10 评分的依据 A C 得分 选题符合大纲要求，题选题基本符合大纲要 目较新颖，工作量大 求，工作量适中 态度端正，能主动认真完成各个环节的工作，不迟到早退，出勤好。 能正确绘制总体E-R图，定义表结构准确，约束信息完备，对关系的规范化完全符合大纲要求 具有独立分析、解决问题能力，有一定的创造性，能够独立完成数据库及相关软件的设计与调试工作，程序结构合理，逻辑严谨，功能完善。 能准确回答老师提出的问题 程序运行正确、界面清晰，测试数据设计合理。 格式规范，层次清晰，设计思想明确，解决问题方法合理，体会深刻。 总分 能够完成各环节基本 工作，出勤较好。 能基本正确绘制E-R图，定义表结构基本准 确，对关系的规范化基本符合大纲要求 有一定的分析、解决问题能力。能够在老师指导下完成软件的设计 与调试工作，程序功能较完善。 能基本准确回答老师 提出的问题 程序运行正确、界面较清晰，能给出合适的测 试数据。 格式较规范，设计思想基本明确，解决问题方 法较合理。 工作态度 10 数据库设计 20 独立解决问题的能力 10 答辨问题回答 程序运行情况 20 10 课程设计论文 20 指导教师（签字）： 注：介于A和C之间为B级，低于C为D级和E级。按各项指标打分后，总分在90～100为优，80～89为良，70～79为中，60～69为及格，60分以下为不及格。

运动会成绩管理系统

摘要： 本组结合运动会的要求，对数据库管理系统进行了学习和应用，主要完成对运动会成绩管理系统的需求分析、功能模块划分、数据库模式分析，并由此设计了数据库结构和应用程序。本文所设计的运动会管理系统可以满足参赛者、运动会工作人员和各方面的需求。

本系统以VB6.0为开发工具，后台数据库选择SQLSERVER2000，操作系统为WINDOWS XP。

关键字：运动会成绩管理系统，数据库，Visual Basic 6.0。

1. 概述 （1）项目背景

使用SQLSERVER2000作为管理系统的开发平台，SQLSERVER2000用于数据源的开发，数据源的开发使用SQL Server2000，是因为其应用的灵活性和强大的功能，为系统建立优良的数据库后台。

（2）编写目的

现今运动会、成绩管理的繁索给具有强烈时间观念的行政人员带来了诸多不便，教学办公室缺少一种完善的运动会管理软件，为了对学生运动会的管理方便，因此开发了本系统。应用目标是通过本系统，能帮助体育教研人员利用计算机，快速方便的对学生成绩管理进行管理、输入、输出、查找的所需操作，使散乱的人事档案能够具体化，直观化、合理化。 在作用及范围上本系统适用于各类学校，它是比较完善的运动会管理系统。

（3）开发环境

用SQL Server 2000作为数据库开发平台，使得该产品成为桌面数据库市场中Access、FoxPro及Paradox for Windows的直接竞争者。与普通的数据库系统相比，用SQL Server 2000作为数据库开发平台有以下优点：(1)简单性；(2)灵活性；(3)可扩充性

SQL Server 2000提供许多部件以方便地创建数据库应用程序。数据库对象的数据成员既可在设计阶段设置，也可在运行阶段通过程序代码进行设置。SQL Server 2000的部件板上提供两页数据库应用程序开发中所要使用的部件。

数据连接页（ADO）上的部件用于连接数据库、组合数据创建数据集。 数据访问页（Data SQL Page）上的部件用于直接访问数据库中的数据库表。

数据控制页（Data Control Page）上的部件用来与用户交互，显示、修改数据库中的数据。

SQL Server 2000是数据库开发的主要开发工具，同时为了实现查询的功能以及系统的一些相关功能，SQL Server 2000语言的使用也是必不可少的。充分体现了关系数据语言的特点和优点。

2.系统需求分析

根据运动会成绩管理的实际要求，对“运动会成绩管理系统”的需要实现如下功能：

（1） 掌握每个学生每一门课的运动会成绩管理信息，并记录在数据库中以便其他管理信息系统的使用。

（2）分权限的管理。在运动会成绩管理中，教师可以对任何一个学生的成绩进行查询和管理；但是对学生类用户，它只能对自己的成绩进行查看，而且不能对其进行更改。

（3） 教师类用户可以对成绩按照运动项目进行管理，可以对每一门课所修的学生进行添加、删除和修改。

（4）教师类用户可以对成绩按照学生进行管理，可以对每一个学生所选的运动项目成绩进行添加、删除和修改。

（5）可以针对某一门课的学生列表及其成绩生成报表。

（6） 可以针对某一个学生所选运动项目及其对应的成绩生成报表。

3.数据库的逻辑设计 3.1概念模型设计

实体属性结构：

运动员信息表（姓名，编号，学院，性别，运动项目） 成绩表（编号，运动项目，成绩） 登录表（用户名，密码）

E-R模型图

添加比赛成绩 修改比赛成绩 删除比赛成绩 教师 修改运动员信息 性别 学生 学号 姓名 浏览 学生基本信息 运动项目 绩 比赛成学生姓名学号 图1. E-R模型图

3.2逻辑模型设计

数据信息表

数据库表名 运动员信息表 成绩表 登入表 对应的关系模式名 编号 运动项目 用户名，密码 中文说明 运动员的基本信息 运动成绩基本信息 登入记录 1、运动员信息表

字段名 姓名 编号 学院 性别 运动项目 字段类型 长度 varchar varchar varchar varchar varchar 50 50 50 50 8 主键或外键 字段值约束 主键 Not Null Not Null Not Null Not Null Not Null 2、成绩表

字段名 编号 运动项目 成绩 字段类型 长度 varchar varchar float 50 4 4 主键或外键 字段值约束 主键 Not Null Not Null Not Null 3、保单表

字段名 用户名 密码 字段类型 长度 varchar float 50 50 主键或外键 字段值约束 Not Null Not Null 四．软件功能设计

根据本系统的需求，结合实际成绩情况，本系统应具有如下功能模块：

1用户类型

本系统的用户将分为两类：学生类用户和教师类用户。学生类用户为系统的普通用户，它包括当前系统中所有的学生信息，其用户名为学生的姓名，而密码为该学生的学号，该类用户只能对自己的成绩信息进行浏览，不具有浏览和查找他人信息的权限，也不能对自身和他人的信息进行管理。教师类用户为系统的高级用户，他们有特定的权限对系统中的所有成绩信息进行浏览、查找，并进行管理，而且可以使用相应的报表功能。

2按照学生进行运动会成绩管理的模块

对于学生类用户而言，只能浏览自身的基本信息和授课信息，但是不能对这些信息进行变更。对于教师类用户而言，本模块提供了按照学生进行运动会成绩

管理的功能。教师可以选择所要操作的学生，然后对其成绩进行添加、修改或者删除操作。

3按照运动项目进行运动会成绩管理的模块

本模块只对教师类用户开放。本模块提供了按照运动项目进行运动会成绩管理的功能。教师可以选择所要操作的运动项目，然后对选修该门运动项目的学生及其成绩进行添加、修改或者删除操作。

4成绩查找模块

本部分只对教师类用户开放。利用该模块可以对学生表中的各个字段进行查找，也可以对运动项目表中的各个自段进行查找。

运动会成绩管理系统 学生 成绩管理

教师成绩管理

图2成绩管理系统分类模块

教师管 理 按照学生姓名 按照学生成绩 按照运动项目 图3 教师管理功能模块

成绩管理系统 添加运动员 修改运动员 删除运动员 成绩录入 成绩修改 成绩查询 图4 运动会成绩管理总功能模块

五 界面设计

图5 运动会成绩管理系统登陆界面

打开应用程序，进入登陆窗口，如上图，输入用户名和密码，这里输入的用户名是123，密码是321.

str = \"select * from 登入表 where 用户名='\" & Text1.Text & \"'\" st.Open str, Conn

If (st.BOF = True And st.EOF = True) Then MsgBox \"该用户名不存在，输入有误！\" Conn.Close

Set Conn = Nothing Exit Sub Else

If Text2.Text = st.Fields(\"密码\").Value Then 登入界面.Show Me.Hide Else

MsgBox \"密码错误！！！\

Conn.Close

Set Conn = Nothing Exit Sub End If End If

Conn.Close End Sub

Private Sub Command2_Click() 退出界面.Show Unload Me End Sub

Private Sub Command3_Click() 用户名界面.Show Unload Me End Sub

图6新用户名

可以键入新用户名，如下图所示。 Private Sub Command1_Click() Dim str As String

Dim rs As ADODB.Command Call OpenDB

str = \"insert into 登入表(用户名,密码)\"

str = str & \"Values('\" & Text1 & \"','\" & Text3 & \"')\" If Text2 = Text3 Then

Set rs = New ADODB.Command Set rs.ActiveConnection = Conn rs.CommandText = str rs.Execute

Set rs = Nothing Conn.Close

Set Conn = Nothing

运动员成绩管理系统.Show Unload Me Else

MsgBox \"两次密码输入不相同！\" End If End Sub

图7 运动员成绩管理系统修改界面

进入主页面，选择需要的选项

Private Sub Command2_Click(Index As Integer) 修改运动员信息.Show Unload Me End Sub

Private Sub Command3_Click(Index As Integer) 删除运动员.Show Unload Me End Sub

Private Sub Command4_Click(Index As Integer) 成绩录入.Show Unload Me End Sub

Private Sub Command5_Click(Index As Integer) 成绩修改.Show Unload Me End Sub

图8 运动员基本信息填写界面

Private Sub Command1_Click() Dim people As String

Dim tb As ADODB.Command If Text1 = \"\" Then

MsgBox \"输入的姓名不能为空！\" Exit Sub End If

If Text2 = \"\" Then

MsgBox \"输入的运动员编号不能为空！\" Exit Sub End If

If Text3 = \"\" Then

MsgBox \"输入的学院不能为空！\" Exit Sub End If

If Combo1 = \"\" Then

MsgBox \"请输入性别\" End If

图 9 修改运动员信息界面

Private Sub Command1_Click() 登入界面.Show Unload Me End Sub

Private Sub Command2_Click() Dim rs As ADODB.Command Dim str As String

Set rs = New ADODB.Command Call OpenDB

str = \"update 运动员信息表 set 姓名= '\" & Text2.Text & \"', 学院= '\" & Text3.Text & \"',性别= '\" & Text4.Text & \"'\"

Set rs.ActiveConnection = Conn rs.CommandText = str rs.Execute

Set rs = Nothing Conn.Close

Set Conn = Nothing

MsgBox \"修改成功\" End Sub

图 10 删除运动员信息界面

可以进入删除运动员信息界面进行运动员删除操作。 Private Sub Command1_Click() Dim str3 As String Dim str As String

Dim cmdupdate As ADODB.Command Call OpenDB

str3 = \"delete from 运动员信息表 where 编号 ='\" & Text1 & \"'\" Set cmdupdate = New ADODB.Command Set cmdupdate.ActiveConnection = Conn cmdupdate.CommandText = str3 cmdupdate.Execute

Set cmdupdate = Nothing Conn.Close

Set Conn = Nothing Call OpenDB

str = \"delete from 成绩表 where 编号 ='\" & Text1 & \"'\" Set cmdupdate = New ADODB.Command Set cmdupdate.ActiveConnection = Conn cmdupdate.CommandText = str cmdupdate.Execute

Set cmdupdate = Nothing MsgBox \"删除成功\" Conn.Close

Set Conn = Nothing End Sub

图 11 成绩录入及编排界面

可以进入成绩录入编排页面进行统一管理。 Private Sub Command1_Click() 登入界面.Show Unload Me End Sub

Private Sub Command2_Click() Dim rs As ADODB.Command Dim str As String

If Text1 = \"\" Then

MsgBox \"输入的编号不能为空！\" Exit Sub End If

图 12 运动员成绩修改界面

可以进入运动员成绩修改页面进行修改 Private Sub Command1_Click() 登入界面.Show Unload Me End Sub

Private Sub Command2_Click()

Dim rs As ADODB.Command Dim str As String

Set rs = New ADODB.Command Call OpenDB

str = \"update 成绩表 set 成绩= '\" & Text3.Text & \"'\" Set rs.ActiveConnection = Conn rs.CommandText = str rs.Execute

Set rs = Nothing Conn.Close

Set Conn = Nothing

MsgBox \"修改成功\" End Sub

图 13 成绩查询界面

Private Sub Command1_Click() Dim rs As ADODB.Recordset Dim StrSQL As String

Set rs = New ADODB.Recordset Call OpenDB

StrSQL = \"SELECT* FROM 成绩表 WHERE 编号='\" & Text1.Text & \"'\" rs.Open StrSQL, Conn, adLockPessimistic If Not rs.EOF Then

Text2.Text = rs(\"项目\").Value Text3.Text = rs(\"成绩\").Value Else

MsgBox \"无此运动员！！！SORRY\" End If rs.Close Conn.Close

Set Conn = Nothing End Sub

图 14 退出界面

数据库连接模块：

Public Conn As New ADODB.Connection Public s As String

Public Sub OpenDB()

s = \"Driver={sql server};Server=FE95854F95D147D;Database=运动会成绩管理系统\" Conn.Open s End Sub

Private Sub EndDB() Conn.Close End Sub

六 结束语

通过这次实践,我很高兴可以学到书上没有的知识，让我对于数据库和运动会成绩管理有了更深入的理解，在懂得了书本知识的基础上，多实际操作,才能从中发现很多问题,才能及时向老师和同学请教,解决问题,从而更好的掌握书本中知识。但是由于我学习vb的时间较短，很多知识还没有完全了解和掌握，所以该系统还有许多不尽如人意的地方，比如有些功能还不够完善，用户界面不够美观，出错处理不够等多方面问题。这些都有待进一步改善。希望在以后的学习中可以充实自己的知识结构，不断完善自己的实践能力，同时也感谢老师在这次实践过程中给我的很多帮助，再次表示由衷的感谢！

七．参考文献

数据库原理及设计

数据库应用程序设计 VB6.0 SQL Server 2000 基础教程