下载文档原格式
基于VB的考试系统的设计与实现作者：朱大维来源：《电脑知识与技术》2011年第30期摘要：在二十一世纪的新时代，随着计算机技术的发展及计算机的日益普及，无纸化考试也越来越成为学校的好帮手。
它的优势不但体现在人力上也体现在物力上，无纸化考试系统的自动计分、成绩存档功能将有效地避免资源的浪费，提高了效率。
无纸化考试真正地使老师从出题、监考、评改试卷、统计成绩等等费时的工作中解脱出来，将主要精力转移到创造性的教学改革工作中，以更好地适应现代教育形势。
学校内真正需要使用和推广无纸化考试。
该文主要介绍了本考试系统的开发环境、设计思路、主要功能、关键技术和软件的安全性。
关键词：开发环境；设计思路；功能；安全中图分类号：TP311文献标识码：A文章编号：1009-3044(2011)30-7332-02Design and Implementation of VB-Based Examing SystemZHU Da-wei(Information Center, Anhui Huaibei Mining Industry Group Company, Huaibei 235000, China)Abstract: In the new era in the 21st century , the computer one is popular day by day with the development of technology of the computer ,the examination with no paper at all becomes the good assistant of the school more and more .Its advantage not only reflects on manpower but also reflect on the material resources,the function of Automatic score and score save in the examination with no paper at all will avoid the waste of resources effectively and raised the efficiency .The examination with no paper at all makes teachers free from setting theme and supervising the examination and correcting the paper and counting the achievement and transfer main energy to the creative work of reform in education ,make the modern education situation better .There really need to use and popularize the examination with no paper at all in the school .Main introduction to this text is systematic development environment , mentality of designing , main function , the securities of the key technology and software that originally of the examination with no paper at all.Key words: development environment; the mentality of designing; function; the securities计算机自四十年代诞生以来，经过五十年的发展历程，其应用领域已渗透到社会的各个方面，包括科学计算、信息处理、自动控制、辅助设计、办公自动化等。
课程设计题目：基于VB的考试系统的设计与实现目录摘要......................................... 错误!未定义书签。
Abstract ..................................... 错误!未定义书签。
第一章引言................................................ ２1．1 计算机等级考试（二级）.................................. ２1．2 考试系统采用的实现模式.................................. ２第二章考试系统采用的技术和运行平台........................ ３2．1 Visual Basic .NET...................................... ３2．2 SQL Server 2000........................................ ４2．3 Web服务.............................................. ４2．3．1 Web服务的概念...................................... ４2．3．2 Web服务的优点...................................... ５2．4 .NET对Web服务的支持................................... ５2．5 考试系统的运行平台..................................... ５2．5．1 硬件平台.......................................... ５2．5．2 软件平台.......................................... ５第三章考试系统的数据库设计、构成模块及特点................ ６3．1 考试系统的数据库设计 ................................... ６3．2 考试系统的构成模块..................................... ８3．2．1 题库管理模块....................................... ９3．2．2身份验证模块....................................... ９3．2．3各类试题模块....................................... ９3．2．4监考管理模块..................................... １０3．2．5阅卷模块........................................ １０3．2．6缺考统计模块..................................... １０3．3 考试系统的特点 ...................................... １１第四章考试系统实现的关键技术............................. １２4．1 数据库操作......................................... １２4．2 打乱序号算法 ....................................... １２4．3 文件的压缩与解压缩.................................. １３第五章总结与展望........................... 错误!未定义书签。
内容摘要本文主要从驾校考试管理系统的选题，需求分析而出发，根据现有的驾校系统对其进行功能模块设计。
系统实现方面，基于B/S架构，而且在开发技术方面使用了jsp使得其开发更为简化，以Tomcat作为服务器。
开发完成后对系统进行测试和条数。
关于数据库设计方面使用了作为关系型数据库的Mysql为其进行数据管理，主要开发工具是Myeclipse。
驾校考试管理系统包括了对于科一和科四的考试模拟，并对试题进行打分，也包括了题库的编辑。
让学生对于驾校的考试简单化，便捷化。
而为了在各驾校竞争中有明显的优势，本文研究了驾校理论考试学习系统，从而加快了驾校考试信息化建设的步伐。
关键词：驾校考试管理JA V A B/S JSPAbstractThis article mainly starts from the topic selection and demand analysis of the driving school exam management system, and designs the functional modules according to the existing driving school system. In terms of system implementation, it is based on B / S architecture, and the use of jsp in development technology makes its development more simplified, with Tomcat as the server. Test and count the system after the development is completed. Regarding database design, Mysql, which is a relational database, is used for data management. The main development tool is Myeclipse. The driving school exam management system includes the simulation of the exams of Section 1 and Section 4, and the scoring of the test questions, as well as the editing of the question bank. Let students simplify and facilitate the driving school test. In order to have a clear advantage in the competition of various driving schools, this article studies the driving school theory examination learning system, thus speeding up the pace of driving school examination information construction.Key words:Driving school examination administration JA V A B/S JSP目录第一章绪论 (1)1.1选题的目的及意义 (1)1.2国内外现状研究 (1)1.3研究目的 (1)第二章设计技术与开发环境 (3)2.1相关技术介绍 (3)2.1.1JSP简介 (3)2.1.2B/S架构分析 (3)2.1.3Mysql简介 (3)2.2开发环境介绍 (4)2.2.1Myeclipse简介 (4)2.2.2Tomcat简介 (4)第三章可行性分析与需求分析 (5)3.1可行性分析 (5)3.1.1技术可行性 (5)3.1.2 时间可行性 (5)3.1.3 运行可行性 (5)3.1.4经济可行性 (5)3.2需求分析 (5)3.2.1需求背景分析 (5)3.2.2 运行需求分析 (6)3.2.3 性能需求 (6)3.2.4 可靠性需求 (6)3.2.5功能性需求分析 (6)第四章数据库分析 (8)4.1数据库概念结构设计 (8)4.2逻辑结构设计 (8)4.3物理结构设计 (9)第五章系统设计与实现 (12)5.1系统层次模块 (12)5.2系统流程图 (12)5.3功能模块设计 (13)5.3.1用户注册模块 (13)5.3.2用户与管理员登录模块 (14)5.3.3用户信息修改 (16)5.3.4用户信息删除与停用与查询 (17)5.3.5公告管理 (18)5.3.6 考试试卷管理 (19)5.3.7 考试试题管理 (21)5.3.8 考试成绩管理 (22)5.3.9 考试试题答题 (23)5.4系统代码实现 (24)第六章系统测试 (25)6.1程序调试 (25)6.2程序测试 (25)6.3功能测试 (25)6.4测试总结 (27)第七章第总结 (28)参考文献 (29)致谢........................................................................... 错误!未定义书签。
基于VB和Access的考试系统设计摘要随着信息技术的发展和网络的优化，计算机的运用变得更加多样化，而且对于现代教育来说，传统的考试模式已经不再适应，计算机的无纸化考试将会成为未来考试的主导。
这种方式不仅方便、高效，而且保密性强，解决了评分时人为因素的影响。
本设计运用了Visual Basic 6.0和Access数据库对《Matlab和系统仿真》一课进行了无纸化考试的设计与实现，实现了老师的教考分离，解决了人工出题的不可重复性。
该系统实现了客观题的随机抽取和自动组卷功能，并且具有考生登录时的身份验证，答题结束时的答案提交，答题结果显示和自动评分以及自动计时功能。
由于系统采用了Access数据库，所以方便了数据库的更新、管理和维护。
该设计保证了考试的客观性、实时性和公正性，而且降低了老师在出题和阅卷时的工作量。
关键词：考试系统随机组卷自动评分数据库装订线Design of Examination System Based on VB and AccessABSTRACTWith the development of information technology and network optimization, the application of computers is more varied. For modern education, Traditional exams is no longer suitable , the paperless examination of computer will led the future examinations, this approach is not only convenient, efficient ,but also confidential in nature, and it will solve the problems of human factors. This design uses Visual Basic 6.0 and Access database right, design paperless examination of Matlab system and Simulation and the separation of education and examination, it solves the problem of non-repeatability. The system achieves the selection of objective title randomly and automatic Test Paper, it also has the candidates login authentication, Hand over the answer at the end of examination, and the answer showed, automatic scoring and the automatic timing. As the system uses the Access database, so it facilitates the updating of the database, management and maintenance. The design ensures the examination to be objectivity, impartiality and real-time, lowers the t eacher’s workload in making out questions and scoring.Keywords:exam system forming examination papers in random automotive grading database目录一引言 (1)1.1 课题研究的背景及意义 (1)1.2 考试系统设计的目标和指导思想 (1)二系统开发的关键技术 (2)2.1 Visual Basic编程语言及特点 (2)2.1.1 Visual Basic简介 (2)2.1.2 Visual Basic特点 (2)2.2 Access数据库 (3)三考试系统的开发与设计 (5)3.1 考试系统组成 (5)3.2 考生登录模块设计 (5)3.3 随机抽题组卷设计 (7)3.3.1随机抽题 (7)3.3.2自动组卷 (8)3.3.3试卷删除功能 (9)3.4 考试系统的答题界面 (9)3.5 交卷功能的设计 (10)3.6 自动评分功能 (10)3.7 计时功能实现 (10)3.8 Access数据库的设计 (10)3.8.1数据库设计 (10)3.8.2数据库的访问 (12)3.8.3数据库的管理和维护 (12)四结束语 (13)谢辞 (14)参考文献 (15)附录 (16)一引言1.1 课题研究的背景及意义本课题主要应用于无纸化考试。
毕业设计（论文）基于jsp（java）驾校考试系统的设计和开发姓名系别、专业导师姓名、职称完成时间摘要在网络技术逐渐渗入社会生活各个层面的今天，传统的考试方式也面临着变革，而网上考试则是网络技术一个很重要的发展方向。
网上考试一方面可以突破时空的界限；另一方面考生在自己熟悉的环境中考试也会更自在，能更好地发挥自己的真实水平，网络考试方式将是以后考试发展的趋势。
本论文主要阐述了基于Web技术的驾校考试系统的设计与实现。
论文首先对系统设计所涉及的相关技术进行逐一介绍，并主要对该系统的设计概要以及系统的设计方法及功能也作了详尽说明，系统按照软件工程的思想进行系统设计，在需求分析的基础进行功能模块划分，然后对各个模块进行分析和详细设计，并用相关技术实现。
系统采用BS开发模式，以MyEclipse6.0作为开发平台，java语言为主要编程语言，结合JSP、JavaScript、Html、SQL等语言，以Tomcat 为服务器和SQL Server 2000为后台数据库。
最终开发一个拥有自动组卷、自动判卷、信息管理的驾校考试系统。
整个系统层次结构简单，操作容易，并具备一定的安全性。
考生借助此系统，可以随时随地的进行考试，同时老师使用该系统能更高效、便捷的组织在线考试。
关键词：驾校考试系统 BS开发模式 JSP目录第一章前言 ............................................................1.1开发背景及意义.......................................................1.2论文研究目标.........................................................第二章驾校考试系统需求分析.............................................2.1需求概述.............................................................2.2系统开发目标.........................................................2.3功能需求.............................................................2.4性能需求.............................................................2.5开发方案的比较与选择.................................................2.6系统开发环境及工具...................................................2.6.1开发运行环境.......................................................2.6.2开发工具的选取.....................................................第三章驾校考试系统的设计...............................................3.1系统数据流程描述.....................................................3.2系统总体结构设计 (1)3.3功能模块设计 (1)3.3.1考试模块 (1)3.3.2查询成绩模块 (1)3.3.3试卷管理模块 (1)3.3.4信息管理模块 (1)3.3.5判卷模块 (1)第四章系统后台数据库设计 (1)4.1数据库连接 (1)4.1.1配置SQL server 2000 (1)4.1.2连接数据库 (1)4.2数据库设计概述 (1)4.2.1数据表实现 (1)4.2.2系统总体E-R图 (1)第五章驾校考试系统的实现 (2)5.1考试模块 (2)5.2成绩查询模块 (2)5.3试卷管理模块 (2)5.4信息管理模块 (2)5.5组卷模块 (3)第六章系统运行与测试 (3)6.1测试概述 (3)6.2系统部分单元测试方法 (3)6.3测试截图 (3)6.4测试总结 (3)结论38谢辞39参考文献40第一章前言1.1 开发背景及意义在网络技术逐渐渗入社会生活各个层面的今天，传统的考试方式也面临着变革，而网上考试则是一个很重要的方向。
基于的在线考试系统设计与实现1. 背景介绍随着科技的不断发展，电子化考试已经逐渐成为各大院校、机构的常态。
近年来，人工考试发生的不少错误和弊端更是令人深思。
基于此，我设计了一个基于的在线考试系统来解决这些问题。
该系统可以提高考试的精度和效率，而且还具有随时随地参加考试的便利性和灵活性。
2. 设计思路2.1 系统目标该系统作为一种在线考试系统，旨在提供精准、高效、便捷的考试管理服务。
其主要目标是：- 管理考试：包括题库、试卷、成绩、考生等相关信息。
- 组织考试：包括制定考试计划、设置考试规则等相关事项。
- 实施考试：包括在线考试、考试监管、成绩统计等相关活动。
2.2 系统架构该系统采用Client/Server架构，由客户端(C#开发)和服务端(开发)两部分组成。
- 客户端功能：实现考生用户的登录、考试、查看成绩等操作。
- 服务端功能：①提供考题、考卷等资源的管理；②实现考试规则、成绩统计等操作；③负责和数据库的交互，实现数据的持久化。
2.3 关键功能该系统的关键功能包括：- 考试规则设置：设置考试时间、考试模式、试题数量等考试细节。
- 考试试题管理：添加、编辑、删除考试试题。
- 考卷制作：选取题库中的题目生成考卷，排除重复题目，并且保证满足考试规则。
- 在线考试：接受用户考试答案，在考试时间内限制考生答题。
- 考试分数统计：自动统计每个考生考试的成绩、以及各项得分情况。
3 实现过程3.1 系统架构本系统使用三层架构，将系统划分为表示层、业务逻辑层和数据访问层。
- 表示层：实现用户的输入和输出，展示给用户操作结果。
- 业务逻辑层：负责实现各种业务逻辑，处理代表数据，提供给表示层详细操作指南。
- 数据访问层：封装数据库操作，将数据持久化。
3.2 数据库设计这个考试系统拥有以下几个数据表：Student、Question、Paper、Score。
分别存储考生、试题、试卷、成绩等相关信息。
其中：- Student表保存考生信息，包括考生id、姓名、密码；- Question表保存所有的考试题目，包括题目id、题型、题目描述、选项、答案；- Paper表保存所有的考试试卷，包括试卷id、试卷名称、试卷包含的问题id字符串等；- Score表保存考生考试成绩，包括成绩id、考生id、试卷id、开始答题时间、结束答题时间和考试成绩。
《机动车驾驶员考试系统的设计与实现》文献综述学生：***指导教师：***数学与信息科学学院计算机科学与技术系摘要：论文从计算机基础教育情况的实际情况出发，经过详细的系统调查而开发出了一个较为实用的计算机模拟考试系统。
本文从系统的开发意义及开发工具和相关技术，试题库系统需求分析，UML系统建模，数据库的设计实现，系统程序实现，系统调试与测试，系统的功能作用以及开发总结等方面介绍了计算机基础模拟考试系统的分析和开发的过程。
全文共十一部分，特别是对于抽题的设计和实现进行了详细的介绍。
本系统模拟人工出卷，采用一定算法从试题库中抽取符合要求的试题组成试卷。
并且还具有系统添加、修改/删除、录入题目等功能。
本系统的前端开发工具是面向对象程序设计语言Visual Basic6.0后台数据库采用的是Microsoft Access。
开发方法采用面向对象法和原型法相结合，在实现功能，满足需要的前提下，尽量做到操作简便、界面友好、使用方便。
关键词：机动车驾驶员模拟考试系统；管理信息；系统设计1.前言随着信息技术的飞速发展，社会信息化程度的不断提高，特别是进入网络信息化时代，更应使我们的工作做到快捷方便，更好地应用现代技术为各联系点服务，不断提高工作效率。
机动车驾驶员模拟考试系统的主要目标是支持单位的考试管理与事务处理业务，减轻管理人员的劳动强度，辅助考试管理，辅助高层领导决策，提高单位的工作效率，从而使企业能够以较少的投入获得更好的社会效益与经济效益。
机动驾驶员模拟考试系统实现现代化建设的基础工程，是提高企业的管理水平、业务的运转效率和服务质量的必要手段。
而且还可以用于对快要参加考试的人进行自我检查。
2.驾驶员考试系统的基本理论和技术驾驶员考试系统主要基于数据库原理、软件工程、VB设计等课程的基本原理。
软件在Windows2000,Windows XP等操作系统平台上运行，数据库服务器为Access数据库，开发工具选用vb。
基于JA V A的驾驶员理论考试系统摘要随着社会的发展、科学的进步，计算机及其相关的技术也发生了日新月异的变化。
例如能更好的对网络、复杂数据的信息等新的特性支持的网络化的应用程序逐渐的替代了仅仅是封闭的、简单的等传统的单机的应用程序。
这种替换使应用程序的特点得到了最大程度的发挥，方便了人们的生活、简化了复杂的流程、提高了事务处理的效率。
在大力提倡智慧城市建设的今天，信息化的网络应用大有作为。
本系统就是将传统的驾驶员理论考试与IT技术相结合，方便使用户的使用，提高管理员的效率。
本系统是一套较为完整的驾驶员理论考试系统，开发语言为JA V A，系统数据库采用MySql数据库。
论文主要展示本系统的系统分析、系统设计、系统实现以及系统测试，比较完整地、系统地描绘系统的构建过程。
关键词: 计算机；系统；信息ABSTRACTWith the development of society, the progress of science, computers and related technology has undergone rapid changes.Such as better network, complex data information and other new features supported by the network application gradually replaced just closed, simple traditional stand-alone applications.This alternative allows the characteristics of the application has been the greatest degree of play to facilitate people's lives, simplify complex processes and improve the efficiency of the transaction.Vigorously promote the construction of smart city today, information network applications much to offer.This system is the traditional driver theory test and IT technology, allowing users easy to use, improve administrator productivity.This system is a more complete driver theory test system, development language JA V A, the system database using MySql database.Paper display system analysis of the system, system design, system implementation and system testing, more completely and systematically describe the build process of the system.KEY WORDS: computer, system, information第1章绪论计算机已经从科研院所，大中型院校，走进了平常百姓家，Internet遍及世界各地，在网上能够用计算机进行文字草拟、修改、打印清样、文件登陆、检索、综合统计、分类、数据库管理等，用科学的方法将无序的信息进行加工整理，组成有序的、方便存储和利用的艺术科研共享信息已经成为流行[1]。
驾校在线模拟考试系统的设计与实现驾驶理论；考试模拟系统；sqlserver2000abstractwiththedevelopmentofmoderninternetandwideapllicationofinformatio ntechnology,computerhasbeendeeplyusedineveryfileds.theonlinetestsyste miswidelyappliedthanksaboutitsconvenienceandspeediness.drivingtheoryt estisapracitcalapplicationofonlinetest.andnowburdensomeworksuchasthep repatation,printing,checkinghasbeendonebycomputer.thissystemhassimulatingfunctionwhichachievesusersmanagement,test papersmanagement,randomtestmakingandautomaticchecking.thissystemjundingpage dgesuser’srightwhenlogginginandthendirectstheuserstocorrespos.afterloging,accordingtotheroleofuser,thesystemrandomlychoosesoneseto fexamminationpaperandthestudentfinishthispaperinlimitedtime.thesystem finallyautomaticallycheckthetestpaperandpresenttheresult.thusitprovidesr easonableconvenienceforbothstudentsandteacherswhocheckthepaper.keywords:drivingtheory;testsimulatingsystem;sqlserver2000开发目的本系统采用b/s模式设计,开发目的除了方便车辆管理所的工作人员.同时把驾驶理论所有试题保存到数据库,通过互联网方便地进行模拟考试,还能让学车的学员对交通规则和法律知识有更多的了解.开发环境本系统是在windowsxp操作系统下,使用2003作为开发工具进行开发的.数据库使用的是sqlserver2000.系统功能设计根据驾校理论考试的逻辑划分,本系统一共有六个子系统,分别是用户登录和注册,用户角色管理,用户管理,试题管理,题库管理,在线答题.其功能结构图如图1所示.用户登录和注册(1)根据用户所属的不同角色显示不同的操作页面.考生登录时,显示生成试卷等待页面和在线答题页面；系统管理登录时,显示系统维护页面；管理员登录则显示题库管理页面.(2)新用户注册,包括考生和管理员的注册.用户角色管理角色管理主要是给注册的用户分配角色,即修改用户的角色,删除用户的角色.用户管理添加用户,修改用户,删除用户.试题管理(1)试题类别管理,主要是实现试题类别的添加、修改试题类别、删除试题类别、和试题的类别排序功能.(2)试题图片管理,主要实现试题的图片添加,删除和修改等功能(3)考试试题管理,主要实现试题的添加、修改、删除功能.(4)试题答案管理,主要实现试题答案的添加、修改、删除功能.题库管理题库管理主要是在系统中构造试卷,即试题的每一种题型有多少题,添加试卷、及删除试卷和修改试卷功能.在线答题(1)动态随机生成试卷,使用随机函数动态地从题库中取得整套试卷和题目,每次生成的试卷是不相同的.(2)显示出整套试卷,依次答题,系统自动判断该题是否正确.(3)最后显示该考生的考试成绩.目录12000字1引言12系统概述12.1开发目的12.2开发环境12.3硬件需求13系统总体设计23.1系统功能设计23.2系统功能模块划分34数据库设计44．1总体设计44．2数据库表设计44．3表关系设计65系统详细设计75．1系统通用类设计7 5．1．1基本通用类设计7 5．1．2应用数据通用类设计7 5．1．3数据库通用类设计8 5．2用户登录和新用户注册8 5．2．1用户界面设计8 5．2．2用户登录85．2．3用户注册95．3用户及其权限管理9 5．3．1用户管理95．3．2用户角色管理10 5．3．3用户密码修改115．4题库设计115．4．1试题种类管理11 5．4．2试题图片管理12 5．4．3添加试题125．4．4修改试题135．4．5删除试题135．4．6试题答案设计135．4．7试题答案添加14 5．4．8试题答案修改14 5．4．9试题答案删除14 5．5试卷设计15 5．5．1添加新试卷15 5．5．2修改试卷15 5．5．3删除试卷15 5．6随机生成试卷16 5．7考生在线答题20 5．8自动阅卷225．9考试结果22结论23参考文献23致谢24声明25。
摘要随着生活水平的提高，学车的人越来越多，在竞争越来越激烈的今天，人们的生活工作节奏也在急剧加快。
电脑辅助教学作为一种新的教学方式正受到越来越多的重视。
不管是学校还是培训中心都大量使用电脑来辅助教学，使学校的教学工作规范高效率，最大限度地节约成本。
在此，我将建立一个典型的人性化设计的驾驶员考试系统，讲述如何采用电脑作为一种教学工具来提高我们的教学效率、降低教学成本。
驾驶员考试系统具有许多功能，具体包括：打开考试设置模块，它包括数据库维护，考试范围设置，考试参数设置；关闭考试设置模块，它包括模拟考试，关于我们，系统帮助，退出系统等，通过ADO来访问数据库。
该系统可以对参加考试的人员进行知识测试。
软件界面友好美观，且有详细的帮助信息，方便用户使用，该系统还可以自动判断答案的对错，统计成绩，减轻考试人员压力，提高工作效率。
系统开发过程遵循调查研究、可行性分析、需求分析、系统设计和系统实施、测试六个主要阶段来对系统进行开发。
在开发工具的选择上，主要选用Delphi7.0作为前台开发工具，选用SQL Server 2000作为后台数据库，从而保证了数据的完整性与一致性。
论文主要从可行性分析、需求分析、系统设计、系统实施与测试等几个方面对驾驶员考试系统进行介绍。
关键词：考试系统；Delphi；SQL Server；ADOAbstractLearn the person of the car along with the exaltation of the living level more and more, Be competing more and more vigorous today, people of living work rhythm also in the nasty play speed.The CAI conduct and actions a kind of new teaching method is be subjected to value more and more.Ignore is a school or a training centers are all a great deal of to use a computer to come to extended education, make the teaching of the school work the norm is high-efficiency, economizing cost with maximum limit.Here, I examine the pilot who build up a humanization of typical model to design to system, relate how adopt the computer conduct and actions a kind of teaching tool to raise our teaching efficiency and lower teaching cost.The pilot examines system to have multi-function, concretely include:Open the examination constitution mold piece, it includes the database maintenance, examining the scope constitution, the examination parameter constitution;Close the examination constitution mold piece, it includes simulated test, concerning us, the system help, withdraw system etc.. Come to visit to ask a database through an ADO.That system can carry on a knowledge test towards take examinations of personnel.The software interface amity beauty, and have a detailed help information, the convenient customer usage, that system can also judge answer automatically of to wrong, statistics result, ease examination personnel's pressure, raise a work efficiency.The system development process follows to investigate the research,viability assessment,need analysis,the system design and the system implement and tests six main stages to come to carry on a development to the system.Mainly choose to use Delphi7 in developping the choice of the tool.0 Be the stage development tool, choose to use the SQL Server 2000 Be the backstage database, promised the integrity and the consistency of the data thus.Thesis mainly a few aspects such as implement and test etc. examine system to carry on introduction to the pilot from the viability assessment,the need analysis,the system design,system..Key words: Examines system; Delphi;SQL Server; ADO目录第1章绪论 (1)1.1 系统的开发背景 (1)1.2 系统开发的必要性 (5)第2章可行性分析 (6)2.1 技术可行性 (6)2.2 经济可行性 (6)2.3 操作可行性 (7)2.4运行环境可行性 (7)第3章需求分析 (8)3.1 现状的分析 (8)3.2 数据需求 (9)3.3数据字典 (9)3.4业务流程 (10)第4章系统总体设计 (11)4.1模块设计 (11)4.2数据库设计 (12)4.2.1概念设计 (13)4.2.2逻辑设计 (15)4.2.3物理设计 (21)第5章系统详细设计 (22)5.1界面设计 (22)5.1.1主窗体设计 (22)5.1.2数据模块设计 (24)5.1.3数据库维护模块设计 (25)5.1.4考试参数模块设计 (27)5.1.5考试范围设置模块设计 (29)5.1.6模拟考试模块设计 (30)第6章系统测试 (34)6.1 软件测试概述 (34)6.2 测试的步骤 (35)6.3系统的具体测试 (36)第7章结论 (37)参考文献 (38)致谢 (39)附录 (40)第1章绪论1.1系统的开发背景改革开放，市场经济，人、财、物的大流动。
本科毕业设计（论文）代码题目：基于VB的驾驶员理论考试模拟系统的设计与实现学生姓名：张文江院（系）：计算机学院专业班级：计1201指导教师：韩建宁完成时间：2016年6月5日代码清单1.Modulel.basPublic Cn As New ADODB.ConnectionPublic UserID As String''用户账号Public UserName As String'用户姓名Public UserType As String''用户类型Public strTableName As String''表名Public mFso As New FileSystemObjectPublic ksKm As String'考试科目Public ksMk As String'模块Type KsDataksName As String'试卷名称ksTime As Integer'考试时间pdtSum As Integer'判断题总数pdtValue As Integer'判断每题分值pdtNdSum(2)As Integer'判断题各难度题数dstSum As Integer'单选题总数dstValue As Integer'单选题每题分值dstNdSum(2)As Integer'各难度题数End TypePublic ksInfo As KsData''考试数据Sub ConnectData()If Cn.State Then Cn.Close'Cn.ConnectionString="Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=驾驶员理论考试;Data Source=."Cn.ConnectionString="driver={sqlserver};server=WIN7U-20141007T;uid=sa;pwd=hcx112531;Database=驾驶员理论考试" Cn.OpenEnd SubSub LoadGrid(mfg As MSHFlexGrid,rstSql As String)Dim rst As New ADODB.Recordsetrst.Open rstSql,Cn,adOpenStatic,adLockReadOnlyWith mfg.Clear.Rows=2.Cols=rst.Fields.CountFor i=0To rst.Fields.Count-1.TextMatrix(0,i)=Trim(rst(i).Name).ColWidth(i)=(.Width-500)/.ColsNext iWhile Not rst.EOFFor i=0To rst.Fields.Count-1If Not IsNull(rst(i))Then.TextMatrix(.Rows-1,i)=Trim(rst(i)) Next i.Rows=.Rows+1rst.MoveNextWendEnd WithEnd Sub2.登陆提醒界面frmts.frmPrivate Sub Command1_Click()If Check1.Value=1ThenUnload MefrmLogin.ShowElseMsgBox"请在我已阅读上打勾!"End IfEnd SubPrivate Sub Command2_Click()EndEnd Sub3.登陆界面frmLogin.frmDim CountLogin As IntegerPrivate Sub Command1_Click()'登录If Trim(Text1.Text)=""Then MsgBox"用户账号不能为空":Exit SubIf Trim(Text2.Text)=""Then MsgBox"用户账号不能为空":Exit SubIf Trim(Combo1.Text)=""Then MsgBox"用户类型不能为空":Exit SubIf Trim(Text3.Text)=""Then MsgBox"密码不能为空":Exit SubDim rsLogin As New ADODB.RecordsetrsLogin.Open"select*from用户信息表where用户姓名='"&Text1.Text&"'and 用户账号='"&Text2.Text&"'and密码='"&Text3.Text&"'and权限='"& Combo1.Text&"'",Cn,adOpenStatic,adLockReadOnlyIf Not rsLogin.EOF ThenUserID=Text2.TextUserName=Text1.TextUserType=Combo1.TextIf Trim(Combo1.Text)="管理员"ThenfrmAdmin.ShowElsefrmKs.ShowEnd IfUnload MeElseCountLogin=CountLogin+1MsgBox"用户或密码错误!"If CountLogin>=3Then Unload MeEnd IfEnd SubPrivate Sub Command2_Click()EndEnd SubPrivate Sub Command3_Click()frmUserReg.Show1End SubPrivate Sub Form_Load()Call ConnectDataEnd SubPrivate Sub Label3_Click()End Sub4.考生注册界面frmUserReg.frmPrivate Sub Command1_Click()For i=0To3If Trim(Text1(i).Text)=""Then MsgBox"数据不全!":Exit SubNextIf Trim(Text1(2).Text)<>Trim(Text1(3).Text)Then MsgBox"密码不正确!":Exit SubDim rst As New ADODB.Recordsetrst.Open"select*from用户信息表where用户账号='"&Trim(Text1(1).Text)&"'", Cn,adOpenStatic,adLockOptimisticIf Not rst.EOF ThenMsgBox"此账号已存在!"Exit SubElserst.AddNewrst(0).Value=Trim(Text1(0).Text)rst(1).Value=Trim(Text1(1).Text)rst(2).Value=Trim(Text1(2).Text)rst(3).Value="考生"rst.UpdateMsgBox"新用户注册成功!"Unload MeEnd IfEnd SubPrivate Sub Command2_Click() Unload MeEnd Sub5.管理员界面frmAdmin.frm Private Sub Command1_Click() frmUser.Show1End SubPrivate Sub Command2_Click() frmpsd.Show1End SubPrivate Sub Command3_Click() frmfindCj.Show1End SubPrivate Sub Command4_Click() frmSetPaper.Show1End SubPrivate Sub Command5_Click()frmSt.Show1End SubPrivate Sub Command7_Click()EndEnd Sub6.用户管理界面frmUser.frmPrivate Sub Command1_Click()''添加用户For i=0To3If Trim(Combo1(i).Text)=""Then MsgBox"数据不全!":Exit SubNext iDim rstUser As New ADODB.RecordsetrstUser.Open"select*from用户信息表where用户账号='"&Combo1(1).Text&"'", Cn,adOpenStatic,adLockOptimisticIf Not rstUser.EOF ThenMsgBox"此用户名已存在,不能重复添加!":Exit SubElserstUser.AddNewrstUser(0).Value=Trim(Combo1(0).Text)rstUser(1).Value=Trim(Combo1(1).Text)rstUser(2).Value=Trim(Combo1(2).Text)rstUser(3).Value=Trim(Combo1(3).Text)rstUser.UpdateMsgBox"添加成功!"Call LoadGrid(MSHFlexGrid1,"select*from用户信息表")End IfEnd SubPrivate Sub Command2_Click()''删除用户For i=0To3If Trim(Combo1(i).Text)=""Then MsgBox"数据不全!":Exit SubNext iWith MSHFlexGrid1If Trim(.TextMatrix(.Row,1))<>""ThenIf MsgBox("真的删除吗?用户账号为:"&Trim(.TextMatrix(.Row,1)), vbYesNo)=vbNo Then Exit SubCn.Execute"delete from用户信息表where用户账号='"& Trim(.TextMatrix(.Row,1))&"'"Call LoadGrid(MSHFlexGrid1,"select*from用户信息表")ElseMsgBox"请选择用户!"End IfEnd WithEnd SubPrivate Sub Command3_Click()Unload MeEnd SubPrivate Sub Command4_Click()'修改For i=0To3If Trim(Combo1(i).Text)=""Then MsgBox"数据不全!":Exit SubNext iDim rstUser As New ADODB.RecordsetrstUser.Open"select*from用户信息表where用户账号='"&Combo1(1).Text&"'", Cn,adOpenStatic,adLockOptimisticIf Not rstUser.EOF ThenrstUser(0).Value=Trim(Combo1(0).Text)rstUser(1).Value=Trim(Combo1(1).Text)rstUser(2).Value=Trim(Combo1(2).Text)rstUser(3).Value=Trim(Combo1(3).Text)rstUser.UpdateMsgBox"修改成功!"Call LoadGrid(MSHFlexGrid1,"select*from用户信息表")ElseMsgBox"此用户账号不存在!":Exit SubEnd IfEnd SubPrivate Sub Form_Load()Call LoadGrid(MSHFlexGrid1,"select*from用户信息表")End SubPrivate Sub MSHFlexGrid1_Click()With MSHFlexGrid1For i=0To.Cols-1If Trim(.TextMatrix(.Row,3))=""ThenIf i<3Then Combo1(i).Text=Trim(.TextMatrix(.Row,i)) ElseCombo1(i).Text=Trim(.TextMatrix(.Row,i))End IfNextEnd WithEnd Sub7.密码管理界面frmpsd.frmPrivate Sub cmdExit_Click()Unload MeEnd SubPrivate Sub Command4_Click()'''密码修改On Error GoTo ErrIf Trim(Text13.Text)<>""And Trim(Text14.Text)<>""And Trim(Text15.Text)<>"" ThenIf Trim(Text14.Text)<>Trim(Text15.Text)ThenMsgBox"新密码不对!",,"提示"Exit SubElseDim rs1As New ADODB.RecordsetIf rs1.State Then rs1.Closers1.Open"select用户账号,密码from用户信息表where用户账号='"& UserID&"'",Cn,adOpenStatic,adLockOptimisticIf Not rs1.EOF ThenIf Not IsNull(rs1.Fields(1))ThenIf Trim(Text13.Text)<>Trim(rs1.Fields(1))ThenMsgBox"用户旧密码不对!",,"提示"Exit SubElsers1.Fields(1).Value=Trim(Text14.Text)rs1.UpdateMsgBox"操作已成功!",,"提示"Unload MeEnd IfEnd IfEnd IfEnd IfEnd IfExit SubErr:MsgBox Err.DescriptionEnd SubPrivate Sub Form_Load()Text1.Text=UserIDEnd Sub8.成绩查询界面frmfindCJ.frmPrivate Sub Command1_Click()Dim rst As New ADODB.RecordsetDim strSql As StringstrSql="select试卷名称,用户账号,用户姓名,成绩from考生成绩信息where成绩>0"If Trim(Text1.Text)<>""ThenstrSql=strSql&"and用户姓名='"&Trim(Text1.Text)&"'"End IfIf Trim(Text2.Text)<>""ThenstrSql=strSql&"and用户账号='"&Trim(Text2.Text)&"'"End IfIf Option1.Value=True ThenstrSql=strSql&"order by用户账号"ElsestrSql=strSql&"order by成绩desc"End IfCall LoadGrid(MSHFlexGrid1,strSql)End SubPrivate Sub Command2_Click()Unload MeEnd Sub9.试卷参数设置界面frmSetPaper.frmPrivate Sub Command1_Click()''保存Dim rst As New ADODB.Recordsetrst.Open"select*from试卷参数",Cn,adOpenStatic,adLockOptimisticIf rst.EOF Then rst.AddNewFor i=0To rst.Fields.Count-1rst(i).Value=Trim(Text1(i).Text)Nextrst.UpdateMsgBox"设置成功!"End SubPrivate Sub Command2_Click()Unload MeEnd SubPrivate Sub Form_Load()Dim rst As New ADODB.Recordsetrst.Open"select*from试卷参数",Cn,adOpenStatic,adLockReadOnlyIf Not rst.EOF ThenFor i=0To rst.Fields.Count-1If Not IsNull(rst(i))Then Text1(i).Text=Trim(rst(i))Next iEnd IfEnd SubPrivate Sub Text1_Change(Index As Integer)Text1(11).Text=Val(Text1(1).Text)+Val(Text1(6).Text)If Val(Text1(2).Text)>0Then Text2.Text=Val(Text1(1).Text)/Val(Text1(2).Text) If Val(Text1(7).Text)>0Then Text3.Text=Val(Text1(6).Text)/Val(Text1(7).Text) Text1(5).Text=Val(Text1(2).Text)-Val(Text1(3).Text)-Val(Text1(4).Text) Text1(10).Text=Val(Text1(7).Text)-Val(Text1(8).Text)-Val(Text1(9).Text) End Sub10.试题管理界面frmSt.frmPrivate Sub Combo1_Click()Combo2.ClearIf Trim(Combo1.Text)="科目"ThenCombo2.AddItem"科目一"Combo2.AddItem"科目四"ElseIf Trim(Combo1.Text)="模块"ThenCombo2.AddItem"道路交通安全法律法规和规章"Combo2.AddItem"道路交通信号"Combo2.AddItem"安全行车文明驾驶基础知识"Combo2.AddItem"机动车驾驶操作相关基础知识"Combo2.AddItem"安全行车常识"Combo2.AddItem"职业道德和文明驾驶常识"Combo2.AddItem"紧急情况下避险常识"ElseIf Trim(Combo1.Text)="难度"ThenCombo2.AddItem"适中"Combo2.AddItem"容易"Combo2.AddItem"难"ElseIf Trim(Combo1.Text)="试题类型"ThenCombo2.AddItem"单选题"Combo2.AddItem"判断题"End IfEnd SubPrivate Sub Command1_Click()If Trim(Combo1.Text)=""ThenCall LoadGrid(MSHFlexGrid1,"select*from试题信息")ElseIf Trim(Combo1.Text)="题号"ThenCall LoadGrid(MSHFlexGrid1,"select*from试题信息where题号="& Combo2.Text&"")ElseCall LoadGrid(MSHFlexGrid1,"select*from试题信息where"& Combo1.Text&"like'%"&Combo2.Text&"%'")End IfEnd SubPrivate Sub Command2_Click()frmStInfo.TemID=""frmStInfo.Show1Command1_ClickEnd SubPrivate Sub Command3_Click()If Trim(Label2.Caption)=""ThenMsgBox"请选择记录"Exit SubEnd IffrmStInfo.TemID=Trim(Label2.Caption)frmStInfo.Show1Command1_ClickEnd SubPrivate Sub Command4_Click()If Trim(Label2.Caption)=""ThenMsgBox"请选择记录"Exit SubEnd IfWith MSHFlexGrid1If MsgBox("真的删除记录吗？题号："&Label2.Caption,vbYesNo,"提示")=vbNo Then Exit SubCn.Execute"delete from试题信息where题号='"&Label2.Caption&"'" MsgBox"删除成功！"Label2.Caption=""End WithCommand1_ClickEnd SubPrivate Sub Command5_Click()Unload MeEnd SubPrivate Sub Form_Load()'ConnectDataCommand1_ClickEnd SubPrivate Sub MSHFlexGrid1_Click()With MSHFlexGrid1Label2.Caption=Trim(.TextMatrix(.Row,0))End WithEnd Sub11.试题管理界面frmStInfo.frmPublic TemID As StringDim isImg As BooleanPrivate Sub Combo1_Click(Index As Integer)If Index=4ThenIf Trim(Combo1(Index).Text)="判断题"ThenPicture2.Visible=TruePicture1.Visible=FalseElsePicture1.Visible=TruePicture2.Visible=FalseEnd IfEnd IfIf Index=1ThenIf Trim(Combo1(1).Text)="科目一"ThenCombo1(2).ClearCombo1(2).AddItem"道路交通安全法律法规和规章"Combo1(2).AddItem"道路交通信号"Combo1(2).AddItem"安全行车文明驾驶基础知识"Combo1(2).AddItem"机动车驾驶操作相关基础知识"ElseCombo1(2).ClearCombo1(2).AddItem"安全行车常识"Combo1(2).AddItem"职业道德和文明驾驶常识"Combo1(2).AddItem"紧急情况下避险常识"End IfEnd IfEnd SubPrivate Sub Command1_Click()For i=0To4If Trim(Combo1(i).Text)=""Then MsgBox Label1(i).Caption&"不能为空！":Exit SubNext iIf Trim(Text1(5).Text)=""Then MsgBox"试题内容不能为空!":Exit SubIf Trim(Text1(10).Text)=""Then MsgBox"答案不能为空":Exit SubDim rst As New ADODB.RecordsetIf rst.State Then rst.Closerst.Open"select*from试题信息where题号='"&Trim(Combo1(0).Text)&"'",Cn, adOpenStatic,adLockOptimisticIf rst.EOF Then rst.AddNewFor i=0To4rst(i).Value=Trim(Combo1(i).Text)Next iIf Trim(Combo1(4).Text)="判断题"Thenrst(5).Value=Trim(Text1(5).Text)rst(10).Value=Trim(Text1(10).Text)ElseFor i=5To10rst(i).Value=Trim(Text1(i).Text)NextIf isImg=True ThenDim StmPic As ADODB.Stream'保存你所选择的文件Set StmPic=New ADODB.StreamStmPic.Type=adTypeBinary'指定流是二进制类型StmPic.Open'将数据获取到Stream对象中StmPic.LoadFromFile(App.Path&"\temp.jpg")'将选择的文件加载到打开的StmPic中rst.Fields("图片").Value=StmPic.Read'从StmPic对象中读取数据StmPic.CloseEnd Ifrst.UpdateMsgBox"操作成功！",,"提示"Unload MeEnd SubPrivate Sub Command2_Click()Unload MeEnd SubPrivate Sub Command3_Click()On Error GoTo ErrCommonDialog1.ShowOpenmFso.CopyFile CommonDialog1.FileName,App.Path&"\temp.jpg",TrueImage1.Picture=LoadPicture(App.Path&"\temp.jpg")Picture3.RefreshPicture3.PaintPicture Image1.Picture,Picture3.ScaleTop, Picture3.ScaleLeft,Picture3.ScaleWidth,Picture3.ScaleHeight,0,0,Image1.Width, Image1.HeightisImg=TrueExit SubisImg=FalsePicture1.ClsEnd SubPrivate Sub Form_Load()Dim rst As New ADODB.RecordsetisImg=FalseIf TemID=""ThenCombo1(0).Text="1"If rst.State Then rst.Closerst.Open"select max(题号)from试题信息",Cn,adOpenStatic,adLockReadOnly If Not rst.EOF Then If Not IsNull(rst(0))Then Combo1(0).Text=Val(rst(0))+1 ElseCombo1(0).Text=TemIDCombo1(0).Locked=TrueIf rst.State Then rst.Closerst.Open"select*from试题信息where题号='"&TemID&"'",Cn, adOpenStatic,adLockOptimisticIf Not rst.EOF ThenFor i=0To4Combo1(i).Text=Trim(rst(i))Next iIf Trim(Combo1(4).Text)="判断题"ThenText1(5).Text=Trim(rst(5))Text1(10).Text=Trim(rst(10))ElseFor i=5To10Text1(i).Text=Trim(rst(i))NextEnd IfIf Not IsNull(rst!图片)ThenDim StmPic As ADODB.StreamSet StmPic=New ADODB.StreamWith StmPic.Type=adTypeBinary.Open.Write rst.Fields("图片")'写入数据库中的数据至Stream中.SaveToFile App.Path&"\temp.jpg",adSaveCreateOverWrite '将Stream中数据写入临时文件中.CloseisImg=TrueImage1.Picture=LoadPicture(App.Path&"\temp.jpg")Picture3.RefreshPicture3.PaintPicture Image1.Picture,Picture3.ScaleTop, Picture3.ScaleLeft,Picture3.ScaleWidth,Picture3.ScaleHeight,0,0,Image1.Width, Image1.HeightEnd WithEnd IfEnd IfEnd IfEnd SubPrivate Sub Option1_Click(Index As Integer)Text1(10).Text=Trim(Label1(Index).Caption)End SubPrivate Sub Option2_Click(Index As Integer)Text1(10).Text=Trim(Option2(Index).Caption)End Sub12.训练界面frmKs.frmPrivate Sub moduleTypeChoose()''选择考试类型For i=0To8If Option1(i).Value=True ThenSelect Case iCase0,1ksKm=Trim(Option1(i).Caption)ksMk=""Case2,3,4,5ksKm="科目一"ksMk=Trim(Option1(i).Caption)Case6,7,8ksKm="科目四"ksMk=Trim(Option1(i).Caption)End SelectEnd IfNextEnd SubPrivate Sub Command1_Click()''考试Call moduleTypeChoose'生成试题Call ksCsIf LoadSt=False Then MsgBox"试题不够!":Exit SubfrmTest.Show1End SubPublic Function LoadSt()As Boolean'加载试题Dim rst As New ADODB.RecordsetDim strSql As StringDim Nd(2)As StringNd(0)="难"Nd(1)="适中"Nd(2)="容易"LoadSt=TrueIf rst.State Then rst.Closerst.Open"select*from考生考试信息where用户账号='"&UserID&"'",Cn, adOpenStatic,adLockReadOnlyIf Not rst.EOF ThenIf MsgBox("你已经考试过,是否重新考试?",vbYesNo)=vbNo ThenLoadSt=FalseExit FunctionEnd IfEnd IfCn.Execute"delete from考生考试信息where用户账号='"&UserID&"'"Cn.Execute"delete from考生成绩信息where用户账号='"&UserID&"'"If ksMk=""Then'科目For i=2To0Step-1strSql="select top"&ksInfo.pdtNdSum(i)&"*from试题信息where科目='"&ksKm&"'and试题类型='判断题'and难度='"&Nd(i)&"'order by newid()"If rst.State Then rst.Closerst.Open strSql,Cn,adOpenStatic,adLockReadOnlyWhile Not rst.EOFCn.Execute"insert into考生考试信息(用户账号,用户姓名,试卷名称,题号)values('"&UserID&"','"&UserName&"','"&ksInfo.ksName&"','"&Val(rst!题号) &"')"rst.MoveNextWendrst.CloseNextFor i=2To0Step-1strSql="select top"&ksInfo.dstNdSum(i)&"*from试题信息where科目='"&ksKm&"'and试题类型='单选题'and难度='"&Nd(i)&"'order by newid()"If rst.State Then rst.Closerst.Open strSql,Cn,adOpenStatic,adLockReadOnlyWhile Not rst.EOFCn.Execute"insert into考生考试信息(用户账号,用户姓名,试卷名称,题号)values('"&UserID&"','"&UserName&"','"&ksInfo.ksName&"','"&Val(rst!题号) &"')"rst.MoveNextWendrst.CloseNextElse'模块For i=2To0Step-1strSql="select top"&ksInfo.pdtNdSum(i)&"*from试题信息where模块='"&ksMk&"'and试题类型='判断题'and难度='"&Nd(i)&"'order by newid()"If rst.State Then rst.Closerst.Open strSql,Cn,adOpenStatic,adLockReadOnlyWhile Not rst.EOFCn.Execute"insert into考生考试信息(用户账号,用户姓名,试卷名称,题号)values('"&UserID&"','"&UserName&"','"&ksInfo.ksName&"','"&Val(rst!题号) &"')"rst.MoveNextWendrst.CloseNextFor i=2To0Step-1strSql="select top"&ksInfo.dstNdSum(i)&"*from试题信息where模块='"&ksMk&"'and试题类型='单选题'and难度='"&Nd(i)&"'order by newid()"If rst.State Then rst.Closerst.Open strSql,Cn,adOpenStatic,adLockReadOnlyWhile Not rst.EOFCn.Execute"insert into考生考试信息(用户账号,用户姓名,试卷名称,题号)values('"&UserID&"','"&UserName&"','"&ksInfo.ksName&"','"&Val(rst!题号) &"')"rst.MoveNextWendrst.CloseNextEnd IfEnd FunctionPublic Sub ksCs()'考试参数Dim rst As New ADODB.RecordsetIf rst.State Then rst.Closerst.Open"select*from试卷参数",Cn,adOpenStatic,adLockReadOnlyIf Not rst.EOF ThenksInfo.ksName=Trim(rst(0))ksInfo.ksTime=Trim(rst!考试时间)ksInfo.pdtSum=Trim(rst!判断题题数)If Val(rst!判断题题数)>0Then ksInfo.pdtValue=Val(rst!判断题总分)/Val(rst!判断题题数)ksInfo.pdtNdSum(0)=Val(rst!判断题难)ksInfo.pdtNdSum(1)=Val(rst!判断题适中)ksInfo.pdtNdSum(2)=Val(rst!判断题容易)ksInfo.dstSum=Trim(rst!单选题题数)If Val(rst!单选题题数)>0Then ksInfo.dstValue=Val(rst!单选题总分)/Val(rst!单选题题数)ksInfo.dstNdSum(0)=Val(rst!单选题难)ksInfo.dstNdSum(1)=Val(rst!单选题适中)ksInfo.dstNdSum(2)=Val(rst!单选题容易)ElseMsgBox"无试卷参数,请设置!"Exit SubEnd IfEnd SubPrivate Sub Command2_Click()'成绩查询Dim rst As New ADODB.Recordsetrst.Open"select成绩from考生成绩信息where用户账号='"&UserID&"'",Cn, adOpenStatic,adLockReadOnlyIf Not rst.EOF ThenIf Not IsNull(rst(0))Then MsgBox"你的成绩为:"&Trim(rst(0))End IfEnd SubPrivate Sub Command3_Click()''错题查看frmfindCt.Show1End SubPrivate Sub Command4_Click()Unload MeEnd Sub''Private Sub Form_Load()''UserID="1001"''UserName="张会"'Call ConnectData'End SubPrivate Sub Command5_Click()frmErrPractise.Show1End SubPrivate Sub Command6_Click()Call moduleTypeChoosefrmOrderPractise.Show1End Sub13.模拟考试界面frmTest.frmDim rs1As New ADODB.RecordsetDim nTime As IntegerDim SyTime As IntegerPrivate Sub Command1_Click()'提交''rs1.MoveFirstWhile Not rs1.EOFDim titleID As IntegerDim titleAnswer As StringIf Not(IsNull(rs1(6))Or IsNull(rs1(5)))ThentitleID=Val(rs1(4))titleAnswer=Trim(rs1(5))Dim rsErr As New ADODB.RecordsetIf rsErr.State Then rsErr.ClosersErr.Open"select*from考生错题表where用户账号='"&UserID&"'and 题号='"&titleID&"'",Cn,adOpenStatic,adLockReadOnlyIf Val(rs1(6))=0Then'错误If rsErr.EOF ThenCn.Execute"insert into考生错题表(用户账号,用户姓名,题号,用户答案)values('"&UserID&"','"&UserName&"','"&titleID&"','"&titleAnswer&"')"ElseCn.Execute"update考生错题表set用户答案='"&titleAnswer&"' where用户账号='"&UserID&"'and题号='"&titleID&"'"End IfElse'正确If Not rsErr.EOF ThenCn.Execute"delete from考生错题表where用户账号='"&UserID &"'and题号='"&titleID&"'"End IfEnd IfEnd Ifrs1.MoveNextWendDim rst As New ADODB.RecordsetDim nCj As Integerrst.Open"select sum(得分)from考生考试信息where用户账号='"&UserID&"'",Cn, adOpenStatic,adLockReadOnlyIf Not rst.EOF ThenCn.Execute"delete from考生成绩信息where用户账号='"&UserID&"'"If Not IsNull(rst(0))Then nCj=Trim(rst(0))End IfIf rst.State Then rst.Closerst.Open"select*from考生成绩信息where用户账号='"&UserID&"'",Cn, adOpenStatic,adLockOptimisticrst.AddNewrst(1).Value=Format(Now,"yyyy-MM-dd hh:mm:ss") rst(2).Value=ksInfo.ksNamerst(3).Value=UserIDrst(4).Value=UserNamerst(5).Value=nCjrst.UpdateMsgBox"此次考生成绩为"&nCjUnload MeEnd SubPrivate Sub Command2_Click()''提交If Trim(Text1(5).Text)=""ThenMsgBox"无答案,不能提交!"Exit SubElseIf Trim(Text1(5).Text)=Trim(Text4.Text)Then rs1!用户答案=Trim(Text1(5).Text)If Trim(Text3.Text)="单选题"Thenrs1!得分=ksInfo.pdtValueElsers1!得分=ksInfo.dstValueEnd IfElsers1!用户答案=Trim(Text1(5).Text)rs1!得分=0End IfCommand5_ClickEnd IfEnd SubPrivate Sub Command3_Click()'<<< rs1.MoveFirstCall loadDataEnd SubPrivate Sub Command4_Click()'< rs1.MovePreviousIf rs1.BOF ThenMsgBox"已到第1题!"rs1.MoveFirstEnd IfCall loadDataEnd SubPrivate Sub Command5_Click()'> rs1.MoveNextIf rs1.EOF ThenMsgBox"已到最后1题!"rs1.MoveLastEnd IfCall loadDataEnd SubPrivate Sub Command6_Click()'>>> rs1.MoveLastCall loadDataEnd SubPrivate Sub Command7_Click() Unload MeEnd SubPrivate Sub Form_Load()'text1(nTime=0SyTime=ksInfo.ksTime-1Text1(1).Text=UserIDText1(2).Text=UserNameText1(3).Text=ksInfo.ksNameIf rs1.State Then rs1.Closers1.Open"select*from考生考试信息where用户账号='"&UserID&"'order by流水号",Cn,adOpenStatic,adLockOptimisticIf Not rs1.EOF ThenCall loadDataElseMsgBox"无考试数据!"End IfEnd SubSub loadData()Text1(0).Text=Trim(rs1(0))Text1(4).Text=Trim(rs1(4))Text1(5).Text=""If Not IsNull(rs1(5))Then Text1(5).Text=Trim(rs1(5))Dim rst As New ADODB.Recordsetrst.Open"select*from试题信息where题号='"&Val(Text1(4).Text)&"'",Cn, adOpenStatic,adLockReadOnlyIf Not rst.EOF ThenText2.Text=Trim(rst!试题内容)Text3.Text=Trim(rst!试题类型)Text4rs1.Text=Trim(rst!难度)Text4.Text=Trim(rst!答案)If Trim(rst!试题类型)="单选题"ThenPicture1.Visible=TruePicture2.Visible=FalseFor i=6To9Text1(i).Text=Trim(rst(i))Option1(i).Value=FalseNext iElsePicture1.Visible=FalsePicture2.Visible=TrueOption2(0).Value=FalseOption2(1).Value=FalseEnd IfPicture3.ClsPicture3.RefreshIf Not IsNull(rst!图片)ThenDim StmPic As ADODB.StreamSet StmPic=New ADODB.StreamWith StmPic.Type=adTypeBinary.Open.Write rst.Fields("图片")'写入数据库中的数据至Stream中.SaveToFile App.Path&"\temp.jpg",adSaveCreateOverWrite '将Stream中数据写入临时文件中.CloseisImg=TrueImage1.Picture=LoadPicture(App.Path&"\temp.jpg")Picture3.RefreshPicture3.PaintPicture Image1.Picture,Picture3.ScaleTop, Picture3.ScaleLeft,Picture3.ScaleWidth,Picture3.ScaleHeight,0,0,Image1.Width, Image1.HeightEnd WithEnd IfEnd IfEnd SubPrivate Sub Option1_Click(Index As Integer)Text1(5).Text=Trim(Label1(Index).Caption)End SubPrivate Sub Option2_Click(Index As Integer)Text1(5).Text=Trim(Option2(Index).Caption)End SubPrivate Sub Timer1_Timer()nTime=nTime+1If nTime=60ThennTime=0SyTime=SyTime-1End IfLabel1(0).Caption=SyTime&"："&60-nTimeIf SyTime=0And nTime=59Then'自动交卷Command1_ClickEnd IfEnd Sub14.错题练习界面frmErrpractise.frmDim rs1As New ADODB.RecordsetPrivate Sub Form_Load()If rs1.State Then rs1.Closers1.Open"select*from考生错题表where用户账号='"&UserID&"'order by newid()",Cn,adOpenStatic,adLockOptimisticIf Not rs1.EOF ThenCall load_error_testEnd IfEnd SubPrivate Sub Command1_Click() Unload MeEnd SubPrivate Sub Command3_Click() If Not rs1.EOF Then'显示第一题Text1(5).Text=""rs1.MoveFirstCall load_error_testEnd IfEnd SubPrivate Sub Command4_Click() If Not rs1.EOF Then'显示上一题Text1(5).Text=""rs1.MovePreviousIf rs1.BOF ThenMsgBox"已到第1题!"rs1.MoveFirstEnd IfCall load_error_testEnd IfEnd SubPrivate Sub Command5_Click() If Not rs1.EOF Then'显示下一题Text1(5).Text=""rs1.MoveNextIf rs1.EOF ThenMsgBox"已到最后1题!"rs1.MoveLastEnd IfCall load_error_testEnd IfEnd SubPrivate Sub Command6_Click()If Not rs1.EOF Then'显示最后一题Text1(5).Text=""rs1.MoveLastCall load_error_testEnd IfEnd SubPrivate Sub Command7_Click()If Not rs1.EOF ThenDim rst As New ADODB.Recordsetrst.Open"select*from试题信息where题号='"&Val(rs1(2))&"'",Cn, adOpenStatic,adLockReadOnlyIf Not rst.EOF ThenText1(5).Text=Trim(rst(10))End IfEnd IfEnd SubPrivate Sub load_error_test()Dim rst As New ADODB.Recordsetrst.Open"select*from试题信息where题号='"&Val(rs1(2))&"'",Cn,adOpenStatic, adLockReadOnlyIf Not rst.EOF ThenText7.Text=Trim(rst!试题内容)Text6.Text=Trim(rst!试题类型)。
