西南交通大学网络教育毕业设计（论文） 第 13 页
3.4 数据库功能的实现
客户端的应用程序要访问服务器端的数据库，例如在进行考生认定时要访问用户表；在进入答题界面时要访问试题库。
系统采用ADOconnection实现与数据库的直接连接，即可以完全由相关的数据连接组件实现连接而无需另外的支撑程序。
方法如下：
1. 择ADOconnection控件，双击此控件出现如下图3-1、图3-2所示
图 3-1
图 3-2
2. 配置Object Inspecter中的connection的属性为true，loginsprompt的属性为false。
3. 系统采用ADOQuery实现查询功能
3.5 Word字表处理功能的实现
主要介绍一下OLE自动化：
OLE自动化是一种为WINDOWS设计的交互进程通信机制，它让一个应用程序驱动或自动完成另一个应用程序，如在C++中创建EXCEL中的表格等。它克服了链接和嵌套中存在的缺点，即无法用编程手段对对象进行控制。实现了对OLE组件的编程式控制。
OLE自动化包括两部分应用程序：一个是把OLE组件暴露出来使之可控制的应用程序，叫做OLE自动化服务器；另一个是利用OLE服务器提供的组件，对该对象
西南交通大学网络教育毕业设计（论文） 第 14 页 进行控制操作的应用程序，叫做OLE客户。
每个OLE对象都有属性（Property）和方法（Method），OLE自动化服务器的编写者决定哪些属性和方法将通过OLE自动化暴露出来，而私有对象对于外部用户来说是不可见的。OLE客户编程人员只需知道包含对象的应用程序的名称、对象的类的名称和想要使用的属性和方法的名称，就可以使用自动化服务器了。
OLE自动化服务器有两种创建方法：即进程内服务器和进程外服务器。进程内服务器是与客户应用程序在同一进程内运行，进程内服务器一般以DLL文件的形式存在；进程外服务器则作为一个单独的进程，在自己的地址空间中运行，一般以EXE文件的形式存在。
此系统是在Delphi中通过Ole的方法控制MS Word，主要采用的方法是通过位于System面板上的Olecontainer控件用于在应用程序的窗口上创建一个OLE用户区域，用于实现Delphi与外部某个对象的接口，当然也可以实现Delphi与Word对象的接口。用此方法是最简单的Ole嵌入，能够直接将Word文档调用，只需要调用TOleContainer的Run方法就可以将word文档直接启动。且这样启动的Word文档与Delphi程序是一个整体（从界面上看），但是它存在不可克服的缺点，即不能通过Delphi控制word文档，所以不能实现将灵活操纵word的目的。
在应用程序的实现过程中,将会运用到大量的数据控件,这必然要调用相应的数据组件.于是,就需要在各个窗体中添加数据组件.这可能会造成组件的混淆.在Delphi6.0中提供的OLEcontainer,可以很好的解决这个问题,将所有的数据组件都放到OLEcontainer中.当其它窗体需要访问数据库时,只要在其单元文件中引用OLEcontainer的单元文件,就可以直接访问到数据库中的数据了.本应用程序中OLEcontainer其设计如图3-3所示
图3-3
下面是其实现程序：
procedure scdsBLOBDataBeforePost(DataSet: TDataSet);
西南交通大学网络教育毕业设计（论文） 第 15 页 procedure scdsBLOBDatBeforePost(DataSet: TDataSet); private
function GetMaxID : Integer; { Private declarations } public
{ Public declarations } end; var
dmolecontainer: Tdmolecontainer; implementation
//uses Unit2, Unit1, Unit4, Unit7, Unit8, Unit9, Unit10, Unit3; {$R *.dfm}
function Tdmolecontainer.GetMaxID: Integer; begin try
scdsMaxID.Open; try
Result := scdsMaxID.Fields[0].Value + 1; except
on Exception do Result := 1; end; finally
scdsMaxID.Close; end; end; procedure
Tdmolecontainer.scdsBLOBDataBeforePost(DataSet: TDataSet); begin
if (VarIsNull(DataSet.FieldByName('ID').Value)) then DataSet.FieldByName('ID').Value := GetMaxID; end; procedure
西南交通大学网络教育毕业设计（论文） 第 16 页 Tdmolecontainer.scdsBLOBDatBeforePost(DataSet: TDataSet); begin
if (VarIsNull(DataSet.FieldByName('ID').Value)) then DataSet.FieldByName('ID').Value := GetMaxID; end; end..
西南交通大学网络教育毕业设计（论文） 第 17 页
第4章 考试系统的流程介绍
考试系统首页是登录界面，打开Project2即可看到如图4-1所示的考试登录书面。但是考生必须先注册得到系统验证后才能进行登录工作如图4-2，当应试学生进入到考试首页，点击“Go”后系统会先要求你输入[用户名]和[密码]后才会进入考试的第二页；此后，系统就直接进入考前设置界面如图4-3所示，并要求你键入各题型的数目与试题的难易程度，以进行考前的试卷设置工作，待上述核对正确后，系统即领你进入本次考试内容。考试内容由老师订做，考试题库资料由老师不断更新和增删，系统即会将所点选的内容合并成一份试卷，可省去老师出题的时间。点击“开始考试”按钮，此时，系统会提示你“试卷完成” 如图4-4所示，并且瞬间就有一套与你设置相应的试卷自动生成，对此套试卷系统提供保存功能，以便考生复习。如图4-5所示。
图4-1 登录界面
图4-2 注册界面
图4-3 考前设置界面