资源描述：
《补考管理系统报告.doc》由会员上传分享，免费在线阅读，更多相关内容在应用文档-天天文库。
1、补考管理系统报告补考管理系统开发环境及背景:在信息科技高速发展的21世纪，人们越来越多的接住各种软件、系统来进行各式各样工作的操作和执行。而在学校教育方面，也采用各种教育软件和系统对学生的学习进行管理，而为了对学生的考试项目进行更好的管理，补考管理系统也就应运而生了。补考管理系统开发的目的：新的管理模式以追求学校整体效益和效率的提高为目标。开发的新系统功能强大，通过这些功能实现对学生、课程、教师、教务处等教学系统中几个关键要素的科学管理，同时实现准确统计成绩、按排补考、即时查询、按照各项要求灵活完成统计报表，以及对校内各种资源进行统一、科学的管理。系统的部
2、分界面的设计及截图：该系统主要是采用Access和VB两种软件进行的开发，Access主要负责构建数据库模块，而VB则主要负责构建登陆、录入信息等一些界面的设计。在整个系统中有一个公用的木块，代码如下：PublicFunctionExecuteSQL(ByValSQLAsString,ByValMsgStringAsString)AsADODB.RecordsetDimcnnAsADODB.ConnectionDimrstAsADODB.RecordsetDimsTokens()AsStringsTokens=Split(SQL)Setcnn=NewADO
3、DB.Connectioncnn.Open"Provider=microsoft.Jet.OLEDB.4.0;DataSource="&App.Path&"数据库BKXT.mdb;PersistSecurityInfo=false"IfInStr("INSERT,DELETE,UPDATA",UCase$(sTokens(0)))Thencnn.Execute(SQL)MsgString=sTokens(0)&"querysuccessful"ElseSetrst=NewADODB.Recordsetrst.OpenTrim$(SQL),cnn,adO
4、penKeyset,adLockOptimisticSetExecuteSQL=rstMsgString="查询到"&rst.RecordCount&"条记录"EndIfEndFunctionPublicFunctionTesttxt(txtAsString)AsBooleanIfTrim(txt)=""ThenTesttxt=FalseElseTesttxt=TrueEndIfEndFunction系统的相关登陆界面：首先是系统的主界面：如图在该界面中包含了很多菜单，而各选项中又有更多的二级菜单，如图所示：程信息界面：如图关键代码如下：rivateSub
5、datashow()DimjAsInteger'设置列标题Me.Grid1.TextMatrix(0,0)="课程编号"Me.Grid1.TextMatrix(0,1)="课程名称"Me.Grid1.TextMatrix(0,2)="系部编号"'固定表头Grid1.FixedRows=1Forj=0To2Grid1.ColAlignment(j)=0NextjGrid1.ColWidth(0)=1000Grid1.ColWidth(1)=2000Grid1.ColWidth(2)=1000DimtemAsStringDimMsgboxAsStringDim
6、iAsIntegerDimtxtSQLAsStringDimrsAsNewADODB.RecordsettxtSQL="select*fromCourse"Setrs=ExecuteSQL(txtSQL,MsgText)Fori=1Tors.RecordCountMe.Grid1.TextMatrix(i,0)=rs("courseID")Me.Grid1.TextMatrix(i,1)=rs("courseName")Me.Grid1.TextMatrix(i,2)=rs("deptID")rs.MoveNextNextirs.CloseEndSub院系
7、界面信息：如图所示：关键代码如下：PrivateSubdatashow()DimjAsInteger'设置列标题Me.Grid1.TextMatrix(0,0)="系部编号"Me.Grid1.TextMatrix(0,1)="系部名称"'固定表头Grid1.FixedRows=1Forj=0To1Grid1.ColAlignment(j)=0NextjGrid1.ColWidth(0)=1000Grid1.ColWidth(1)=2000DimtemAsStringDimMsgboxAsStringDimiAsIntegerDimtxtSQLAsStrin
8、gDimrsAsNewADODB.RecordsettxtSQL=
