补考管理系统报告

《补考管理系统报告》由会员上传分享，免费在线阅读，更多相关内容在工程资料-天天文库。

1、补考管理系统报告补考管理系统开发环境及背景:在信息科技高速发展的21世纪，人们越来越多的接住各种软件、系统来进行各式各样工作的操作和执行。而在学校教育方面，也采用各种教育软件和系统对学生的学习进行管理，而为了对学生的考试项目进行更好的管理，补考管理系统也就应运而生了。补考管理系统开发的目的：新的管理模式以追求学校整体效益和效率的提高为目标。开发的新系统功能强大，通过这些功能实现对学生、课程、教师、教务处等教学系统中几个关键要素的科学管理,同时实现准确统计成绩、按排补考、即时查询、按照各项要求灵活完成统计报表，以及对校内各种资

2、源进行统一、科学的管理。系统的部分界面的设计及截图：该系统主要是采用Access和VB两种软件进行的开发,Access主要负责构建数据库模块，而VB则主要负责构建登陆、录入信息等一些界面的设计。在整个系统中有一个公用的木块，代码如下：PublicFunctionExecuteSQL(ByValSQLAsString,ByVaiMsgStringAsString)AsADODB.RecordsetDimcnnAsADODB.ConnectionDimrstAsADODB.RecordsetDimsTokens()AsStrin

3、gsTokens=Split(SQL)Setcnn=NewADODB.Connectioncnn.OpenHProvider=microsofLJet.OLEDB.4.0;DataSource=H&App.Path&”数据库BKXT.mdb;PersistSecurityInfo二false"IfInStr(nINSERT,DELETE,UPDATAUCase$(sTokens(0)))Thencnn.Execute(SQL)MsgString=sTokens(O)&Hquerysuccessful**ElseSetr

4、st=NewADODB.RecordsetrsLOpenTrim$(SQL),cnn,adOpenKeyset,adLockOptimisticSetExecuteSQL=rstMsgString="查询到"&rstRecordCount&"条记录"EndIfEndFunctionPublicFunctionTesttxt(txtAsString)AsBooleanIfTrim(txt)=nnThenTesttxt=FalseElseTesttxt=TrueEndIfEndFunction系统的相关登陆界面：首先是系统的主界

5、面：如图在该界面中包含了很多菜单，而各选项中又冇更多的二级菜单，如图所示:程信息界面：如图系部编号」课程编号」课程名称」10022LI1「一1IH除][1斓11I■关键代码如下:rivateSubdatashow()DimjAsInteger，设置列标题Me.Gridl.TextMatrix(O,0)='‘课程编号"Me.Gridl.TextMatrix(0,1)='‘课程名称"Me.Gridl.TextMatrix(0,2)='‘系部编号"'固定表头Gridl.FixedRows=1Forj=0To2Gridl.ColAl

6、ignment(j)=0NextjGridl.ColWidth⑹二1000Gridl.ColWidth⑴二2000Gridl.ColWidth⑵二1()0()DimtemAsStringDimMsgboxAsStringDimiAsIntegerDimtxtSQLAsStringDimrsAsNewADODB.RecordsettxtSQL="select*fromCourse"Setrs=ExecuteSQL(txtSQL,MsgText)Fori=1Tors.RecordCountMe.Gridl.TextMatrix(

7、i,0)=rs(,,courseIDt,)Me.Gridl.TextMatrix(i,1)=rs(HcourseNameH)Me.Gridl.TextMatrix(i,2)=rs(MdeptIDn)rs.MoveNextNextirs.CloseEndSub院系界面信息：如图所不:关键代码如下:PrivateSubdatashowODimjAsInteger'设置列标题Me.Gridl.TextMatrix(O,0)="系部编号"Me.Gridl.TextMatrix(0,1)="系部名称"'固定表头Grid1.FixedR

8、ows=1Forj=0To1Gridl.ColAlignment(j)=0NextjGridl.ColWidth(O)=1000Gridl.ColWidth(1)=2000DimtemAsStringDimMsgboxAsStringDimiAsIntegerDimtxtSQLAsStri