计算机硬件知识考试系统.docx

计算机硬件知识考试系统.docx

《计算机硬件知识考试系统.docx》由会员分享，可在线阅读，更多相关《计算机硬件知识考试系统.docx（14页珍藏版）》请在冰豆网上搜索。

计算机硬件知识考试系统

沈阳航空航天大学

课程设计

学号2009040603052

班级94060302

姓名谷永健

指导教师刘学平

2011年7月6日

沈阳航空航天大学

课程设计任务书

学院：

机电工程学院专业：

车辆工程班级：

94060302

学号：

2009040603052题目：

计算机硬件知识考试系统

一、课程设计时间

2011年6月27日~7月1日（第17周），共计1周。

二、课程设计内容

用VB+Access组合，编写“计算机硬件知识考试系统”软件。

题目信息存储到Access数据库的表中，题目至少包括：

选择题、填空题和问答题等。

程序能实现对3种题型的考试及考试计时等功能。

用户界面中的菜单至少应包括“考生登录”、“题型选择”、“交卷”、“退出”4项。

三、课程设计要求

程序质量：

✧贯彻事件驱动的程序设计思想。

✧用户界面友好，功能明确，操作方便；可以增加其它功能或修饰。

✧代码应适当缩进，并给出必要的注释，以增强程序的可读性。

课程设计说明书：

✧课程结束后，上交课程设计说明书和源程序。

课程设计说明书的内容参见提供的模板。

四、指导教师和学生签字

指导教师：

________学生签名：

________

五、成绩

六、教师评语

目录

一、需求分析4

二、设计分析4

三、关键技术6

四、总结12

五、完整的源程序12

六、参考文献17

一、需求分析

模拟考试系统，需要做到学生登录，题型选择，考试时间的控制与考生答案的录入四种要求，给予考生便利。

要求：

①在Access中创建“填空题”，“选择题”，“问答题”“学生信息”四个表，每个表中至少要包括序号，题目，答题三部分。

②考生登录后，题目自动显示在窗口中

③答题过程显示时间，时间到自动退出并记录已经输入的答案

④可以随时交卷并记录答案

二、设计分析

（1）基本原理：

建立程序设计与数据库的连接，使用adodc控件

（2）总体设计：

图1总体设计

（3）详细设计：

图1详细设计

（4）数据库设计：

数据库设计是总体设计阶段非常重要的环节，数据库结构的变化会造成编码的改动所以必须根据考试所需，合理的设计题型和考生信息数据库。

三、关键技术

（1）建立与数据库的连接。

使用adodc控件，建立与数据库的连接，设置控件的connectionstring属性，将access数据关联到vb上（将两个文件放在一个文件夹中），之后用DataGrid控件，将Datasource属性设为Adodc1就完成了关联。

图一connectionstring属性设置

图二建立连接

（2）使用timer控件实现倒计时功能

使用的语言是

PrivateSubks_Click（）

t=3600*Val

（1）

Timer1.Enabled=TrueEndSub

PrivateSubTimer1_Timer（）

DimM,sAsInteger

t=t-1

M=Int（t/60）

s=tMod60

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

EndIf

EndSub

时间将在Form3的Label1中显示

此语言可以完成时间到时自动记录学生答题信息的功能

（3）登录系统

privateSubcmdOK_Click（）

DimsqlAsString

DimrsAsADODB.Recordset

IfTrim（UserName.Text=""）Then

MsgBox"没有输入用户名称，请重新输入！

",vbOKOnly+vbExclamation,"警告"

UserName.SetFocus

Else'查询用户

sql="select*fromUserInfowhereUserID='"&UserName.Text&"'"

Setrs=TransactSQL（sql）

Ififlag=1Then

Ifrs.EOF=TrueThen

MsgBox"没有这个用户，请重新输入！

",vbOKOnly+vbExclamation,"警告"

UserName.SetFocus

Else

IfTrim（rs.Fields

（1））=Trim（PassWord.Text）Then

rs.Close

Me.Hide

gUserName=Trim（UserName.Text）'保存用户名称

FrmMain.Show

UnloadMe

Else

MsgBox"密码不正确，请重新输入！

",vbOKOnly+vbExclamation,"警告"

PassWord.SetFocus

PassWord.Text=""

EndIf

EndIf

Else

UnloadMe

EndIf

EndIf

pwdCount=pwdCount+1'判断输入次数

IfpwdCount=3Then

UnloadMe

ExitSub

EndIf

EndSub

（4）界面设计

图三登陆界面

图四总界面

图五题目界面

图五倒计时界面

四、总结

本次课设我的题目是计算机硬件知识考试系统，通过本次课设而让我了解了数据库与vb的联系，学会了应用adodc控件使VB与数据库进行联系，还可以应用timer控件进行倒计时功能，并能记录考试答案。

在本次课设中，我遇到了许多问题，例如，timer控件的位置，考试答案的储存，特别是登录系统与数据库的链接，查找，定位等，但是经过老师的指点和自己查阅资料多方面的努力，我觉得我已经尽我所能的完成了本次课设。

在这次课设中，我觉得最大收获不仅是对vb的进一步理解，更重要的是提高了自主学习，自主探索的能力，为以后学习和工作中奠定了良好的基础。

五、完整的源程序

（一）FrmLogin

OptionExplicit

DimpwdCountAsInteger

PrivateSubcmdCancel_Click（）

UnloadMe

ExitSub

EndSub

PrivateSubcmdOK_Click（）

DimsqlAsString

DimrsAsADODB.Recordset

IfTrim（UserName.Text=""）Then

MsgBox"没有输入用户名称，请重新输入！

",vbOKOnly+vbExclamation,"警告"

UserName.SetFocus

Else'查询用户

sql="select*fromUserInfowhereUserID='"&UserName.Text&"'"

Setrs=TransactSQL（sql）

Ififlag=1Then

Ifrs.EOF=TrueThen

MsgBox"没有这个用户，请重新输入！

",vbOKOnly+vbExclamation,"警告"

UserName.SetFocus

Else

IfTrim（rs.Fields

（1））=Trim（PassWord.Text）Then

rs.Close

Me.Hide

gUserName=Trim（UserName.Text）'保存用户名称

FrmMain.Show

UnloadMe

Else

MsgBox"密码不正确，请重新输入！

",vbOKOnly+vbExclamation,"警告"

PassWord.SetFocus

PassWord.Text=""

EndIf

EndIf

Else

UnloadMe

EndIf

EndIf

pwdCount=pwdCount+1'判断输入次数

IfpwdCount=3Then

UnloadMe

ExitSub

EndIf

EndSub

PrivateSubForm_Load（）

pwdCount=0

UserName=""

EndSub

PrivateSubPassWord_KeyDown（KeyCodeAsInteger,ShiftAsInteger）

TabToEnterKeyCode

EndSub

PrivateSubUserName_KeyDown（KeyCodeAsInteger,ShiftAsInteger）

TabToEnterKeyCode

EndSub

（二）FrmMain

PrivateSubjj_Click（）

uend=MsgBox（"您是否要交卷",vbYesNo,"关闭程序"）

Ifuend=vbYesThen

End

EndIf

EndSub

PrivateSubks_Click（）

t=3600*Val

（1）

Timer1.Enabled=True

EndSub

PrivateSubMDIForm_Load（）

EndSub

PrivateSubsj_Click（）

FrmMain.Hide

Form3.Show

EndSub

PrivateSubTimer1_Timer（）

DimM,sAsInteger

t=t-1

M=Int（t/60）

s=tMod60

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

EndIf

EndSub

PrivateSubtkt_Click（）

FrmMain.Hide

Form2.Show

EndSub

PrivateSubwdt_Click（）

FrmMain.Hide

Form4.Show

EndSub

PrivateSubxzt_Click（）

FrmMain.Hide

Form1.Show

EndSub

（三）Form1

PrivateSubCommand1_Click（）

Form1.Hide

FrmMain.Show

EndSub

PrivateSubCommand2_Click（）

Adodc1.Recordset.MoveNext

IfAdodc1.Recordset.EOFThenAdodc1.Recordset.MoveLast

EndSub

PrivateSubCommand3_Click（）

Adodc1.Recordset.MovePrevious

IfAdodc1.Recordset.BOFThenAdodc1.Recordset.MoveFirst

EndSub

PrivateSubForm_Load（）

EndSub

（四）form2

PrivateSubCommand1_Click（）

Form2.Adodc1.Recordset.AddNew

Form2.Hide

FrmMain.Show

EndSub

PrivateSubCommand2_Click（）

Adodc1.Recordset.MoveNext

IfAdodc1.Recordset.EOFThenAdodc1.Recordset.MoveLast

EndSub

PrivateSubCommand3_Click（）

Adodc1.Recordset.MovePrevious

IfAdodc1.Recordset.BOFThenAdodc1.Recordset.MoveFirst

EndSub

PrivateSubForm_Load（）

EndSub

（五）Form3

PrivateSubCommand1_Click（）

Form3.Hide

FrmMain.Show

EndSub

（六）Form4

PrivateSubCommand1_Click（）

Form4.Adodc1.Recordset.AddNew

Form4.Hide

FrmMain.Show

EndSub

PrivateSubCommand2_Click（）

Adodc1.Recordset.MoveNext

IfAdodc1.Recordset.EOFThenAdodc1.Recordset.MoveLast

EndSub

PrivateSubCommand3_Click（）

Adodc1.Recordset.MovePrevious

IfAdodc1.Recordset.BOFThenAdodc1.Recordset.MoveFirst

EndSub

六、参考文献

[1]刘瑞新．《VisualBasic程序设计教程》．北京：

机械工业出版社，2003

[2]占维刘伟．《VisualBasic6.0数据库实用编程100例》．北京：

中国铁道出版社，2004

[3]龚沛曾杨志强陆慰民．《VisualBasic程序设计教程》．北京：

高等教育出版社，2007