Delphi题库管理系统论文+试卷自动生成+源代码+答辩PPT 第3页
库，也可访问远程数据库服务器上的数据库，如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 负毕业论文
http://www.Lwfree.cn/ 题的难易程度分析功能
具有试题的答案生成功能
数据库设计及文护
程序的其它选项设置
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 i<>k 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)); //记下试题类型
STBH.Add(IntToStr(BH)); //记下试题编号
STND.Add(ST_DBG.Fields[4].AsString); //记下试题难度
3．在毕业论文
http://www.Lwfree.cn/ 随机数重复的机率太大了。其中变量定义如下：
var
XTH:array of integer; //存放随机选题号
以下是产生不重复随机数的算法：
num:=MaxBH-MinBH+1;
if num>0 then //开始初始化
begin
SetLength(XTH,num);
for i:=0 to num-1 do
XTH[i]:=MinBH+i; //给动态数组设初值
Randomize; //初始化随机数生成器
for i:=0 to num-1 do
begin
j:=random(num);
temp:=XTH[i];
XTH[i]:=XTH[j];
XTH[j]:=temp;
上一页 [1] [2] [3] [4] [5] [6] [7] 下一页
Delphi题库管理系统论文+试卷自动生成+源代码+答辩PPT 第3页下载如图片无法显示或论文不完整，请联系qq752018766
