题库管理系统-毕设毕业论文.doc

XXXX大学 毕业设计（论文） 题 目 试题库管理系统 学 院 专 业 年 级 姓 名 指导教师 摘 要试题库管理系统可辅助教师对所教科目的各种试题的题型、知识点、难度等相关资料进行保存、查询等信息管理；并在需要对学生进行测验、评估的时候，从题库中抽取出相应要求的题目，组成一套试卷。本试题库管理系统的开发，是为了方便管理、抽取试题，减轻教师的负担，其在学校具有很大的应用价值，它具有保密性、操作简便、易于使用、抽题时具有很大的随机性等特点。在开发软件的同时，使本人掌握了软件开发的基本知识，以及学到解决问题的方法。本软件是以Windows 7为平台，Visual Basic 6.0为软件开发工具编写而成的。本软件的通用性很好，可以在大多数操作平台上使用。关键字：试题库管理系统；应用价值；随机性；Visual Basic 6.0AbstractTest library management system can assist the teachers of the classes you intend various questions of the kinds of questions, knowledge, difficulty, and other relevant information to save query information management; tests and students, assessment, extracted from the question scorresponding requirements of the subject, composed of a set of papers.The development of the examination database management system, in order to facilitate the management, extraction questions, to reduce the burden on teachers, has great value in the school, and it has confidentiality, easy to operate, easy to use with a lot of random, extracting and and other characteristics. In the development of the software at the same time, so I mastered the basic knowledge of software development, as well as learn the way to solve the problem.The software is based on the Windows XP platform in Visual Basic 6.0 software development tools to write from. The versatility of the software is very good, can be used in most operating platforms. Key words: Test library management system; Application value; Randomness; Visual Basic 6.0目录1 引言51.1 选题的背景51.2 系统开发目标51.3 系统开发环境61.4 系统的运行环境62 相关技术与开发工具介绍72.1 Visual Basic 6.0简介72.1.1 概述72.1.2 Visual Basic 6.0的特点72.2 SQL Server 2005简介83 系统需求分析93.1 可行性研究93.2 功能需求分析103.3 性能需求分析103.4 系统安全性要求103.5 系统用例图114 系统总体设计124.1 开发设计思想124.2 系统功能模块124.3 数据库设计134.4 数据字典144.5 概念结构设计165 系统详细设计205.1 登录窗体模块205.2 系统主窗体模块215.3 试题信息录入模块225.4 题库数据管理模块245.5 试题查询排序模块265.6 自动组卷模块285.7 人工组卷模块355.8 试卷管理与输出模块425.9 系统用户管理模块436 总结45参考文献46致 谢471 引言1.1 选题的背景考试是教师检查学生学习情况的必要手段，但是出卷却是一种繁重的智力和体力劳动，传统的标准化试卷命题，需要由教学专家组成一个命题班子，根据许多年教学经验，从贯彻教学大纲要求，到试卷意图的组织，经过反复的推敲，才能完成一份标准化的试卷。这样的命题方式不仅工作任务繁重而且试卷的标准化程度、难易程度、题量等方面都难以得到控制，难以形成有效的试题库，给试题和试卷的管理带来很多问题和困难。鉴于这种情况，利用计算机进行试卷的自动生成并逐步积累形成有效的试题库，对试题和试卷的管理将变得高效而便捷，对提高工作效率，使试卷管理逐步走向正规化自动化将起到十分重要的作用。同时使出卷工作变得轻松愉快，从很大程度上减轻了教师利用传统的出卷方式组卷的繁重工作量，大大节省了老师的工作时间，便于教师有更多的时间和精力致力于教学方法的研究，这不仅对教师有益，对在校学生也同样有帮助，学生可以有更多时间向教师请教问题。据调查，如今很多高校都建立了自己的试题库管理系统，还有一些高校也购入了相关软件，但是大部分系统还处于简单的处理信息阶段，因为题目是多样性的，所以为了应对多种多样的题型和更好的适应教师教学，需要进一步的完善开发系统加强建设力度，才能成为一个真正胜任教学任务的题库管理系统。随着计算机技术的神速发展，计算机在信息管理中的应用的普及，利用计算机实现试题库管理势在必行。1.2 系统开发目标利用计算机进行试题库的管理是计算机辅助教学的一个重要分支和重要环节，它已经成为院校教学改革的重要工作重心。试题库的计算机化管理，不仅对题库进行科学、系统和定量的管理，且成为评测学生学习效果、提高教学质量的有效辅助工具，是学校教学管理部门和教研室实现教考分离的重要工具。目前市面上流行的教学系统不少，但是对于具体的教学科目来说，不需要大型的数据库系统，只需要一个操作方便，功能实用，能满足学科教学的管理及需求的系统足矣。本课题研发的目的就是要开发一个功能较齐全并且很实用，操作方便，让用户简单易懂的试题库管理系统。1.3系统开发环境本系统前台采用Visual Basic 6.0开发，采用SQL Server 2005作为后台数据库，采用Visual Basic 6.0当中的ADO控件连接和访问数据库，具有存取数据快，代码编写简便等优点。1.4系统的运行环境操作系统环境：/Windows 2005/Windows XP/Windows 7系统工作平台：Visual Basic 6.0企业版完整版后台数据库：SQL Server 2005企业版/个人版2 相关技术与开发工具介绍2.1 Visual Basic 6.0简介2.1.1 概述Visual Basic 6.0是Microsoft公司推出的可视化开发工具组件VisualStudio6.0的组件之一。Visual意为“可视化的”，指的是开发图形用户界面（GUI）的方法。Basic指的是BASIC语言。是一种简单易懂、面向初学者的语言。Visual Basic 6.0是基于BASIC的可视化程序设计语言，它既继承了BASIC语言的简单易懂的特点，又采用了面向对象、事件驱动的编程机制，提供了一种所见即所得的可视化程序设计方法。Visual Basic 6.0有学习版、专业版、企业版三个版本，以满足不同层次开发者的需求。2.1.2 Visual Basic 6.0的特点 具有面向对象的可视化设计工具Visual Basic 6.0提供可视化平台，把Windows界面设计的复杂性封装起来，编程人员不必为界面的设计编写大量的代码。只需按照编程的需要，用Visual Basic 6.0提供的工具箱在界面上添加各种对象，而界面的设计代码是由Visual Basic 6.0自动产生的，编程人员只需编写实现功能的那部分代码，从而大大提高了编程效率。 事件驱动的编程机制在事件驱动的应用程序中，代码不是按照预定的路径执行，而是在响应不同的事件时执行不同的代码片段。事件可以由用户操作触发，还可以由应用程序本身的消息触发，可以由来自操作系统或其他应用程序的消息触发。 结构化的程序设计语言Visual Basic 6.0是在BASIC语言的基础上发展起来的，它吸收了其他结构化程序设计语言的优点，具有丰富的数据类型和函数，结构化程序结构，易学易用。 开放的数据库功能与网络支持由于应用程序中三层体系结构的出现，使得网络、应用程序以及数据库的连接更加紧密起来。Visual Basic 6.0提供了一些接口来实现网络以及数据库的连接。Visual Basic 6.0有很强的数据库管理功能，可以通过直接访问或建立连接的方式访问并操作后台数据库。 充分利用Windows资源Visual Basic 6.0通过三种技术来实现与Windows资源的交互，这三种技术是：动态数据交换编程技术、对象链接与嵌入技术以及动态链接库技术。2.2 SQL Server 2005简介SQL是英文Structured Query Language的缩写，意思为结构化查询语言。SQL语言的主要功能就是同各种数据库建立联系，进行沟通。按照ANSI（美国国家标准协会）的规定，SQL被作为关系型数据库管理系统的标准语言。SQL语句可以用来执行各种各样的操作，例如更新数据库中的数据，从数据库中提取数据等。目前，绝大多数流行的关系型数据库管理系统，如Oracle，Sybase，Microsoft SQL Server，Access等都采用了SQL语言标准。虽然很多数据库都对SQL语句进行了再开发和扩展，但是包括Select，Insert，Update，Delete，Create以及Drop在内的标准的SQL命令仍然可以被用来完成几乎所有的数据库操作。SQL Server是一个关系数据库管理系统。它最初是由Microsoft Sybase和Ashton-Tate三家公司共同开发的，于1988年推出了第一个OS/2版本。在Windows NT推出后，Microsoft与Sybase在SQL Server的开发上就分道扬镳了，Microsoft将SQL Server移植到Windows NT系统上，专注于开发推广SQL Server的Windows NT版本。Sybase则较专注于SQL Server在UNIX操作系统上的应用。SQL Server 2005是Microsoft 公司推出的SQL Server数据库管理系统，该版本继承了SQL Server 7.0版本的优点，同时又比它增加了许多更先进的功能。具有使用方便可伸缩性好与相关软件集成程度高等优点，可跨越从运行Microsoft Windows 98的膝上型电脑到运行Microsoft Windows 2005 的大型多处理器的服务器等多种平台使用。3 系统需求分析3.1 可行性研究在明确系统目标和环境的基础上，需要进一步对系统的可行性进行研究。此活动的主要目标是进一步明确系统的目标、规模与功能，对系统开发背景、必要性和意义进行调查分析并根据需要和可能提出拟开发系统的初步方案与计划。可行性研究是针对系统进行全面、概要的分析，主要包括三个方面：经济可行性分析、技术可行性分析、运行可行性分析。1、经济上的可行性现在，计算机的价格已经十分低廉，性能却有了长足的进步。而本系统的开发，为学校的工作效率带来了一个质的飞跃，为此主要表现有以下几个方面：第一，本系统的运行可以代替人工进行许多繁杂的劳动；第二，本系统的运行可以节省许多资源；第三，本系统的运行可以大大的提高学校的工作效率；第四，本系统可以使敏感文档更加安全，等等。所以，本系统在经济上是可行的。2、技术上的可行性本系统的开发利用SQL Server 2005作为本系统的数据库，它是一个支持多用户的新型数据库，适用于大中规模的数据量需求。学校校园网的建设也为新系统服务器/客户端的结构提供了硬件的支持。使用Visual Basic 6.0开发平台作为系统开发的开发环境，它提供完善的指令控制语句、类与对象的支持及丰富的数据类型，给开发高性能系统提供的保障为开发满足客户要求的系统，保证了代码的模块化要求，而代码模块化的提高，非常有利于以后对新系统的扩展与修改。综上所述，本系统的设计与开发在技术上和硬件设备上的条件都是满足的，因此，它在技术上是可行的。3、运行上的可行性本软件简单，易学易用，不需要对人员进行专业培训，在减少培训费用的同时也方便使用，且本系统为一个小型的试题库管理系统，所耗费的资源非常的小，学校的电脑无论是硬件还是软件都能够满足条件，因此，本系统在运行上是可行的。3.2 功能需求分析由于本系统的作用是辅助教师进行教学工作，因此在功能全面的前提下，还要在设计上更人性化，要体现出针对性的教学特点。为了满足更广泛的用户群体，本系统要做到以下几个方面：（1）基础维护方面设置有对学院的管理；对系部的管理；对专业的管理；对科目的管理；对科目章节的管理。（2）试题库管理方面设有对试题难度系数管理；对单个试题的管理；对批量试题的管理。（3）组卷功能是本系统最核心的功能，也是本系统最终的目标。除了常规的按照参数自动组卷之外，还需要增加人工组卷功能，这也是考虑到人工组卷更贴近教师日常的工作行为，灵活性强，变通性大的特点，最重要的还是对教学工作更有针对性。3.3 性能需求分析本系统在实现功能上的效率是较高的，它采用的相关技术，包括开发工具的选择与操作系统的平台的选择都是谨慎和周全的。数据的提取也是以人为本的立场考虑，只要输入文字和点击按钮即可实现提取功能。而且程序的扩充空间也是相当充裕，只要添加制作的页面和数据库的更新相结合就可以实现扩充功能。3.4 系统安全性要求试题库管理系统作为一个学校教师专用的试卷制作与处理系统，在安全性上是不容忽视的，试题信息数据的安全性、保密性是十分重要的，用户输入的信息（试题内容或试卷内容等信息）都应该严格加密保存，此外本系统还增加了系统用户登录的身份验证和用户权限管理等功能。3.5 系统用例图本系统分为两种不同类型的用户，即教师和管理员，他们各自有不同的权限，完成不同的操作，其系统用例图如图3.1所示。图3.1系统用例图4 系统总体设计4.1 开发设计思想系统应符合试题及试卷信息管理的规定，满足试题和试卷信息日常管理的工作需要，并达到操作过程中的直观、方便、实用、安全等要求。 使用当今比较流行的软件工程开发和设计思想，自顶向下，逐层细化的方式求得各子系统，然后设计窗体、摆放控件、设计代码、调试运行等。 使用MDI（多文档窗口窗体）技术集成各子窗体，形成了多文档窗体界面，使用菜单和工具条上的命令按钮图标调用各子系统的功能模块。 使用可视化面向对象的程序设计语言Visual Basic 6.0和数据库管理工具SQL Server 2005开发。主窗口使用了类似于Word的多文档窗口。通过ADO对象的数据环境控件连接SQL Server 2005数据库，具有一般数据库管理系统的添加、删除、修改和查询等基本功能，界面友好，操作简单。4.2 系统功能模块本系统共有七个主要功能模块，分别是试题信息录入、题库数据管理、试题查询排序、自动组卷、人工组卷、试卷管理输出和系统用户管理等，分为查询、维护、组卷、打印、系统等几个类别，其功能模块图如图4.1所示。图4.1系统功能模块图4.3 数据库设计数据库技术在计算机软件邻域研究中一直是非常重要的主题，从20世纪60年代到现今，50多年来数据库技术得到了迅速发展，并已形成较为完整的理论体系和实用系统。所以在通俗的意义上，数据库不妨理解为存储数据的基地。在数据库应用系统开发之前，对开发数据库的基本概念应当了解，对数据库的结构、开发数据库应用程序的步骤、开发体系及方法都应当有相当清晰的了解和认识。开发的主要过程为：理解用户的需求，然后，把它们转变为有效的数据库设计。把设计转变为实际的数据库，并且这些数据库带有功能完备、高效能的应用体系。数据库数据由DBMS（数据库管理系统）处理，DBMS则由开发人员和用户通过应用程序直接或间接地使用。在系统开发的过程中，最重要的环节就是数据库的结构设计。一个好的数据库结构设计会减少数据库的存储量，数据的完整性和一致性比较高，并且使系统具较快的响应速度，从而提高管理效率。一个成功的信息管理系统，是建立在许多条件之上的，而数据库技术就是其中的一个非常重要的条件和关键技术。所以我们必须进行数据库需求分析，进行数据库需求分析的主要目标就是为了确定基本数据、数据结构以及数据处理的流程等。4.4 数据字典本设计将上面的数据库分析思想转化为Visual Basic 6.0数据库系统所支持的实际数据模型。共五大类，分别如下：表名：人工组卷信息；说明：保存人工组卷的数据表；主键：试题编号该表记录了人工组卷的数据信息，包括：题型、科目、章节、知识点、难度系数、分值、题目、答案、选项1、选项2、选项3、选项4、选项5。主键为：试题编号，数据类型为：整形，使用“标识”功能。当有新记录加入时系统会将试题编号加1并赋予新记录，保证所有记录的试题编号值不会重复。字段名称数据类型字段大小允许空试题编号Int4否题型Char50否科目Char50否章节Char50否知识点Nvarchar1000否难度系数Char10否分值Numeric9否题目Nvarchar2005否答案Nvarchar2005否选择1Char200是选择2Char200是选择3Char200是选择4Char200是选择5Char200是表4.1 人工组卷信息表表名：成套试卷；说明：保存人工或者自动组合成的试卷信息表；主键：记录编号该表记录了成套试卷的信息，包括：学校、年级、科目、试卷标题、试卷内容。主键为：自动编号，数据类型：整形，使用“标识”功能。当有新记录加入时系统会将试题编号加1并赋予新记录，保证所有记录的成套试卷值不会重复。字段名称数据类型字段大小允许空记录编号Int4否学校Char20是年级Char10是科目Char50是试卷标题Varchar8000否试卷内容Varchar8000否表4.2 成套试卷表表名：用户表；说明：保存使用本系统的用户信息；主键：用户名该表记录了使用本系统的用户信息，包括：用户名、用户密码、用户身份。主键为：用户名，数据类型：char，当有新记录加入时系统会检测相同的用户名是否存在并赋予新记录，保证所有记录的用户名值不会重复。字段名称数据类型字段大小允许空用户名Char50否用户密码Char50否用户身份Char50否表4.3 用户表表名：自动组卷信息；说明：保存自动组卷的相关信息表；主键：记录编号该表记录了自动组卷的相关信息，包括：学校、年级、科目、题型、题数、难度、知识点。主键为：自动编号，数据类型：整形，使用“标识”功能。当有新记录加入时系统会将试题编号加1并赋予新记录，保证所有记录的自动组卷信息记录不会重复。字段名称数据类型字段大小允许空记录编号Int4否学校Char20否年级Char10否科目Char50否题型Char10否题数Int4否难度Char10否知识点Nvarchar500否表4.4 自动组卷信息表表名：试题信息；说明：保存试题的相关信息表；主键：试题编号该表记录了人工输入的试题信息，包括：题型、科目、章节、知识点、难度系数、分值、题目、答案、选项1、选项2、选项3、选项4、选项5。主键为：试题编号，数据类型为：整形，使用“标识”功能。当有新记录加入时系统会将试题编号加1并赋予新记录，保证所有记录的试题编号值不会重复。字段名称数据类型字段大小允许空试题编号Int4否题型Char50否科目Char50否章节Char50否知识点Nvarchar1000否难度系数Char10否分值Numeric9否题目Nvarchar2005否答案Nvarchar2005否选择1Char200是选择2Char200是选择3Char200是选择4Char200是选择5Char200是表4.5 试题信息表4.5 概念结构设计（1）本系统的总实体ER图，如图4.2所示本系统总实体E-R图是对整个系统程序所用到的主体，包含系统用户、试卷信息、人工组卷、自动组卷、成套试卷几个主体间的关系，体现本系统的基本逻辑结构。图4.2 系统总实体E-R图（2）各实体的主要属性图用户实体的主要属性如图4.3所示，包含用户名，用户密码，用户身份等。图4.3 用户实体属性图人工组卷信息人工组卷信息主要属性如图4.4所示，包含试题编号、题型、科目、章节、知识点、难度系数、分值、题目、答案、选项1、选项2、选项3、选项4、选项5等。图4.4 人工组卷信息实体属性图成套试卷信息成套试卷信息主要属性如图4.5所示，包含记录编号、学校、年级、科目、试卷标题、试卷内容等。图4.5 成套试卷信息实体属性图自动组卷信息自动组卷信息主要属性如图4.6所示，包含记录编号、学校、年级、科目、题型、题数、难度、知识点等。图4.6 自动组卷信息实体属性图试题信息试题信息主要属性如图4.4所示，包含试题编号、题型、科目、章节、知识点、难度系数、分值、题目、答案、选项1、选项2、选项3、选项4、选项5等。图4.7 试题信息实体属性图5 系统详细设计5.1 登录窗体模块登录窗体是一个系统必不可少的界面之一，其主要功能在于验证系统用户的合法性，使合法用户能够顺利的使用系统，而将非法用户拒之门外。设计好的“登录窗体”运行效果图如图5.1所示。图5.1 系统登录窗体本模块中实现“登录”功能时所执行的部分代码如下所示：D1.RecordSource = "select * from 用户表 where 用户名='" & Trim(TxtName) & "'"D1.RefreshIf D1.Recordset.RecordCount < 1 Then MsgBox "用户名错误，请重新输入！", vbCritical, "系统提示" TxtName.SetFocus Exit SubElseIf Trim(D1.Recordset.Fields!用户密码) <> Trim(TxtPwd) Then MsgBox "密码错误，请重新输入！", vbCritical, "系统提示" TxtPwd = "" TxtPwd.SetFocus Exit SubElseIf Trim(D1.Recordset.Fields!用户身份) <> Trim(CmbSF) Then MsgBox "用户身份错误，请重新选择！", vbCritical, "系统提示" CmbSF.SetFocus Exit SubEnd IfMsgBox "欢迎使用本系统！", vbInformation, "系统提示"Unload MeFrmMain.Show5.2 系统主窗体模块系统主窗体是整个系统的核心，在这里，几乎将系统所有的功能都囊括其中。本系统主窗体采用MDI（多文档窗口窗体）界面设计，可以在当中很方便的打开，或者关闭各种系统子功能窗体，而在操作系统任务栏中却只存在系统主窗体一个任务图标。另外，本系统主窗体还采用了几个VB的内置函数，很容易的就实现了当中子窗体的各种排列功能，如层叠排列，水平平铺，垂直排列等等，使系统界面更友好，使用更方便。设计好的“程序主界面窗体”如图5.2所示。图5.2 系统主窗体部分实现代码如下:Private Sub mmuTileH_Click()Me.Arrange vbTileVertical '水平平铺子窗体End SubPrivate Sub mmuTileV_Click()Me.Arrange vbTileHorizontal '垂直平铺子窗体End SubPrivate Sub mmuXSXXBB_Click()DataRXSXX.ShowEnd Sub5.3 试题信息录入模块此模块可以输入试题的相关信息，比如题型、科目、章节、难度系数、知识点、题目、答案等等，此处录入的试题信息是整个系统的核心基础，为后面所述的题库数据管理、自动组卷和人工组卷等模块提供数据依据。其运行时的效果图如图5.3所示。图5.3 试题信息录入模块本模块中实现试题信息录入时所执行的部分代码如下所示：If D2.Recordset.RecordCount > 0 Then MsgBox "相同的试题题目已经存在，数据录入失败，请重新输入相关的数据！", vbCritical, "系统提示" TxtTM.SetFocus Exit SubEnd IfWith D1.Recordset .AddNew .Fields!科目 = Trim(CmbKM) .Fields!章节 = Trim(TxtZJ) .Fields!难度系数 = CInt(Trim(CmbNDXS) .Fields!知识点 = Trim(TxtZSD) .Fields!分值 = CCur(Trim(TxtFZ) .Fields!题目 = Trim(TxtTM) If Opt(0).Value = True Then .Fields!题型 = "单项选择题" .Fields!选项1 = Trim(TxtA) .Fields!选项2 = Trim(TxtB) .Fields!选项3 = Trim(TxtC) .Fields!选项4 = Trim(TxtD) .Fields!答案 = Trim(CmbDA) End If If Opt(1).Value = True Then .Fields!题型 = "多项选择题" .Fields!选项1 = Trim(TxtA) .Fields!选项2 = Trim(TxtB) .Fields!选项3 = Trim(TxtC) .Fields!选项4 = Trim(TxtD) .Fields!选项5 = Trim(TxtE) .Fields!答案 = Trim(CmbDA) End If If Opt(2).Value = True Then .Fields!题型 = "判断题" .Fields!答案 = Trim(TxtDA) End If If Opt(3).Value = True Then .Fields!题型 = "解答题" .Fields!答案 = Trim(TxtDA) End If If Opt(4).Value = True Then .Fields!题型 = "作文题" .Fields!答案 = Trim(TxtDA) End If If Opt(5).Value = True Then .Fields!题型 = "翻译题" .Fields!答案 = Trim(TxtDA) End If If Opt(6).Value = True Then .Fields!题型 = "论述题" .Fields!答案 = Trim(TxtDA) End If .UpdateEnd WithD1.RefreshMsgBox "试题信息录入成功！", vbInformation, "系统提示"5.4 题库数据管理模块此模块实现了对前述模块录入的数据管理功能，包括对记录的修改，删除，打印等功能，另外，此模块还提供了对相关数据的多条件模糊检索功能，只需要选择相关的检索条件，输入检索内容，就可以检索到相关的数据记录。其运行效果图如图5.4所示。图5.4 题库管理窗体本模块中实现试题信息多条件查询时所执行的关键代码如下所示：If CmbCXTJ.ListIndex = 0 Then MsgBox "请选择查询条件！", vbCritical, "系统提示" CmbCXTJ.SetFocus Exit SubEnd IfIf Trim(TxtCXNR) = "" Then MsgBox "请输入查询内容！", vbCritical, "系统提示" TxtCXNR = "" TxtCXNR.SetFocus Exit SubEnd IfSelect Case CmbCXTJ.ListIndex Case 1 D1.RecordSource = "select * from 试题信息 where 题型 like '%" & Trim(TxtCXNR) & "%'" Case 2 D1.RecordSource = "select * from 试题信息 where 科目 like '%" & Trim(TxtCXNR) & "%'" Case 3 D1.RecordSource = "select * from 试题信息 where 章节 like '%" & Trim(TxtCXNR) & "%'" Case 4 D1.RecordSource = "select * from 试题信息 where 知识点 like '%" & Trim(TxtCXNR) & "%'" Case 5 D1.RecordSource = "select * from 试题信息 where 题目 like '%" & Trim(TxtCXNR) & "%'"End SelectD1.RefreshIf D1.Recordset.RecordCount < 1 Then MsgBox "查询结束，无相关信息记录！", vbExclamation, "系统提示" AllClear TxtTiShi = "查询结束，无相关信息记录"Else ShowDataEnd If5.5 试题查询排序模块此模块实现了对前述模块录入的试题信息查询和排序功能，在查询子模块，可以对试题信息实现多条件模糊查询功能，只需要选择要查询的条件，系统会自动对查询内容进行分组初始化，方便用户选择对应的查询内容；在排序模块，可以根据选定的题型，按照难度系数升序和降序排序，方便用户对相关的试题信息分组查看。其运行效果图如图5.5所示。图5.5 试题查询排序窗体在本模块中实现试题排序时所执行的部分代码如下所示：If CmbTX.ListIndex = 0 Then MsgBox "请选择要排序的题型！", vbCritical, "系统提示" CmbTX.SetFocus Exit SubEnd IfIf Opt(0).Value = True Then D1.RecordSource = "select * from 试题信息 where 题型='" & Trim(CmbTX) & "' order by 难度系数"End IfIf Opt(1).Value = True Then D1.RecordSource = "select * from 试题信息 where 题型='" & Trim(CmbTX) & "' order by 难度系数 desc"End IfD1.RefreshIf D1.Recordset.RecordCount < 1 Then MsgBox "排序结束，无相关信息记录！", vbExclamation, "系统提示"Else MsgBox "排序结束！", vbInformation, "系统提示"End If5.6 自动组卷模块本模块是整个系统的核心功能，实现了对试题信息的自动组卷功能，在此模块当中，用户只需要输入相关的组卷信息（学校、年级、科目、题型、题数、难度系数，知识点等等），点击“开始组卷”按钮后，系统即可自动根据用户选择的条件组合成一套相关的试卷。其运行效果图如图5.6所示，其组卷后的效果图如图5.7所示。图5.6 自动组卷窗体图5.7 自动组卷效果图本模块中实现自动组卷功能的关键代码如下所示：D1.RecordSource = "select * from 自动组卷信息 where 学校='" & Trim(ZDZJXX) & "' and 年级='" & Trim(ZDZJNJ) & "' and 科目='" & Trim(ZDZJKM) & "'"D1.RefreshIf D1.Recordset.RecordCount < 1 Then MsgBox "当前数据库中并无任何自动组卷信息记录，自动组卷失败！", vbCrlf