《计算机硬件知识考试系统》由会员分享，可在线阅读，更多相关《计算机硬件知识考试系统（18页珍藏版）》请在金锄头文库上搜索。
1、沈 阳 航 空 航 天 大 学 课程设计 学 号52 班 级 姓 名 谷永健 指导教师 刘学平 2011年 7 月 6 日沈航设计用纸沈阳航空航天大学课程设计任务书学院：机电工程学院 专业：车辆工程 班级：学号：52 题目：计算机硬件知识考试系统一、课程设计时间2011年6月27日7月1日（第17周），共计1周。二、课程设计内容用VB+Access组合，编写“计算机硬件知识考试系统”软件。题目信息存储到Access数据库的表中，题目至少包括：选择题、填空题和问答题等。程序能实现对3种题型的考试及考试计时等功能。用户界面中的菜单至少应包括“考生登录”、“题型选择”、“交卷”、“退出”4项。三、课
2、程设计要求程序质量： 贯彻事件驱动的程序设计思想。 用户界面友好，功能明确，操作方便；可以增加其它功能或修饰。 代码应适当缩进，并给出必要的注释，以增强程序的可读性。课程设计说明书： 课程结束后，上交课程设计说明书和源程序。课程设计说明书的内容参见提供的模板。四、指导教师和学生签字指导教师：_ 学生签名：_五、成绩六、教师评语目 录一、需求分析4二、设计分析4三、关键技术6四、总结12五、完整的源程序12六、参考文献17一、需求分析模拟考试系统，需要做到学生登录，题型选择，考试时间的控制与考生答案的录入四种要求，给予考生便利。要求：在Access中创建“填空题”，“选择题”，“问答题”“学生信
3、息”四个表，每个表中至少要包括序号，题目，答题三部分。考生登录后，题目自动显示在窗口中答题过程显示时间，时间到自动退出并记录已经输入的答案可以随时交卷并记录答案二、设计分析（1） 基本原理：建立程序设计与数据库的连接，使用adodc控件（2） 总体设计：数据库Adodc控件图1 总体设计（3）详细设计：开始连接数据库考生登录倒计时系统答案记录进行考试记录时间上传数据图1 详细设计（4）数据库设计：数据库设计是总体设计阶段非常重要的环节，数据库结构的变化会造成编码的改动所以必须根据考试所需，合理的设计题型和考生信息数据库。三、关键技术（1）建立与数据库的连接。使用adodc控件，建立与数据库的连
4、接，设置控件的connectionstring属性，将access数据关联到vb上（将两个文件放在一个文件夹中），之后用DataGrid控件，将Datasource属性设为Adodc1就完成了关联。 图一connectionstring属性设置 图二 建立连接（2）使用timer控件实现倒计时功能使用的语言是Private Sub ks_Click()t = 3600 * Val(1) Timer1.Enabled = TrueEnd SubPrivate Sub Timer1_Timer() Dim M, s As Integer t = t - 1 M = Int(t / 60) s =
5、t Mod 60 Form3.Label2.Caption = M & 分 & s & 秒 If (t = 0) Then Timer1.Enabled = False Form1.Adodc1.Recordset.AddNew Form2.Adodc1.Recordset.AddNew Form4.Adodc1.Recordset.AddNew End End IfEnd Sub时间将在Form3的Label1中显示此语言可以完成时间到时自动记录学生答题信息的功能（3）登录系统private Sub cmdOK_Click() Dim sql As String Dim rs As ADOD
6、B.Recordset If Trim(UserName.Text = ) Then MsgBox 没有输入用户名称，请重新输入！, vbOKOnly + vbExclamation, 警告 UserName.SetFocus Else 查询用户 sql = select * from UserInfo where UserID= & UserName.Text & Set rs = TransactSQL(sql) If iflag = 1 Then If rs.EOF = True Then MsgBox 没有这个用户，请重新输入！, vbOKOnly + vbExclamation, 警
7、告 UserName.SetFocus Else If Trim(rs.Fields(1) = Trim(PassWord.Text) Then rs.Close Me.Hide gUserName = Trim(UserName.Text) 保存用户名称 FrmMain.Show Unload Me Else MsgBox 密码不正确，请重新输入！, vbOKOnly + vbExclamation, 警告 PassWord.SetFocus PassWord.Text = End If End If Else Unload Me End If End If pwdCount = pwdCo
8、unt + 1 判断输入次数 If pwdCount = 3 Then Unload Me Exit Sub End IfEnd Sub（4）界面设计 图三 登陆界面 图四 总界面 图五 题目界面图五 倒计时界面四、总结 本次课设我的题目是计算机硬件知识考试系统，通过本次课设而让我了解了数据库与vb的联系，学会了应用adodc控件使VB与数据库进行联系，还可以应用timer控件进行倒计时功能，并能记录考试答案。 在本次课设中，我遇到了许多问题，例如，timer控件的位置，考试答案的储存，特别是登录系统与数据库的链接，查找，定位等，但是经过老师的指点和自己查阅资料多方面的努力，我觉得我已经尽我所
9、能的完成了本次课设。 在这次课设中，我觉得最大收获不仅是对vb的进一步理解，更重要的是提高了自主学习，自主探索的能力，为以后学习和工作中奠定了良好的基础。 五、完整的源程序（一）FrmLoginOption ExplicitDim pwdCount As IntegerPrivate Sub cmdCancel_Click() Unload Me Exit SubEnd SubPrivate Sub cmdOK_Click() Dim sql As String Dim rs As ADODB.Recordset If Trim(UserName.Text = ) Then MsgBox 没有
10、输入用户名称，请重新输入！, vbOKOnly + vbExclamation, 警告 UserName.SetFocus Else 查询用户 sql = select * from UserInfo where UserID= & UserName.Text & Set rs = TransactSQL(sql) If iflag = 1 Then If rs.EOF = True Then MsgBox 没有这个用户，请重新输入！, vbOKOnly + vbExclamation, 警告 UserName.SetFocus Else If Trim(rs.Fields(1) = Trim
11、(PassWord.Text) Then rs.Close Me.Hide gUserName = Trim(UserName.Text) 保存用户名称 FrmMain.Show Unload Me Else MsgBox 密码不正确，请重新输入！, vbOKOnly + vbExclamation, 警告 PassWord.SetFocus PassWord.Text = End If End If Else Unload Me End If End If pwdCount = pwdCount + 1 判断输入次数 If pwdCount = 3 Then Unload Me Exit Sub End IfEnd SubPrivate Sub Form_Load()
