运动会管理系统1

1设计题目：运动会管理系统一、设计实验条件计算机第九机房二、设计任务及要求；1.设计出合理可行的数据库，建立正确的数据库表及表间关系。并在此基础上完成相关的算法与程序2.系统按照实现的功能，进行合理的模块划分，确定合理的功能流程。3.给出系统的概要设计、详细设计；4.完成数据流程图，E-R关系图，数据库表、程序流程图、功能模块图的设计、对功能编程加以实现；5.系统操作界面友好美观。指导教师评语：指导教师签名：1.概述计算机以其强大的性能价格优势给人们的工作、学习和生活带来极大的方便．计算机代替人工处理一些事务已成为必然。整个人类社会已进入高度信息化，人们对信息和数据的利用和处理已经进入自动化、网络化和社会化的阶段。如在2查找资料、处理日常办公事务、科研生产等方面，无不需要利用大量的信息资源。因此，如何有效地进行数据信息的管理和利用，已经成为人们普遍关注的课题。信息在不同的领域里有着不同的概念，在管理科学领域中，通常认为信息是经过加工处理后的一种数据形式，是一种有次序的符号排列，它是系统传输和处理的对象。处在信息时代的今天，信息的作用越来越为人们所重视。制定成绩计划，研究投资策略，都离不开对信息的充分利用。在当今社会上，体育运动越来越普及，参与运动会的人越来越多，素质越来越高。传统的运动会，一般是以人手组织为主，运动员的报名、赛事的安排、比赛场地的安排和成绩的记录等操作全都由人手操作，参加人数越多，运动会的规模就越大，管理工作就更加费时费力，而且容易出错。学校田径运动会管理系统则为组织者提供一个简捷方便的方式来组织管理运动会，学校田径运动会管理系统是一种“人机交互系统”，通过简单的键盘输入与鼠标点击来完成烦琐的记录与安排工作，保证运动会的正常流畅的进行。学校田径运动会管理系统是典型的数据库应用系统，可完成田径运动会管理中的运动员报名、分组编排，竞赛成绩处理及公告，成绩统计．信息查询等事务处理功能。根据学校田径运动会的一般进程，本系统分为前期编排处理、比赛管理处理、查询输出处理和系统维护等四个工具模块来完成所期望的功能。依据关系型数据库理论设计数据库的结构。使用该系统可以极大地减小工作人员的劳动量，同时还可大大提高工作效率、可靠性和正确性２．需求分析本系统适用于各种学校田径运动会的全程管理。本系统竞赛规程设置灵活,输入运动员报名表方便,成绩录入方便快捷,成绩查询功能丰富。同时还考虑了界面的友好性，操作的简单性，运行的可靠性。3图1运动会管理系统流程图３．概念结构设计1)各表的E-R图如下：图2运动员属性表运动员信息录入运动员成绩录入返回退出学生成绩查询各系成绩查询运动员管理系统管理员登录成绩查询运动员学号性别姓名编号系别4图3运动员成绩属性表图4院系分组属性表项目项目编号项目名称项目类型比赛类型录取人数组数院系分组院系代号院系代号院系排名总分运动员成绩院系比赛名次项目编号比赛成绩比赛得分5图5项目属性表图6E-R合成图４．逻辑结构设计1)数据关系模型运动员信息表字段类型大小是否为主键是否允许为空1院系分组属于n运动员m比赛项目n项目编号项目名称项目类型比赛时间录取人数组数学号得分项目编号名次姓名学号编号系别性别院系代号院系排名院系名称总分6学号Char7是否姓名Char10否否编号Char4否否性别Char2否否系别Char4否否院系分组字段类型大小是否为主键是否允许为空院系代号Char4是否院系名称Char20否否院系排名Smallint2否是总分Int4否是项目字段类型大小是否为主键是否允许为空项目编号Char4是否项目名称Char20否否项目类型Char20否否比赛时间Datetime8否否录取人数Smallint2否否组数Char10否否比赛成绩字段类型大小是否为主键是否为空学号Char7是否项目编号Char4是否比赛名次Char20否是7比赛成绩Varchar1否是2)数据库中的院系分组表图7院系分组表５．软件功能设计与系统测试1)开始界面：图8运动员管理系统开始界面代码如下:PrivateSubcmdAdm_Click()8UnloadMefrmAdmLand.ShowvbModalEndSubPrivateSubcmdCancel_Click()UnloadMeEndSubPrivateSubcmdSelect_Click()UnloadMefrmSelect.ShowvbModalEndSubPrivateSubForm_Load()EndSub2)当进行管理员登录时图9管理员登录界面代码如下：OptionExplicit9DimiAsIntegerPrivateSubcmdCancel_Click()UnloadMefrmStart.ShowvbModalEndSubPrivateSubcmdOK_Click()DimstrUserNameAsStringDimstrPasswordAsStringstrUserName=Trim(txtUser.Text)strPassword=Trim(txtCode.Text)Ifi3AndstrUserName=aaAndstrPassword=123ThenUnloadMefrmManageFace.ShowvbModalElseIfi=3ThenMsgBox您输入账户和密码次数已经超过三次，本次不能登录！,vbCritical+vbOKOnly,错误ElseMsgBox您输入账户和密码错误，请重新输入！,vbCritical+vbOKOnly,错误txtUser.Text=txtCode.Text=i=i+1EndIfEndSub10PrivateSubForm_Load()i=0EndSubPrivateSubPicture1_Click()EndSub3)管理员登录后图10进入管理界面代码如下：PrivateSubfilePutIn_Click()EndSubPrivateSubfile_Click()EndSub11PrivateSubUpdate_Click()frmPutIn.ShowvbModalEndSubPrivateSubAltInsert_Click()frmAltInfINsert.ShowvbModalEndSubPrivateSubAltSelect_Click()frmAltSelect.ShowvbModalEndSubPrivateSubAltUpdate_Click()frmAltUpdate.ShowvbModalEndSubPrivateSubBack_Click()UnloadMefrmStart.ShowvbModalEndSubPrivateSubcmdCancel_Click()UnloadMeEndSubPrivateSubPicture2_Click()EndSubPrivateSubResInsert_Click()frmAltResInsert.ShowvbModalEndSub12PrivateSubResSelect_Click()frmAltResSelect.ShowvbModalEndSubPrivateSubResUpdate_Click()frmResUpdate.ShowvbModalEndSub4）录入运动员：图11录入运动员信息代码如下：OptionExplicitDimconnAsNewADODB.Connection'DimrsAsNewADODB.RecordsetDimcmdAsNewADODB.CommandPrivateSublbl_Click(IndexAsInteger)13EndSubPrivateSubLabel1_Click()EndSubPrivateSubcmdBack_Click()frmManageFace.ShowvbModalEndSubPrivateSubcmdCancel_Click()UnloadMeEndSubPrivateSubcmdOK_Click()DimstrSNoAsString,strNameAsString,strNumberAsString,strSexAsString,strDepAsStringstrSNo=Trim(txtSno.Text)IfstrSNo=ThenMsgBox学号不能为空！,vbCritical+vbOKOnly,错误txtSno.SetFocusExitSubEndIfstrName=Trim(txtName.Text)IfstrName=ThenMsgBox姓名不能为空！,vbCritical+vbOKOnly,错误txtName.SetFocusExitSubEndIfstrNumber=Trim(txtNumber.Text)IfstrNumber=ThenMsgBox姓名不能为空！,vbCritical+vbOKOnly,错误14txtNumber.SetFocusExitSubEndIfstrDep=Trim(txtNumber.Text)IfstrDep=ThenMsgBox姓名不能为空！,vbCritical+vbOKOnly,错误txtDep.SetFocusExitSubEndIfstrSex=cmbSex.TextIfMsgBox(插入新同学信息+vbCrLf+学号：+strSNo+vbCrLf+姓名：+strName+vbCrLf+编号：+strNumber+vbCrLf+性别：+strSex+vbCrLf+系别：+strDep,vbInformation+vbOKCancel)=vbOKThencmd.CommandText=insertintoAlthetevalues('+strSNo+','+strName+','+strNumber+','+strSex+','+strDep+')cmd.ExecuteMsgBox插入成功！,vbInformation+vbOKOnly,提示EndIfEndSubPrivateSubCombo1_Change()EndSubPrivateSubForm_Load()DimstrConnAsStringstrConn=Provider=SQLOLEDB.1;IntegratedSecurity=SSPI;PersistSecurityInfo=False;InitialCatalog=运动会管理系统'1、打开连接15conn.OpenstrConn'2、建立命令对象Setcmd.ActiveConnection=conncmbSex.ListIndex=0EndSub5)运动员成绩输入：图12输入运动员成绩代码如下:OptionExplicitDimconnAsNewADODB.Connection'DimrsAsNewADODB.RecordsetDimcmdAsNewADODB.CommandPrivateSublbl_Click(IndexAsInteger)EndSub16PrivateSubLabel1_Click()EndSubPrivateSubcmdBack_Click()frmManageFace.ShowvbModalEndSubPrivateSubcmdCancel_Click()UnloadMeEndSubPrivateSubcmdOK_Click()DimstrSNoAsString,strProNumAsString,strResAsString,strScoreAsString,strRankAsStringstrSNo=Trim(txtSno.Text)IfstrSNo=ThenMsgBox学号不能为空！,vbCritical+vbOKOnly,错误txtSno.SetFocusExitSubEndIfstrProNum=Trim(txtProNum.Text)IfstrProNum=ThenMsgBox姓名不能为空！,vbCritical+vbOKOnly,错误txtProNum.SetFocu