2022年在线考试系统课程设计

1、一、需求分析 计算机技术没有应用到考试上时，组织一次考试只是要通过五步：人工出题，考生考试，人工阅卷，成绩评估和试卷分析，这是一项十分繁琐和容易出错的工作，教师的工作量非常的大。很明显，老式的考试方式已经不再适应现代考试的需要。如今，信息技术的迅猛发展，应用不断扩大，教学和虚拟大学等相继浮现，这些应用正逐渐进一步到千家万户，人们迫切规定运用这些技术来进行在线考试，以减少教师的工作承当并提高工作效率，同步提高考试的质量，从而使考试更趋于公正，客观，更加激发学生的爱好。例如，目前许多国际出名的计算机公司所举办的多种认证考试绝大部分是采用这种形式。二、数据库设计概念模型设计（ER图）与否参与了考试顾

2、客密码顾客账号顾客类型型 顾客信息与否参与了考试顾客密码顾客账号顾客类型型顾客信息与否已经登录顾客姓名试题题目试题答案试题编号试题类型试题类型名称 试题题目试题答案试题编号试题类型试题类型名称填空题分值填空题比例编号判断题分值判断题比例型编号选择题分值选择题比例号选项A选项B选项F选项E选项D选项C试题题库试题类型试题类型编号填空题分值填空题比例编号判断题分值判断题比例型编号选择题分值选择题比例号选项A选项B选项F选项E选项D选项C试题题库试题类型试题类型编号 参数编号考试时间 参数编号考试时间 系统参数系统参数选项F学生考试试卷选项F学生考试试卷试卷类型题库中的编号题目在试卷中的编号题目答案

3、选项A选项C选项B选项D选项E考生答案学生成绩学生成绩考生编号考生成绩选择题成绩判断题成绩填空题成绩2、E-R图转为逻辑模型的措施及过程在sql中创立一种新的数据库CET6，以ER图中的实体的名称创立表。设计表时，以该ER图中的属性为列名，根据实际状况拟定其数据类型和长度，在必须唯一的列名处设计主键。在sql中一共建立七个表来实现CET6模拟考试系统应用程序数据的连接。其中，UserType表达数据类型，0表达学生，1表达管理员。UserId表达顾客账号，UserName表达顾客姓名，UserPsw表达顾客密码。HaveIn，HaveTest分别表达顾客与否登录和参与考试。TypeId，Typ

4、eName分别表达试题类型和试题类型名。XZT_BL，XZT_FZ分别表达选择题的分值和比例。判断题和填空题类推。StudentId表达考生考号，TopicId、PaperTopId分别表达试题在题库和试卷中的编号。TopicName、TopicAnswer表达试题题目和答案。3、逻辑模型TB_User（顾客信息表）TB_TestType（试题类型表）TB_Param(系统参数表)TB_StuTest(学生考试试卷表)TB_Grade(学生分数表)TB_Test(试题安排)TB_StuTest(学生考试试卷表)4、数据库评价 一方面，用sql设计数据库比较稳定，对数据的规定也比较严格。这样在编

5、码阶段数据这一块就基本没有不合理的数据出目前应用程序上。减少了运营会浮现的错误。但是sql与应用程序的链接有时比较繁琐并且不易成功。三、编码实现登录模块顾客的不同类型进入到不同的界面，重要有一种combox控件，用于选择顾客类型。两个TextBox控件，Txt_id用于输入账号，Txt_Pse用于输入密码。三个commandButton控件：cmd_In用于登录系统，Cmd_Again用于清空顾客信息重新输入，Cmd_Quit用于退出系统。程序流程图登录登录输入顾客类型进入学生界面进入管理员界面输入顾客名密码输入顾客名密码结束登录学生管理员错误错误3） 登录模块代码Option Explici

6、tPublic B As Boolean 顾客的登录信息与否对的Private Sub PD()判断顾客登录信息与否对的,对的B=true,否则B=falseDim rs As New ADODB.Recordset 声明rs为记录集对象If Trim(Txt_Id.Text) = Then 如果没有输入帐号MsgBox 没有输入顾客账号，请您对的填写！, vbOKCancel + vbCritical Txt_Id.SetFocus 设立焦点在问本框Txt_Id上ElseIf Trim(Txt_Psw.Text) = Then 如果密码为空 MsgBox 没有输入密码，请您对的填写！, vb

7、OKCancel + vbCritical Txt_Psw.SetFocus 设立焦点在问本框Txt_Psw上Else Cmd_In.Default = True 设立Cmd_In按Enter键触发Click事件Sql = select * from TB_User where UserId= & Trim(Txt_Id.Text) & & _and UserType= & Cbx_UserType.ListIndex & & _and UserPsw= & Trim(Txt_Psw.Text) & 把查询顾客信息的SQL语句赋给变量Sql rs.Open Sql, cnn, adOpenSt

8、atic, adLockReadOnly 以只读的方式静态的打开Sql执行的成果的记录集 If Not rs.RecordCount 0 Then 如果记录集为空 Select Case MsgBox(顾客账号或密码不对的，请您对的填写！, vbOKCancel + vbCritical) 显示提示信息 Case vbOK 如果选择了是 B = False Txt_Id.Text = 帐号清空 Txt_Psw.Text = 密码清空 Txt_Id.SetFocus 是输入帐号的文本框获得焦点 Case Else 选择了取消 End 结束程序 End Select Cmd_In.Default

9、= False 设立Cmd_In不是Enter的默认按钮ElseIf rs.Fields(HaveIn) = 0 Then 如果记录集不为空且此帐号没被其她顾客使用 B = True 顾客的登录信息对的 cnn.Execute update TB_User set HaveIn=1 & _where UserId= & Trim(Txt_Id.Text) & & _and UserType= & Cbx_UserType.ListIndex & 设立HaveIn字段为1，限制其她顾客用此帐户登录 UsId = Trim(Txt_Id.Text) 记录顾客的帐号 Else 如果记录集不为空但此帐

10、号正在被其她顾客使用 MsgBox 顾客已经登录！, vbOKOnly + vbCritical 显示提示信息 B = False 顾客的登录信息错误 Txt_Id.Text = 帐号清空 Txt_Psw.Text = 密码清空 Txt_Id.SetFocus 是输入帐号的文本框获得焦点 Cmd_In.Default = False 设立Cmd_In不是Enter的默认按钮 End If rs.Close 关闭记录集End IfEnd SubPrivate Sub Cbx_UserType_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then

11、如果输入的字符是Enter键 Txt_Id.SetFocus 设立输入帐号的文本框获得焦点 Else 如果输入的是其他字符 KeyAscii = 0 返回值为空即不输入任何字符 End IfEnd SubPrivate Sub Cmd_Again_Click() 顾客信息输入错误，选择了“重输”按钮，开始重新输入。 Call Form_LoadEnd SubPrivate Sub Cmd_In_Click() 顾客填写信息完毕，单击“拟定”按钮，开始登录On Error GoTo Err1 浮现错误转向错误解决 Dim rs As New ADODB.Recordset 声明rs为记录集对象

12、Select Case Cbx_UserType.ListIndex Select语句的条件是Cbx_UserType的ListIndex属性 Case 0 如果选中的是第一条记录即考生 Call PD 判断考生的帐号和密码与否对的 If B = True Then 如果考生的帐号和密码对的 Sql = select HaveTest from TB_User where UserType=0 & _ and UserId= & Trim(Txt_Id.Text) & 判断考生与否参与过考试 rs.Open Sql, cnn, adOpenStatic, adLockReadOnly 执行SQ

13、L语句 If rs.Fields(HaveTest) = False Then 如果考生没有参与过考试 Sql = delete from TB_Grade where StuId= & _ & Trim(Txt_Id.Text) & 删除成绩表中考生原有的记录 cnn.Execute Sql 执行SQL语句 Sql = insert into TB_Grade(StuId) values & _ ( & Trim(Txt_Id.Text) & ) 把考生的帐号插入到成绩表中 cnn.Execute Sql 执行SQL语句 End If frm_Stu.Show 显示考生窗口 Unload M

14、e 卸载本窗体 End If Case 1 If Txt_Id.Text = admin And Txt_Psw = admin Then 设立超级顾客 Unload Me 卸载本窗体 frm_Manager.Show 显示管理员窗体 Else 如果不是超级顾客 Call PD 判断管理员的帐号和密码与否对的 If B = True Then 如果帐号和密码对的 Unload Me 卸载本窗体 frm_Manager.Show 显示管理员窗体 End If End If Case Else 但是没有选择顾客的身份 MsgBox 您没有选择身份，请选择！, vbOKCancel + vbCrit

15、ical 提示选择身份 Cbx_UserType.SetFocus 组合框Cbx_UserType获得焦点 End Select Exit Sub 跳出Sub过程Err1: ErrMessageBox 打开窗口失败 显示出错信息 frm_Login.Show 显示登录窗体End SubPrivate Sub Cmd_Quit_Click() If MsgBox(真的要退出 & Me.Caption & 吗？, vbYesNo + vbInformation) = vbNo Then Exit Sub End If 弹出对话框询问与否退出系统 End 退出系统End SubPrivate Sub

16、 Form_Load() Cbx_UserType.Text = 请选择身份 Txt_Id.Text = Txt_Psw.Text = End SubPrivate Sub Txt_Id_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then 判断如果顾客输入的是Enter键 Txt_Psw.SetFocus 设立Txt_Psw获得焦点 End IfEnd SubPrivate Sub Txt_Psw_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then Call Cmd_In_Click End

17、 IfEnd Sub2、管理员模块1）在窗体上添加一种SSTab控件，上面添加三个commandButton控件，分别为选择题，填空题，判断题。添加一种DataGrid控件显示试题，添加一种Ado控件链接数据库。编写菜单实现多种管理的功能。2）管理员管理员顾客管理修改系统系数题库维护查询考生成绩结束程序代码Option ExplicitDim Sql As String 声明模块级变量Private Declare Function ShellExecute Lib shell32.dll Alias ShellExecuteA (ByVal hwnd As Long, ByVal lpOpe

18、ration As String, ByVal lpFile As String, ByVal lpParameters As Long, ByVal lpDirectory As Long, ByVal nShowCmd As Long) As LongPrivate Function FunAdo(ByVal str As String) 构造连接ADO的函数On Error GoTo Err1 执行过程中如果发生错误转向错误解决 With Ado1 使用With构造 .Visible = False Ado不可见 .ConnectionString = cnn.ConnectionStr

19、ing 设立Ado的连接字符串 .CommandType = adCmdText 设立Ado的命令类型 .RecordSource = str 设立Ado的记录源 .Refresh 刷新Ado的记录集 End With 结束With构造 Exit Function 结束函数Err1: ErrMessageBox 与数据库连接失败！ 显示错误信息 Me.Show 显示窗口End FunctionPrivate Sub Cmd_Cancel_Click() Call Form_Unload(1)End SubPrivate Sub Cmd_PDT_Click() Sql = select 类型号=

20、tb_testtype.Typeid,题号=(tb_topicstor.topicid), & _ 题目名称=topicname,答案=topicanswer & _ from tb_topicstor,tb_testtype where tb_testtype.typeid=tb_topicstor.typeid and typename=判断题 Call FunAdo(Sql) DG.Columns(0).Width = 700 DG.Columns(1).Width = 500 DG.Columns(2).Width = 4000 DG.Columns(3).Width = 500End

21、 SubPrivate Sub Cmd_TKT_Click() Sql = select 类型号=tb_testtype.Typeid,题号=(tb_topicstor.topicid), & _ 题目名称=topicname,答案=topicanswer & _ from tb_topicstor,tb_testtype where tb_testtype.typeid=tb_topicstor.typeid and typename=填空题 Call FunAdo(Sql) DG.Columns(0).Width = 700 DG.Columns(1).Width = 500 DG.Col

22、umns(2).Width = 4000End SubPrivate Sub Cmd_XZT_Click() Sql = select 类型号=tb_testtype.Typeid,题号=(tb_topicstor.topicid), & _ 题目名称=topicname,答案=topicanswer,A,B,C,D,E,F & _ from tb_topicstor,tb_testtype where tb_testtype.typeid=tb_topicstor.typeid & _ and typename= & Cmd_XZT.Caption & 把查看选择题的SQL语句赋给变量Sql

23、 Call FunAdo(Sql) 调用函数执行SQL语句 DG.Columns(0).Width = 700 设立DataGrid的第1列列宽 DG.Columns(1).Width = 500 设立DataGrid的第2列列宽 DG.Columns(2).Width = 4000 设立DataGrid的第3列列宽 DG.Columns(3).Width = 500 设立DataGrid的第4列列宽End SubPrivate Sub DG_DblClick() If frm_Manager.Ado1.Recordset.Fields(题号) = Then 如果试题不存在 MsgBox 不存

24、在记录,请您先添加记录, vbOKOnly 提示没有记录 Exit Sub 跳出Sub过程 Else 如果题库中有试题 Me.Enabled = False 管理窗体不可以用 Bkm = Ado1.Recordset.Bookmark 记录目前DataGrid的指针的位置 End IfEnd SubPrivate Sub Form_Load() Call Cmd_XZT_ClickEnd SubPrivate Sub Form_Unload(Cancel As Integer) If MsgBox(真的要退出 & Me.Caption & 吗？, vbYesNo + vbInformation

25、) = vbNo Then 弹出消息对话框询问与否退出系统 Cancel = True 如果消息对话框返回值为常数vbNo，系统返回值为True Else cnn.Execute update tb_user set havein=0 where userid= & UsId & and UserType=1 End 如果消息对话框返回值为常数vbNo，系统返回值为False，结束程序 End IfEnd SubPrivate Sub Men_About_Click() frm_About.ShowEnd SubPrivate Sub Men_Help_Click() SendKeys F1E

26、nd SubPrivate Sub Men_SelGrd_Click() frm_SelGrd.Show 打开查分窗体 Me.Hide 隐藏管理员窗体End SubPrivate Sub select_Click() 设定参数 On Error GoTo Endsub frm_param.Show Me.HideEndsub:End SubPrivateSub T_AddPDT_Click() On Error GoTo Endsub frm_PDT.Show Me.HideEndsub:End SubPrivateSub T_AddTKT_Click()On Error GoTo Endsu

27、b frm_TKT.Show Me.HideEndsub:End SubPrivate Sub T_AddXZT_Click()On Error GoTo Endsub frm_XZT.Show Me.HideEndsub:End SubPrivate Sub T_Exit_Click() Unload MeEnd SubPrivate Sub T_Update_Click()On Error GoTo Endsub Me.Enabled = FalseEndsub:End SubPrivate Sub User_Click() On Error GoTo Endsub frm_UpdateU

28、ser.Show Me.HideEndsub:End Sub3、学生窗体1）2）考生考生与否已经参与考试查询成绩修改密码修改密码开始考试退出系统3）Option ExplicitDim HaveTest As IntegerPrivate Sub Begin_Click() Call CmdOk_ClickEnd SubPrivate Sub CmdOk_Click()On Error GoTo Err1 frm_Test.Show Me.Hide Exit SubErr1: ErrMessageBox 考试窗口打开出错End SubPrivate Sub CmdQuit_Click() Un

29、load MeEnd SubPrivate Sub Form_Load() Dim rs As New ADODB.Recordset 声明结识rs为记录集对象 Sql = select havetest from tb_user where usertype=0 & _ and userid= & UsId & 把查询与否参与考试的标记字段赋给变量Sql rs.Open Sql, cnn, adOpenStatic, adLockReadOnly 执行SQL语句 HaveTest = rs.Fields(HaveTest) ShowButtonEnd SubPrivate Sub Form_

30、Unload(Cancel As Integer) If MsgBox(真的要退出 & Me.Caption & 吗？, vbYesNo + vbInformation) = vbNo Then 弹出对话框询问与否退出系统 Cancel = 1 Else cnn.Execute update tb_user set havein=0 where userid= & UsId & and UserType=0 End End IfEnd SubPrivate Sub Img_PswCancel_Click() Pte_StuPsw.Visible = False ShowButtonEnd Su

31、bPrivate Sub Img_PswOk_Click()On Error GoTo Err1 如果发生错误转向错误解决 Dim rs As New ADODB.Recordset 声明结识rs为记录集对象 Sql = select * from TB_User where UserId= & UsId & & _ and UserType=0 and UserPsw= & Txt_StuPsw.Text & 把验证密码的SQL语句赋给变量Sql rs.Open Sql, cnn, adOpenStatic, adLockReadOnly 执行SQL语句 If Not rs.RecordCo

32、unt 0 Then 如果密码不对的 If MsgBox(密码不对的，请您重新填写！, vbOKCancel + vbCritical) = vbCancel Then 弹出提示框 Pte_StuPsw.Visible = False 如果单击取消回到开始考试的界面 Else 如果单击拟定 Txt_StuPsw.Text = 清空Txt_StuPsw Txt_StuPsw.SetFocus 设立Txt_StuPsw获得焦点 End If Else Pte_UpdatePsw.Visible = True 显示修改密码的图片框 Txt_Id.Text = UsId 顾客帐号中显示顾客的帐号 Pt

33、e_StuPsw.Visible = False 隐藏输入验证码的图片框 Txt_Psw.Text = 清空Txt_Psw Txt_SecPsw.Text = Txt_Psw.SetFocus 设立Txt_Psw获得焦点 End If Exit Sub 结束结束Sub过程Err1: ErrMessageBox 校对密码出错 显示出错信息End SubPrivate Sub Img_Ok_Click()On Error GoTo Err1 如果发生错误就转向错误解决 If Trim(Txt_Psw.Text) = Then 如果密码为空 MsgBox 密码不能为空！, vbOKOnly + vb

34、Critical 提示输入密码 ElseIf Trim(Txt_Psw.Text) Trim(Txt_SecPsw.Text) Then 如果两次密码不同 MsgBox 您两次输入的密码不同样！, vbOKOnly + vbCritical 提示重新输入密码 Txt_Psw.Text = 清空Txt_Psw Txt_SecPsw.Text = 清空Txt_SecPsw Txt_Psw.SetFocus 设立Txt_Psw获得焦点 Else 如果两次输入的密码相似且不为空 Sql = update tb_user set userpsw= & Txt_Psw.Text & & _ where u

35、serid= & UsId & 修改密码 cnn.Execute Sql 把密码写入数据库 MsgBox 修改成功！, vbOKOnly + vbInformation 提示修改成功 Pte_UpdatePsw.Visible = False Pte_UpdatePsw不可见 ShowButton End If Exit Sub 跳出Sub过程Err1: ErrMessageBox 密码修改出错 显示提示信息 Call Form_LoadEnd SubPrivate Sub Img_Again_Click() Txt_Psw.Text = Txt_SecPsw.Text = Txt_Psw.S

36、etFocusEnd SubPrivate Sub Img_Cancel_Click() Pte_UpdatePsw.Visible = False ShowButtonEnd SubPrivate Sub Men_AboutTest_Click() frm_Dialog.ShowEnd SubPrivate Sub Men_Help_Click() SendKeys F1End SubPrivate Sub Men_Sele_Click()On Error GoTo Err1 Dim rs As New ADODB.Recordset Sql = select grade from tb_grade where stuid= & UsId & rs.Open