学校田径运动会管理系统1—免费计算机毕业设计论文

学校田径运动会管理系统1—免费计算机毕业设计论文内容摘要：

数据表浏览 用户管理 第 三 章 数据库设计 根据学校田径运动会的实际过程，学校田径运动会管理系统主要涉及到的数据表有用户信息、运动员名单、运动员参赛情况、运动项目名单、田赛成绩、全能成绩、径赛初赛成绩、径赛预赛成绩、径赛决赛成绩、最终成绩、岗位 表、工作人员表，这些表都是要先建的。 在学校田径运动会管理系统中，我们把数据库放置在 Microsoft Office Access数据库，然后运用 Visual Basic编程语言设计界面。 在本机上安装 Microsoft Office 数据库名为 db1。 以下分别介绍各表的建立。 在数据库中建立名为用户信息的数据表，用来保存登陆的帐号和密码，用户信息的数据表如表 31所示 表 31 用户信息数据表 字段名 数据类型 长度 小数点位 备注 用户名 char 20 密码 char 20 在数据库中建立名为运动员名单的数据表，用来保存 运动员的 学号 、 姓名 、 性别 和所属代表队，运动员名单的数据表如表 32所示 表 32运动员名单表 字段名 数据类型 长度 小数点位 备注 学号 char 20 姓名 char 20 性别 char 20 代表队 char 20 在数据库中建立名为运动 项目名单 的数据表，用来保存 项目名称、项目类型 和 跑道类型等信息 ，运动 项目名单 的数据表如表 31所示 表 33运动 项目 名单表 字段名 数据类型 长度 小数点位 备注 项目名称 char 20 项目类型 char 20 跑道类型 char 20 分道 /不分道 在数据库中建立名为 田径成绩 的数据表，用来保存 运动员的姓名、项目类型、成绩等信息 ， 田径成绩 的数据表如表 34所示 表 34田径成绩表 字段名 数据类型 长度 小数点位 备注 姓名 char 20 项目类型 char 20 成绩 int 10 在数据库中建立名为 全能成绩 的数据表，用来保存 运动员的姓名、项目类型、成绩等信息 ， 全能成绩 的数据表如表 35所示 表 35 全能成绩表 字段名 数据类型 长度 小数点 位 备注 姓名 char 20 项目类型 char 20 成绩 int 10 在数据库中建立名为 径赛初赛成绩 的数据表，用来保存 运动员的姓名、项目类型、成绩、组号和道号等信息 ， 径赛初赛成绩 的数据表如表 36所示 表 36 径赛初赛成绩表 字段名 数据类型 长度 小数点位 备注 姓名 char 20 项目类型 char 20 成绩 int 10 组号 int 10 道号 int 10 在数据库中建立名为 径赛预赛成绩 的数据表，用来保存 运动员的姓名 、项目类型、成绩、组号和道号等信息 ， 径赛预赛成绩 的数据表如表 37所示 表 37 径赛预赛成绩表 字段名 数据类型 长度 小数点位 备注 姓名 char 20 项目类型 char 20 成绩 int 10 组号 int 10 道号 int 10 在数据库中建立名为 径赛决赛成绩 的数据表，用来保存 运动员的姓名、项目类型、成绩、组号和道号等信息 ， 径赛决赛成绩 的数据表如表 38所示 表 38 径赛决赛成绩表 字段名 数据类型 长度 小数点位 备注 姓名 char 20 项目类 型 char 20 成绩 int 10 组号 int 10 道号 int 10 在数据库中建立名为 最终成绩 的数据表，用来保存 运动员的姓名、项目名称、成绩、名次和分数等信息 ， 最终成绩 的数据表如表 39所示 表 39 最终成绩表 字段名 数据类型 长度 小数点位 备注 姓名 char 20 项目名称 char 20 成绩 int 10 名次 int 10 分数 int 10 在数据库中建立名为 岗位表 的数据表，用来保存 岗位编号和岗位名称等信息 ， 岗位 的 数据表如表 310所示 表 310 岗位表 字段名 数据类型 长度 小数点位 备注 岗位编号 char 20 岗位名称 char 20 在数据库中建立名为 工作人员 的数据表，用来保存 工作人员的姓名和岗位等信息 ， 工作人员 的数据表如表 311所示 表 311 工作人员表 字段名 数据类型 长度 小数点位 备注 姓名 char 20 岗位 char 20 第四章 界面设计及编码 所谓编码就是把软件结果翻译成用某种程序设计语言书写的程序。 作为软件工程过程的一个阶 段，编码是对设计的进一步具体化，因此，程序的质量主要取决于软件的质量。 但是，所选用的程序设计语言的特点及编码风格也将对程序的可靠性、可读性、可测性和可维护性产生深远的影响。 界面设计是接口设计的一个重要的组成部分。 对于交互式系统来说，人机界面设计和数据设计、体系结构设计及过程设计一样重要。 登陆界面作为本软件的一个门户，要有钥匙才能打开，这把钥匙就是帐号和密码。 界面如图 41 所示。 图 41 登陆界面 输入帐号和密码，只有帐号和密码正确才可以进入主界面。 登陆界面中涉及到的核心代 码如下： If And Then strsql = select * from 用户信息 where 用户名 =39。 amp。 amp。 39。 and 密码 =39。 amp。 amp。 39。 Set rs = (strsql) If Not Then 39。 输入的登录信息正确，则进入系统 主界面 .Show Unload 登陆界面 Else MsgBox 您输入的登录信息有误，请重新输入。 , vbOKOnly + vbExclamation, 提示 = = End If Else MsgBox 您输入的帐号或密码有误。 , vbOKOnly + vbExclamation, 警告 = = End If 此登陆界面中涉及到的帐号和密码就是用户信息表中的记录，如果用户信息中没有与输入的帐号和密码相匹配的，就出现“您输入的帐号或密码有误 !”的提示。 主界面是进行比赛进程的各个功能的总控制。 把进行田径运动员所要有的功能通过菜单全部编辑在一起，只要点击相应的菜单项就可以进行各种功能操作。 主界面也就是各种功能的连接点。 主界面图 42所示 图 42 主界面 主界面左上角就是菜单，每一 个菜单中都有多个菜单项，每个菜单项就是进行比赛管理的一个模块缺一不可。 所有的菜单项组成一个学校田径运动会管理系统。 前期编排 前期编排中的定义比项目、设置工作岗位、录入工作人员、运动员报名和录入纪录成绩都是表中不存在的就插入到表中，如果存在就修改。 这几个小模块的代码在同小异这里只摘入其中一个小模块的代码。 这里就以运动员报名为例界面如图 43所示： 图 43 运动员报名界面 在运动员报名界面中输入要报名人的信息及所要参加的项目，如果此人在运动员名单中不存在则把此运动员信息插入到运动员名单中，并且 把此人所要报的项目信息插入到参赛情况表中。 如果此人存在于运动员名单中且该项目没有被此人选择则把此人参加该项目的信息插入到参赛情况表中，否则提示此人已经参加了此项目。 部分代码如下： strsql = select * from 运动员名单 where 姓名 =39。 amp。 amp。 39。 or 学号 =39。 amp。 amp。 39。 Set rs = (strsql) If = True Then 39。 该运动员不存在， 可以入库 strsql1 = insert into 运动员名单 values(39。 + + 39。 ,39。 amp。 amp。 39。 ,39。 + + 39。 ,39。 + + 39。 ) strsql3 = insert into 运动员参赛情况 values(39。 + + 39。 ,39。 + + 39。 ) (strsql1) (strsql3) MsgBox 报名成功。 , vbOKOnly, 提示 Else strsql2 = select * from 运动员参赛情况 where 姓名 =39。 amp。 amp。 39。 and 项目名称 =39。 amp。 amp。 39。 Set rs = (strsql2) If = True Then strsql4 = insert into 运动员参赛情况 values(39。 amp。 amp。 39。 ,39。 amp。 amp。 39。 ) (strsql4) End If End if 比赛管理 比赛管理模块中有三个小模块分为：径赛成绩录入与输出、田赛成绩录入与输出和全能成绩录入与输出。 这三个模块要实现的功能也一 样，所以这三个模块的界面也差不多，在这里就用其中的一个模块来做为例子，就以田赛成绩录入与输出这个模块为例，界面如图 44所示： 图 44 田赛成绩录入与输出界面 从项目和姓名中选择相应的项目及姓名，输入成绩如果此人的此项目成绩没有录入单击确定就可以把此成绩插入到田赛成绩表中，如果成绩已存在则修改此成绩。 代码如下： strsql = select * from 田赛成绩 where 姓名 =39。 amp。 amp。 39。 and 项目名称 =39。 amp。 amp。 39。 Set rs = (strsql) If = True Then 39。 该项目成绩没有被记录，可以入库 strsql3 = insert into 田赛成绩 values(39。 amp。 amp。 39。 ,39。 amp。 amp。 39。 ,39。 amp。 amp。 39。 ) (strsql3) MsgBox 修改成功。 , vbOKOnly, 提示 = Else strsql4 = update 田赛成绩 set 成绩 =39。 amp。 amp。 39。 where 姓名=39。 amp。 amp。 39。 and 项目名称 =39。 amp。 amp。 39。 (strsql4) = End If 单击图 (4)中的输出就是得 出田赛项目的最终成绩即得出田赛项目的名次。 田赛输出是把每个田赛项目中的前几名的人员成绩信息输出到最终成绩表中，从田赛成绩中的开始查找田赛项目，则从田赛成绩表中把从项目名单中查找到的项目的前几名成绩信息输出到最终成绩表中。 然后再从田赛成绩中查找下一个田赛项目，再把该项目的前几名输出到最终成绩表中，以此循环直到田赛成绩中的项目全部查完。 输出部分的代码如下： strsql6 = select 每项目取的名次 from 参数表 Set rs = (strsql6) strsql = select distinct 项目名称 from 田赛成绩 Set rs1 = (strsql) i = 0 Do While Not strsql1 = select * from 田赛成绩 where 项目名称 =39。 amp。 (0) amp。 39。 order by 成绩 desc Set rs2 = (strsql1) For j = 0 To Val((0)) 1 strsql3 = select * from 最终成绩 where 姓名 =39。 amp。 (0) amp。 39。 and 项目名称 =39。 amp。 (1) amp。 39。 Set rs = (strsql3) If Then strsql0 = select 分数 from 名次分数表 where 名次 = amp。 j + 1 amp。