试卷自动生成系统

燕山大学

专业课程综合设计报告

学院里仁学院

年级专业08计算机2班

学生姓名赵鑫

学号0813********

指导教师于家新

设计日期2011年9 月26日—

2011年10月14日

专业课程综合设计报告

1、设计任务

以任何一门课程为例，能够以手工或自动方式，将该课程的每道试题录入到系统之中，并且通过设置参数，自动地生成一份试卷。该试卷的题型可以分为选择题（包括单选和多选）、填空题、简答题、计算题等。要求使用者能够通过系统，对所需要的题型、每种题型试题的数量、每道题的分值、每道题的难度进行设定，自动地生成一个word版本的试卷，该试卷格式符合一般试卷标准。

2、设计思想

通过用access 数据库录入题库信息，然后通过Visual C++的界面显示出来，用户可以在Visual C++的界面添加试题，删除试题，按照一定的条件搜索试题，可以自动生成试卷和手动生成试卷，并导入word文档现实出来。

2.1 功能需求分析

本系统是题库与试卷生成系统，主要有三方面的功能需求，其分别是：（1）题库管理：为了用户能方便管理庞大的试题题库，实现各种常用或者自定义题型的录入、修改、查询、删除等功能。

（2）手动生成试卷：用户可以对权限范围内的科目进行手动组卷。选定科目后，选择共需几道大题、试卷的总分值、每道大题的题型、每大题包含小题的数量及每道大题的分值；对于每道大题需进入“选择试题”模块浏览试题库中的对应题型从中手动选择所需试题。由于题库中题量较大，可以进行搜索查询，亦可将试题导出至word文档进行浏览，选择试题完毕后保存回到“手动组卷”模块。（以上全部为必须操作）。组卷后选择是否保存

试卷。试卷生成后可以将试卷和答案导出至word 文档。再次选定科目后清除上一次的显示结果自动进入下一次的手动组卷模式。

（3） 自动生成试卷：用户可以对权限范围内的科目进行自动组卷。选定科目后，选择共需几道大题、试卷的总分值、每道大题的题型、每大题包含小题的数量及每道大题的分值（以上为必选）；对于每道大题可以进入“选择题目范围及难度”模块对题目进行范围和难度的限制（可选）。组卷后选择是否保存试卷。试卷生成后可以将试卷和答案导出至word 文档。再次选定科目后清除上一次的显示结果进入下一次的自动组卷模式。

3、设计过程

3.1系统流程分析

本系统有两类用户使用，分别是系统管理员和一般管理员。系统管理员负责管理系统帐号和系统的其他全部功能；一般管理员不能管理用户但是可以更新维护题库，按需求生成和保存打印试题等。系统流程如图3-1所示：

图3-1

用户

题型表试题表课程表章节表

用户

题库

用户

自动生成组卷手动生成组卷

3.2 数据流程分析

该系统的数据流程分为两部分，图3-2为顶层数据流程图，用户由各种类型的试题根据相应需求生成试卷。图3-3为第二层的数据流程图，是对顶层数据流程的分解，将试卷的生成分为手动生成和自动生成。

图3-2 顶层数据流程图

图3-3 第二层数据流程图

3.3系统设计

3.3.1 系统总体设计目标

本系统是根据题库管理与试卷生成系统的具体需求应用而开发的，能够实现题库管理与试卷生成的工作，系统的开发主要要实现的目标有以下几个方面：

用户

试卷生成处理

试题信息表

自动生成组卷、手动生成组卷

用户

题型设置题库设置试题录入

自动生成组卷

手动生成组卷

题型

试题

章节

题库

课程

题型信息表课程信息表章节信息表

手动生成组卷

自动生成组卷

（1） 灵活多样的组卷方式，如手工组卷和自动组卷。

（2） 既能临时生成试卷，又能直接使用以前生成的试卷，也就是要求能对生成的试卷进行保存，以便下次直接使用，并能删除不再需要的试卷。

（3） 试卷的保密性要求，只有授权人员才能生成和查阅试卷。 （4） 试卷生成速度不宜太慢。

（5） 生成的试卷按照规定的模板输出，并能导出到word 文档中。 （6） 生成的试卷既可以直接打印，也可以在word 中修改和打印。 （7） 友好的用户界面。

3.3.2 系统总体功能模块设计

本系统主要功能是为使用者提供一个简单快捷的试题录入、删除、修改、查询、浏览，快速组卷及试卷管理的软件系统。系统模块分为以下几个部分，如图3-4所示：

图3-4

题库管理与试卷生成系统

题库功能系统功能试卷功能帮助与关于

密码管理用户管理课程管理题型管理试题管理试卷管理手动组卷自动组卷系统关于系统帮助

添加试题修改试题

保

存

试

题

删除试题添加新题型

删除现有题型

删除现有科目

添加新科目

预览现有试卷及答案删除现有试卷及答案

手动抽取试题组卷

随机抽取试题组卷

3.4 结构设计

3.4.1登陆模块设计

（1）登陆模块结构图

该模块包括用户管理模块和用户密码管理模块。系统启动时调用此模块，要求用户先进行登陆。登录模块结构如图3-5所示：

图3-5

（2）界面设计

“登录”界面是用户进入主界面的路径，由三个静态文本框控件和两个Edit Box 控件，两个按钮控件和一个Combo Box 控件组成。如图3-6所示：

图3-6

欢迎界面

登陆失败三次退出登录

进入主界面

（3）属性设置

三个静态文本框的Caption属性分别为：登录方式、用户名、密码。Combo Box的Data属性为：系统管理员\n普通管理员\n一般用户。“密码：”静态文本框对应的Edit Box的Style的Password属性为选中状态。两个按钮控件的Caption属性分别为：登录系统和取消登录。

（4）功能

在[登录方式]处选择以何种身份登录，在[用户名]和[密码]处键入正确的用户名和密码，确定后进入系统主窗口。如果键入的用户名或密码错误，系统将出现错误提示，然后重新键入。输入错误超过三次，自动退出系统。

3.4.2 系统主要模块设计

系统登录成功后进入主系统主窗口，系统主窗口显示了系统的主要功能，如图3-7所示：

图3-7

该界面可以实现试题的查询搜索、试题添加、试题删除、试题修改、试题浏览。点击自动生成，可以实现根据选题数目、选题类型、计算总分可以自生成一份试卷，导入到word文档中。

3.5数据库模型

数据库设计是在选定的数据库管理系统基础上建立数据库的过程。 所有数据包含在一个access 数据库中，数据库名为题库。设计表如下： 用户登录信息表：存储用户的详细信息，包括用户名、用户密码、用户权限和管理科目。

题目类型信息表：存储题目类型的信息，包括题目类型编号和题目类型名称。

科目信息表：存储各个科目的信息，包括科目编号和科目名称。 试题信息表：存储试题的信息，包括试题编号、类型、难度、所属章节、内容和答案。

已组试卷信息表：存储已组试卷的信息，例如试卷编号、方案编号等信息。

成套试卷信息表：存储成套试卷的信息，例如试卷编号、创建人、创建时间等信息。

实体E-R 图

本系统的实体有：用户实体、试题实体，各个实体具体的描述E-R 图如图3-8、图3-9所示。

图3-8 用户实体E-R 图

用户

用户名

密码 用户权

图3-9 试题实体E-R 图

3.5.1 数据库的存储结构

本系统采用access 2003 数据库，系统数据库名为题库，数据库题库中包括5个数据表。

（1）用户表Admin ，主要用来存储系统管理员的相关信息，表结构如表3-10：

表3-10 Admin 表

字段名 数据类型 长度 是否主键 用户名 文本 50 是 密码 数字 50 权限

文本

50

（2）用户表Teacher ，主要用来存储一般管理员的信息，表结构如表3-11：

表3-11 Teacher 表

字段名 数据类型 长度 是否主键 用户名 文本 50 是 密码 文本 50 权限

文本

50

（3）试题信息表，主要用来存储题库中的试题，表结构如表3-12：

试题

题干

答案

课程

章节

难度

图片

类型

选择

题号

表3-12 试题信息表

字段名数据类型长度是否主键题号自动编号8 是

题干文本300

答案文本300

课程名文本50

章节文本50

图片路径文本100

难度文本50

类型文本50

是否被选是、否 1

（4）题型表，用来存储动态生成试题类型，表结构如表3-13：

表3-13 题型表

字段名数据类型长度是否主键类型文本50 是

（5）课程表，用来存储课程相关信息，表结构如表3-14：

表3-14 课程表

字段名数据类型长度是否主键试题章节文本50 是

如图3-15所示：

图3-15

3.5.2 连接数据库

点击鼠标右键，点击添加部件，出现如下图3-16界面，选择Microsoft ADO Control 6.0（SP6）和Microsoft Hierarchi FlexGrid Control 6.0。

图3-16

添加这两个部件，将鼠标移至Adodc1，在属性页的通用页面中选中链

接字符串，点击生成，选择想要链接的数据库名称，测试连接，出现链接成功提示。过程如图3-17所示：

图3-17

回到属性页，选择记录源，将命令类型设置为adCmdTable,,并在表或存储过程名称中选择要链接的表的名称。如图3-18所示：

图3-18

回到form页面，点击部件MSHFlexGrid1，在其属性窗口DataSource

项选择Adodc1，编译之后即可看出链接成功，如图3-19所示：

图3-19

3.6 程序代码如下：

（1）添加试题：

Private Sub Command1_Click()

Adodc1.Recordset.AddNew

Adodc1.Recordset("试题类型").V alue = Text1.Text

Adodc1.Recordset("试题分值").V alue = Text2.Text

Adodc1.Recordset("试题难度").V alue = Text3.Text

Adodc1.Recordset("试题章节").V alue = Text4.Text

End Sub

（2）删除试题

Private Sub Command2_Click()

Adodc1.Recordset.Delete

Adodc1.Recordset.MoveNext

Adodc1.Refresh

Adodc1.Refresh

MsgBox "记录删除成功！", , "提示"

End Sub

（3）更新试题

Private Sub Command3_Click()

Adodc1.Recordset.Update

Adodc1.Refresh

End Sub

（4）（关闭窗口）

Private Sub Command4_Click()

Unload Me

End Sub

（5）搜索功能

Private Sub Command5_Click()

If Text5.Text <> "" Then

Adodc1.RecordSource = "SELECT * from 试题信息表where " & Combo1.Text & " like " & Text5.Text & "'"

Debug.Print Adodc1.RecordSource

Adodc1.Refresh

Else

MsgBox "没有" & Combo1.Text & "查询的数据", vbInformation + vbCritical, "提示"

End If

End Sub

（6）查看首条记录

Private Sub Command6_Click()

Adodc1.Recordset.MoveFirst

End Sub

（7）查看上一条记录

Private Sub Command7_Click()

Adodc1.Recordset.MovePrevious

If Adodc1.Recordset.BOF Then

Adodc1.Recordset.MoveFirst

MsgBox "这已是第一条了", vbOKOnly + vbExclamation, "提示"

End If

End Sub

（8）查看下一条记录

Private Sub Command8_Click()

Adodc1.Recordset.MoveNext

If Adodc1.Recordset.EOF Then

Adodc1.Recordset.MoveLast

MsgBox "这已是最后一条了", vbOKOnly + vbExclamation, "提示"

End If

End Sub

（9）查看末记录

Private Sub Command9_Click()

Adodc1.Recordset.MoveLast

End Sub

（10）实现在复选框中查询关机词的功能

Private Sub Form_Load()

Combo1.AddItem ("试题类型")

Combo1.AddItem ("试题分值")

Combo1.AddItem ("试题难度")

Combo1.AddItem ("试题章节")

Combo1.ListIndex = 0

Text5.Text = ""

End Sub

（11）生成组卷代码

Dim TempRec1 As New ADODB.Recordset

Dim A1 As String

Dim MyWord As Word.Application

Dim WordDoc As Word.Document

Dim BTextBox

Dim MyRange As Word.Range

Dim MyTable As Word.Table

Dim MyCell As Word.Cell

Dim MyCells As Word.Cells

Dim MyCols As Word.Columns

Dim A() As String

Dim B() As String

Dim ColN As Integer

Dim ArrBytes() As Byte

Dim FreeFileNumber As Integer

Dim Lngsize As Long

Set TempRec1.ActiveConnection = DBCon

If Combo1.ListIndex = -1 Then

MsgBox "没有选择试卷名称,不能生成试卷!", vbOKOnly, "提示"

Exit Sub

End If

TempRec1.Open "select id from sjtx where sjbm='" & SjbmArry(Combo1.ListIndex + 1) & "'"

If TempRec1.RecordCount = 0 Then

MsgBox "没有选择试卷题型顺序,不能生成试卷!", vbOKOnly, "提示"

Exit Sub

End If

TempRec1.Close

Load Form13

Form13.Height = 810

Form13.Width = 4680

CenterForm Form13, MDIForm1

Form13.Show

Me.Enabled = False

创建新文档

On Error GoTo ErrorEnd

Start:

Set WordDoc = MyWord.Documents.Add

If Option1.V alue Then

With WordDoc.PageSetup

PageHeight = InchesToPoints(11.69)

PageWidth = InchesToPoints(8.27)

End With

End If

If Option2.V alue Then

试卷分栏设置

WordDoc.PageSetup.TogglePortrait

With WordDoc.PageSetup

PageHeight = InchesToPoints(11.69)

PageWidth = InchesToPoints(16.54)

End With

WordDoc.PageSetup.TextColumns.SetCount NumColumns:=2

WordDoc.PageSetup.TextColumns.Spacing = CentimetersToPoints(4)

End If

插入试卷名称

https://www.360docs.net/doc/f38598197.html, = "宋体"

MyWord.Selection.Font.Size = 16

A1$ = Trim(Combo1.Text)

MyWord.Selection.ParagraphFormat.Alignment = wdAlignParagraphCenter MyWord.Selection.TypeText A1$

MyWord.Selection.TypeText Chr(13)

插入科目名称

https://www.360docs.net/doc/f38598197.html, = "宋体"

MyWord.Selection.Font.Size = 15

A1$ = "《" & Trim(Combo2.Text) & "》" + Chr(13)

MyWord.Selection.Font.Bold = True

MyWord.Selection.ParagraphFormat.Alignment = wdAlignParagraphCenter MyWord.Selection.TypeText A1$

MyWord.Selection.Font.Bold = False

插入注意事项

If TempRec1.State = 1 Then

TempRec1.Close

End If

TempRec1.Open "select Zysx from Sjbt where Sjbm='" & SjbmArry(Combo1.ListIndex + 1) & "'"

If TempRec1.RecordCount = 0 Then

MsgBox "没有找到试卷的注意事项，不能生成试卷!", vbOKOnly, "提示"

GoTo ErrorEnd

End If

A1$ = TempRec1.Fields("Zysx").V alue

https://www.360docs.net/doc/f38598197.html, = "黑体"

MyWord.Selection.Font.Size = 10.5

MyWord.Selection.ParagraphFormat.Alignment = wdAlignParagraphLeft MyWord.Selection.TypeText A1$

https://www.360docs.net/doc/f38598197.html, = "宋体"

从Sjtx表中提取题型名称、数量、附加说明

If TempRec1.State = 1 Then

TempRec1.Close

End If

TempRec1.Open "select tx.txmc,Sjtx.Fzap,Sjtx.Fjsm from Sjtx,Tx where Sjtx.Txbm=tx.txbm and Sjtx.Sjbm='" & SjbmArry(Combo1.ListIndex + 1) & "' order by sjtx.ID"

If TempRec1.RecordCount = 0 Then

MsgBox "没有找到试卷所属题型，不能生成试卷!", vbOKOnly, "提示"

GoTo ErrorEnd

End If

ColN = TempRec1.RecordCount

If ColN < 12 Then

ReDim A(1 To TempRec1.RecordCount, 1 To 3)

TempRec1.MoveFirst

For i = 1 To TempRec1.RecordCount

A(i, 1) = TempRec1.Fields("Txmc").V alue

If TempRec1.Fields("Fzap").V alue <> "" Then

A(i, 2) = TempRec1.Fields("Fzap").V alue

Else

A(i, 2) = ""

End If

If Trim(TempRec1.Fields("Fjsm").V alue) <> "" Then

A(i, 3) = TempRec1.Fields("Fjsm").V alue

Else

A(i, 3) = ""

End If

TempRec1.MoveNext

Next

TempRec1.Close

将对应数学数字转换成中文数字

ReDim B(1 To ColN)

TempRec1.Open "select Zwsz from SdZ"

TempRec1.MoveFirst

For i = 1 To ColN

B(i) = TempRec1.Fields("Zwsz").V alue

TempRec1.MoveNext

Next

TempRec1.Close

创建表格将对应题目标号填写到表中

Set MyTable = MyWord.Selection.Tables.Add(MyWord.Selection.Range, 2, ColN + 2)

Set MyCols = MyTable.Columns

设置列宽

MyCols(1).Width = 46.5

列宽通过320/列数获取

For i = 1 To ColN

If Option1.V alue Then

MyCols(i + 1).Width = 330 \ ColN

End If

If Option2.V alue Then

MyCols(i + 1).Width = 370 \ ColN

End If

Next

MyCols(ColN + 2).Width = 50

设置行高

MyTable.Rows(1).Height = 25

MyTable.Rows(2).Height = 25

表格外边框

MyTable.Borders.OutsideLineStyle = wdLineStyleSingle

表格内边框

MyTable.Borders.InsideLineStyle = wdLineStyleSingle

表格居中

MyTable.Rows.Alignment = wdAlignRowCenter

表格中文本对齐方式

垂直居中

MyTable.Rows(1).Cells.V erticalAlignment=wdCellAlignV erticalCenter

MyTable.Rows(2).Cells.V erticalAlignment=wdCellAlignV erticalCenter

水平居中

For k = 1 To ColN + 2

MyTable.Cell(1, k).Select

Selection.ParagraphFormat.Alignment = wdAlignParagraphCenter

Next

Set MyCell = MyTable.Cell(1, 1): MyCell.Select: MyWord.Selection.TypeText "题目"

题目名称从试卷表中的题目类型名称获取

For i = 1 To ColN

SetMyCell=MyTable.Cell(1,i+1):MyCell.Select:

MyWord.Selection.TypeText B(i)

Next

SetMyCell=MyTable.Cell(1,ColN+2):MyCell.Select:

MyWord.Selection.TypeText "总分"

SetMyCell=MyTable.Cell(2,1):MyCell.Select: MyWord.Selection.TypeText "得分"

Set MyCell = Nothing

Set MyTable = Nothing

MyWord.Selection.GoToNext wdGoToLine

MyWord.Selection.TypeText Chr

For i = 1 To ColN

题型阅卷表格和题型说明

https://www.360docs.net/doc/f38598197.html, = "黑体"