交通法规知识抢答系统(SQL Server版)毕业设计论文

1、交通法规知识抢答系统第22页 共22页交通法规知识抢答系统目录 TOC o 1-3 h z u HYPERLINK l _Toc137222451 摘要 PAGEREF _Toc137222451 h 2 HYPERLINK l _Toc137222452 前言 PAGEREF _Toc137222452 h 3 HYPERLINK l _Toc137222453 第一章 概述 PAGEREF _Toc137222453 h 3 HYPERLINK l _Toc137222454 1.1系统概述 PAGEREF _Toc137222454 h 3 HYPERLINK l _Toc1372224

2、55 1.2系统开发基本目标 PAGEREF _Toc137222455 h 3 HYPERLINK l _Toc137222456 1.3系统开发设计思想 PAGEREF _Toc137222456 h 3 HYPERLINK l _Toc137222457 1.4开发工具简介 PAGEREF _Toc137222457 h 4 HYPERLINK l _Toc137222458 1.4.1 SQL Server 2000 PAGEREF _Toc137222458 h 4 HYPERLINK l _Toc137222459 1.4.2 Visual Basic 6.0 PAGEREF _T

3、oc137222459 h 4 HYPERLINK l _Toc137222460 第二章 系统分析 PAGEREF _Toc137222460 h 5 HYPERLINK l _Toc137222461 2.1系统功能分析 PAGEREF _Toc137222461 h 5 HYPERLINK l _Toc137222462 2.1.1 系统必须具有以下功能： PAGEREF _Toc137222462 h 5 HYPERLINK l _Toc137222463 2.1.2 抢答系统的工作过程： PAGEREF _Toc137222463 h 5 HYPERLINK l _Toc137222

4、464 2.2系统功能模块图 PAGEREF _Toc137222464 h 5 HYPERLINK l _Toc137222465 2.3数据库需求分析 PAGEREF _Toc137222465 h 6 HYPERLINK l _Toc137222466 第三章 数据库设计 PAGEREF _Toc137222466 h 7 HYPERLINK l _Toc137222467 3.1数据库物理结构设计 PAGEREF _Toc137222467 h 7 HYPERLINK l _Toc137222468 3.2数据库逻辑结构设计 PAGEREF _Toc137222468 h 8 HYPE

5、RLINK l _Toc137222469 第四章 系统设计 PAGEREF _Toc137222469 h 10 HYPERLINK l _Toc137222470 4.1系统设计概况 PAGEREF _Toc137222470 h 10 HYPERLINK l _Toc137222471 4.2系统各个模块功能设计 PAGEREF _Toc137222471 h 11 HYPERLINK l _Toc137222472 服务器端的系统登录管理模块设计 PAGEREF _Toc137222472 h 11 HYPERLINK l _Toc137222473 服务器端的添加题目类别模块设计 P

6、AGEREF _Toc137222473 h 12 HYPERLINK l _Toc137222474 服务器端添加题目模块设计 PAGEREF _Toc137222474 h 12 HYPERLINK l _Toc137222475 服务器端竞赛状态显示管理模块设计 PAGEREF _Toc137222475 h 13 HYPERLINK l _Toc137222476 服务器端背景选项管理模块设计 PAGEREF _Toc137222476 h 13 HYPERLINK l _Toc137222477 工作站登录模块设计 PAGEREF _Toc137222477 h 14 HYPERLI

7、NK l _Toc137222478 工作站抢答模块设计 PAGEREF _Toc137222478 h 14 HYPERLINK l _Toc137222479 4.3服务器与工作站抢答模块代码 PAGEREF _Toc137222479 h 15 HYPERLINK l _Toc137222480 FrmControl模块代码： PAGEREF _Toc137222480 h 15 HYPERLINK l _Toc137222481 FrmClient模块代码： PAGEREF _Toc137222481 h 18 HYPERLINK l _Toc137222482 第五章 结束语 PAG

8、EREF _Toc137222482 h 21 HYPERLINK l _Toc137222483 5.1毕业设计体会 PAGEREF _Toc137222483 h 21 HYPERLINK l _Toc137222484 5.2存在的问题及改进的方案 PAGEREF _Toc137222484 h 21 HYPERLINK l _Toc137222485 致谢 PAGEREF _Toc137222485 h 21 HYPERLINK l _Toc137222486 【参考文献】 PAGEREF _Toc137222486 h 21摘要本系统采用微软的SQL SERVER 2000作为后台数

9、据库，并采用Visual Basic 6.0作为开发工具，使用Windows XP操作系统作为开发平台。系统包括两个子系统：服务器子系统包括“用户管理”、“竞赛状态显示”、“试题管理”和“分数管理”四个模块。“用户管理”模块用于接受工作站的登录，建立服务器和工作站的有效连接;“竞赛状态显示”模块主要用于综合显示竞赛中各种状态信息;“试题管理”模块主要完成试题在服务器端的存储、添加、修改的管理操作，并负责竞赛中试题向工作站的发送;“分数管理”模块负责竞赛中对各参赛者的分数管理，主要通过“人工加/减分”模式，根据参赛者的答题结果实现加/减分。工作站子系统由“登录”、“试题显示”、“抢答”三个模块组

10、成。“登录”模块提供各工作站的有效登录，申请与服务器的连接;“试题显示”模块用于接受服务器发送的试题信息，并在工作站显示;“抢答”模块负责将参赛者的键盘或鼠标操作转换为抢答信号，并发送给服务器。本文分析了传统的抢答系统在实际应用中的不足，提出了一种基于局域网的计算机抢答系统的设计方案，并通过对“交通法规知识抢答系统”的设计实践和应用的总结，具体阐述了该方案的系统构成和设计方式，对其中的关键技术进行了具体讲述。关键词：抢答系统 局域网 计算机Abstract Windows XP of Microsoft Company is chosen as development platform, SQ

11、L SERVER 2000 as background database management system and Visual Basic6.0 as main development tool. The system includes two sub-systems:Server sub-system covers four modules: user management module, competition state display module, test questions management module, score management module.user man

12、agement module which is used for accepting a logging for the workstation, create server with the valid connectivity of the workstation; contest status display module primarily use for synthesizing display the every kind information of status inside the contest; test questions management the module c

13、ompletes to try primarily carries in the server of saving, increase, modification of the management operates, and be responsible for sending out test questions to workstation in the contest; score management module with responsibility for manage score inside the contest to every contest teams, prima

14、rily by the manual adds/ reduce the score mode, according to the contest teams answer result realize to add/ reduce the score. Workstation sub-system covers register, test questions display, scare answering three modules. The register offers the valid logging of each workstation, apply for the conne

15、ctivity of the server; the test questions display uses for accepting an information which sends out by the server, and display in the workstation; the scare answering module with responsibility for converts contests keyboard or mouse operation to scare answering signal, and send out that to the serv

16、er. This text analyzes the shortage in the actual application of traditional scare answering system, put forward a kind of design scheme of the compute scare answering system base on LAN, and via the design practice and the applied summary of the transportation laws knowledge scare answering system,

17、 expatiating the system constitute and the design mode of this project in a specific way, and proceeds to relate its key technique in a specific way.Key Words: Scare Answering System LAN Computer前言目前，在各种类型的知识竞赛中，抢答系统早已得到了广泛的应用，传统的抢答系统主要有：机械电子按钮式和单片机应用系统两类，它们各有特点，能基本的适应竞赛的需求，但由于安装调试成本昂贵，通用性不好，且功能单一，无

18、法完成竞赛中诸如试题显示，分数显示、题库管理等高级功能，因此在实际应用中有一定的局限性。 随着计算机技术的发展和社会经济的进步，利用微机系统构建新型抢答系统成为可能，微机抢答系统与原有系统相比，可充分利用计算机强大的数据处理能力和输入、输出功能，除能很好的完成抢答等基本功能外，还较易实现试题显示、分数显示、题库管理等多种高级功能，使得整个抢答系统功能更完善，界面更友好，构建出一种丰富多彩的抢答系统应用在各类知识竞赛中。本文即是通过“交通法规知识抢答系统”设计的实践，探讨一种基于局域网的计算机抢答系统的设计方案和主要关键技术、该系统充分利用现有计算机及网络设备资源，通过软件设计替代硬件电路来实现

19、抢答式智力竞赛系统，具有实现成本低、通用性好的特点，并能更好地调动参赛者的竞赛热情，使得整个竞赛生动活泼在实践中取得了较好的效果，值得在各类竞赛中推广应用。第一章 概述系统概述为了提高全民交通法规的素质，采用趣味性的知识竞赛抢答方式作为一种良好的普法手段。竞赛抢答系统大多为机械电子按钮式的，其安装调试的成本昂贵，且不能移动，通用性不好，所以目前只在电视台的一些专业娱乐节目中得以实现，一般企事业单位都难以实现，也就没有办法进行抢答式智力竞赛。其实，当前计算机应用日益广泛，一般单位都能在一定程度上进行了计算机联网，实现办公自动化，甚至与互联网连在一起，我们完全可以充分利用现在计算机及网络设备等资源

20、，通过软件来实现抢答式智力竞赛系统。系统开发基本目标交通法规知识抢答系统开发的总体任务是通过软件来实现抢答式智力竞赛系统。充分利用计算机强大的数据处理能力和输入、输出功能，除能很好的完成抢答等基本功能外，还较易实现试题显示、分数显示、题库管理等多种高级功能，使得整个抢答系统功能更完善，界面更友好，构建出一种丰富多彩的抢答系统应用在各类知识竞赛中。确定在一定的时间内能完成预定的程序功能是可行性分析报告的重点。系统开发设计思想尽量采用现有的软件和硬件环境及先进的管理系统开发方案，从而达到充分利用学校现有的资源，提高系统开发水平和应用效果的目的。系统采用面向对象的程序设计方法，既便于系统功能的各种组

21、合和修改，又便于未参与开发的技术维护人员补充，维护。系统应具备数据库维护功能，及时根据用户需求进行数据的添加，删除，修改。系统应利用现有的校园网资源来普及学校的交通法规知识，并达到操作过程式中的直观，方便，实用等要求。开发工具简介1.4.1 SQL Server 2000Microsoft SQL Server2000是一个分布式的关系型数据库管理系统，具有客户机/服务器体系结构，采用了Transact-sql的sql语言在客户机与服务器间传递客户机的请求与服务器的处理结果。是一种应用广泛的数据库管理系统，具有许多显著的优点：易用性、适合分布式组织的可伸缩性、用于决策支持的数据仓库功能、与许多

22、其他服务器软件紧密关联的集成性、良好的性价比等。 Visual Basic 6.0Visual Basic是由微软公司推出的一套完整的Windows系统软件开发工具，可用于开发Windows环境下的各类应用程序，是一种可视化、真正面向对象、采用事件驱动方式的结构化高级程序设计语言和工具的完美集成。它编程简单、方便、功能强大，具有与其它语言及环境的良好接口，不需要编程开发人员具备C/C+或者Turbo Pascal 语言知识和特别高深的专业知识，只要懂得Windows的界面及其基本操作，就可以迅速上手，而VB在程序界面设计、多媒体开发方面更是独具优势。因此特别适合初学者和业余人员使用。现在比较流

23、行的版本是Visual Basic 6.0,它继承了旧版本Visual Basic 的所有优点，同时增强了功能和简化了操作界面。图1.1是VB6.0的启动画面。图1.1 VB启动画面Visual Basic6.0共有三个版本：Visual Basic学习版(Learning)-入门版本，可以方便的建立Windows应用程序，具有建立Windows主流应用程序所要的全部工具；Visual Basic专业版(Professional)-针对计算机专家，包括ActiveX和Internet控件开发工具之类的高级特性。Visual Basic企业版(Enterprise)-最高级的版本，是针对小组开发

24、环境中建立分布式应用程序的编程人员的版本。它包括专业版的所有特性，外加Visual SourceSafe（一种版本控制系统）和Automation and Component Manager（自动化和组件管理器）之类的工具。第二章 系统分析系统功能分析交通法规知识抢答系统开发的总体任务是通过软件来实现抢答式智力竞赛系统。2.1.1 系统必须具有以下功能：服务器子系统：用户管理，竞赛状态显示，试题管理，分数管理，选项设置：“用户管理”模块用于接受客户端的登录，建立服务器和客户端的连接；“竞赛状态显示”模块主要用于综合显示竞赛中各种状态信息，如：各参赛者的当前分数、当前获得抢答权的参赛者名称、竞赛

25、时间倒计时等；“试题管理”模块主要完成试题在服务器端的存储、添加、修改和管理操作，并负责竞赛中试题向客户端的发送；“分数管理”模块负责竞赛中对各参赛者的分数管理，主要通过“人工加/减分”模式，根据参赛者的答题结果实现加/减分；“选项设置”模块主要是对界面的设置，如背景色，背景图片；客户端子系统：登录管理，选题显示，抢答管理模块：“登录管理”模块提供各客户端的有效登录，申请与服务器的连接；“选题显示”模块用于接受服务器发送的试题信息，并在客户端显示；“抢答管理”模块负责参赛者的键盘或鼠标操作转换为抢答信号，并发送给服务器。以上各功能模块基本包括了竞赛抢答所需的主要操作，根据实际需要，还可对服务器

26、或客户端子系统进行扩充，以满足更多，更复杂的功能需求系统功能模块分析。 抢答系统的工作过程：首先，各参赛者在各自的工作站登录，输入参赛者的相关信息，向服务器发出参赛申请，经服务器的“用户管理”程序验证后，准许参赛，这时工作站与服务器建立起有效连接，工作站处于竞赛状态；然后，竞赛开始，服务器“试题管理”程序抽出试题，同时发送到各工作站，并处于监测状态;参赛者阅读试题，按指定键或单击鼠标抢答，工作站“抢答”程序将抢答信号发送服务器，服务器侦测第一个抢答信号，将在服务器端显示对应工作站座号，并屏蔽其他工作站的抢答;最后，获得抢答权的参赛者回答问题，主持人根据回答情况手工判断给与相应的加、减分，一轮抢

27、答顺利完成。系统功能模块图对上述各项功能进行集中、分块，按照结构化程序设计的要求，得到如下图所示：交通法规知识抢答系统服务器端用户管理 分数管理竞赛状态显示 试题管理登录管理 选题显示 抢答管理客户端 选项设置图2-1 系统功能模块图数据库需求分析用户的需求具体体现在各种信息的提供、保存、更新和查询，这就要求数据库结构能充分满足各种输出和输入。收集基本数据、数据结构以及数据处理的流程，组成一份详尽的数据字典，为后面的具体的设计打下基础。在仔细分析调查交通法规知识抢答系统需求的基础上，得到如图3-2所示的系统所处理的数据流程图。 账号要求账号输入账号检查记时抢答返回信息抢答管理试题管理试题情况图

28、2-2 系统数据流图针对一般的抢答系统的需求，通过对抢答系统工作过程的内容和数据流程分析，设计如下所示的数据项和数据结构。帐号信息：包括的数据项有帐号，名称，密码，用户类型。系统里有两个不能删除的帐；抢答题型：包括抢答题目类别，抢答题目类型，题目编号，题目名称，题目选项；抢答题目信息：包括数据项有编号，名称，正确答案，A，B，C；抢答管理信息：包括数据项有帐号，试题显示标志，开始抢答标志。第三章 数据库设计数据库物理结构设计得到上面的数据项和数据结构以后，就可以设计出能够满足用户需求的各种实体，以及它们之间的关系，为后面的逻辑结构设计打下基础。这些实体包含各种具体信息，通过相互之间的作用形成数

29、据的流动。 根据上面的设计规划出的实体有：抢答管理员实体、抢答用户实体、抢答试题实体。各个实体具体的描述如下列图所示。 编号名称抢答管理员图3-1 抢答管理员实体E-R图编号名称抢答用户图3-2 抢答用户实体E-R图名称题目类型抢答试题题目类别题目编号图3-3 抢答试题实体E-R图名称题目类型抢答用户题目类别题目编号编号名称抢答管理员抢答试题管理名称使用分数编号图3-4 抢答主要的E-R关系图数据库逻辑结构设计 将以上数据库结构转化为SQL 2000数据库系统所支持的实际数据模型。在上面实体以及实体之间关系的基础上，形成数据库中的表以及表之间的关系。数据库的设计如下各表所示：表3_1 tbus

30、er 用户信息表列 名数据类型可否为空说 明zhnvarchar(100)NOT NULL用户名mcnvarchar(200)NULL名称pwdnvarchar(200)NULL密码lxsmallint(2)NULL类型(0-管理，1-用户)表3_2 tbtmlb题目类别表列名数据类型可否为空说明idsmallint(2)NOT NULL编号namenvarchar(100)NULL名称ctblint(4)NULL题目比例表3_3 tbtmlx 题目类型表列名数据类型可否为空说明idsmallint(2)NULL编号namenvarchar(100)NULL名称表3_4 tbtk 题库表列名数

31、据类型可否为空说明tmlb_idsmallint(2)NOT NULL题目类别编号tmlx_idsmallint(2)NOT NULL题目类型编号tmbhsmallint(2)NOT NULL题目编号tmmcnvarchar(200)NULL题目名称tpnvarchar(100)NULL图片tmdanvarchar(100)NULL题目答案Anvarchar(100)NULL答案ABnvarchar(100)NULL答案BCnvarchar(100)NULL答案CDnvarchar(100)NULL答案DEnvarchar(100)NULL答案EFnvarchar(100)NULL答案F表3_

32、5 tbtmqd 题目抢答表列名数据类型可否为空说明zhnvarchar(100)NULL帐号tmlb_idsmallint(2)NOT NULL题目类别编号tmlx_idsmallint(2)NOT NULL题目类型编号tmbhsmallint(2)NOT NULL题目编号tmllint(4)NULL题目浏览tmqdint(4)NULL题目抢答bzint(4)NULL标志位表3_6 tbqdda 抢答答案表列名数据类型可否为空说明zhnvarchar(100)NOT NULL帐号tmqddavarchar(50)NULL题目抢答答案bzvarchar(50)NULL标志位表3_7 tbgra

33、de答题得分表列名数据类型可否为空说明zhnvarchar(100)NULL帐号Grade1int(4)NULL一队得分Grade2int(4)NULL二队得分Grade3int(4)NULL三队得分Grade4int(4)NULL四队得分Grade5int(4)NULL五队得分Grade6int(4)NULL六队得分Grade7int(4)NULL七队得分geneint(4)NULL加减分因子表3_8 tb1_0到tb11_0选择类题库分类表列名数据类型可否为空说明tmbhSmallint(2)NOT NULL题目编号tmmcnvarchar(200)NOT NULL题目名称tmdanvar

34、char(100)NOT NULL题目答案Anvarchar(100)NULL答案ABnvarchar(100)NULL答案BCnvarchar(100)NULL答案CDnvarchar(100)NULL答案DEnvarchar(100)NULL答案EFnvarchar(100)NULL答案F表3_9 tb1_1到tb11_1判断类题库分类表列名数据类型可否为空说明tmbhSmallint(2)NOT NULL题目编号tmmcnvarchar(200)NOT NULL题目名称tmdanvarchar(100)NOT NULL题目答案视图3_10 tbtmqd_view 题目抢答信息视图第四章

35、系统设计系统设计概况具体程序窗体信息如下：frmAbout(关于窗口)：用于提示这是什么系统。frmClient(用户抢答窗口)：主要提供客户端用户抢答的窗口。功能有试题显示，模拟抢答，提交答案。frmLogin(登录窗口)：有两种成员可以登录（系统管理员与抢答用户）。frmManager(系统管理窗口)：主要实现对题库的管理，系统成员的管理。frmOptions(背景设置窗口)：用于对系统管理的背景进行设置。frmSplash(导入窗口)：主要用于提示和导入。frmTmAdd(添加题目的窗口)：对题目进行添加。frmTmEdit(修改题目的窗口)：可以对所选择的题目进行修改。frmTmlb(

36、添加题目类别的窗口)：可以输入要添加的类别的名称。frmUser(用户管理窗口)：可以对用户进行有效的管理，比如添加，删除用户等。frmUserAddEdit(用户添加和修改窗口)：可以添加用户，对所选择的帐号的名称或者密码进行修改。frmcontrol(竞赛状态显示和管理员抢答窗口)：可以试题显示，用户抢答信息显示，正确答案显示，实现人工加分，显示竞赛结果。系统各个模块功能设计服务器端的系统登录管理模块设计 在本系统中，帐号管理分成两个部分，一个是抢答用户帐号，一个是管理员帐号。图4_1 进入系统的动画界面图4-2 用户登录管理界面图4-3 进入后台用户管理界面图4-4 后台用户管理界面服务

37、器端的添加题目类别模块设计 在题库管理中，最重要的就是增加题目类别以及增加题目。下面分别介绍这两个窗体。在主界面中，单击菜单：“题库”下拉菜单“添加题目类别”，可以弹出增加题库的对话框，如图4_5所示：图4_5增加题目类别窗体增加题目类别窗体很简单，只需要简单的几个按钮以及一个文本框即可，用户在文本框中输入需要增加的“题目”类别，单击“确定”按钮，就可以成功增加了。服务器端添加题目模块设计在主菜单中，单击菜单“题库”下拉菜单“增加题目”，可以弹出增加题目对话框。根据用户选择的题目类型不同，弹出的对话框也会不同（用户在树形控件的最后一上可以选择是风险判断题还是抢答选择题），如果是抢答选择题，则弹

38、出如图4_6所示的对话框。如果是风险判断题，则显示如图4_7所示的界面。图4_6 添加抢答选择题界面图4_7 添加风险判断题界面以上都是在同一个窗体，只是显示的结果不一样。该窗体的界面设计很简单，其中包含了一个CommonDialog控件（名为CommonDialog1），用来弹出对话框，便利读者可以选择题目的图片，另外一个则是图片框控件（名为Picture1），用来显示选择的图片。同时还有一个重要控件即ADO控件（Adodc1），用来保存数据到数据库中。服务器端竞赛状态显示管理模块设计 在主菜单中，单击菜单“系统”下拉菜单“竞赛状态显示”，可以弹出竞赛状态显示界面，这个模块实现了抢答过程的选

39、题，试题显示，允许抢答，显示抢答权与抢答用户答案，显示正确答案，实现人工加分与显示成绩的功能。图4_8 竞赛状态显示界面服务器端背景选项管理模块设计“系统”下拉菜单“选项”，弹出此对话框，实现对主界面的背景设置。可以显示全部*.bmp;*.dib;*.gif;*.jpg;*.wmf;*.emf;*.ico;*.cur后缀名的图像。背景界面具有三种不同的显示方式：平铺，拉伸，居中。图4_9 背景选项设置界面工作站登录模块设计系统抢答用户通过public帐号进行登录，用户通过登录界面进入工作站模拟抢答界面。图4_10 抢答用户登录界面工作站抢答模块设计抢答系统抢答的实现：抢答用户登录到“抢答”界面

40、之后，便可“申请抢答”，等待服务器的应答。当服务器端“竞赛状态显示”界面选好题目之后，便可点击“题目显示”按钮，这样“抢答”客户端界面就会显示服务器选好的试题。当服务器端触发解除工作站抢答界面的“开始抢答”按钮锁，抢答用户可以选择自己的系名和提交上自己做出的答案，这个过程要在10秒钟之后完成，不然视为抢答无效。图4_11 抢答客户端界面服务器与工作站抢答模块代码FrmControl模块代码：Option ExplicitPrivate Sub Command1_Click() 加/减分Adodc5.RecordSource = select * from tbgrade;Adodc5.Refr

41、eshIf Not Adodc5.Recordset.EOF Then Adodc5.Recordset.Fields.Item(0) = CStr(Combo1.Text) Adodc5.Recordset.Fields.Item(8) = CInt(Combo2.Text)End IfIf Adodc5.Recordset.Fields.Item(0) = 电信系 ThenText1.Text = CInt(Adodc5.Recordset.Fields.Item(1) + Adodc5.Recordset.Fields.Item(8)Adodc5.Recordset.Fields.Ite

42、m(1) = CInt(Text1.Text)End IfIf Adodc5.Recordset.Fields.Item(0) = 外语系 ThenText2.Text = CInt(Adodc5.Recordset.Fields.Item(2) + Adodc5.Recordset.Fields.Item(8)Adodc5.Recordset.Fields.Item(2) = CInt(Text2.Text)End IfIf Adodc5.Recordset.Fields.Item(0) = 中文系 ThenText3.Text = CInt(Adodc5.Recordset.Fields.

43、Item(3) + Adodc5.Recordset.Fields.Item(8)Adodc5.Recordset.Fields.Item(3) = CInt(Text3.Text)End IfIf Adodc5.Recordset.Fields.Item(0) = 数学系 ThenText4.Text = CInt(Adodc5.Recordset.Fields.Item(4) + Adodc5.Recordset.Fields.Item(8)Adodc5.Recordset.Fields.Item(4) = CInt(Text4.Text)End IfIf Adodc5.Recordset

44、.Fields.Item(0) = 初教系 ThenText5.Text = CInt(Adodc5.Recordset.Fields.Item(5) + Adodc5.Recordset.Fields.Item(8)Adodc5.Recordset.Fields.Item(5) = CInt(Text5.Text)End IfIf Adodc5.Recordset.Fields.Item(0) = 艺术系 ThenText6.Text = CInt(Adodc5.Recordset.Fields.Item(6) + Adodc5.Recordset.Fields.Item(8)Adodc5.

45、Recordset.Fields.Item(6) = CInt(Text6.Text)End IfIf Adodc5.Recordset.Fields.Item(0) = 经管系 ThenText7.Text = CInt(Adodc5.Recordset.Fields.Item(7) + Adodc5.Recordset.Fields.Item(8)Adodc5.Recordset.Fields.Item(7) = CInt(Text7.Text)End IfEnd SubPrivate Sub Command2_Click() 允许抢答 Adodc1.RecordSource = sele

46、ct * from tbtmqd; Adodc1.Refresh If Not Adodc1.Recordset.EOF Then Adodc1.Recordset.Fields.Item(5) = 1 End If Call tbqdEnd SubPrivate Sub Command3_Click() 重新开始 Adodc1.RecordSource = select * from tbtmqd; Adodc1.Refresh If Not Adodc1.Recordset.EOF Then Adodc1.Recordset.Fields.Item(4) = 0 Adodc1.Record

47、set.Fields.Item(5) = 0 Adodc1.Recordset.Fields.Item(6) = 0 End If Adodc4.RecordSource = select * from tbqdda; Adodc4.Refresh If Not Adodc4.Recordset.EOF Then Adodc4.Recordset.MoveFirst Adodc4.Recordset.Fields.Item(2) = 0 Text17.Text = End IfEnd SubPrivate Sub Command4_Click() 显示抢答结果与答案 Adodc1.Record

48、Source = select * from tbtmqd; Adodc1.Refresh Adodc4.RecordSource = select * from tbqdda; Adodc4.Refresh If Not Adodc1.Recordset.EOF And Adodc1.Recordset.Fields.Item(6) = 1 Then If Not Adodc4.Recordset.EOF And Adodc4.Recordset.Fields.Item(2) = 1 Then Text17.Text=Adodc1.Recordset.Fields.Item(0)&Adodc

49、4.Recordset.Fields.Item(1) End If End IfEnd SubPrivate Sub Command5_Click() 显示试题 Dim st As String Adodc1.RecordSource = select * from tbtmqd; Adodc1.Refresh Adodc3.RecordSource = select * from tbtmqd_view; Adodc3.Refresh If Not Adodc1.Recordset.EOF Then Adodc1.Recordset.Fields.Item(4) = 1 End If st

50、= Adodc3.Recordset.Fields.Item(8) Image1.Picture = LoadPicture(st)End SubPrivate Sub Command6_Click() 显示正确答案 Adodc3.RecordSource = select * from tbtmqd_view; Adodc3.Refresh Text17.Text = Adodc3.Recordset.Fields.Item(9) Command1.Enabled = TrueEnd SubPrivate Sub Command7_Click() 选题 Adodc2.RecordSource

51、 = select * from tbtmqd; Adodc2.Refresh If Not Adodc2.Recordset.EOF Then Adodc2.Recordset.Fields.Item(1) = Trim(Text8.Text) Adodc2.Recordset.Fields.Item(2) = Trim(Text16.Text) Adodc2.Recordset.Fields.Item(3) = Trim(Text15.Text) End IfEnd SubPrivate Sub tbqd() 倒计时10秒Dim time1, time2, time3 As Timer D

52、im start As Boolean Dim i As Integer start = FalseDo Adodc1.RecordSource = select * from tbtmqd; Adodc1.Refresh If Adodc1.Recordset.Fields.Item(5) 0 And start = False Then time1 = Timer() start = True Text10.Text = 倒计时：10 i = 1 End If If start = True Then Command4.Enabled = False Command6.Enabled =

53、False Command1.Enabled = False time2 = Timer() If CInt(time2 - time1) i Then Text10.Text = 倒计时： & (10 - i) i = i + 1 End If If CInt(time2 - time1) 10 Then Command4.Enabled = True Command6.Enabled = True Exit Do End If End If DoEventsLoopEnd SubFrmClient模块代码：Option ExplicitDim a As BooleanDim st As S

54、tringPrivate Sub Command1_Click() 申请抢答 a = False Do If a = True Then Exit Do Adodc1.RecordSource = select * from tbtmqd_view Adodc1.Refresh If Not Adodc1.Recordset.EOF Then If Adodc1.Recordset.Fields.Item(2) = 1 Then Text1.Text = Adodc1.Recordset.Fields.Item(1) Text3.Text = Adodc1.Recordset.Fields.I

55、tem(5) Text4.Text = Adodc1.Recordset.Fields.Item(6) Text5.Text = Adodc1.Recordset.Fields.Item(7) st = Adodc1.Recordset.Fields.Item(8) Image1.Picture = LoadPicture(st) Else Text1.Text = Text3.Text = Text4.Text = Text5.Text = End If If Adodc1.Recordset.Fields.Item(3) = 1 Then Command2.Enabled = True C

56、ommand4.Enabled = True Else Command2.Enabled = False Command4.Enabled = False End If End If DoEvents LoopEnd SubPrivate Sub Command2_Click() 抢答Do Adodc2.RecordSource = select * from tbtmqd Adodc2.Refresh If Not Adodc2.Recordset.EOF Then If Adodc2.Recordset.Fields.Item(6) = 0 Then Adodc2.Recordset.Fields.Item(0) = CStr(Combo1.Text) Adodc2.Recordset.Fields.Item(6) = 1 Else: Exit Sub End If End If DoEventsLoopEnd SubPrivate Sub Command3_Click() 结束抢答 a = TrueEnd SubPrivate Sub Command4_C