田径运动会管理系统———详细设计说明书 16页

更多相关参考论文设计文档资源请访问http://www.docin.com/lzj781219田径运动会管理系统———详细设计说明书详细设计说明书1引言1.1编写目的随着学校规模的不断扩大以及体育运动的不断发展，校运动会的规模也不断扩大，比赛项目和种类也日益增多，运动会所处理的数据量剧增，产生错误和时延的可能性也增大。为了能方便、及时、准确地对运动会的各种数据进行有效的管理，本系统尝试运用计算机技术加以解决。-16-本参考设计材料，包含项目源代码，设计说明书、任务书、报告书以及文献参考翻译等，完整的设计文件及源代码，资料请联系68661508。索要或访问https://shop335357914.taobao.com\n更多相关参考论文设计文档资源请访问http://www.docin.com/lzj7812191.2背景说明：a．待开发软件系统的名称：田径运动会管理系统b．列出此项目的任务提出者：于姝晖c．开发者：于姝晖，王莹d．用户：举行田径运动会的各大、中、小学2程序系统的结构系统框架详解(1)数据库类模块（ClassDatabase）介绍：原有的asp编程当中要在每个页面反复的创建ado对象，并且打开与数据库的连接，代码量比较大。现在将其抽象到一个类中，使其完成与数据库的连接，查询等功能。而且类可以在组件中使用，复用程度比较高。代码实现：OptionExplicit'类名:数据库'作用:处理数据库联接方面的工作PrivatemadoConnectionAsADODB.ConnectionPrivatemobjParentAsApplicationPublicPropertySetParent(prtAsApplication)SetmobjParent=prtEndPropertyPublicPropertyGetParent()AsApplicationSetParent=mobjParentEndProperty'初始化类PrivateSubClass_Initialize()SetmadoConnection=NewADODB.ConnectionEndSub'终结类PrivateSubClass_Terminate()OnErrorResumeNextmadoConnection.CloseSetmadoConnection=NothingOnErrorGoTo0EndSub'配置连接字符串PublicSubConfigure(ConnStrAsVariant)madoConnection.ConnectionString=ConnStrEndSub'打开数据库联接,成功返回PublicFunctionOpenConnection()AsBooleanIfmadoConnection.ConnectionString=""ThenOpenConnection=False-16-本参考设计材料，包含项目源代码，设计说明书、任务书、报告书以及文献参考翻译等，完整的设计文件及源代码，资料请联系68661508。索要或访问https://shop335357914.taobao.com\n更多相关参考论文设计文档资源请访问http://www.docin.com/lzj781219ExitFunctionEndIfOnErrorResumeNextIfmadoConnection.State=0ThenmadoConnection.OpenOnErrorGoTo0OpenConnection=TrueEndFunction'执行Sql语句，返回一个记录集PublicFunctionRunSql(SqlStrAsVariant,NeedUpdateAsVariant)AsADODB.RecordsetIfNotOpenConnection()ThenExitFunctionEndIfDimrstTempAsADODB.RecordsetSqlStr=Me.Parent.Tools.dfVntToTrimStr(SqlStr)NeedUpdate=Me.Parent.Tools.dfVntToBool(NeedUpdate)SetrstTemp=NewADODB.RecordsetIfLen(SqlStr)>0ThenIfCBool(NeedUpdate)ThenrstTemp.OpenSqlStr,madoConnection,1,3ElserstTemp.OpenSqlStr,madoConnection,1,1EndIfEndIfSetRunSql=rstTempSetrstTemp=NothingEndFunctionPublicSubExecute(SqlStrAsVariant)IfNotOpenConnection()ThenExitSubEndIfmadoConnection.ExecuteSqlStrEndSubPublicSubBeginTrans()madoConnection.BeginTransEndSubPublicSubCommitTrans()madoConnection.CommitTransEndSubPublicSubRollbackTrans()madoConnection.RollbackTransEndSub(1)工具类模块(ClassTools)功能：将系统中用到的一些辅助功能函数封装到这个类中。代码:略(2)界面类模块(ClassApplication)功能：实现asp模块和com组件交互的界面层，在asp中调用组件内任何对象均通过此界面完成。比如获得运动员相关类、组相关类等。代码:OptionExplicitPrivatemobjDatabaseAsDatabasePrivatemobjToolsAsToolsPublicPropertyGetDatabase()AsDatabaseSetDatabase=mobjDatabaseEndPropertyPrivateSubClass_Initialize()-16-本参考设计材料，包含项目源代码，设计说明书、任务书、报告书以及文献参考翻译等，完整的设计文件及源代码，资料请联系68661508。索要或访问https://shop335357914.taobao.com\n更多相关参考论文设计文档资源请访问http://www.docin.com/lzj781219SetmobjDatabase=NewDatabaseSetmobjTools=NewToolsSetmobjDatabase.Parent=MeEndSubPrivateSubClass_Terminate()SetmobjDatabase=NothingSetmobjTools=NothingEndSubPublicPropertyGetTools()AsToolsSetTools=mobjToolsEndPropertyPublicFunctionGetGroupObject()AsGroupDimobjAsGroup'Setobj=NewGroup'创建对应类的对象Setobj.Parent=Me'设置这个对象的父类Setobj.Database=mobjDatabase'设置这个对象使用的数据库连接对象SetGetGroupObject=objEndFunction…………(1)业务层实现模块功能：实现各个子模块的功能。代码：每个功能模块均包含如下代码，这些是框架中必须的。OptionExplicitPrivatemobjParentAsApplicationPrivatemobjDatabaseAsDatabase'父类属性PublicPropertySetParent(prtAsApplication)SetmobjParent=prtEndProperty'使用的数据库连接对象PublicPropertySetDatabase(dbAsDatabase)SetmobjDatabase=dbEndProperty(2)ASP中的接口<%'================================================================================'*Copyright(c)2005,YSHSoftWare'*Allrightsreserved.'*'文件名称：conn.asp'文件标识：'摘要：实现数据库联接方面的设置和功能'''取代版本：1.0'原作者：'完成日期：2005年4月10日'================================================================================%><%OptionExplicitDimAppDimobjConnDimSqlDatabaseName,SqlPassword,SqlUsername,SqlLocalName,ConnStr,Provider,DBPathDimConnFlagDimPage'这个页面的对象dimg_strProblemg_strProblem=""ConnFlag="Access"'SQL-16-本参考设计材料，包含项目源代码，设计说明书、任务书、报告书以及文献参考翻译等，完整的设计文件及源代码，资料请联系68661508。索要或访问https://shop335357914.taobao.com\n更多相关参考论文设计文档资源请访问http://www.docin.com/lzj781219'配置连接字符串IfConnFlag="Access"ThenProvider="Provider=Microsoft.Jet.OLEDB.4.0;"DBPath="DataSource="&Server.MapPath("data/tjydh.mdb")ConnStr=Provider&DBPathEndIf'创建组件SetApp=Server.CreateObject("Trackman.Application")'连接数据库App.Database.ConfigureConnStr'创建全局的页面上下文环境SetPage=NewContextClassContextDimcntxFileNameDimcntxAdminFileNamePrivateSubClass_Initialize()cntxFileName="http://"&Request.ServerVariables("SERVER_NAME")&Request.ServerVariables("PATH_INFO")'取得这个页面的path作为下面链接设置用IfInstr(cntxFileName,"_admin.asp")>0ThencntxAdminFileName=cntxFileNamecntxFileName=Replace(cntxFileName,"_admin.asp",".asp")ElsecntxAdminFileName=Replace(cntxFileName,".asp","_admin.asp")EndIFEndSubPublicPropertyGetFileNameFileName=cntxFileNameEndPropertyPublicPropertyGetAdminFileNameAdminFileName=cntxAdminFileNameEndPropertyEndClass%>功能模块详解(1)系统项目察看功能:列出本系统中参赛组可选择的项目介绍:由于运动会系统的项目的一些编排方式等信息是固定的,所以系统固定了实现的项目。参赛的组必须从这些项目中选择零或者多项。实现:读取数据库中的表，按行显示出来。无需分页。-16-本参考设计材料，包含项目源代码，设计说明书、任务书、报告书以及文献参考翻译等，完整的设计文件及源代码，资料请联系68661508。索要或访问https://shop335357914.taobao.com\n更多相关参考论文设计文档资源请访问http://www.docin.com/lzj781219Code:<%SetrstItems=objItem.GetItemswhilenotrstItems.eof%><%=rstItems("Item_Name")%><%=KeyToValue(CONST_ArrangeMent_Value,CONST_ArrangeMent_Name,CLng(rstItems("Item_Arrangement")))%><%=KeyToValue(CONST_ItemType_Value,CONST_ItemType_Name,CLng(rstItems("Item_Type")))%><%=rstItems("Item_Minutes")%>分钟<%=KeyToValue(CONST_UNIT_Value,CONST_UNIT_Name,CLng(rstItems("Item_Unit")))%><%rstItems.movenextwendrstItems.closesetrstItems=Nothing%>(1)参赛组管理功能:管理参加运动会的组信息介绍:实现添加删除和管理组的信息。每组要实现组名称、限制每单位参赛人数、每人限报项目数量、参赛性别信息的管理。实现:COM代码'Group.cls'取得指定编号的记录，默认记录为可更新'如果记录编号小于0默认为新建记录PublicFunctionGetGroupById(GroupIdAsVariant)AsADODB.RecordsetDimobjRstAsADODB.RecordsetIfNotmobjDatabase.OpenConnectionThenExitFunctionEndIfIfGroupId<0ThenSetobjRst=mobjDatabase.RunSql("Select*fromGroupsWhere1=2",True)ElseSetobjRst=mobjDatabase.RunSql("Select*fromGroupsWhereGroup_ID="&GroupId,True)EndIfSetGetGroupById=objRstEndFunctionASP代码<%SelectCasestrActionCase"delete":DimarrValuesDimstrValues-16-本参考设计材料，包含项目源代码，设计说明书、任务书、报告书以及文献参考翻译等，完整的设计文件及源代码，资料请联系68661508。索要或访问https://shop335357914.taobao.com\n更多相关参考论文设计文档资源请访问http://www.docin.com/lzj781219DimiistrValues=","&Replace(Request("groupIds"),"","")'这里多一个是为了arrValues=Split(strValues,",")IfUbound(arrValues)<=1AndarrValues(1)=""ThenAlert_BackMsg"请选择一个或多个项目！"Else'该根据情况添加项目了OnErrorResumeNextForii=1ToUbound(arrValues)App.Database.Execute("DeleteFromGroupsWhereGroup_Id="&arrValues(ii))NextAlert_RedirectRefresh"删除成功！",Page.FileNameOnErrorGoTo0EndIFCase"savenew":SetrstGroups=objGroup.GetGroupById(-1)rstGroups.AddNewrstGroups("Group_Name")=strGroupNamerstGroups("Group_Sex")=intGroupSexrstGroups("Group_AthletesLimit")=intAthletesLimitrstGroups("Group_ItemJoinLimit")=intItemJoinLimitrstGroups.UPdateSetrstGroups=Nothing'释放资源转移DistroyObjectsAlert_RedirectRefresh"成功添加",Page.FileName%><%Case"saveedit":SetrstGroups=objGroup.GetGroupById(intGroupId)IfrstGroups.EofThenAddToProblem"不存在记录"ResponseProblemElserstGroups("Group_Name")=strGroupNamerstGroups("Group_Sex")=intGroupSexrstGroups("Group_AthletesLimit")=intAthletesLimitrstGroups("Group_ItemJoinLimit")=intItemJoinLimitrstGroups.UpdateAlert_RedirectRefresh"成功修改",Page.FileNameEndIfrstGroups.CloseSetrstGroups=Nothing%><%Case"newform":%>…………<%Case"editform":SetrstGroups=objGroup.GetGroupById(intGroupId)IfrstGroups.EofThenAddToProblem"不存在记录"ResponseProblemElse%>"method="POST"name="editform">编辑单位