运动会成绩管理系统论文.docx

1、运动会成绩管理系统论文 齐齐哈尔大学数据库课程设计报告题目：运动会成绩管理系统 班级： 计本083 姓名： 邢鹏禹 学号: 2008021177 指导教师： 金梅 2011年6月24 数据库课程设计评分表班级计本083姓名邢鹏禹指导教师金梅题目： 运动会成绩管理系统评分标准评分标准分数权重评分的依据得分AC选题10选题符合大纲要求，题目较新颖，工作量大选题基本符合大纲要求，工作量适中工作态度10态度端正,能主动认真完成各个环节的工作，不迟到早退，出勤好.能够完成各环节基本工作，出勤较好.数据库设计20能正确绘制总体ER图，定义表结构准确，约束信息完备,对关系的规范化完全符合大纲要求能基本正确绘

2、制ER图，定义表结构基本准确，对关系的规范化基本符合大纲要求独立解决问题的能力10具有独立分析、解决问题能力，有一定的创造性,能够独立完成数据库及相关软件的设计与调试工作，程序结构合理，逻辑严谨，功能完善。有一定的分析、解决问题能力.能够在老师指导下完成软件的设计与调试工作，程序功能较完善.答辨问题回答20能准确回答老师提出的问题能基本准确回答老师提出的问题程序运行情况10程序运行正确、界面清晰，测试数据设计合理。程序运行正确、界面较清晰,能给出合适的测试数据。课程设计论文20格式规范，层次清晰，设计思想明确，解决问题方法合理，体会深刻。格式较规范,设计思想基本明确，解决问题方法较合理。总分指

3、导教师（签字）：注：介于A和C之间为B级，低于C为D级和E级。按各项指标打分后，总分在90100为优,8089为良，7079为中,6069为及格，60分以下为不及格。 运动会成绩管理系统摘要： 本组结合运动会的要求，对数据库管理系统进行了学习和应用，主要完成对运动会成绩管理系统的需求分析、功能模块划分、数据库模式分析，并由此设计了数据库结构和应用程序。本文所设计的运动会管理系统可以满足参赛者、运动会工作人员和各方面的需求。本系统以VB6。0为开发工具，后台数据库选择SQLSERVER2000，操作系统为WINDOWS XP。关键字：运动会成绩管理系统，数据库，Visual Basic 6.0。

4、1.概述（1）项目背景使用SQLSERVER2000作为管理系统的开发平台，SQLSERVER2000用于数据源的开发，数据源的开发使用SQL Server2000，是因为其应用的灵活性和强大的功能,为系统建立优良的数据库后台.(2)编写目的现今运动会、成绩管理的繁索给具有强烈时间观念的行政人员带来了诸多不便，教学办公室缺少一种完善的运动会管理软件,为了对学生运动会的管理方便，因此开发了本系统。应用目标是通过本系统,能帮助体育教研人员利用计算机，快速方便的对学生成绩管理进行管理、输入、输出、查找的所需操作，使散乱的人事档案能够具体化，直观化、合理化.在作用及范围上本系统适用于各类学校，它是比较

5、完善的运动会管理系统。（3）开发环境用SQL Server 2000作为数据库开发平台，使得该产品成为桌面数据库市场中Access、FoxPro及Paradox for Windows的直接竞争者.与普通的数据库系统相比，用SQL Server 2000作为数据库开发平台有以下优点：(1)简单性；(2）灵活性；(3）可扩充性SQL Server 2000提供许多部件以方便地创建数据库应用程序.数据库对象的数据成员既可在设计阶段设置，也可在运行阶段通过程序代码进行设置。SQL Server 2000的部件板上提供两页数据库应用程序开发中所要使用的部件。数据连接页（ADO)上的部件用于连接数据库、

6、组合数据创建数据集。数据访问页(Data SQL Page)上的部件用于直接访问数据库中的数据库表。数据控制页（Data Control Page）上的部件用来与用户交互，显示、修改数据库中的数据.SQL Server 2000是数据库开发的主要开发工具，同时为了实现查询的功能以及系统的一些相关功能，SQL Server 2000语言的使用也是必不可少的。充分体现了关系数据语言的特点和优点。 2。系统需求分析根据运动会成绩管理的实际要求,对“运动会成绩管理系统”的需要实现如下功能：(1）掌握每个学生每一门课的运动会成绩管理信息,并记录在数据库中以便其他管理信息系统的使用。(2）分权限的管理。在

7、运动会成绩管理中,教师可以对任何一个学生的成绩进行查询和管理；但是对学生类用户,它只能对自己的成绩进行查看，而且不能对其进行更改。（3）教师类用户可以对成绩按照运动项目进行管理，可以对每一门课所修的学生进行添加、删除和修改。（4）教师类用户可以对成绩按照学生进行管理，可以对每一个学生所选的运动项目成绩进行添加、删除和修改。(5）可以针对某一门课的学生列表及其成绩生成报表.(6）可以针对某一个学生所选运动项目及其对应的成绩生成报表。3。数据库的逻辑设计3.1概念模型设计实体属性结构:运动员信息表（姓名,编号，学院，性别，运动项目）成绩表（编号,运动项目，成绩)登录表（用户名，密码)E-R模型图图

8、1. E-R模型图3。2逻辑模型设计数据信息表数据库表名对应的关系模式名中文说明运动员信息表编号运动员的基本信息成绩表运动项目运动成绩基本信息登入表用户名,密码登入记录1、运动员信息表字段名字段类型长度主键或外键字段值约束姓名varchar50Not Null编号varchar50主键Not Null学院varchar50Not Null性别varchar50Not Null运动项目varchar8Not Null2、成绩表字段名字段类型长度主键或外键字段值约束编号varchar50主键Not Null运动项目varchar4Not Null成绩float4Not Null3、保单表字段名字段

9、类型长度主键或外键字段值约束用户名varchar50Not Null密码float50Not Null四软件功能设计根据本系统的需求，结合实际成绩情况,本系统应具有如下功能模块：1用户类型本系统的用户将分为两类：学生类用户和教师类用户。学生类用户为系统的普通用户，它包括当前系统中所有的学生信息,其用户名为学生的姓名，而密码为该学生的学号,该类用户只能对自己的成绩信息进行浏览，不具有浏览和查找他人信息的权限，也不能对自身和他人的信息进行管理.教师类用户为系统的高级用户，他们有特定的权限对系统中的所有成绩信息进行浏览、查找，并进行管理，而且可以使用相应的报表功能。2按照学生进行运动会成绩管理的模块

10、对于学生类用户而言，只能浏览自身的基本信息和授课信息，但是不能对这些信息进行变更。对于教师类用户而言，本模块提供了按照学生进行运动会成绩管理的功能。教师可以选择所要操作的学生，然后对其成绩进行添加、修改或者删除操作。3按照运动项目进行运动会成绩管理的模块本模块只对教师类用户开放。本模块提供了按照运动项目进行运动会成绩管理的功能。教师可以选择所要操作的运动项目，然后对选修该门运动项目的学生及其成绩进行添加、修改或者删除操作。4成绩查找模块 本部分只对教师类用户开放。利用该模块可以对学生表中的各个字段进行查找，也可以对运动项目表中的各个自段进行查找. 图2成绩管理系统分类模块图3 教师管理功能模块

11、图4 运动会成绩管理总功能模块五 界面设计图5 运动会成绩管理系统登陆界面打开应用程序，进入登陆窗口，如上图，输入用户名和密码，这里输入的用户名是123，密码是321。str = ”select from 登入表 where 用户名= Text1.Text ”st.Open str, ConnIf （st。BOF = True And st.EOF = True） Then MsgBox 该用户名不存在，输入有误!” Conn。Close Set Conn = Nothing Exit SubElseIf Text2.Text = st.Fields（密码”)。Value Then 登入界面。

12、Show Me.Hide Else MsgBox 密码错误！， vbInformation， vbOKOnly Conn.Close Set Conn = Nothing Exit Sub End IfEnd IfConn.CloseEnd SubPrivate Sub Command2_Click（)退出界面。ShowUnload MeEnd SubPrivate Sub Command3_Click()用户名界面。ShowUnload MeEnd Sub图6新用户名可以键入新用户名，如下图所示. Private Sub Command1_Click（)Dim str As StringDi

13、m rs As ADODB。CommandCall OpenDBstr = insert into 登入表（用户名,密码)”str = str ”Values( & Text1 & ，” Text3 ）”If Text2 = Text3 ThenSet rs = New ADODB。CommandSet rs。ActiveConnection = Connrs。CommandText = strrs.ExecuteSet rs = NothingConn.CloseSet Conn = Nothing运动员成绩管理系统。ShowUnload MeElse MsgBox ”两次密码输入不相同!

14、End IfEnd Sub图7 运动员成绩管理系统修改界面进入主页面,选择需要的选项Private Sub Command2_Click(Index As Integer)修改运动员信息。ShowUnload MeEnd SubPrivate Sub Command3_Click(Index As Integer)删除运动员.ShowUnload MeEnd SubPrivate Sub Command4_Click(Index As Integer）成绩录入。ShowUnload MeEnd SubPrivate Sub Command5_Click(Index As Integer）成绩修

15、改.ShowUnload MeEnd Sub图8 运动员基本信息填写界面Private Sub Command1_Click（)Dim people As StringDim tb As ADODB.CommandIf Text1 = ” Then MsgBox ”输入的姓名不能为空！ Exit SubEnd IfIf Text2 = ” Then MsgBox ”输入的运动员编号不能为空! Exit SubEnd IfIf Text3 = ” Then MsgBox ”输入的学院不能为空！ Exit SubEnd IfIf Combo1 = ” Then MsgBox 请输入性别!！!” E

16、nd If 图 9 修改运动员信息界面Private Sub Command1_Click(）登入界面.ShowUnload MeEnd SubPrivate 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.C

17、ommandText = str rs。Execute Set rs = Nothing Conn。Close Set Conn = Nothing MsgBox 修改成功”End Sub图 10 删除运动员信息界面可以进入删除运动员信息界面进行运动员删除操作。Private Sub Command1_Click()Dim str3 As StringDim str As StringDim cmdupdate As ADODB。CommandCall OpenDB str3 = delete from 运动员信息表 where 编号 =” Text1 & ” Set cmdupdate =

18、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。Comm

19、andText = str cmdupdate.Execute Set cmdupdate = Nothing MsgBox 删除成功！!！ Conn。Close Set Conn = Nothing End Sub图 11 成绩录入及编排界面可以进入成绩录入编排页面进行统一管理。Private Sub Command1_Click（)登入界面.ShowUnload MeEnd SubPrivate Sub Command2_Click（)Dim rs As ADODB.CommandDim str As StringIf Text1 = ” Then MsgBox ”输入的编号不能为空！”

20、Exit SubEnd If图 12 运动员成绩修改界面可以进入运动员成绩修改页面进行修改Private Sub Command1_Click（)登入界面.ShowUnload MeEnd SubPrivate 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 = st

21、r 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

22、 If Not rs.EOF Then Text2。Text = rs（项目).Value Text3。Text = rs（成绩”）。Value Else MsgBox 无此运动员！SORRY” End If rs。Close Conn。Close Set Conn = NothingEnd Sub图 14 退出界面数据库连接模块：Public Conn As New ADODB.ConnectionPublic s As StringPublic Sub OpenDB（）s = Driver=sql server;Server=FE95854F95D147D；Database=运动会成绩管理

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