运动会成绩管理系统论文.docx
《运动会成绩管理系统论文.docx》由会员分享，可在线阅读，更多相关《运动会成绩管理系统论文.docx（21页珍藏版）》请在冰豆网上搜索。
运动会成绩管理系统论文
齐齐哈尔大学
数据库课程设计报告
题目：
运动会成绩管理系统
班级：
计本083
姓名：
邢鹏禹
学号:
2008021177
指导教师：
金梅
2011年6月24
数据库课程设计评分表
班级
计本083
姓名
邢鹏禹
指导教师
金梅
题目：
运动会成绩管理系统
评分标准
评分标准
分数权重
评分的依据
得分
A
C
选题
10
选题符合大纲要求，题目较新颖，工作量大
选题基本符合大纲要求，工作量适中
工作态度
10
态度端正,能主动认真完成各个环节的工作，不迟到早退，出勤好.
能够完成各环节基本工作，出勤较好.
数据库设计
20
能正确绘制总体E—R图，定义表结构准确，约束信息完备,对关系的规范化完全符合大纲要求
能基本正确绘制E—R图，定义表结构基本准确，对关系的规范化基本符合大纲要求
独立解决问题的能力
10
具有独立分析、解决问题能力，有一定的创造性,能够独立完成数据库及相关软件的设计与调试工作，程序结构合理，逻辑严谨，功能完善。
有一定的分析、解决问题能力.能够在老师指导下完成软件的设计与调试工作，程序功能较完善.
答辨问题回答
20
能准确回答老师提出的问题
能基本准确回答老师提出的问题
程序运行情况
10
程序运行正确、界面清晰，测试数据设计合理。
程序运行正确、界面较清晰,能给出合适的测试数据。
课程设计论文
20
格式规范，层次清晰，设计思想明确，解决问题方法合理，体会深刻。
格式较规范,设计思想基本明确，解决问题方法较合理。
总分
指导教师（签字）：
注：
介于A和C之间为B级，低于C为D级和E级。
按各项指标打分后，总分在90~100为优,80～89为良，70～79为中,60～69为及格，60分以下为不及格。
运动会成绩管理系统
摘要：
本组结合运动会的要求，对数据库管理系统进行了学习和应用，主要完成对运动会成绩管理系统的需求分析、功能模块划分、数据库模式分析，并由此设计了数据库结构和应用程序。
本文所设计的运动会管理系统可以满足参赛者、运动会工作人员和各方面的需求。
本系统以VB6。
0为开发工具，后台数据库选择SQLSERVER2000，操作系统为WINDOWSXP。
关键字：
运动会成绩管理系统，数据库，VisualBasic6.0。
1.概述
（1）项目背景
使用SQLSERVER2000作为管理系统的开发平台，SQLSERVER2000用于数据源的开发，数据源的开发使用SQLServer2000，是因为其应用的灵活性和强大的功能,为系统建立优良的数据库后台.
（2）编写目的
现今运动会、成绩管理的繁索给具有强烈时间观念的行政人员带来了诸多不便，教学办公室缺少一种完善的运动会管理软件,为了对学生运动会的管理方便，因此开发了本系统。
应用目标是通过本系统,能帮助体育教研人员利用计算机，快速方便的对学生成绩管理进行管理、输入、输出、查找的所需操作，使散乱的人事档案能够具体化，直观化、合理化. 在作用及范围上本系统适用于各类学校，它是比较完善的运动会管理系统。
（3）开发环境
用SQLServer2000作为数据库开发平台，使得该产品成为桌面数据库市场中Access、FoxPro及ParadoxforWindows的直接竞争者.与普通的数据库系统相比，用SQLServer2000作为数据库开发平台有以下优点：
（1）简单性；
（2）灵活性；（3）可扩充性
SQLServer2000提供许多部件以方便地创建数据库应用程序.数据库对象的数据成员既可在设计阶段设置，也可在运行阶段通过程序代码进行设置。
SQLServer2000的部件板上提供两页数据库应用程序开发中所要使用的部件。
数据连接页（ADO）上的部件用于连接数据库、组合数据创建数据集。
数据访问页（DataSQLPage）上的部件用于直接访问数据库中的数据库表。
数据控制页（DataControlPage）上的部件用来与用户交互，显示、修改数据库中的数据.
SQLServer2000是数据库开发的主要开发工具，同时为了实现查询的功能以及系统的一些相关功能，SQLServer2000语言的使用也是必不可少的。
充分体现了关系数据语言的特点和优点。
2。
系统需求分析
根据运动会成绩管理的实际要求,对“运动会成绩管理系统”的需要实现如下功能：
（1） 掌握每个学生每一门课的运动会成绩管理信息,并记录在数据库中以便其他管理信息系统的使用。
（2）分权限的管理。
在运动会成绩管理中,教师可以对任何一个学生的成绩进行查询和管理；但是对学生类用户,它只能对自己的成绩进行查看，而且不能对其进行更改。
（3） 教师类用户可以对成绩按照运动项目进行管理，可以对每一门课所修的学生进行添加、删除和修改。
（4）教师类用户可以对成绩按照学生进行管理，可以对每一个学生所选的运动项目成绩进行添加、删除和修改。
（5）可以针对某一门课的学生列表及其成绩生成报表.
（6） 可以针对某一个学生所选运动项目及其对应的成绩生成报表。
3。
数据库的逻辑设计
3.1概念模型设计
实体属性结构:
运动员信息表（姓名,编号，学院，性别，运动项目）
成绩表（编号,运动项目，成绩）
登录表（用户名，密码）
E-R模型图
图1.E-R模型图
3。
2逻辑模型设计
数据信息表
数据库表名
对应的关系模式名
中文说明
运动员信息表
编号
运动员的基本信息
成绩表
运动项目
运动成绩基本信息
登入表
用户名,密码
登入记录
1、运动员信息表
字段名
字段类型
长度
主键或外键
字段值约束
姓名
varchar
50
NotNull
编号
varchar
50
主键
NotNull
学院
varchar
50
NotNull
性别
varchar
50
NotNull
运动项目
varchar
8
NotNull
2、成绩表
字段名
字段类型
长度
主键或外键
字段值约束
编号
varchar
50
主键
NotNull
运动项目
varchar
4
NotNull
成绩
float
4
NotNull
3、保单表
字段名
字段类型
长度
主键或外键
字段值约束
用户名
varchar
50
NotNull
密码
float
50
NotNull
四．软件功能设计
根据本系统的需求，结合实际成绩情况,本系统应具有如下功能模块：
1用户类型
本系统的用户将分为两类：
学生类用户和教师类用户。
学生类用户为系统的普通用户，它包括当前系统中所有的学生信息,其用户名为学生的姓名，而密码为该学生的学号,该类用户只能对自己的成绩信息进行浏览，不具有浏览和查找他人信息的权限，也不能对自身和他人的信息进行管理.教师类用户为系统的高级用户，他们有特定的权限对系统中的所有成绩信息进行浏览、查找，并进行管理，而且可以使用相应的报表功能。
2按照学生进行运动会成绩管理的模块
对于学生类用户而言，只能浏览自身的基本信息和授课信息，但是不能对这些信息进行变更。
对于教师类用户而言，本模块提供了按照学生进行运动会成绩管理的功能。
教师可以选择所要操作的学生，然后对其成绩进行添加、修改或者删除操作。
3按照运动项目进行运动会成绩管理的模块
本模块只对教师类用户开放。
本模块提供了按照运动项目进行运动会成绩管理的功能。
教师可以选择所要操作的运动项目，然后对选修该门运动项目的学生及其成绩进行添加、修改或者删除操作。
4成绩查找模块
本部分只对教师类用户开放。
利用该模块可以对学生表中的各个字段进行查找，也可以对运动项目表中的各个自段进行查找.
图2成绩管理系统分类模块
图3教师管理功能模块
图4运动会成绩管理总功能模块
五界面设计
图5运动会成绩管理系统登陆界面
打开应用程序，进入登陆窗口，如上图，输入用户名和密码，这里输入的用户名是123，密码是321。
str=”select＊from登入表where用户名=’"＆Text1.Text＆”'”
st.Openstr,Conn
If（st。
BOF=TrueAndst.EOF=True）Then
MsgBox"该用户名不存在，输入有误!
”
Conn。
Close
SetConn=Nothing
ExitSub
Else
IfText2.Text=st.Fields（"密码”）。
ValueThen
登入界面。
Show
Me.Hide
Else
MsgBox"密码错误！
！
！
"，vbInformation，vbOKOnly
Conn.Close
SetConn=Nothing
ExitSub
EndIf
EndIf
Conn.Close
EndSub
PrivateSubCommand2_Click（）
退出界面。
Show
UnloadMe
EndSub
PrivateSubCommand3_Click（）
用户名界面。
Show
UnloadMe
EndSub
图6新用户名
可以键入新用户名，如下图所示.
PrivateSubCommand1_Click（）
DimstrAsString
DimrsAsADODB。
Command
CallOpenDB
str="insertinto登入表（用户名,密码）”
str=str＆”Values（’"&Text1&"’，’”＆Text3＆"’）”
IfText2=Text3Then
Setrs=NewADODB。
Command
Setrs。
ActiveConnection=Conn
rs。
CommandText=str
rs.Execute
Setrs=Nothing
Conn.Close
SetConn=Nothing
运动员成绩管理系统。
Show
UnloadMe
Else
MsgBox”两次密码输入不相同!
"
EndIf
EndSub
图7运动员成绩管理系统修改界面
进入主页面,选择需要的选项
PrivateSubCommand2_Click（IndexAsInteger）
修改运动员信息。
Show
UnloadMe
EndSub
PrivateSubCommand3_Click（IndexAsInteger）
删除运动员.Show
UnloadMe
EndSub
PrivateSubCommand4_Click（IndexAsInteger）
成绩录入。
Show
UnloadMe
EndSub
PrivateSubCommand5_Click（IndexAsInteger）
成绩修改.Show
UnloadMe
EndSub
图8运动员基本信息填写界面
PrivateSubCommand1_Click（）
DimpeopleAsString
DimtbAsADODB.Command
IfText1=””Then
MsgBox”输入的姓名不能为空！
"
ExitSub
EndIf
IfText2=”"Then
MsgBox”输入的运动员编号不能为空!
"
ExitSub
EndIf
IfText3=””Then
MsgBox”输入的学院不能为空！
"
ExitSub
EndIf
IfCombo1=”"Then
MsgBox"请输入性别!
！
!
”
EndIf
图9修改运动员信息界面
PrivateSubCommand1_Click（）
登入界面.Show
UnloadMe
EndSub
PrivateSubCommand2_Click（）
DimrsAsADODB.Command
DimstrAsString
Setrs=NewADODB。
Command
CallOpenDB
str="update运动员信息表set姓名=’"&Text2.Text＆”',学院='"&Text3。
Text＆"’，性别='"&Text4.Text&”'”
Setrs.ActiveConnection=Conn
rs.CommandText=str
rs。
Execute
Setrs=Nothing
Conn。
Close
SetConn=Nothing
MsgBox"修改成功”
EndSub
图10删除运动员信息界面
可以进入删除运动员信息界面进行运动员删除操作。
PrivateSubCommand1_Click（）
Dimstr3AsString
DimstrAsString
DimcmdupdateAsADODB。
Command
CallOpenDB
str3="deletefrom运动员信息表where编号=’”＆Text1&"’”
Setcmdupdate=NewADODB。
Command
Setcmdupdate.ActiveConnection=Conn
cmdupdate.CommandText=str3
cmdupdate.Execute
Setcmdupdate=Nothing
Conn。
Close
SetConn=Nothing
CallOpenDB
str=”deletefrom成绩表where编号=’”&Text1＆"'”
Setcmdupdate=NewADODB.Command
Setcmdupdate。
ActiveConnection=Conn
cmdupdate。
CommandText=str
cmdupdate.Execute
Setcmdupdate=Nothing
MsgBox"删除成功！
!
！
"
Conn。
Close
SetConn=Nothing
EndSub
图11成绩录入及编排界面
可以进入成绩录入编排页面进行统一管理。
PrivateSubCommand1_Click（）
登入界面.Show
UnloadMe
EndSub
PrivateSubCommand2_Click（）
DimrsAsADODB.Command
DimstrAsString
IfText1="”Then
MsgBox”输入的编号不能为空！
”
ExitSub
EndIf
图12运动员成绩修改界面
可以进入运动员成绩修改页面进行修改
PrivateSubCommand1_Click（）
登入界面.Show
UnloadMe
EndSub
PrivateSubCommand2_Click（）
DimrsAsADODB.Command
DimstrAsString
Setrs=NewADODB。
Command
CallOpenDB
str="update成绩表set成绩='”&Text3。
Text＆”'"
Setrs.ActiveConnection=Conn
rs.CommandText=str
rs。
Execute
Setrs=Nothing
Conn.Close
SetConn=Nothing
MsgBox”修改成功”
EndSub
图13成绩查询界面
PrivateSubCommand1_Click（）
DimrsAsADODB。
Recordset
DimStrSQLAsString
Setrs=NewADODB。
Recordset
CallOpenDB
StrSQL=”SELECT＊FROM成绩表WHERE编号='"&Text1。
Text&"’”
rs.OpenStrSQL,Conn,adLockPessimistic
IfNotrs.EOFThen
Text2。
Text=rs（"项目"）.Value
Text3。
Text=rs（"成绩”）。
Value
Else
MsgBox"无此运动员！
！
！
SORRY”
EndIf
rs。
Close
Conn。
Close
SetConn=Nothing
EndSub
图14退出界面
数据库连接模块：
PublicConnAsNewADODB.Connection
PublicsAsString
PublicSubOpenDB（）
s="Driver=｛sqlserver};Server=FE95854F95D147D；Database=运动会成绩管理系统”
Conn。
Opens
EndSub
PrivateSubEndDB（）
Conn.Close
EndSub
六结束语
通过这次实践,我很高兴可以学到书上没有的知识,让我对于数据库和运动会成绩管理有了更深入的理解，在懂得了书本知识的基础上，多实际操作，才能从中发现很多问题,才能及时向老师和同学请教,解决问题，从而更好的掌握书本中知识。
但是由于我学习vb的时间较短，很多知识还没有完全了解和掌握，所以该系统还有许多不尽如人意的地方，比如有些功能还不够完善，用户界面不够美观,出错处理不够等多方面问题。
这些都有待进一步改善。
希望在以后的学习中可以充实自己的知识结构，不断完善自己的实践能力，同时也感谢老师在这次实践过程中给我的很多帮助，再次表示由衷的感谢!
七．参考文献
数据库原理及设计
数据库应用程序设计VB6.0
SQLServer2000基础教程
升级会员 