1引言
Borland Delphi是Windows环境下功能强大的集成化开发环境,尤其
适合基于客户机/服务器的数据库应用软件的开发。ADO是Microsoft公司在
COM基础上,封装了OLE-DB(数据库上的对象链接和嵌入)数据存取技术,能屏
蔽数据访问的复杂性,高效访问各种数据库,支持多种媒体格式,Borland公司重
点开发这种数据引擎,因此ADO很有前景。目前不少用Delphi开发的基于ADO
数据引擎的数据库应用软件,对数据库连接组件ADOConnection的连接属性
Connection- String,在开发时直接指定[1],或者每次运行都要输
入有关参数[2],这种方式非常不灵活,当数据库服务器的网络设置(IP、主机名
等)发生改变时,往往只能在源程序中修改这个属性,重新生成可执行程序,软件不易适
应数据库服务器环境的改变。解决这个问题的方法是建立一个通用数据库连接,当数据库
服务器环境发生改变,
只要修改数据库连接参数,灵活地连接不同的数据库服务器。
2
通用数据库连接的实现
实现通用数据库连接的思路是:给用户提供设定数据库连接参数的功能,软件读取参数,
把它保存在指定文件中,以后要连接相同的数据服务器只要读出这个文件的内容,把连接
的参数值赋给数据库连接组件,连接目标数据服务器。但是,为了确保数据库安全,参数
文件的内容不能是明文,需要加密保存,读出时要解密。
依照面向对象技术的思想,宜建立一个专用的程序单元,包含与数据库连接相关的所有组
件、函数和过程;其他程序单元需要连接数据库时,只要调用这个模块的有关函数或过程
生成或读出数据库连接参数文件的内容,设置ADOConnection组件的Con
nectionString属性,建立数据库连接。
2.1
建立数据单元文件
在Delphi中,新建一个DataModule,把表单的Name属性改为Dat
a;在表单中加入和设置以下组件[3],
1、ADOConnection组件,属性Name改为ADOConn,属性Log
inPrompt设置为False,避免每次连接数据库时都要输入口令;
2、ADOTable组件,名字ADOTbl,Connection设置为ADOC
onn;
3.DataSource组件,名字DtSrc,DataSet设置为ADOTbl;
在单元Interface节的uses后修改为:SysUtils,Classes
ADODB,DBTables,ComObj,OleDb,DB,Ac-tiveX
以便后续开发;