分布式网络考试系统原型分析及实现毕业论文.doc 50页

• 下载提示
• 文本预览

-50- 分布式网络考试系统原型分析及实现/火焰晨晨1.1.1.1.定制ASP对象主代码unituMain;{$WARNSYMBOL_PLATFORMOFF}interfaceusesComObj,ActiveX,AspTlb,NetTest_TLB,StdVcl,MTSStu_TLB,MTSTeacher_TLB,MTSAdmin_TLB;typeTNetTestASP=class(TASPMTSObject,INetTestASP)privateprotectedprocedureCopyRight;safecall;procedureLogin;safecall;procedureAdmin;safecall;procedureStudent;safecall;procedureTeacher;safecall;procedureTesting;safecall;procedureUpDate;safecall;procedureSubmitPaper;safecall;end;implementationusesComServ;constxmlTitle:WideString="";xsltS:WideString="";xsltSQS:WideString="";xsltSST:WideString="";xsltST:WideString="";-50- 分布式网络考试系统原型分析及实现/火焰晨晨xsltT:WideString="";procedureTNetTestASP.CopyRight;beginResponse.Write("

本程序由火焰晨晨独立制作，并作为毕业设计"+"
保留所有版权，AllRightsResaved
"+"有任何问题请Email到：chen777@cmmail.com

");end;procedureTNetTestASP.Login;vartmpStr,UserID,tmpResult:WideString;PWD:WideString;Student:IMTSDMStu;Teacher:IMTSDMTeacher;Admin:IMTSDMAdmin;beginUserID:=Request.Form.Item["UserName"];PWD:=Request.Form.Item["PWD"];tmpStr:=Request.Form.Item["Submit"];iftmpStr="学生登录"thenbeginStudent:=CoMTSDMStu.CreateRemote("Sun1980426");tmpResult:=Student.Login(UserID,PWD);if(tmpResult="密码或用户名错误！请重试。")or(tmpResult="数据库读取错误！请和管理员联系！")thenResponse.Write(tmpResult)elsebeginSession.Set_Value("UserType",1);Session.Set_Value("UserID",UserID);Response.Write(xmlTitle+xsltS+tmpResult);end;endelseiftmpStr="老师登录"thenbeginTeacher:=CoMTSDMTeacher.CreateRemote("Sun1980426");tmpResult:=Teacher.Login(UserID,PWD);if(tmpResult="密码或用户名错误！请重试。")or(tmpResult="数据库读取错误！请和管理员联系！")thenResponse.Write(tmpResult)-50- 分布式网络考试系统原型分析及实现/火焰晨晨elsebeginSession.Set_Value("UserType",2);Session.Set_Value("UserID",UserID);Response.Write(xmlTitle+xsltT+tmpResult);end;endelseiftmpStr="管理员登录"thenbeginAdmin:=CoMTSDMAdmin.CreateRemote("Sun1980426");tmpResult:=Admin.Login(PWD);iftmpResult<>"OK"thenResponse.Write(tmpResult)elsebeginSession.Set_Value("UserType",3);Session.Set_Value("UserID","Admin");Response.Redirect("./admin/admin.htm");end;end;end;procedureTNetTestASP.Admin;varSubject,PWD,Email,Age,Sex,Name,tmpStr,EnterTime,TeacherID,StudentID:WideString;UserType:Integer;Admin:IMTSDMAdmin;beginUserType:=Session.Value["UserType"];if3=UserTypethen//管理员begintmpStr:=Request.QueryString.Item["action"];Admin:=CoMTSDMAdmin.CreateRemote("Sun1980426");iftmpStr="CreateStudent"thenbeginStudentID:=Request.Form.Item["StudentID"];PWD:=Request.Form.Item["PWD"];Name:=Request.Form.Item["Name"];Age:=Request.Form.Item["Age"];-50- 分布式网络考试系统原型分析及实现/火焰晨晨Sex:=Request.Form.Item["Sex"];EnterTime:=Request.Form.Item["EnterTime"];Email:=Request.Form.Item["Email"];Response.Write(Admin.CreateStudent(StudentID,Name,Sex,Age,EnterTime,Email,PWD));endelseiftmpStr="CreateTeacher"thenbeginTeacherID:=Request.Form.Item["TeacherID"];PWD:=Request.Form.Item["PWD"];Name:=Request.Form.Item["Name"];Subject:=Request.Form.Item["Subject"];Email:=Request.Form.Item["Email"];Response.Write(Admin.CreateTeacher(TeacherID,Name,Subject,PWD,Email));end;end;end;procedureTNetTestASP.Student;varStudent:IMTSDMStu;tmpStr:WideString;UserType:Integer;beginUserType:=Session.Value["UserType"];ifUserType=1thenbegintmpStr:=Request.QueryString.Item["action"];if"QueryScore"=tmpStrthenbeginStudent:=CoMTSDMStu.CreateRemote("Sun1980426");Response.Write(xmlTitle+xsltSQS+Student.QueryScore(Session.Value["UserID"]));endelseif"GetTest"=tmpStrthenbeginStudent:=CoMTSDMStu.CreateRemote("Sun1980426");-50- 分布式网络考试系统原型分析及实现/火焰晨晨Response.Write(xmlTitle+xsltSST+Student.GetTest(Session.Value["UserID"]));end{elseif"GetStudentData"=tmpStrthenbeginStudent:=CoMTSDMStu.CreateRemote("Sun1980426");Response.Write(xmlTitle+xsltSUD+Student.UpDate(Session.Value["UserID"]),False,"","","");end}elseResponse.Write("错误的请求！");endelseResponse.Write("非法用户！");end;procedureTNetTestASP.Teacher;vartmpStr,UserID,StudentID,PaperID:WideString;UserType:Integer;Teacher:IMTSDMTeacher;begintmpStr:=Request.QueryString.Item["action"];UserType:=Session.Value["UserType"];UserID:=Session.Value["UserID"];if2=UserTypethen//老师beginiftmpStr="CreatePaper"thenbeginTeacher:=CoMTSDMTeacher.CreateRemote("Sun1980426");StudentID:=Request.Form.Item["StudentID"];PaperID:=Request.Form.Item["PaperID"];Response.Write(Teacher.CreatePaper(UserID,StudentID,PaperID));endelseResponse.Write("错误的请求！");endelseResponse.Write("非法用户！");end;procedureTNetTestASP.Testing;var-50- 分布式网络考试系统原型分析及实现/火焰晨晨Student:IMTSDMStu;StudentID,PaperID,Answers:WideString;UserType:Integer;beginUserType:=Session.Value["UserType"];StudentID:=Session.Value["UserID"];ifUserType=1thenbeginStudent:=CoMTSDMStu.CreateRemote("Sun1980426");PaperID:=Request.Form.Item["PaperID"];Session.Set_Value("PaperID",PaperID);Response.Write(xmlTitle+xsltST+Student.GetPaper(StudentID,PaperID,Answers));Session.Set_Value("Answers",Answers);endelseResponse.Write("非法用户！");end;procedureTNetTestASP.UpDate;varSubject,PWD,Email,Age,UserID:OleVariant;UserType:Integer;Student:IMTSDMStu;Teacher:IMTSDMTeacher;Admin:IMTSDMAdmin;beginUserType:=Session.Value["UserType"];UserID:=Session.Value["UserID"];if1=UserTypethen//学生beginStudent:=CoMTSDMStu.CreateRemote("Sun1980426");PWD:=Request.Form.Item["PWD"];Age:=Request.Form.Item["Age"];Email:=Request.Form.Item["Email"];Response.Write(Student.UpDate(UserID,Age,PWD,Email));endelseif2=UserTypethen//老师beginTeacher:=CoMTSDMTeacher.CreateRemote("Sun1980426");PWD:=Request.Form.Item["PWD"];Subject:=Request.Form.Item["Subject"];Email:=Request.Form.Item["Email"];-50- 分布式网络考试系统原型分析及实现/火焰晨晨Response.Write(Teacher.UpDate(UserID,PWD,Subject,Email));endelseif3=UserTypethen//管理员beginAdmin:=CoMTSDMAdmin.CreateRemote("Sun1980426");PWD:=Request.Form.Item["PWD"];Response.Write(Admin.UpDate(PWD));endelseResponse.Write("非法用户！");end;procedureTNetTestASP.SubmitPaper;varAnswers,Answer,UserID,PaperID:WideString;UserType,No:Integer;Score,vNo:OleVariant;Student:IMTSDMStu;beginUserType:=Session.Value["UserType"];Answers:=Session.Value["Answers"];UserID:=Session.Value["UserID"];PaperID:=Session.Value["PaperID"];Score:=0;Answer:="";if1=UserTypethen//学生beginforNo:=1to(Request.Form.Count-1)do//减去提交按钮所占数字beginvNo:=No;Answer:=Request.Form.Item[vNo];ifAnswers[No]=Answer[3]thenbeginScore:=Score+10;end;end;//endforStudent:=CoMTSDMStu.CreateRemote("Sun1980426");Response.Write(Student.SubmitPaper(UserID,PaperID,Score));endelseResponse.Write("非法用户！");-50- 分布式网络考试系统原型分析及实现/火焰晨晨end;initializationTAutoObjectFactory.Create(ComServer,TNetTestASP,Class_NetTestASP,ciMultiInstance,tmApartment);end.1.1.1.1.学生对象COM+组件主代码unituMain;{$WARNSYMBOL_PLATFORMOFF}interfaceusesWindows,Messages,SysUtils,Classes,Graphics,Controls,Forms,Dialogs,ComServ,ComObj,VCLCom,StdVcl,bdemts,DataBkr,DBClient,MtsRdm,Mtx,MTSStu_TLB,DB,ADODB;typeTMTSDMStu=class(TMtsDataModule,IMTSDMStu)ADOQuery1:TADOQuery;private//functionCreatePaper(Subject:WideString{Privatedeclarations}protectedclassprocedureUpdateRegistry(Register:Boolean;constClassID,ProgID:string);override;functionGetPaper(constStudentID,PaperID:WideString;outAnswers:WideString):OleVariant;safecall;functionLogin(constStudentID,PWD:WideString):OleVariant;safecall;functionQueryScore(constStudentID:WideString):OleVariant;safecall;functionUpDate(constStudentID,Age,PWD,Email:WideString):OleVariant;safecall;functionGetTest(constStudentID:WideString):OleVariant;safecall;functionSubmitPaper(constStudentID,PaperID,Score:WideString):OleVariant;safecall;public{Publicdeclarations}end;varMTSDMStu:TMTSDMStu;-50- 分布式网络考试系统原型分析及实现/火焰晨晨implementation{$R*.DFM}classprocedureTMTSDMStu.UpdateRegistry(Register:Boolean;constClassID,ProgID:string);beginifRegisterthenbegininheritedUpdateRegistry(Register,ClassID,ProgID);EnableSocketTransport(ClassID);EnableWebTransport(ClassID);endelsebeginDisableSocketTransport(ClassID);DisableWebTransport(ClassID);inheritedUpdateRegistry(Register,ClassID,ProgID);end;end;functionTMTSDMStu.GetPaper(constStudentID,PaperID:WideString;outAnswers:WideString):OleVariant;varI,J,C:Integer;sQuestionID,Subject:WideString;aQuestionID:array[0..9]ofInteger;begin/////////////取考试科目//////////////////////////ADOQuery1.SQL.Clear;ADOQuery1.SQL.Add("SELECTSubjectFROMNetTest.PapersWHERE"+"("+"StudentID="+""""+StudentID+""""+")AND(PaperID="+""""+PaperID+""""+")AND("+"ScoreISNULL"+")");ADOQuery1.Active:=True;ifnotADOQuery1.Fields[0].IsNullthenSubject:=ADOQuery1.Fields[0].AsStringelsebeginADOQuery1.Active:=False;Result:="不能重复参加考试！";Exit;end;-50- 分布式网络考试系统原型分析及实现/火焰晨晨ADOQuery1.Active:=False;//////////////取试题条数///////////////////////ADOQuery1.SQL.Clear;ADOQuery1.SQL.Text:="SELECTcount(*)FROMNetTest.QuestionsWHERESubject="+""""+Subject+"""";ADOQuery1.Active:=True;C:=ADOQuery1.Fields[0].AsInteger;ADOQuery1.Active:=False;/////////////随机抽题///////////////////////ADOQuery1.SQL.Clear;I:=1;ifC<10then//题少于10道就全选ADOQuery1.SQL.Add("SELECT*FROMNetTest.QuestionsWHERESubject="+""""+Subject+"""")elsebegin//否则就随机抽题Randomize;aQuestionID[0]:=Random(C);While10>IdobeginaQuestionID[I]:=Random(C);forJ:=0toIdoifaQuestionID[J]=aQuestionID[I]thenBreak;//ifI=JthenInc(I);end;//endwhilesQuestionID:="(QuestionID="+""""+IntToStr(aQuestionID[0])+""""+")";forI:=1to9dosQuestionID:=sQuestionID+"OR(QuestionID="+IntToStr(aQuestionID[I])+")";ADOQuery1.SQL.Add("SELECT*FROMNetTest.QuestionsWHERE(Subject="+""""+Subject+""""+")AND("+sQuestionID+")");-50- 分布式网络考试系统原型分析及实现/火焰晨晨end;//endifsles//////////////////////////////////////ADOQuery1.Active:=True;//Result:=ADOQuery1.SQL.Text;//ADOQuery1.Active:=False;//Answers:="";tryADOQuery1.Active:=True;//////////////建立XML///////////////Result:=""+Subject+"radio";Answers:="";I:=1;WhilenotADOQuery1.EofdobeginResult:=Result+""+IntToStr(I)+""+""+ADOQuery1.Fields[2].AsString+""+ADOQuery1.Fields[3].AsString+""+ADOQuery1.Fields[4].AsString+""+ADOQuery1.Fields[5].AsString+""+ADOQuery1.Fields[6].AsString+"";Answers:=Answers+ADOQuery1.Fields[7].AsString;ADOQuery1.Next;Inc(I);end;Result:=Result+"";exceptADOQuery1.Active:=False;Result:="";end;end;functionTMTSDMStu.Login(constStudentID,PWD:WideString):OleVariant;beginADOQuery1.SQL.Clear;ADOQuery1.SQL.Add("SELECTNameFROMNetTest.StudentsWHERE"+"(StudentID="+""""+StudentID+""""+")"+"AND"+"(PWD="+""""+PWD+""""+")");try-50- 分布式网络考试系统原型分析及实现/火焰晨晨ADOQuery1.Active:=True;ifADOQuery1.Fields[0].IsNullthenResult:="密码或用户名错误！请重试。"elseResult:=""+ADOQuery1.Fields[0].AsString+"";ADOQuery1.Active:=False;exceptADOQuery1.Active:=False;Result:="数据库读取错误！请和管理员联系！";end;end;functionTMTSDMStu.QueryScore(constStudentID:WideString):OleVariant;beginResult:="";ADOQuery1.SQL.Clear;ADOQuery1.SQL.Add("SELECTPaperID,Subject,ScoreFROMNetTest.Papers"+"WHERE(StudentID="+""""+StudentID+""""+")AND(Score<>"+""""+""""+")");tryADOQuery1.Active:=True;ifnotADOQuery1.Fields[0].IsNullthenbeginwhilenotADOQuery1.EofdobeginifADOQuery1.Fields[2].AsInteger>60thenResult:=Result+""+ADOQuery1.Fields[0].AsString+""+ADOQuery1.Fields[1].AsString+""+ADOQuery1.Fields[2].AsString+""elseResult:=Result+""+ADOQuery1.Fields[0].AsString+""+ADOQuery1.Fields[1].AsString+""+ADOQuery1.Fields[2].AsString+"";-50- 分布式网络考试系统原型分析及实现/火焰晨晨ADOQuery1.Next;end;//endwhileADOQUery1.Active:=False;end;//endifResult:=Result+"";exceptADOQUery1.Active:=False;Result:="";end;end;functionTMTSDMStu.UpDate(constStudentID,Age,PWD,Email:WideString):OleVariant;beginResult:="更新资料成功，请返回进行其他操作。";ADOQuery1.SQL.Clear;ADOQuery1.SQL.Add("UPDATENetTest.StudentsSETAge="+Age+",PWD="+""""+PWD+""""+",Email="+""""+Email+""""+"WHEREStudentID="+""""+StudentID+"""");tryADOQuery1.ExecSQL;exceptADOQUery1.Active:=False;Result:="更新个人资料失败！请重试！";end;ADOQuery1.Active:=False;end;functionTMTSDMStu.GetTest(constStudentID:WideString):OleVariant;begin//取得可以参加的考试ADOQuery1.SQL.Clear;Result:="";ADOQuery1.SQL.Add("SELECTPaperID,SubjectFROMNetTest.PapersWHERE"+"(StudentID="+""""+StudentID+""""+")AND("+"ScoreISNULL)");try-50- 分布式网络考试系统原型分析及实现/火焰晨晨ADOQuery1.Active:=True;ifnotADOQuery1.Fields[0].IsNullthenbeginwhilenotADOQuery1.EofdobeginResult:=Result+""+ADOQuery1.Fields[0].AsString+""+ADOQuery1.Fields[1].AsString+"";ADOQuery1.Next;end;//endwhileend;exceptADOQuery1.Active:=False;Result:="";end;Result:=Result+"";end;functionTMTSDMStu.SubmitPaper(constStudentID,PaperID,Score:WideString):OleVariant;beginADOQuery1.SQL.Clear;ADOQuery1.SQL.Add("SELECTScoreFROMNetTest.PapersWHERE"+"("+"StudentID="+""""+StudentID+""""+")AND(PaperID="+""""+PaperID+""""+")");ADOQuery1.Active:=True;ifADOQuery1.Fields[0].IsNullthenbeginADOQuery1.Active:=False;ADOQuery1.SQL.Clear;ADOQuery1.SQL.Add("UPDATENetTest.PapersSETScore="+Score+"WHERE"+"("+"StudentID="+""""+StudentID+""""+")AND(PaperID="+""""+PaperID+""""+")");tryADOQuery1.ExecSQL;ADOQuery1.Active:=False;Result:="你的成绩是

"+Score+"

请返回进行其他操作。";except-50- 分布式网络考试系统原型分析及实现/火焰晨晨ADOQuery1.Active:=False;Result:="成绩写入失败，请与管理员联系！";end;endelseResult:="请不要重复参加考试！";end;initializationTComponentFactory.Create(ComServer,TMTSDMStu,Class_MTSDMStu,ciMultiInstance,tmApartment);end.-50- 分布式网络考试系统原型分析及实现/火焰晨晨1.1.1.1.老师对象COM+组件主代码1.1.1.2.管理员COM+组件主代码1.1.2.程序运行截图1.1.2.1.登录页面（系统主界面）1.1.2.2.学生维护页主界面1.1.2.3.学生修改个人资料页面1.1.2.4.学生查询成绩页面1.1.2.5.学生参加考试页面1.1.2.6.进行考试页面1.1.2.7.老师维护页主界面1.1.2.8.老师生成试卷页面1.1.2.9.老师修改个人资料页面1.1.2.10.管理员维护页主界面1.1.2.11.管理员增加老师页面1.1.2.12.管理员增加学生页面1.1.2.13.管理员修改密码页面-50- 分布式网络考试系统原型分析及实现/火焰晨晨1.系统安装分发分布式系统在分发安装的时候比较麻烦，主要是中间件的配置问题，因此单独提出来说明一下。1.1.数据库的设置在SQLServer2000中运行上面所提供的SQL语句，建立数据库表格，再建立一个名为NetTest的新用户，并设置对NetTest表格的权限为db_owner（如下图）密码为123-50- 分布式网络考试系统原型分析及实现/火焰晨晨1.1.配置COM+环境请建立一个名为NetTest的应用程序，并把本系统的四个组件全导入里面。（如图）-50- 分布式网络考试系统原型分析及实现/火焰晨晨1.1.IIS的配置本系统运行于COM+环境，所以服务器应该采用Windows2000或WindowsXP及以上操作系统，IIS必须是5.0以上。请在IIS中建立名为NetTest的网站。1.2.注意事项由于我开发环境的限制，不能在多台计算机上测试本系统，因此本系统默认是建立在一个名为Sun1980426的计算机上的。所以运行本系统请把您的计算机名改为Sun1980426。当现实应用中使用的时候可以把计算机名或地址放入注册表，在四个COM+组件中用一条API函数动态读出就可以了。2.系统不足与展望本系统限于我的精力、技术和时间，因此要改进的地方比较多，首就是随机生成试卷功能，目前的随机算法比较单纯，在实际使用中，可根据不同的情况结合试卷的难度等信息，采用更复杂更有效的随机算法。再就是可以增加更多的功能，比如成绩的统计，成绩报表的打印等等，我因为时间的关系没有完成。最后就是可以利用目前SQL-50- 分布式网络考试系统原型分析及实现/火焰晨晨Server2000提供的XML直接支持更进一步改进程序性能！可惜Delphi6.0所提供的TADO系列控件缺少ADO的Stream对象，从而不能让我在有限的时间内应用SQLServer2000这一最新特性，很是遗憾，希望以后有机会能加上。1.致谢本文是在**老师的精心指导下完成的。从论文的选题、文章结构的构筑到最后的定稿，都得到了导师的细心指点和提携。导师的严谨治学的作风也让我记忆颇深。在此仅向导师致以最诚挚的谢意。另外要特别感谢网友Ricko和李州的友情帮助，Ricko帮我设计了本系统的封面，而李州为我提供了网页的模版。同时也向关心支持我的家人、同学和朋友致以最衷心的感谢。2.参考文献[1](美)GradyBooch,JamesRumbaugh,IvarJacobson,《UML用户指南》,机械工业出版社，2001年8月[2]Microsoft，MSDN[3]Microsoft,SQLServer2000联机手册[4]Borland，Delphi6.0Help[5]李维，《Delphi5.X分布式多层应用－电子商务篇》，机械工业出版社，2000年5月[6]徐新华，《Delphi5高级编程―COM、CORBA于Internet编程》，人民邮电出版社，2000年5月[7]林锦雀，江高举，《最新XML入门与应用》，中国铁道出版社，2001年11月[8]潘爱民，《COM原理于应用》，清华大学出版社，1999年11月-50-'