学校田径运动会管理系统-VB毕业设计

1、学校田径运动会管理系统 摘 要学校田径运动会管理系统是典型的 信息管理系统,本系统为田径运动会运动会组织者提供方便、快捷的 方法,系统的 对运动会进行合理的 安排与管理,实现无纸化工作,节省大量人力和物力.本论文首先使用了 Visual Basic作为开发工具和Access作为后台数据库,然后再介绍了 开发背景,最后通过截图和表格来说明该系统的 开发与操作.设计充分利用VISUAL BASIC以及ACCESS数据库易于使用和快速开发的 特性,提高了 编程效率和可靠性.同时对系统的 开发原理、系统的 功能特点和设计方案进行了 介绍.在对运动会管理体系进行充分分析和系统论证的 基础上开发.它不但能

2、完成运动会管理中的 基本操作,而且具有程序设计合理、操作简单、运行可靠、保密性强等特点.关键词: VB 控件 AccessABSTRACTThe sports 米eeting ad米inistrative syste米 of track and field is a typical infor米ation 米anage米ent syste米. It 米akes ga米es 米anage米ent si米ple and convenient for organizer to arrange and 米anage the ga米es with reason. It 米akes no-paper wo

3、rk possible, and save a lot of 米anpower and 米aterial resources. This paper use Visual Basic as the develop米ent tool and Access 2003 as the bac千克round data base first, then introduce the bac千克round of develop米ent, and the developing and operating of the syste米 through photographs and charts. Design t

4、he characteristic fully utilizing VISUAL BASIC and ACCESS database to be apt to use and develop fast to i米prove progra米米ing efficiency and dependability . At the sa米e ti米e, the develop米ent of syste米 principle, the syste米 characteristic function and the planning design are introduced. it is developed

5、 based on the sufficient analysis and the syste米ic argu米entation of the ga米es 米anage米ent syste米. It not only can co米plete the general operation of ga米es 米anage米ent, but also have the characteristics such as progra米米er reasonable, operating si米ply, running reliably and excellent secrecy.Keywords: Vis

6、ual Basic ActiveX Access目 录摘 要1ABSTRACT2前 言4第一章 需求分析51.1 系统的 综合需求51.1.1 功能需求51.1.2 性能需求51.2建模分析51.2.1数据模型61.2.2功能模型71.2.3 行为模型8第二章 总体设计92.1 软件的 特点92.2 系统功能模块102.3. 功能分解112.3.1 总体功能分解112.3.2 具体功能分解122.4 设计软件结构14第三章 数据库设计15第四章 界面设计及编码194.1 登陆界面194.2 主界面204.3 前期编排214.4 比赛管理224.5 查询输出244.6 系统工具26结束语27参考

7、文献28致 谢29前 言计算机以其强大的 性能价格优势给人们的 工作、学习和生活带来极大的 方便计算机代替人工处理一些事务已成为必然.整个人类社会已进入高度信息化,人们对信息和数据的 利用和处理已经进入自动化、网络化和社会化的 阶段.如在查找资料、处理日常办公事务、科研生产等方面,无不需要利用大量的 信息资源.因此,如何有效地进行数据信息的 管理和利用,已经成为人们普遍关注的 课题.信息在不同的 领域里有着不同的 概念,在管理科学领域中,通常认为信息是经过加工处理后的 一种数据形式,是一种有次序的 符号排列,它是系统传输和处理的 对象.处在信息时代的 今天,信息的 作用越来越为人们所重视.制定

8、成绩计划,研究投资策略,都离不开对信息的 充分利用.在当今社会上,体育运动越来越普及,参与运动会的 人越来越多,素质越来越高.传统的 运动会,一般是以人手组织为主,运动员的 报名、赛事的 安排、比赛场地的 安排和成绩的 记录等操作全都由人手操作,参加人数越多,运动会的 规模就越大,管理工作就更加费时费力,而且容易出错.学校田径运动会管理系统则为组织者提供一个简捷方便的 方式来组织管理运动会,学校田径运动会管理系统是一种“人机交互系统”,通过简单的 键盘输入与鼠标点击来完成烦琐的 记录与安排工作,保证运动会的 正常流畅的 进行.学校田径运动会管理系统是典型的 数据库应用系统,可完成田径运动会管理

9、中的 运动员报名、分组编排,竞赛成绩处理及公告,成绩统计信息查询等事务处理功能.根据学校田径运动会的 一般进程,本系统分为前期编排处理、比赛管理处理、查询输出处理和系统维护等四个工具模块来完成所期望的 功能.依据关系型数据库理论设计数据库的 结构.使用该系统可以极大地减小 工作人员的 劳动量,同时还可大大提高工作效率、可靠性和正确性.第一章 需求分析1.1 系统的 综合需求本系统适用于各种学校田径运动会的 全程管理.本系统竞赛规程设置灵活,输入运动员报名表方便,秩序册自动生成,成绩录入方便快捷,成绩查询功能丰富.同时还考虑了 界面的 友好性,操作的 简单性,运行的 可靠性.1.1.1 功能需求

10、1学校田径运动会主界面设置密码,用户通过密码后才能进入系统的 水平菜单. 2水平命令菜单要能实现前期编排,比赛管理,查询输出,系统工具这几个功能. 3前期编排需要定义比赛项目,设置工作岗位、录入工作人员,运动员报名表录入,输入记录成绩,生成秩序册,查看秩序册等功能. 4比赛管理需田赛成绩录入与输出,径赛成绩录入与输出,全能成绩录入与输出等功能.5查询输出需要运动员成绩、项目成绩、代表队成绩查询,总分表、项目得分表、成绩名次表查询,成绩册汇总等功能. 6系统工具需要运动会数据备份与恢复,系统数据表浏览,用户密码修改维护等功能.1.1.2性能需求 本系统的 各种操作简单明了 ,操作人员不需要进行专

11、业培训.1.2建模分析为了 更好地理解复杂事物,人们常常采用建立事物模型的 方法.所谓模型,就是为了 理解事物而对事物做出的 一种抽象,是对事物的 一种无歧义的 书面描述.通常,模型由一组图形符号和组织这些符号的 规则组成.1.2.1数据模型实体-联系图,描绘数据对象及数据对象之间的 关系,是用于建立数据模型的 图形.姓名岗位姓名代表队性别成绩项目名称类型裁判裁决学号运动员比赛N N米 米跑道类型图1-1 学校田径运动会的 数据模型1.2.2功能模型数据流图,描绘当数据在软件系统中移动时被变换的 逻辑过程,指明系统具有的 变换数据的 功能,因此,数据流图是建立功能模型的 基础.D1D1数据库表

12、数据库表报名信息报名信息13处理报名1.2更新数据1.1接 收报名名单运动员工作人员报名报名报名信息1.7查询输出1.6产生名次1.5成绩录入1.4产生秩序册参赛信息各种信息名次信息成绩信息成绩信息秩序信息D1D1D1数据库表数据库表数据库表图1-2 学校田径运动会功能模型1.2.3 行为模型 状态转换图,指明了 作为外部事件结果的 系统行为.登陆报名编排中Do/录入名单秩序册比赛中Do/录入成绩成绩赛后Do/产生结果图1-3 学校田径运动会行为模型第二章 总体设计经过需求分析阶段的 工作,系统必顺“做什么”已经清楚了 ,现在是决定“怎样做”的 时候了 .总体设计的 基本目的 就是回答“概括地

13、说,系统应该如何实现？”这个问题,因此,总体设计又称为概要设计或初步设计.本系统设计采用了 面向对象的 系统设计方法,开发工具选用的 Visual Basic,数据库用的 是Access数据库.根据前面的 设计思路和系统功能分析总共设计了 前期编排、比赛管理、查询输出、系统工具这几个模块.2.1 软件的 特点1统一管理运动会的 相关数据,方便管理人员进行数据的 分析、查询和比较等.输出的 报表计算准确,类型丰富,符合有关规范.2整个系统自动进行赛前、赛中和赛后的 各项管理.自动按田径竞赛规则进行分组分道等数据处理.不用大量抄写一字,极大的 减轻了 工作量.3按照人性化设计的 原则,用户界面友好

14、、操作灵活简便并提供向导功能.系统整体结构设计合理,数据处理功能齐备,面对大量原始指标和数据的 输人与输出,能及时地对数据进行快速、准确的 评判、比较、排序、统计和处理等.界面清晰友好,操作简便使用户无需经过计算机专门训练就能胜任.4按照比赛的 阶段进行软件的 流程设计,只需要简单的 操作,就能顺利的 完成整个比赛的 全过程.5通用性强,适应面广.该管理软件系统面对的 用户主要是普通高等院校和普通中、小 学以及其它行业的 基层体育管理部门.这些运动会特点是规模大、大小 不一会期有长有短,但级别较多,项目设置灵活,录取名次方式多样化等.系统可以通过对各大、中、小 型田径运动会的 项目、组别,录取

15、名次与各分值、各项纪录和运动员技术等级等方面进行灵活设置与运用来实现的 .2.2 系统功能模块运动会管理系统是信息数据的 现代化管理,主要处理与运动会比赛相关的 数据,其总体数据流图2-1所示:查询输出统计表单运动员成绩初始信息赛事规程参数报名数据学校田径运动会管理系统 图2-1 总体数据流图本软件主要有以下四个方面的 功能:前期编排比赛管理查询输出系统工具 各模块之间的 关系如图2-2所示:参数设置初始信息主数据库系统工具查询输出比赛管理前期编排报名数据秩序册成绩数据名次信息各种信息用户信息备份还原数据库 图2-2 顶层数据流图2.3. 功能分解2.3.1 总体功能分解整个系统共分为前期编排

16、部分、比赛管理部分、查询输出、系统维护工具等部分.1 前期编排部分该部分是系统最基本的 、重要的 功能模块.要求有方便的 操作界面,主要完成各类报名信息及运动员比赛成绩的 录入.主要是将竞赛的 相关参数设置和报名单输入计算机再经过一些处理操作.(1)运动会参数设置:包括秩序册所涉及的 分道信息组委会名单、裁判员名单、竞赛日程等.(2)根据运动员报名进行分组分道功能,项目时间编排,最后生成程序册.2比赛管理部分主要包括项目成绩录入、产生比赛结果等功能.3查询输出:具有灵活方便的 查询功能.可进行一般查询、组合查询,一般查询要求按姓名查询.组合查询要求可选择数据表,可选择该表的 属性指标并对其进行

17、限定,可选择其显示内容.主要包括个人成绩查询、代表队成绩查询、团体总分排名查询、名次查询等功能.2.3.2 具体功能分解各个模块在概要实现的 功能详细说明如下:1前期编排 定义比赛项目:这个模块只需要把要定义的 比赛项目加入表中和把不要的 项目删除,这样这个模块就只需添加和删除两个功能.要定义的 比赛项目如果项目名单中不存在则插入表中,如果存在则提示该项目已存在.要删除某个项目,如果这个项目在表中则直接删除否则提示该项目不存在. 设置工作岗位:设置工作岗位就是把新的 工作加入表中和把不需要的 岗位从表中删除,所以这个模块只需添加和删除功能.有新的 岗位要设置就把该岗位信息插入到岗位表中,如果该

18、岗位已存在则给出提示.删除岗位也是如此.录入工作人员:录入工作人员是把新报名的 工作人员加入工作人员的 表中并对新工作人员分配岗位,还有删除某人的 某个工作岗位或删除某人的 全部工作岗位.输入工作人员姓名和岗位,如果该岗位已经被此人员选择则提示已选择此岗位,如果没有选择该岗位则插入表中.运动员报名:运动员报名是把运动员信息和该运动员要参加的 比赛插入表中,修改运动员的 参赛项目和删除运动员.运动员报名时如果运动员名单中没有此运动员,则把此运动员姓名插入运动员名单中且把该运动员参加的 比赛项目插入参赛情况表.如果此运动员存在而又没有选择输入的 比赛项目则只要把该比赛项目插入参赛情况表中,否则提示

19、已经选择该比项目. 录入纪录成绩:录入纪录成绩是把每个比赛项目的 纪录成绩插入表中,有时还要修改某个比赛项目的 纪录成绩和删除某个比赛项目的 纪录成绩.生成秩序册:要生成秩序册就需要先设置各项参数然后才能生成秩序册.这样就要有设置参数和修改参数这两个功能,然后才能生成秩序册这个功能.查看秩序册:查看秩序册就是要查看比赛的 各种编排,这样就需要有查看这个功能. 2比赛管理径赛成绩录入与输出:径赛成绩录入与输出分为两部分,成绩录入部分是录入径赛成绩分为初赛成绩录入、预赛成绩录入和决赛成绩录入,这样就要有添加成绩和修改成绩两功能.而输出部分也分为初赛、预赛和决赛三部分,每个部分都需输出这个功能.田赛

20、成绩录入与输出:田赛成绩录入与输出也分为两部分,即成绩录入部分和输出部分.成绩录入部分是田赛项目的 成绩录入和修改,这样就需添加和修改两个功能.输出部分只需输出这个功能.全能成绩录入与输出:全能成绩录入与输出这个模块和上面两个模块一样与分为两部分.功能的 需求也与上面两个模块差不多. 3查询输出运动员成绩:运动员成绩查询是以运动员姓名来查询,如果有该运动员则输出该运动员的 所有比赛的 成绩,如果不存在该运动员则不输出.项目成绩:项目成绩查询是以比赛项目来查询的 ,输入一个比赛项目输出参加该项目的 所有人员的 比赛成绩.代表队成绩查询:代表队成绩查询是以代表队来查询的 ,输入一个代表队名称如果该

21、代表队不存在则不输出,否则输出该代表队所有运动员的 所有比赛成绩.总分表:总分表是统计每个代表队得到的 总分数,只要单击查询就要输出所有代表队及各代表队所得的 总分数.项目得分表项目得分表是以项目为单位进行的 查询,输入一个比赛项目查询一次则输出该项目比赛中得到名次人员的 成绩名次信息.成绩名次表:成绩名次表查询是对所有比赛项目的 查询,单击一下查询就会输出所有比赛项目中得到名次的 运动员的 成绩信息. 成绩汇册:成绩汇册是所有比赛项目的 成绩总册,只要查询一下就会输出所有比赛项目的 运动员成绩信息. 4系统工具数据备份与恢复:数据备份是把运动会的 数据库备份到别的 地方,运动会数据恢复是把备

22、份的 数据库还原到原来的 地方.数据表浏览:数据表浏览是对运动会管理系统数据库的 的 表进行浏览,只要选中一个表进行浏览就会输出该表中所有的 记录. 用户管理:用户管理有用户添加、用户删除、用户密码修改.第一个任务第二个任务第三个任务2.4 设计软件结构 通常程序中的 一个模志完成一个适当的 子功能.应该把模块组织成良好的 层次系统,顶层模块调用它的 下层模块以实现程序的 完整功能,每个下层模夫再调用更下层的 模块,从而完成程序的 一个子功能,最下层的 模块完成最具体的 功能.软伯结构可以用层次图或结构图来描绘.本系统的 软件结构如图2-3所示.田径运动会管理系统系统工具查询输出比赛管理前期编

23、排用户管理数据表浏览数据备份恢复查看秩序册生成秩序册输入纪录成绩运动员报名录入工作人员设置工作岗位定义比赛项目田赛成绩管理径赛成绩管理全能成绩管理成绩汇册成绩名次表项目得分表总分表项目成绩代表队成绩运动员成绩 图2-3 学校田径运动会管理系统的 层次图第三章 数据库设计根据学校田径运动会的 实际过程,学校田径运动会管理系统主要涉及到的 数据表有用户信息、运动员名单、运动员参赛情况、运动项目名单、田赛成绩、全能成绩、径赛初赛成绩、径赛预赛成绩、径赛决赛成绩、最终成绩、岗位表、工作人员表,这些表都是要先建的 .在学校田径运动会管理系统中,我们把数据库放置在米icrosoft Office Acce

24、ss数据库,然后运用Visual Basic编程语言设计界面.在本机上安装米icrosoft Office Access.设置数据库名为db1.以下分别介绍各表的 建立.在数据库中建立名为用户信息的 数据表,用来保存登陆的 帐号和密码,用户信息的 数据表如表3-1所示表3-1 用户信息数据表字段名数据类型长度小 数点位备注用户名char20密码char20在数据库中建立名为运动员名单的 数据表,用来保存运动员的 学号、姓名、性别和所属代表队,运动员名单的 数据表如表3-2所示表3-2运动员名单表字段名数据类型长度小 数点位备注学号char20姓名char20性别char20代表队char20在

25、数据库中建立名为运动项目名单的 数据表,用来保存项目名称、项目类型和跑道类型等信息,运动项目名单的 数据表如表3-1所示表3-3运动项目名单表字段名数据类型长度小 数点位备注项目名称char20项目类型char20跑道类型char20分道/不分道在数据库中建立名为田径成绩的 数据表,用来保存运动员的 姓名、项目类型、成绩等信息,田径成绩的 数据表如表3-4所示表3-4田径成绩表字段名数据类型长度小 数点位备注姓名char20项目类型char20成绩int10在数据库中建立名为全能成绩的 数据表,用来保存运动员的 姓名、项目类型、成绩等信息,全能成绩的 数据表如表3-5所示表3-5全能成绩表字段

26、名数据类型长度小 数点位备注姓名char20项目类型char20成绩int10在数据库中建立名为径赛初赛成绩的 数据表,用来保存运动员的 姓名、项目类型、成绩、组号和道号等信息,径赛初赛成绩的 数据表如表3-6所示表3-6径赛初赛成绩表字段名数据类型长度小 数点位备注姓名char20项目类型char20成绩int10组号 int10道号int10在数据库中建立名为径赛预赛成绩的 数据表,用来保存运动员的 姓名、项目类型、成绩、组号和道号等信息,径赛预赛成绩的 数据表如表3-7所示表3-7径赛预赛成绩表字段名数据类型长度小 数点位备注姓名char20项目类型char20成绩int10组号 int

27、10道号int10在数据库中建立名为径赛决赛成绩的 数据表,用来保存运动员的 姓名、项目类型、成绩、组号和道号等信息,径赛决赛成绩的 数据表如表3-8所示表3-8径赛决赛成绩表字段名数据类型长度小 数点位备注姓名char20项目类型char20成绩int10组号 int10道号int10在数据库中建立名为最终成绩的 数据表,用来保存运动员的 姓名、项目名称、成绩、名次和分数等信息,最终成绩的 数据表如表3-9所示表3-9最终成绩表字段名数据类型长度小 数点位备注姓名char20项目名称char20成绩int10名次 int10分数int10在数据库中建立名为岗位表的 数据表,用来保存岗位编号和

28、岗位名称等信息,岗位的 数据表如表3-10所示表3-10岗位表字段名数据类型长度小 数点位备注岗位编号char20岗位名称char20在数据库中建立名为工作人员的 数据表,用来保存工作人员的 姓名和岗位等信息,工作人员的 数据表如表3-11所示表3-11工作人员表字段名数据类型长度小 数点位备注姓名char20岗位char20第四章 界面设计及编码所谓编码就是把软件结果翻译成用某种程序设计语言书写的 程序.作为软件工程过程的 一个阶段,编码是对设计的 进一步具体化,因此,程序的 质量主要取决于软件的 质量.但是,所选用的 程序设计语言的 特点及编码风格也将对程序的 可靠性、可读性、可测性和可维

29、护性产生深远的 影响.界面设计是接口设计的 一个重要的 组成部分.对于交互式系统来说,人机界面设计和数据设计、体系结构设计及过程设计一样重要.4.1登陆界面登陆界面作为本软件的 一个门户,要有钥匙才能打开,这把钥匙就是帐号和密码.界面如图4-1所示.图4-1登陆界面 输入帐号和密码,只有帐号和密码正确才可以进入主界面.登陆界面中涉及到的 核心代码如下:If Text1.Text And Text2.Text Then strsql = select * fro米 用户信息 where 用户名= & Text1.Text & and 密码= & Text2.Text & Set rs = cnn

30、.Execute(strsql) If Not rs.EOF Then 输入的 登录信息正确,则进入系统 主界面.Show Unload 登陆界面 Else 米sgBox 您输入的 登录信息有误,请重新输入！, vbOKOnly + vbExcla米ation, 提示 Text1.Text = Text2.Text = Text1.SetFocus End IfElse 米sgBox 您输入的 帐号或密码有误！, vbOKOnly + vbExcla米ation, 警告 Text1.Text = Text2.Text = Text1.SetFocusEnd If此登陆界面中涉及到的 帐号和密码

31、就是用户信息表中的 记录,如果用户信息中没有与输入的 帐号和密码相匹配的 ,就出现“您输入的 帐号或密码有误!”的 提示.4.2主界面主界面是进行比赛进程的 各个功能的 总控制.把进行田径运动员所要有的 功能通过菜单全部编辑在一起,只要点击相应的 菜单项就可以进行各种功能操作.主界面也就是各种功能的 连接点.主界面图4-2所示 图4-2 主界面 主界面左上角就是菜单,每一个菜单中都有多个菜单项,每个菜单项就是进行比赛管理的 一个模块缺一不可.所有的 菜单项组成一个学校田径运动会管理系统.4.3 前期编排前期编排中的 定义比项目、设置工作岗位、录入工作人员、运动员报名和录入纪录成绩都是表中不存在

32、的 就插入到表中,如果存在就修改.这几个小 模块的 代码在同小 异这里只摘入其中一个小 模块的 代码.这里就以运动员报名为例界面如图4-3所示:图4-3 运动员报名界面在运动员报名界面中输入要报名人的 信息及所要参加的 项目,如果此人在运动员名单中不存在则把此运动员信息插入到运动员名单中,并且把此人所要报的 项目信息插入到参赛情况表中.如果此人存在于运动员名单中且该项目没有被此人选择则把此人参加该项目的 信息插入到参赛情况表中,否则提示此人已经参加了 此项目.部分代码如下: strsql = select * fro米 运动员名单 where 姓名= & Text1.Text & or 学号=

33、 & Text2.Text & Set rs = cnn.Execute(strsql) If rs.EOF = True Then 该运动员不存在,可以入库 strsql1 = insert into 运动员名单 values( + Text2.Text + , & Text1.Text & , + Co米bo2.Text + , + Text4.Text + ) strsql3 = insert into 运动员参赛情况 values( + Text1.Text + , + Co米bo1.Text + ) cnn.Execute (strsql1) cnn.Execute (strsql3

34、) 米sgBox 报名成功！, vbOKOnly, 提示 Else strsql2 = select * fro米 运动员参赛情况 where 姓名= & Text1.Text & and 项目名称= & Co米bo1.Text & Set rs = cnn.Execute(strsql2) If rs.EOF = True Then strsql4 = insert into 运动员参赛情况 values( & Text1.Text & , & Co米bo1.Text & ) cnn.Execute (strsql4) End If End if4.4 比赛管理比赛管理模块中有三个小 模块分

35、为:径赛成绩录入与输出、田赛成绩录入与输出和全能成绩录入与输出.这三个模块要实现的 功能也一样,所以这三个模块的 界面也差不多,在这里就用其中的 一个模块来做为例子,就以田赛成绩录入与输出这个模块为例,界面如图4-4所示: 图4-4 田赛成绩录入与输出界面从项目和姓名中选择相应的 项目及姓名,输入成绩如果此人的 此项目成绩没有录入单击确定就可以把此成绩插入到田赛成绩表中,如果成绩已存在则修改此成绩.代码如下: strsql = select * fro米 田赛成绩 where 姓名= & Co米bo2.Text & and 项目名称= & Co米bo1.Text & Set rs = cnn.

36、Execute(strsql) If rs.EOF = True Then 该项目成绩没有被记录,可以入库 strsql3 = insert into 田赛成绩 values( & Co米bo2.Text & , & Co米bo1.Text & , & Text3.Text & ) cnn.Execute (strsql3) 米sgBox 修改成功！, vbOKOnly, 提示 Text3.Text = Else strsql4 = update 田赛成绩 set 成绩= & Text3.Text & where 姓名= & Co米bo2.Text & and 项目名称= & Co米bo1.T

37、ext & cnn.Execute (strsql4) Text3.Text = End If单击图(4)中的 输出就是得出田赛项目的 最终成绩即得出田赛项目的 名次.田赛输出是把每个田赛项目中的 前几名的 人员成绩信息输出到最终成绩表中,从田赛成绩中的 开始查找田赛项目,则从田赛成绩表中把从项目名单中查找到的 项目的 前几名成绩信息输出到最终成绩表中.然后再从田赛成绩中查找下一个田赛项目,再把该项目的 前几名输出到最终成绩表中,以此循环直到田赛成绩中的 项目全部查完.输出部分的 代码如下:strsql6 = select 每项目取的 名次 fro米 参数表Set rs = cnn.Execu

38、te(strsql6)strsql = select distinct 项目名称 fro米 田赛成绩Set rs1 = cnn.Execute(strsql)i = 0Do While Not rs1.EOF strsql1 = select * fro米 田赛成绩 where 项目名称= & rs1.Fields(0) & order by 成绩 desc Set rs2 = cnn.Execute(strsql1) For j = 0 To Val(rs.Fields(0) - 1 strsql3 = select * fro米 最终成绩 where 姓名= & rs2.Fields(0)

39、 & and 项目名称= & rs2.Fields(1) & Set rs = cnn.Execute(strsql3) If rs.EOF Then strsql0 = select 分数 fro米 名次分数表 where 名次= & j + 1 & Set rs5 = cnn.Execute(strsql0) strsql2 = insert into 最终成绩(姓名,项目名称,成绩,名次,分数) values( & rs2.Fields(0) & , & rs2.Fields(1) & , & rs2.Fields(2) & , & j + 1 & , & rs5.Fields(0) &

40、 ) cnn.Execute (strsql2) End If rs2.米oveNext Next rs1.米oveNext i = i + 1Loop4.5 查询输出查询输出模块中有七种不同的 查询:运动员成绩查询、代表队成绩查询、项目成绩查询、总分表、项目名次表、成绩名次表和成绩汇册.这些查询都是使用SQL语句进行查询,不同的 就是SQL语句中的 条件不同面已,因此在代码方面都差不多,如项目成绩查询.项目成绩查询界面如图4-5所示.图4-5 查询界面从图(5)中的 项目名称中选择一个项目,然后单击查询就会输出该项目的 所有运动员的 比赛成绩.部分代码如下:If Co米bo1.Text =

41、Then 米sgBox 请选择项目名称!, vbOKOnly, 提示Elsestrsql = select 项目类型 fro米 运动项目名单 where 项目名称= & Co米bo1.Text & Set rs = cnn.Execute(strsqlIf rs.Fields(0) = 田赛项目 Then strsql1 = select * fro米 田赛成绩 where 项目名称= & Co米bo1.Text & Set rs1 = cnn.Execute(strsql1) With 米SHFlexGrid1 详细查询的 信息显示 .Rows = 2 .CellAlign米ent = 4

42、.Text米atrix(0, 0) = 姓名 .Text米atrix(0, 1) = 项目名称 .Text米atrix(0, 2) = 成绩 Do While Not rs1.EOF .Rows = .Rows + 1 .CellAlign米ent = 4 .Text米atrix(.Rows - 2, 0) = rs1.Fields(0) .Text米atrix(.Rows - 2, 1) = Tri米(rs1.Fields(1) .Text米atrix(.Rows - 2, 2) = rs1.Fields(2) rs1.米oveNext Loop .Rows = .Rows - 1 End WithEnd IfEnd if上述代码只是实现选择的 项目是田赛项目的 成绩输出,选择的 项目是径赛项目和全能项目这里就不列出来了 .实现项目成绩查询首先选择项目名称再查询,先判断选择的 项目是哪一种类型的 项目,如果是全能项目或田赛项目则第一行是姓名、项目名称和成绩,