Delphi基于ADO通用数据库连接的实现和应用

发布时间:

维普资讯http://www.cqvip.com
、 数据库 信息管理 电脑知识与技术 
Delphi基于ADO通用数据库连接的实现和应用 
贾卫忠 。王开松 。李存华 
(1.准海J-学院计算机系.江苏连云港222005;2.扬州大学信息工程学院,江苏扬州225(9) 
摘要:AI)O(ActveX Da Objects)是Bornd公司重点开发的数据引擎,把连接数据库的ADO组件的字符串参数加密后保存在约 
定的文件中.灵活地连接不同的数据库,同时也保证了数据库的安全..按照面向对象技术的思想.可以把与数据库连接相关的组件、过程 和函数放在一个单元文件中.供其他程序单元调用. 
关键词:ADO;数据库;数据引擎;Delphi 
中图分类号:TP31  文献标识码:A 文章编号:1009—3044(2006)14—0033—03 
The lmplementation and Applcation of Common Database Connection Based on ADO ln Delphi 
JIA wei~zhong。一.WANG Ka—SOl2.LI Cun—hua  
(1.Dept.of Computer Science,Huahai Institute of Technology,Lianyungang 222005,China;2.nstitute of Information TechnologYangzhou 
Universy,Yangzhou,2250(9,China) 
Abstract:Borland Company focuses Oll the ADO data engine.The database connecton of ADO stngs can be encoded and then stored in the appointed fle.SO that fexibiity of connection to di雎rent databases and securiy of databases can be achieyed.According to the rules of Ob 
ect Orentd echnolog,thes component,procedur and functons elated wi connecton of datba can be mplmented n one uni e 
n Delphi,and then be called by other program fes 
Key words:ActveX Dat o ecacabase;Dac Engne;Delphi 
1引言 
Borand Delphi足Windows环境卜功能强大的集成化开发环 
 Delphi中,新建一个Data Module.把表单的Name属性改 
为Data;在表 巾加入和设置以下组件31,】、ADOConneton组 件,属性Nmne改为ADOConn.属性LoginPrompt设置为Fale.避 免饵次连接数据库时都要输入口令;2、ADOTahle组件,名字 ADOTh1.Conneeton设置为ADOConn: DatSource组件,名字 DtSrc,DataSet设置为ADOTbl:存单元Interace节的uses后修改 为:SysUtis,Classes.ADODB,DBTables,ComObi,OleDb.DB.Ac— 
境.尤其适合基于客户机/服务器的数据库应川软件的外发。ADO 
是Microsoft公司在COM摹础上,封装了0IJE—DB(数据库 的对 象链接和嵌入)数据存取技术,能屏蔽数掂访问的复杂性,高效i疗 问各种数据库。支持多种媒体格式.Borand公司重点开发这种数 据引擎, 此ADO很有前景 
_]前, 少用Delphi开发的基于ADO数据引擎的数据库应用 
veX,以便后续开发:最后把单元文件名修改为UData.保存 台 
软件.对数据库连接组件ADOConneeton的连接属性Connecon— Stng,住丌发时直接指定…,或者每次运行都要输入有关参数 2】,这种方式非常不灵活, 与数据库服务器的网络设置(IP、£机 
适的日录中。 
2.2加密、解密函数 
保存数据库连接字符串AD0Cnnnecf0n组件的Connecon. 
名等)发 改变时, 件只能在源程序r修改这个属性,重新 成 可执行稃序,软件不易适应数据库服务器环境的改变。 
解决这个问题的方法是建立一个通用数据库连接,当数据库 服务器环境发生改变,只要修改数据库连接参数,灵活地连接不 
Stng属性值),如采 明文保存,I0访问数据库的川户名、密码等 
机密信息容易泄漏.囚此,必须把连接字符串加密保存.其他程序 
需建立数据库连接时,从文件中读小字符串.凋用解密函数得到 明文。女l果应用比较重要,可以采用DES、RSA等算法。 
面星加密函数和解密函数的定义,具体文现随用户要求 
定,函数的第・个参数是待加密或解密的字符串,第二个参数是 J密或解密密钥.返[旦I加密或解密后的字符串。 
]的数据库服务器 
2通用数据库连接的实现 
实现通用数据库连接的思路是:给用户提供设定数据库连接 参数的功能,软件读取参数,把它保存在指定文件中,以后要连接 
相同的数据服务器,只要读 这个文件的内容。把连接的参数值 
uncton TData.Decode(ons Data:sng;Depth:Word):sng;  ̄密函数 
赋给数据库连接组件,连接目标数据服务器。但是,为r确保数据 库安全,参数文件的内容不能是明文,需要加密保存。读出时堂解 
密。 
依照面向对象技术的思想.宜建立一个专 的程序单元,包 含与数据库连接相关的所有组件、函数和过程:其他程序单元需 要连接数据库时.只要调用这个模块的有关函数或过程,牛成或 
uncton TDaa+Eneode(eons Data:stng;Depth:Word):sng; 解密函数 
2.3设置和保存数据库连接字符串的过程 
过程ConfigConnstr川于提示用户设置数据库连接.保存连接 
字符申到指定文件中 
过秤先声明和数据库有关的主H件:Datalnit、DBPrompt和 DataSource,分别用于保存数据库连接、设置连接过程和数据源设 置:接着 DBPrompt对象的PromptDataSouree方法提供JJ户设置 
读 数据库连接参数文件的内容,设置ADOConnecton组件的 
ConneetonStng属性.建立数据库连接 
 1建立数据单元文件 收稿日期:2006-03-09 
数据连接,获得连接的数据源DataSouree,成功后利用Datalnit埘 
作者简介:贾卫忠(197(一)。男,江苏省无锡市人,工程师。硕士,研究方向为数据库,企业信息化;王开松,男,硕士;李存华,男, 教授.博士。 
33 

Delphi基于ADO通用数据库连接的实现和应用

相关推荐