学校田径运动会管理系统(3)

登陆界面作为本软件的一个门户，要有钥匙才能打开，这把钥匙就是帐号和密码。界面如图4-1所示。

图4-1登陆界面

输入帐号和密码，只有帐号和密码正确才可以进入主界面。登陆界面中涉及到的核心代码如下：

If Text1.Text <> \

strsql = \* from 用户信息 where 用户名='\& Text1.Text & \and 密码='\& Text2.Text & \

Set rs = cnn.Execute(strsql)

If Not rs.EOF Then '输入的登录信息正确，则进入系统 主界面.Show Unload 登陆界面 Else

MsgBox \您输入的登录信息有误，请重新输入！\提示\ Text1.Text = \

Text2.Text = \ Text1.SetFocus End If Else

MsgBox \您输入的帐号或密码有误！\警告\ Text1.Text = \

Text2.Text = \ Text1.SetFocus End If

此登陆界面中涉及到的帐号和密码就是用户信息表中的记录，如果用户信息中没有与输入的帐号和密码相匹配的，就出现“您输入的帐号或密码有误!”的提示。

4.2主界面

主界面是进行比赛进程的各个功能的总控制。把进行田径运动员所要有的功能通过菜单全部编辑在一起，只要点击相应的菜单项就可以进行各种功能操作。主界面也就是各种功能的连接点。主界面图4-2所示

图4-2 主界面

主界面左上角就是菜单，每一个菜单中都有多个菜单项，每个菜单项就是进行比赛管理的一个模块缺一不可。所有的菜单项组成一个学校田径运动会管理系统。

4.3 前期编排

前期编排中的定义比项目、设置工作岗位、录入工作人员、运动员报名和录入纪录成绩都是表中不存在的就插入到表中，如果存在就修改。这几个小模块的代码在同小异这里只摘入其中一个小模块的代码。这里就以运动员报名为例界面如图4-3所示：

图4-3 运动员报名界面

在运动员报名界面中输入要报名人的信息及所要参加的项目，如果此人在运动员名单中不存在则把此运动员信息插入到运动员名单中，并且把此人所要报的项目信息插入到参赛情况表中。如果此人存在于运动员名单中且该项目没有被此人选择则把此人参加该项目的信息插入到参赛情况表中，否则提示此人已经参加了此项目。部分代码如下：

strsql = \* from 运动员名单 where 姓名='\& Text1.Text & \or 学

号='\ Set rs = cnn.Execute(strsql)

If rs.EOF = True Then '该运动员不存在，可以入库

strsql1 = \运动员名单 values('\

Text1.Text & \

strsql3 = \into 运动员参赛情况 values('\+ Text1.Text + \

+ Combo1.Text + \ cnn.Execute (strsql1)

cnn.Execute (strsql3)

MsgBox \报名成功！\提示\ Else

strsql2 = \运动员参赛情况 where 姓名='\

Text1.Text & \项目名称='\ Set rs = cnn.Execute(strsql2) If rs.EOF = True Then

strsql4 = \运动员参赛情况 values('\

& \ cnn.Execute (strsql4) End If End if 4.4 比赛管理

比赛管理模块中有三个小模块分为：径赛成绩录入与输出、田赛成绩录入与输出和全能成绩录入与输出。这三个模块要实现的功能也一样，所以这三个模块的界面也差不多，在这里就用其中的一个模块来做为例子，就以田赛成绩录入与输出这个模块为例，界面如图4-4所示：

图4-4 田赛成绩录入与输出界面

从项目和姓名中选择相应的项目及姓名，输入成绩如果此人的此项目成绩没有录入单击确定就可以把此成绩插入到田赛成绩表中，如果成绩已存在则修改此成绩。代码如下：

strsql = \* from 田赛成绩 where 姓名='\& Combo2.Text & \and 项

目名称='\ Set rs = cnn.Execute(strsql)

If rs.EOF = True Then '该项目成绩没有被记录，可以入库

strsql3 = \田赛成绩 values('\

Combo1.Text & \ cnn.Execute (strsql3)

MsgBox \修改成功！\提示\ Text3.Text = \ Else

strsql4 = \田赛成绩 set 成绩='\姓名

='\项目名称='\ cnn.Execute (strsql4) Text3.Text = \ End If

单击图(4)中的输出就是得出田赛项目的最终成绩即得出田赛项目的名次。田赛输出是把每个田赛项目中的前几名的人员成绩信息输出到最终成绩表中，从田赛成绩中的开始查找田赛项目，则从田赛成绩表中把从项目名单中查找到的项目的前几名成绩信息输出到最终成绩表中。然后再从田赛成绩中查找下一个田赛项目，再把该项目的前几名输出到最终成绩表中，以此循环直到田赛成绩中的项目全部查完。输出部分的代码如下：

strsql6 = \每项目取的名次 from 参数表\Set rs = cnn.Execute(strsql6)

strsql = \项目名称 from 田赛成绩\Set rs1 = cnn.Execute(strsql) i = 0

Do While Not rs1.EOF

strsql1 = \田赛成绩 where 项目名称='\\成绩 desc\

Set rs2 = cnn.Execute(strsql1) For j = 0 To Val(rs.Fields(0)) - 1

strsql3 = \最终成绩 where 姓名='\and 项目名称='\ Set rs = cnn.Execute(strsql3) If rs.EOF Then

strsql0 = \分数 from 名次分数表 where 名次=\ Set rs5 = cnn.Execute(strsql0)

strsql2 = \最终成绩(姓名,项目名称,成绩,名次,分数) values('\\ cnn.Execute (strsql2) End If rs2.MoveNext Next rs1.MoveNext i = i + 1 Loop 4.5 查询输出

查询输出模块中有七种不同的查询：运动员成绩查询、代表队成绩查询、项目成绩查询、总分表、项目名次表、成绩名次表和成绩汇册。这些查询都是使用SQL语句进行查询，不同的就是SQL语句中的条件不同而已，因此在代码方面都差不多，如项目成绩查询。项目成绩查询界面如图4-5所示。

图4-5 查询界面

从图(5)中的项目名称中选择一个项目，然后单击查询就会输出该项目的所有运动员的比赛成绩。部分代码如下：

If Combo1.Text = \

MsgBox \请选择项目名称!\提示\Else

strsql = \项目类型 from 运动项目名单 where 项目名称='\Combo1.Text & \

Set rs = cnn.Execute(strsql If rs.Fields(0) = \田赛项目\

strsql1 = \* from 田赛成绩 where 项目名称='\& Combo1.Text & \ Set rs1 = cnn.Execute(strsql1) With MSHFlexGrid1 '详细查询的信息显示 .Rows = 2

.CellAlignment = 4 .TextMatrix(0, 0) = \姓名\ .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) …… 此处隐藏：1740字，全部文档内容请下载后查看。喜欢就下载吧 ……