摘 要
一般情况教师想出一份试卷，要么到庞大的题库里一道一道的把题找出来，或是从几本相关的书里把题一道一道挑出来。这样即费时又费力，而且很难保证试题的覆盖面和把握好试卷的难度。正是为了能够帮助教师轻松的出一份高质量的试卷而开发了本软件。为了达到预期的目标我们最终选择了Microsoft Office Word做为本软件的终端输出。本软件是在对现有控件的改进和VBA 编程的研究的基础上开发的。本软件实现了以下主要功能：1. 手动生成试卷；2. 自动生成试卷；3. 抽取现有试卷；4. 用户管理；5. 数据库管理。大量的测试表明本软件在Windows 98／me ／2000／XP 平台配合Office XP／2003 的环境下程序运行稳定且各项功能运行得都很正确，基本达到了预期的要求！！
结论：经过老师的实际试用本软件在界面上和功能上都有独到之处！！相信完全可以胜任出一份好的试卷任务。
关键词：题库系统，试卷生成，数据库，VBA
Abstract
The general situation teacher thinks out a paper，reach huge exam pool each finds out the question, or shoulder the question together out from several relevant books. Time-consuming and also strenuous like this, and very difficult to guarantee coverage rate and paper degree of difficulty of examination question. Helping the teacher thinks out a higt quality paper is the destination of develop this Software. In the cause of this we select the terminal is Microsoft Office Word. This Software ’s base of develop is improve on control in existence and study the VBA programing. These functions of this software are as follows: One. Manual create paper; Two. Auto create paper; Three. Select from existential papers; Four. User manage; Five. Database manage. The result of many test is that this software is runing steady and these funtions of it is runing right in the environment which make up of Windows 98／me ／2000／XP and Office XP／2003, it is basic reach the requests.
In all: the result of real test by teacher is that this software are unique in interface and function. We must believe it can complete creating a high quality paper.
Key Words ：Exam ，Problem pool，VBA ，word
目 录
摘 要................................................................................................... 1
Abstract . .................................................................................................... 2
前 言................................................................................................... 1 1 . 简述 ............................................................................................. 2
1.1 开发工具简介 ............................................................................. 2
1.1.1 Delphi 7.0的特点........................................................... 2
1.1.2 主要的控件及其属性简介 ................................................ 2
1.1.3 数据库连接方式选择 . ....................................................... 3
1.2 程序运行环境 ............................................................................. 4 2 . 需求分析...................................................................................... 5
2.1 负责的功能模块 ......................................................................... 5
2.2 软件功能分析 ............................................................................. 5 3 . 设计阶段...................................................................................... 8
3.1 概要设计 . .................................................................................... 8
3.1.1 系统数据库设计................................................................ 8
3.2 详细设计 . .................................................................................. 12
3.2.1 程序流程图 ..................................................................... 12
3.2.2 窗体功能简介 ................................................................. 14
4 . 软件实现.................................................................................... 20
4.1 OOP简介 . ................................................................................... 20
4.2 开发的关键技术 ....................................................................... 20 5 . 软件测试及其维护 .................................................................... 24
5.1 系统测试平台简介.................................................................... 24
5.2 测试方法 . .................................................................................. 24
5.3 系统维护 . .................................................................................. 25 6 . 开发总结.................................................................................... 26
参 考 文 献 ........................................................................................... 27
致 谢................................................................................................. 28
译 文 . ................................................................................................ 29
原 文 . ................................................................................................ 33
前 言
在开发本软件之前，正是我努力提高自己的Delphi 开发水平的时期。因此我选择了Delphi 做为我的开发工具，然而这次开发的软件和以前不一样。最主要的区别在于这个软件要以Microsoft Office Word做为试卷的终端输出。而它们又是两个不同公司的产品。因而，刚一开始我特别担心这个技术能否得到比较圆满的解决。在开发的过程中我不断的对VBA 技术进行研究，并且将它应用于这次的软件开发中。因而比较好的解决了Microsoft Office Word的接口编程问题。还有一个比较棘手的问题就是Delphi 提供的控件都是很基本的，而这次开发中要用到一个可以标记选中状态的树型控件，在对Delphi 的TtreeView 的深入研究后确认它不能胜任这个任务。因此，我开始寻找第三方控件，然而这一次我很失望因为只找到了一个2000年编写的TCheckTree 控件，没办法了，最后下定决心修改那个TCheckTree 控件以使它能更加稳定和实用。在深入研究Windows 的消息机制和VCL 框架对Windows 消息机制的封装技术后我成功的修改了那个TCheckTree 控件。在程序开发的后期测试中，我充分利用各个同学电脑平台的多样性。把本软件在多达4种操作系统和3个不同版本的Office 上进行测试。测试表明：在Windows 98／me ／2000／XP 平台配合Office XP／2003 下程序运行稳定且各项功能运行得都很正确！！
1 . 简述
1.1 开发工具简介
1.1.1 Delphi 7.0的特点
Delphi 是Borland 公司出品的开发工具，在众多的开发工具中，我们为什么要选择Delphi 呢？因为Delphi 具有众多其它开发工具所没有的优点！具体介绍如下：
◆ 开发的高效
◆ 语言的高效
◆ 编译的高效
◆ 执行的高效
◆ 维护的高效
基于以上理由，我们毫不忧郁的选择了Delphi 做为我们的开发工具！！
1.1.2 主要的控件及其属性简介
◆ TForm 类的控件：
1) BorderIcons 属性：用来控制程序标题按钮的可用性。
2) BorderStyle 属性：用来控制程序边框的样式。
3) Color 属性：用来控制程序界面的颜色。
4) Font 属性：用来控制程序界面的字体。
5) Position 属性：用来控制程序运行时界面的显示位置。
◆ TADOConnection 类的控件：
1) ConnectionString 属性：用来控制链接字符串。
2) LoginPrompt 属性：用来控制链接时是否要输入密码。
3) Connected 属性：用来控制是否进行链接。
◆ TADOQuery 类的控件：
1) Connection 属性：用来指定和哪个TADOConnection 控件相
连。
2) SQL 属性：用来添加向数据库提交的SQL 语句。
3) Add 方法：用来向SQL 属性添加SQL 语句。
4) Open 方法：用来执行SQL 语言中的Select 语句。
5) ExecSQL 方法：用来执行任何SQL 语句。
6) FieldByName 属性：用来给数据库的字段赋值。
7) FidldValues 属性：用来取出数据库的字段的。
8) Append 方法：用来向数据库添加一条记录。
9) Edit 方法：用来编辑当前的记录。
10) Post ：用来向数据库提交所做的修改。
◆ TADOTable 类的控件：
1) Connection 属性：用来指定和哪个TADOConnection 控件相
连。
2) Open 方法：用来打开数据库中指定的表。
3) FieldByName 属性：用来给数据库的字段赋值。
4) FidldValues 属性：用来取出数据库的字段的。
5) Append 方法：用来向数据库添加一条记录。
6) Edit 方法：用来编辑当前的记录。
7) Post ：用来向数据库提交所做的修改。
◆
◆
◆
◆ TDataSource 类的控件： 1) DataSet ：用来指定和哪个数据集相连。 TDBGrid 类的控件： 1) DataSource ：用来指定和哪个TDataSource 控件相连。 TPageControl 类的控件： 1) ActivePage 属性：用来指定当前活动的Page 页。 TCheckTree 类的控件：
1) ReadOnly 属性：用来控制TCheckTree 内的Item 是否可编辑。
2) Item 属性：用来控制TCheckTree 包含的所有树形结点。
3) Images 属性：用来指点TCheckTree 中结点的图标。
4) OnMouseUp 事件：用来添加鼠标放开事件所执行的程序代码。
5) OnStateChange 事件：用来添加结点状态改变时的程序代码。
◆ TFlatButton 类的控件：
1) Caption 属性：用来指定TFlatButton 的标题。
OnClick 事件：用来添加按钮的单击事件所执行的程序代码。
1.1.3 数据库连接方式选择
Delphi 连接数据库的主要方式有两种：一是：BDE ，二是ADO 。现在我们来大致比较一下这两种技术的优缺点：
BDE （Borland Database Engine）是Delphi 颇具特色的数据库连接管理技术。凭借窗体和报表，BDE 可以访问诸如Paradox,dBASE, 本地InterBase 服务器的数据
库，也可访问远程数据库服务器上的数据库，如Oracle,SyBase,Informix 等C ／S 数据库中的数据库，也可访问经ODBC 可访问的数据库管理系统中的数据库。
ADO(ActiveX Data Objects)是微软提供的一项技术。通过ADO ，可以方便的访问各种类型的数据库，特别是OLEDB 数据库。ADO 已成为访问数据库的新的标准接口。从Delphi 6.0开始Delphi 添加了对ADO 的支持，以便让用户能迅速实现对终端用户用来做商业决策的数据库的一致性访问，结合Delphi 本身的开发式数据组件结构，程序员可以很快地建立应用程序，用来把自己的商业数据库通过Internet 发送给客户，最终用户以及整个销售环节。通过ADO ，Delphi 7.0也能让用户快速访问关系或非关系数据库以及E-Mail 和商务文件系统。
这两者提供了几乎相同的功能，在进行产品开发时，势必要做一个精心的比较。虽然ADO 技术提出的时间不长，并被定位为工业标准的，而且其在性能上由于当前没有良好的数据库引擎支持，其性能还不够完美，但是，我们应该要注意到Borland 公司已经宣布停止发展BDE 了，其性能被ADO 超越也是迟早的事，因此，在开发长期应用的产品时，推荐采用ADO 技术。这样还有另一个好处是，在进行产品分发时，可以避开大量BDE 的链接库DLL 的分发。
基于以上原因我们选择了ADO 做为我们的数据库访问组件。
1.2 程序运行环境
操作系统：Windows 2000／Windows XP
办公软件：Office XP／Office 2003
2 . 需求分析
2.1 负责的功能模块
⏹
⏹
⏹
⏹
⏹ 设计试题生成功能，试题能分布整个教学内容 设计试题的难易程度分析功能 具有试题的答案生成功能 数据库设计及维护 程序的其它选项设置
2.2 软件功能分析
根据我负责的功能模块，主要是在试卷的生成上。
1．要显示书本章节信息以供用户使用。而在数据库里章节的存放是没有规则也即它们的顺序不一定按照真实书本的章节顺序来存储的。但是在显示章节信息的时候必须按照书本的章节顺序来显示。所以特别设置如下的数据类型：
type
ZJ=record
ZJID:double;
ZJName:string;
end;
在这里ZJID 是设置成double 的类型与相对应的是数据库里表ZhangJie 里的ZJ 字段此字段的类型为文本弄的。故在添加此数据库结构的时候要把文本型转化为double 的类型。而ZJName 对应的是数据库里表ZhangJie 里的ZJName 它们为同一种数据类型。再由于数据库里章节的数量是不定的，故此种数据类型的变量必须是一种长度可变的类型才行，所以我们选择了Delphi 里的动态数组类型。变量定义如下 ：
Var
TempZJ:ZJ;
HaveZJ:array of ZJ;
接下来的问题就是把这个变量记录的数据按一定顺序显示到TCheckTree 的控件里了。由于章节的数量还是比较多的，所以我选择了“改进的选择排序”，具体的排序算法代码实现如下：
for i:=0 to High(HaveZJ) do //对章节号进行排序
begin
k:=i;
for j:=i+1 to MaxNum do
if HaveZJ[k].ZJID>HaveZJ[j].ZJID then k:=j;
if ik then
begin
TempZJ.ZJID:=HaveZJ[i].ZJID;
TempZJ.ZJName:=HaveZJ[i].ZJName;
HaveZJ[i].ZJID:=HaveZJ[k].ZJID;
HaveZJ[i].ZJName:=HaveZJ[k].ZJName;
HaveZJ[k].ZJID:=TempZJ.ZJID;
HaveZJ[k].ZJName:=TempZJ.ZJName;
end;
end;
2．手动生成试卷时要不断的将用户选择的题目临时存储起来，由于记录一道题所包含的信息不是很多，再因为这些信息一会儿还要在“保存答案”里使用，所以我设置了4个TStringList 的全局变量，定义如下：
var
STTypeID,STBH,STND:TStringList;
每选一道题保存时的算法代码如下：
首先保证要添加入的试题与现有的试题不能重复。
LX:=ST_DBG.Fields[1].AsInteger;
BH:=ST_DBG.Fields[0].AsInteger;
for i:=0 to STTypeID.Count-1 do
begin
if (StrToInt(STTypeID.Strings[i])=LX)and(StrToInt(STBH.Strings[i])=BH) then begin
MessageBox(handle,'要加入的试题已经存在了！',' 加入错误',MB_OK or
MB_ICONERROR);
exit;
end;
end;
如果不重复的话则把试题添加进来！！
STTypeID.Add(IntToStr(LX)); //记下试题类型
摘 要
一般情况教师想出一份试卷，要么到庞大的题库里一道一道的把题找出来，或是从几本相关的书里把题一道一道挑出来。这样即费时又费力，而且很难保证试题的覆盖面和把握好试卷的难度。正是为了能够帮助教师轻松的出一份高质量的试卷而开发了本软件。为了达到预期的目标我们最终选择了Microsoft Office Word做为本软件的终端输出。本软件是在对现有控件的改进和VBA 编程的研究的基础上开发的。本软件实现了以下主要功能：1. 手动生成试卷；2. 自动生成试卷；3. 抽取现有试卷；4. 用户管理；5. 数据库管理。大量的测试表明本软件在Windows 98／me ／2000／XP 平台配合Office XP／2003 的环境下程序运行稳定且各项功能运行得都很正确，基本达到了预期的要求！！
结论：经过老师的实际试用本软件在界面上和功能上都有独到之处！！相信完全可以胜任出一份好的试卷任务。
关键词：题库系统，试卷生成，数据库，VBA
Abstract
The general situation teacher thinks out a paper，reach huge exam pool each finds out the question, or shoulder the question together out from several relevant books. Time-consuming and also strenuous like this, and very difficult to guarantee coverage rate and paper degree of difficulty of examination question. Helping the teacher thinks out a higt quality paper is the destination of develop this Software. In the cause of this we select the terminal is Microsoft Office Word. This Software ’s base of develop is improve on control in existence and study the VBA programing. These functions of this software are as follows: One. Manual create paper; Two. Auto create paper; Three. Select from existential papers; Four. User manage; Five. Database manage. The result of many test is that this software is runing steady and these funtions of it is runing right in the environment which make up of Windows 98／me ／2000／XP and Office XP／2003, it is basic reach the requests.
In all: the result of real test by teacher is that this software are unique in interface and function. We must believe it can complete creating a high quality paper.
Key Words ：Exam ，Problem pool，VBA ，word
目 录
摘 要................................................................................................... 1
Abstract . .................................................................................................... 2
前 言................................................................................................... 1 1 . 简述 ............................................................................................. 2
1.1 开发工具简介 ............................................................................. 2
1.1.1 Delphi 7.0的特点........................................................... 2
1.1.2 主要的控件及其属性简介 ................................................ 2
1.1.3 数据库连接方式选择 . ....................................................... 3
1.2 程序运行环境 ............................................................................. 4 2 . 需求分析...................................................................................... 5
2.1 负责的功能模块 ......................................................................... 5
2.2 软件功能分析 ............................................................................. 5 3 . 设计阶段...................................................................................... 8
3.1 概要设计 . .................................................................................... 8
3.1.1 系统数据库设计................................................................ 8
3.2 详细设计 . .................................................................................. 12
3.2.1 程序流程图 ..................................................................... 12
3.2.2 窗体功能简介 ................................................................. 14
4 . 软件实现.................................................................................... 20
4.1 OOP简介 . ................................................................................... 20
4.2 开发的关键技术 ....................................................................... 20 5 . 软件测试及其维护 .................................................................... 24
5.1 系统测试平台简介.................................................................... 24
5.2 测试方法 . .................................................................................. 24
5.3 系统维护 . .................................................................................. 25 6 . 开发总结.................................................................................... 26
参 考 文 献 ........................................................................................... 27
致 谢................................................................................................. 28
译 文 . ................................................................................................ 29
原 文 . ................................................................................................ 33
前 言
在开发本软件之前，正是我努力提高自己的Delphi 开发水平的时期。因此我选择了Delphi 做为我的开发工具，然而这次开发的软件和以前不一样。最主要的区别在于这个软件要以Microsoft Office Word做为试卷的终端输出。而它们又是两个不同公司的产品。因而，刚一开始我特别担心这个技术能否得到比较圆满的解决。在开发的过程中我不断的对VBA 技术进行研究，并且将它应用于这次的软件开发中。因而比较好的解决了Microsoft Office Word的接口编程问题。还有一个比较棘手的问题就是Delphi 提供的控件都是很基本的，而这次开发中要用到一个可以标记选中状态的树型控件，在对Delphi 的TtreeView 的深入研究后确认它不能胜任这个任务。因此，我开始寻找第三方控件，然而这一次我很失望因为只找到了一个2000年编写的TCheckTree 控件，没办法了，最后下定决心修改那个TCheckTree 控件以使它能更加稳定和实用。在深入研究Windows 的消息机制和VCL 框架对Windows 消息机制的封装技术后我成功的修改了那个TCheckTree 控件。在程序开发的后期测试中，我充分利用各个同学电脑平台的多样性。把本软件在多达4种操作系统和3个不同版本的Office 上进行测试。测试表明：在Windows 98／me ／2000／XP 平台配合Office XP／2003 下程序运行稳定且各项功能运行得都很正确！！
1 . 简述
1.1 开发工具简介
1.1.1 Delphi 7.0的特点
Delphi 是Borland 公司出品的开发工具，在众多的开发工具中，我们为什么要选择Delphi 呢？因为Delphi 具有众多其它开发工具所没有的优点！具体介绍如下：
◆ 开发的高效
◆ 语言的高效
◆ 编译的高效
◆ 执行的高效
◆ 维护的高效
基于以上理由，我们毫不忧郁的选择了Delphi 做为我们的开发工具！！
1.1.2 主要的控件及其属性简介
◆ TForm 类的控件：
1) BorderIcons 属性：用来控制程序标题按钮的可用性。
2) BorderStyle 属性：用来控制程序边框的样式。
3) Color 属性：用来控制程序界面的颜色。
4) Font 属性：用来控制程序界面的字体。
5) Position 属性：用来控制程序运行时界面的显示位置。
◆ TADOConnection 类的控件：
1) ConnectionString 属性：用来控制链接字符串。
2) LoginPrompt 属性：用来控制链接时是否要输入密码。
3) Connected 属性：用来控制是否进行链接。
◆ TADOQuery 类的控件：
1) Connection 属性：用来指定和哪个TADOConnection 控件相
连。
2) SQL 属性：用来添加向数据库提交的SQL 语句。
3) Add 方法：用来向SQL 属性添加SQL 语句。
4) Open 方法：用来执行SQL 语言中的Select 语句。
5) ExecSQL 方法：用来执行任何SQL 语句。
6) FieldByName 属性：用来给数据库的字段赋值。
7) FidldValues 属性：用来取出数据库的字段的。
8) Append 方法：用来向数据库添加一条记录。
9) Edit 方法：用来编辑当前的记录。
10) Post ：用来向数据库提交所做的修改。
◆ TADOTable 类的控件：
1) Connection 属性：用来指定和哪个TADOConnection 控件相
连。
2) Open 方法：用来打开数据库中指定的表。
3) FieldByName 属性：用来给数据库的字段赋值。
4) FidldValues 属性：用来取出数据库的字段的。
5) Append 方法：用来向数据库添加一条记录。
6) Edit 方法：用来编辑当前的记录。
7) Post ：用来向数据库提交所做的修改。
◆
◆
◆
◆ TDataSource 类的控件： 1) DataSet ：用来指定和哪个数据集相连。 TDBGrid 类的控件： 1) DataSource ：用来指定和哪个TDataSource 控件相连。 TPageControl 类的控件： 1) ActivePage 属性：用来指定当前活动的Page 页。 TCheckTree 类的控件：
1) ReadOnly 属性：用来控制TCheckTree 内的Item 是否可编辑。
2) Item 属性：用来控制TCheckTree 包含的所有树形结点。
3) Images 属性：用来指点TCheckTree 中结点的图标。
4) OnMouseUp 事件：用来添加鼠标放开事件所执行的程序代码。
5) OnStateChange 事件：用来添加结点状态改变时的程序代码。
◆ TFlatButton 类的控件：
1) Caption 属性：用来指定TFlatButton 的标题。
OnClick 事件：用来添加按钮的单击事件所执行的程序代码。
1.1.3 数据库连接方式选择
Delphi 连接数据库的主要方式有两种：一是：BDE ，二是ADO 。现在我们来大致比较一下这两种技术的优缺点：
BDE （Borland Database Engine）是Delphi 颇具特色的数据库连接管理技术。凭借窗体和报表，BDE 可以访问诸如Paradox,dBASE, 本地InterBase 服务器的数据
库，也可访问远程数据库服务器上的数据库，如Oracle,SyBase,Informix 等C ／S 数据库中的数据库，也可访问经ODBC 可访问的数据库管理系统中的数据库。
ADO(ActiveX Data Objects)是微软提供的一项技术。通过ADO ，可以方便的访问各种类型的数据库，特别是OLEDB 数据库。ADO 已成为访问数据库的新的标准接口。从Delphi 6.0开始Delphi 添加了对ADO 的支持，以便让用户能迅速实现对终端用户用来做商业决策的数据库的一致性访问，结合Delphi 本身的开发式数据组件结构，程序员可以很快地建立应用程序，用来把自己的商业数据库通过Internet 发送给客户，最终用户以及整个销售环节。通过ADO ，Delphi 7.0也能让用户快速访问关系或非关系数据库以及E-Mail 和商务文件系统。
这两者提供了几乎相同的功能，在进行产品开发时，势必要做一个精心的比较。虽然ADO 技术提出的时间不长，并被定位为工业标准的，而且其在性能上由于当前没有良好的数据库引擎支持，其性能还不够完美，但是，我们应该要注意到Borland 公司已经宣布停止发展BDE 了，其性能被ADO 超越也是迟早的事，因此，在开发长期应用的产品时，推荐采用ADO 技术。这样还有另一个好处是，在进行产品分发时，可以避开大量BDE 的链接库DLL 的分发。
基于以上原因我们选择了ADO 做为我们的数据库访问组件。
1.2 程序运行环境
操作系统：Windows 2000／Windows XP
办公软件：Office XP／Office 2003
2 . 需求分析
2.1 负责的功能模块
⏹
⏹
⏹
⏹
⏹ 设计试题生成功能，试题能分布整个教学内容 设计试题的难易程度分析功能 具有试题的答案生成功能 数据库设计及维护 程序的其它选项设置
2.2 软件功能分析
根据我负责的功能模块，主要是在试卷的生成上。
1．要显示书本章节信息以供用户使用。而在数据库里章节的存放是没有规则也即它们的顺序不一定按照真实书本的章节顺序来存储的。但是在显示章节信息的时候必须按照书本的章节顺序来显示。所以特别设置如下的数据类型：
type
ZJ=record
ZJID:double;
ZJName:string;
end;
在这里ZJID 是设置成double 的类型与相对应的是数据库里表ZhangJie 里的ZJ 字段此字段的类型为文本弄的。故在添加此数据库结构的时候要把文本型转化为double 的类型。而ZJName 对应的是数据库里表ZhangJie 里的ZJName 它们为同一种数据类型。再由于数据库里章节的数量是不定的，故此种数据类型的变量必须是一种长度可变的类型才行，所以我们选择了Delphi 里的动态数组类型。变量定义如下 ：
Var
TempZJ:ZJ;
HaveZJ:array of ZJ;
接下来的问题就是把这个变量记录的数据按一定顺序显示到TCheckTree 的控件里了。由于章节的数量还是比较多的，所以我选择了“改进的选择排序”，具体的排序算法代码实现如下：
for i:=0 to High(HaveZJ) do //对章节号进行排序
begin
k:=i;
for j:=i+1 to MaxNum do
if HaveZJ[k].ZJID>HaveZJ[j].ZJID then k:=j;
if ik then
begin
TempZJ.ZJID:=HaveZJ[i].ZJID;
TempZJ.ZJName:=HaveZJ[i].ZJName;
HaveZJ[i].ZJID:=HaveZJ[k].ZJID;
HaveZJ[i].ZJName:=HaveZJ[k].ZJName;
HaveZJ[k].ZJID:=TempZJ.ZJID;
HaveZJ[k].ZJName:=TempZJ.ZJName;
end;
end;
2．手动生成试卷时要不断的将用户选择的题目临时存储起来，由于记录一道题所包含的信息不是很多，再因为这些信息一会儿还要在“保存答案”里使用，所以我设置了4个TStringList 的全局变量，定义如下：
var
STTypeID,STBH,STND:TStringList;
每选一道题保存时的算法代码如下：
首先保证要添加入的试题与现有的试题不能重复。
LX:=ST_DBG.Fields[1].AsInteger;
BH:=ST_DBG.Fields[0].AsInteger;
for i:=0 to STTypeID.Count-1 do
begin
if (StrToInt(STTypeID.Strings[i])=LX)and(StrToInt(STBH.Strings[i])=BH) then begin
MessageBox(handle,'要加入的试题已经存在了！',' 加入错误',MB_OK or
MB_ICONERROR);
exit;
end;
end;
如果不重复的话则把试题添加进来！！
STTypeID.Add(IntToStr(LX)); //记下试题类型