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

  1. 1、本文档共18页,可阅读全部内容。
  2. 2、原创力文档(book118)网站文档一经付费(服务费),不意味着购买了该文档的版权,仅供个人/单位学习、研究之用,不得用于商业用途,未经授权,严禁复制、发行、汇编、翻译或者网络传播等,侵权必究。
  3. 3、本站所有内容均由合作方或网友上传,本站不对文档的完整性、权威性及其观点立场正确性做任何保证或承诺!文档内容仅供研究参考,付费前请自行鉴别。如您付费,意味着您自己接受本站规则且自行承担风险,本站不退款、不进行额外附加服务;查看《如何避免下载的几个坑》。如果您已付费下载过本站文档,您可以点击 这里二次下载
  4. 4、如文档侵犯商业秘密、侵犯著作权、侵犯人身权等,请点击“版权申诉”(推荐),也可以打举报电话:400-050-0827(电话支持时间:9:00-18:30)。
  5. 5、该文档为VIP文档,如果想要下载,成为VIP会员后,下载免费。
  6. 6、成为VIP后,下载本文档将扣除1次下载权益。下载后,不支持退款、换文档。如有疑问请联系我们
  7. 7、成为VIP后,您将拥有八大权益,权益包括:VIP文档下载权益、阅读免打扰、文档格式转换、高级专利检索、专属身份标志、高级客服、多端互通、版权登记。
  8. 8、VIP文档为合作方或网友上传,每下载1次, 网站将根据用户上传文档的质量评分、类型等,对文档贡献者给予高额补贴、流量扶持。如果你也想贡献VIP文档。上传文档
查看更多
沈 阳 航 空 航 天 大 学 课程设计 学 号2009040603052 班 级 姓 名 谷永健 指导教师 刘学平 2011年 7 月 6 日 沈阳航空航天大学 课程设计任务书 学院:机电工程学院 专业:车辆工程 班级学号:2009040603052 题目:计算机硬件知识考试系统 一、课程设计时间 2011年6月27日~7月1日(第17周),共计1周。 二、课程设计内容 用VB+Access组合,编写“计算机硬件知识考试系统”软件。题目信息存储到Access数据库的表中,题目至少包括:选择题、填空题和问答题等。 程序能实现对3种题型的考试及考试计时等功能。 用户界面中的菜单至少应包括“考生登录”、“题型选择”、“交卷”、“退出”4项。 三、课程设计要求 程序质量: 贯彻事件驱动的程序设计思想。 用户界面友好,功能明确,操作方便;可以增加其它功能或修饰。 代码应适当缩进,并给出必要的注释,以增强程序的可读性。 课程设计说明书: 课程结束后,上交课程设计说明书和源程序。课程设计说明书的内容参见提供的模板。 四、指导教师和学生签字 指导教师:________ 学生签名:________ 五、成绩 六、教师评语 目 录 一、需求分析 4 二、设计分析 4 三、关键技术 6 四、总结 12 五、完整的源程序 12 六、参考文献 17 一、需求分析 模拟考试系统,需要做到学生登录,题型选择,考试时间的控制与考生答案的录入四种要求,给予考生便利。 要求: ①在Access中创建“填空题”,“选择题”,“问答题”“学生信息”四个表,每个表中至少要包括序号,题目,答题三部分。 ②考生登录后,题目自动显示在窗口中 ③答题过程显示时间,时间到自动退出并记录已经输入的答案 ④可以随时交卷并记录答案 二、设计分析 基本原理:建立程序设计与数据库的连接,使用adodc控件 总体设计: 图1 总体设计 (3)详细设计: 图1 详细设计 (4)数据库设计: 数据库设计是总体设计阶段非常重要的环节,数据库结构的变化会造成编码的改动所以必须根据考试所需,合理的设计题型和考生信息数据库。 三、关键技术 (1)建立与数据库的连接。 使用adodc控件,建立与数据库的连接,设置控件的connectionstring属性,将access数据关联到vb上(将两个文件放在一个文件夹中),之后用DataGrid控件,将Datasource属性设为Adodc1就完成了关联。 图一connectionstring属性设置 图二 建立连接 (2)使用timer控件实现倒计时功能 使用的语言是 Private Sub ks_Click() t = 3600 * Val(1) Timer1.Enabled = TrueEnd Sub Private Sub Timer1_Timer() Dim M, s As Integer t = t - 1 M = Int(t / 60) s = 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 If End Sub 时间将在Form3的Label1中显示 此语言可以完成时间到时自动记录学生答题信息的功能 (3)登录系统 private Sub cmdOK_Click() Dim sql As String Dim rs As ADODB.Recordset If Trim(UserName.Text = ) Then MsgBox 没有输入用户名称,请重新输入!, vbOKOnly + vbExclamation, 警告 UserName.SetFocus Else 查询用户 sql = select * from UserInfo whe

文档评论(0)

80092355km + 关注
实名认证
文档贡献者

该用户很懒,什么也没介绍

1亿VIP精品文档

相关文档