学校田径运动会管理系统

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

2、而且具有程序设计合理、操作简单、运行可靠、保密性强等特点。关键词: VB 控件 AccessABSTRACTThe sports meeting administrative system of track and field is a typical information management system. It makes games management simple and convenient for organizer to arrange and manage the games with reason. It makes no-paper work possible, an

3、d save a lot of manpower and material resources. This paper use "Visual Basic" as the development tool and "Access 2003" as the background data base first, then introduce the background of development, and the developing and operating of the system through photographs and charts.

4、 Design the characteristic fully utilizing VISUAL BASIC and ACCESS database to be apt to use and develop fast to improve programming efficiency and dependability . At the same time, the development of system principle, the system characteristic function and the planning design are introduced. it is

5、developed based on the sufficient analysis and the systemic argumentation of the games management system. It not only can complete the general operation of games management, but also have the characteristics such as programmer reasonable, operating simply, running reliably and excellent secrecy.Keyw

6、ords: Visual 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

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

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

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

10、。 2水平命令菜单要能实现前期编排，比赛管理，查询输出，系统工具这几个功能。 3前期编排需要定义比赛项目，设置工作岗位、录入工作人员，运动员报名表录入，输入记录成绩，生成秩序册，查看秩序册等功能。 4比赛管理需田赛成绩录入与输出，径赛成绩录入与输出，全能成绩录入与输出等功能。5查询输出需要运动员成绩、项目成绩、代表队成绩查询，总分表、项目得分表、成绩名次表查询，成绩册汇总等功能。 6系统工具需要运动会数据备份与恢复，系统数据表浏览，用户密码修改维护等功能。1.1.2性能需求 本系统的各种操作简单明了，操作人员不需要进行专业培训。1.2建模分析为了更好地理解复杂事物，人们常常采用建立事物模型的方

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

12、.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通用性强，适应面广。该管理软件系统面对的用户主要是普通高等院校和普通中、小学以及其它行业的基层体育管理部门。这些运动会特点是规模大、大小不一会期有长有短，但级别较多，项目设置灵活，录取名次方式多样化等。系统可以通过对各大、中、小型田径运动会的项目、组别，录取名次与各分值、各项纪录和运动员技术等级等方面进行灵活设置与运用来实现的。2.2 系统功能模块运动会管理系统是信息数据的现代化管理，主要处理与运动会比赛相关的数据，其总体数据

15、流图2-1所示：查询输出统计表单运动员成绩初始信息赛事规程参数报名数据学校田径运动会管理系统 图2-1 总体数据流图本软件主要有以下四个方面的功能：前期编排比赛管理查询输出系统工具 各模块之间的关系如图2-2所示：参数设置初始信息主数据库系统工具查询输出比赛管理前期编排报名数据秩序册成绩数据名次信息各种信息用户信息备份还原数据库 图2-2 顶层数据流图2.3. 功能分解2.3.1 总体功能分解整个系统共分为前期编排部分、比赛管理部分、查询输出、系统维护工具等部分。1 前期编排部分该部分是系统最基本的、重要的功能模块。要求有方便的操作界面，主要完成各类报名信息及运动员比赛成绩的录入。主要是将竞赛

16、的相关参数设置和报名单输入计算机再经过一些处理操作。(1)运动会参数设置：包括秩序册所涉及的分道信息组委会名单、裁判员名单、竞赛日程等。(2)根据运动员报名进行分组分道功能，项目时间编排，最后生成程序册。2比赛管理部分主要包括项目成绩录入、产生比赛结果等功能。3查询输出：具有灵活方便的查询功能。可进行一般查询、组合查询，一般查询要求按姓名查询。组合查询要求可选择数据表，可选择该表的属性指标并对其进行限定，可选择其显示内容。主要包括个人成绩查询、代表队成绩查询、团体总分排名查询、名次查询等功能。2.3.2 具体功能分解各个模块在概要实现的功能详细说明如下：1前期编排 定义比赛项目：这个模块只需要

17、把要定义的比赛项目加入表中和把不要的项目删除，这样这个模块就只需添加和删除两个功能。要定义的比赛项目如果项目名单中不存在则插入表中，如果存在则提示该项目已存在。要删除某个项目，如果这个项目在表中则直接删除否则提示该项目不存在。 设置工作岗位：设置工作岗位就是把新的工作加入表中和把不需要的岗位从表中删除，所以这个模块只需添加和删除功能。有新的岗位要设置就把该岗位信息插入到岗位表中，如果该岗位已存在则给出提示。删除岗位也是如此。录入工作人员：录入工作人员是把新报名的工作人员加入工作人员的表中并对新工作人员分配岗位，还有删除某人的某个工作岗位或删除某人的全部工作岗位。输入工作人员姓名和岗位，如果该岗

18、位已经被此人员选择则提示已选择此岗位，如果没有选择该岗位则插入表中。运动员报名：运动员报名是把运动员信息和该运动员要参加的比赛插入表中，修改运动员的参赛项目和删除运动员。运动员报名时如果运动员名单中没有此运动员，则把此运动员姓名插入运动员名单中且把该运动员参加的比赛项目插入参赛情况表。如果此运动员存在而又没有选择输入的比赛项目则只要把该比赛项目插入参赛情况表中，否则提示已经选择该比项目。 录入纪录成绩：录入纪录成绩是把每个比赛项目的纪录成绩插入表中，有时还要修改某个比赛项目的纪录成绩和删除某个比赛项目的纪录成绩。生成秩序册：要生成秩序册就需要先设置各项参数然后才能生成秩序册。这样就要有设置参数

19、和修改参数这两个功能，然后才能生成秩序册这个功能。查看秩序册：查看秩序册就是要查看比赛的各种编排，这样就需要有查看这个功能。 2比赛管理径赛成绩录入与输出：径赛成绩录入与输出分为两部分，成绩录入部分是录入径赛成绩分为初赛成绩录入、预赛成绩录入和决赛成绩录入，这样就要有添加成绩和修改成绩两功能。而输出部分也分为初赛、预赛和决赛三部分，每个部分都需输出这个功能。田赛成绩录入与输出：田赛成绩录入与输出也分为两部分，即成绩录入部分和输出部分。成绩录入部分是田赛项目的成绩录入和修改，这样就需添加和修改两个功能。输出部分只需输出这个功能。全能成绩录入与输出：全能成绩录入与输出这个模块和上面两个模块一样与分

20、为两部分。功能的需求也与上面两个模块差不多。 3查询输出运动员成绩：运动员成绩查询是以运动员姓名来查询，如果有该运动员则输出该运动员的所有比赛的成绩，如果不存在该运动员则不输出。项目成绩：项目成绩查询是以比赛项目来查询的，输入一个比赛项目输出参加该项目的所有人员的比赛成绩。代表队成绩查询：代表队成绩查询是以代表队来查询的，输入一个代表队名称如果该代表队不存在则不输出，否则输出该代表队所有运动员的所有比赛成绩。总分表：总分表是统计每个代表队得到的总分数，只要单击查询就要输出所有代表队及各代表队所得的总分数。项目得分表项目得分表是以项目为单位进行的查询，输入一个比赛项目查询一次则输出该项目比赛中得

21、到名次人员的成绩名次信息。成绩名次表：成绩名次表查询是对所有比赛项目的查询，单击一下查询就会输出所有比赛项目中得到名次的运动员的成绩信息。 成绩汇册：成绩汇册是所有比赛项目的成绩总册，只要查询一下就会输出所有比赛项目的运动员成绩信息。 4系统工具数据备份与恢复：数据备份是把运动会的数据库备份到别的地方，运动会数据恢复是把备份的数据库还原到原来的地方。数据表浏览：数据表浏览是对运动会管理系统数据库的的表进行浏览，只要选中一个表进行浏览就会输出该表中所有的记录。 用户管理：用户管理有用户添加、用户删除、用户密码修改。第一个任务第二个任务第三个任务2.4 设计软件结构 通常程序中的一个模志完成一个适

22、当的子功能。应该把模块组织成良好的层次系统，顶层模块调用它的下层模块以实现程序的完整功能，每个下层模夫再调用更下层的模块，从而完成程序的一个子功能，最下层的模块完成最具体的功能。软伯结构可以用层次图或结构图来描绘。本系统的软件结构如图2-3所示。田径运动会管理系统系统工具查询输出比赛管理前期编排用户管理数据表浏览数据备份恢复查看秩序册生成秩序册输入纪录成绩运动员报名录入工作人员设置工作岗位定义比赛项目田赛成绩管理径赛成绩管理全能成绩管理成绩汇册成绩名次表项目得分表总分表项目成绩代表队成绩运动员成绩 图2-3 学校田径运动会管理系统的层次图第三章 数据库设计根据学校田径运动会的实际过程，学校田径

23、运动会管理系统主要涉及到的数据表有用户信息、运动员名单、运动员参赛情况、运动项目名单、田赛成绩、全能成绩、径赛初赛成绩、径赛预赛成绩、径赛决赛成绩、最终成绩、岗位表、工作人员表，这些表都是要先建的。在学校田径运动会管理系统中，我们把数据库放置在Microsoft Office Access数据库，然后运用Visual Basic编程语言设计界面。在本机上安装Microsoft Office Access.设置数据库名为db1。以下分别介绍各表的建立。在数据库中建立名为用户信息的数据表，用来保存登陆的帐号和密码，用户信息的数据表如表3-1所示表3-1 用户信息数据表字段名数据类型长度小数点位备注

24、用户名char20密码char20在数据库中建立名为运动员名单的数据表，用来保存运动员的学号、姓名、性别和所属代表队，运动员名单的数据表如表3-2所示表3-2运动员名单表字段名数据类型长度小数点位备注学号char20姓名char20性别char20代表队char20在数据库中建立名为运动项目名单的数据表，用来保存项目名称、项目类型和跑道类型等信息，运动项目名单的数据表如表3-1所示表3-3运动项目名单表字段名数据类型长度小数点位备注项目名称char20项目类型char20跑道类型char20分道/不分道在数据库中建立名为田径成绩的数据表，用来保存运动员的姓名、项目类型、成绩等信息，田径成绩的数

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

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

27、，最终成绩的数据表如表3-9所示表3-9最终成绩表字段名数据类型长度小数点位备注姓名char20项目名称char20成绩int10名次 int10分数int10在数据库中建立名为岗位表的数据表，用来保存岗位编号和岗位名称等信息，岗位的数据表如表3-10所示表3-10岗位表字段名数据类型长度小数点位备注岗位编号char20岗位名称char20在数据库中建立名为工作人员的数据表，用来保存工作人员的姓名和岗位等信息，工作人员的数据表如表3-11所示表3-11工作人员表字段名数据类型长度小数点位备注姓名char20岗位char20第四章 界面设计及编码所谓编码就是把软件结果翻译成用某种程序设计语言书写

28、的程序。作为软件工程过程的一个阶段，编码是对设计的进一步具体化，因此，程序的质量主要取决于软件的质量。但是，所选用的程序设计语言的特点及编码风格也将对程序的可靠性、可读性、可测性和可维护性产生深远的影响。界面设计是接口设计的一个重要的组成部分。对于交互式系统来说，人机界面设计和数据设计、体系结构设计及过程设计一样重要。4.1登陆界面登陆界面作为本软件的一个门户，要有钥匙才能打开，这把钥匙就是帐号和密码。界面如图4-1所示。图4-1登陆界面 输入帐号和密码，只有帐号和密码正确才可以进入主界面。登陆界面中涉及到的核心代码如下：If Text1.Text <> ""

29、And Text2.Text <> "" Then strsql = "select * from 用户信息 where 用户名='" & Text1.Text & "' and 密码='" & Text2.Text & "'" Set rs = cnn.Execute(strsql) If Not rs.EOF Then '输入的登录信息正确，则进入系统 主界面.Show Unload 登陆界面 Else MsgBox "

30、;您输入的登录信息有误，请重新输入！", vbOKOnly + vbExclamation, "提示" Text1.Text = "" Text2.Text = "" Text1.SetFocus End IfElse MsgBox "您输入的帐号或密码有误！", vbOKOnly + vbExclamation, "警告" Text1.Text = "" Text2.Text = "" Text1.SetFocusEnd If此登陆界面中涉及到

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

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

33、 "' or 学号='" & Text2.Text & "'" Set rs = cnn.Execute(strsql) If rs.EOF = True Then '该运动员不存在，可以入库 strsql1 = "insert into 运动员名单 values('" + Text2.Text + "','" & Text1.Text & "','" + Combo2.Text + &quo

34、t;','" + Text4.Text + "')" strsql3 = "insert into 运动员参赛情况 values('" + Text1.Text + "','" + Combo1.Text + "')" cnn.Execute (strsql1) cnn.Execute (strsql3) MsgBox "报名成功！", vbOKOnly, "提示" Else strsql2 = "s

35、elect * from 运动员参赛情况 where 姓名='" & Text1.Text & "' and 项目名称='" & Combo1.Text & "'" Set rs = cnn.Execute(strsql2) If rs.EOF = True Then strsql4 = "insert into 运动员参赛情况 values('" & Text1.Text & "','" &

36、Combo1.Text & "')" cnn.Execute (strsql4) End If End if4.4 比赛管理比赛管理模块中有三个小模块分为：径赛成绩录入与输出、田赛成绩录入与输出和全能成绩录入与输出。这三个模块要实现的功能也一样，所以这三个模块的界面也差不多，在这里就用其中的一个模块来做为例子，就以田赛成绩录入与输出这个模块为例，界面如图4-4所示： 图4-4 田赛成绩录入与输出界面从项目和姓名中选择相应的项目及姓名，输入成绩如果此人的此项目成绩没有录入单击确定就可以把此成绩插入到田赛成绩表中，如果成绩已存在则修改此成绩。代码如下： strs

37、ql = "select * from 田赛成绩 where 姓名='" & Combo2.Text & "' and 项目名称='" & Combo1.Text & "'" Set rs = cnn.Execute(strsql) If rs.EOF = True Then '该项目成绩没有被记录，可以入库 strsql3 = "insert into 田赛成绩 values('" & Combo2.Text & &q

38、uot;','" & Combo1.Text & "','" & Text3.Text & "')" cnn.Execute (strsql3) MsgBox "修改成功！", vbOKOnly, "提示" Text3.Text = "" Else strsql4 = "update 田赛成绩 set 成绩='" & Text3.Text & "' wh

39、ere 姓名='" & Combo2.Text & "' and 项目名称='" & Combo1.Text & "'" cnn.Execute (strsql4) Text3.Text = "" End If单击图(4)中的输出就是得出田赛项目的最终成绩即得出田赛项目的名次。田赛输出是把每个田赛项目中的前几名的人员成绩信息输出到最终成绩表中，从田赛成绩中的开始查找田赛项目，则从田赛成绩表中把从项目名单中查找到的项目的前几名成绩信息输出到最终成绩表中。然后再从田

40、赛成绩中查找下一个田赛项目，再把该项目的前几名输出到最终成绩表中，以此循环直到田赛成绩中的项目全部查完。输出部分的代码如下：strsql6 = "select 每项目取的名次 from 参数表"Set rs = cnn.Execute(strsql6)strsql = "select distinct 项目名称 from 田赛成绩"Set rs1 = cnn.Execute(strsql)i = 0Do While Not rs1.EOF strsql1 = "select * from 田赛成绩 where 项目名称='"

41、& rs1.Fields(0) & "'order by 成绩 desc" Set rs2 = cnn.Execute(strsql1) For j = 0 To Val(rs.Fields(0) - 1 strsql3 = "select * from 最终成绩 where 姓名='" & rs2.Fields(0) & "' and 项目名称='" & rs2.Fields(1) & "'" Set rs = cnn.Exe

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

43、;,'" & rs2.Fields(2) & "','" & j + 1 & "','" & rs5.Fields(0) & "')" cnn.Execute (strsql2) End If rs2.MoveNext Next rs1.MoveNext i = i + 1Loop4.5 查询输出查询输出模块中有七种不同的查询：运动员成绩查询、代表队成绩查询、项目成绩查询、总分表、项目名次表、成绩名次表和成绩汇册。这些查询都是使用

44、SQL语句进行查询，不同的就是SQL语句中的条件不同而已，因此在代码方面都差不多，如项目成绩查询。项目成绩查询界面如图4-5所示。图4-5 查询界面从图(5)中的项目名称中选择一个项目，然后单击查询就会输出该项目的所有运动员的比赛成绩。部分代码如下：If Combo1.Text = "" Then MsgBox "请选择项目名称!", vbOKOnly, "提示"Elsestrsql = "select 项目类型 from 运动项目名单 where 项目名称='" & Combo1.Text &am

45、p; "'"Set rs = cnn.Execute(strsqlIf rs.Fields(0) = "田赛项目" Then strsql1 = "select * from 田赛成绩 where 项目名称='" & Combo1.Text & "'" Set rs1 = cnn.Execute(strsql1) With MSHFlexGrid1 '详细查询的信息显示 .Rows = 2 .CellAlignment = 4 .TextMatrix(0, 0) =

46、"姓名" .TextMatrix(0, 1) = "项目名称" .TextMatrix(0, 2) = "成绩" Do While Not rs1.EOF .Rows = .Rows + 1 .CellAlignment = 4 .TextMatrix(.Rows - 2, 0) = rs1.Fields(0) .TextMatrix(.Rows - 2, 1) = Trim(rs1.Fields(1) .TextMatrix(.Rows - 2, 2) = rs1.Fields(2) rs1.MoveNext Loop '.Rows = .Rows - 1 End WithEnd IfEnd if上述代码只是实