运动会的管理系统.docVIP

设计题目： 一、设计实验条件 二、设计任务及要求； 指导教师评语： 指导教师签名： 1. 概述需求分析 图1 运动会管理系统流程图 ３．概念结构设计 图2 运动员属性表 图3 运动员成绩属性表 图4 院系分组属性表 图5 项目属性表 图6 E-R合成图 ４．逻辑结构设计 数据关系模型 运动员信息表 字段 类型 大小 是否为主键 是否允许为空 学号 Char 7 是 否 姓名 Char 10 否 否 编号 Char 4 否 否 性别 Char 2 否 否 系别 Char 4 否 否 院系分组 字段 类型 大小 是否为主键 是否允许为空 院系代号 Char 4 是 否 院系名称 Char 20 否 否 院系排名 Smallint 2 否 是 总分 Int 4 否 是 项目 字段 类型 大小 是否为主键 是否允许为空 项目编号 Char 4 是 否 项目名称 Char 20 否 否 项目类型 Char 20 否 否 比赛时间 Datetime 8 否 否 录取人数 Smallint 2 否 否 组数 Char 10 否 否 比赛成绩 字段 类型 大小 是否为主键 是否为空 学号 Char 7 是 否 项目编号 Char 4 是 否 比赛名次 Char 20 否 是 比赛成绩 Varchar 1 否 是 数据库中的院系分组表 图7 院系分组表 ５．软件功能设计 开始界面： 图8 运动员管理系统开始界面 代码如下: Private Sub cmdAdm_Click() Unload Me frmAdmLand.Show vbModal End Sub Private Sub cmdCancel_Click() Unload Me End Sub Private Sub cmdSelect_Click() Unload Me frmSelect.Show vbModal End Sub Private Sub Form_Load() End Sub 当进行管理员登录时 图9 管理员登录界面 代码如下： Option Explicit Dim i As Integer Private Sub cmdCancel_Click() Unload Me frmStart.Show vbModal End Sub Private Sub cmdOK_Click() Dim strUserName As String Dim strPassword As String strUserName = Trim(txtUser.Text) strPassword = Trim(txtCode.Text) If i 3 And strUserName = aa And strPassword = 123 Then Unload Me frmManageFace.Show vbModal ElseIf i = 3 Then MsgBox 您输入账户和密码次数已经超过三次，本次不能登录！, vbCritical + vbOKOnly, 错误 Else MsgBox 您输入账户和密码错误，请重新输入！, vbCritical + vbOKOnly, 错误 txtUser.Text = txtCode.Text = i = i + 1 End If End Sub Private Sub Form_Load() i = 0 End Sub Private Sub Picture1_Click() End Sub 3)管理员登录后 图10 进入管理界面 代码如下： Private Sub filePutIn_Click() End Sub Private Sub file_Click() End Sub Private Sub Update_Click() frmPutIn.Show vbModal End Sub Private Sub AltInsert_Click() frmAltInfINsert.Show vbModal End Sub Privat