2022年Delphi两个经典数据库控件集详解 .pdf

《2022年Delphi两个经典数据库控件集详解 .pdf》由会员分享，可在线阅读，更多相关《2022年Delphi两个经典数据库控件集详解 .pdf（3页珍藏版）》请在淘文阁 - 分享文档赚钱的网站上搜索。

1、Delphi 两个经典数据库控件集详解Delphi 强大的数据库功能一直是Delphi 程序员们的最爱，然而，BDE 强大功能的后面，却有太多的限制。 当程序员们绞尽脑汁编出短小精悍的程序而兴高采烈时，他们不得不尴尬的面对发布程序时BDE 那几兆大的附加文件。有没有其他控件，既可以使用Delphi 强大的数据库功能而又不要那几兆大的BDE？答案时肯定的，那就是使用第三方控件或者Delphi5的 ADO 控件。在这里，我将具体介绍Delphi 第三方数据库控件集：DiamondAccess1.7 和ODBCExpress5.06 。DiamondAccess 控件集使用微软数据访问对象DAO 访

2、问数据库。利用此控件集访问数据库，可以完全摆脱BDE，当然，发布程序时也就无需考虑BDE 的麻烦了。而且， DAO 的访问速度比BDE 更快。 ODBCExpress 控件集使用大家都很熟悉的ODBC 访问数据库，只要设置好数据源，就可以访问大部分类型的数据库；而且，使用ODBC 接口的程序具有更大的可移植和通用性。ADO 数据库访问控件在Delphi5 中已经加入进来，假如要在 Delphi4 或者更低的版本使用ADO，就必须使用第三方控件，比如：DiamondDAO ，同样可以提供强大的更能。以下，我们通过实例的形式具体介绍DiamondAccess1.7和ODBCExpress5.06

3、的使用，我们将利用这两个控件集实现同样的功能：在DBGrid 中列出数据库所有数据， 通过输入检索数据。通过这些实例， 我们可以基本了解以下内容：1）Delphi中应用这两个控件集访问数据库的基本技术；2）发布采用这两个控件集的程序需要注重的问题和基本方法；3）两个控件集的优缺点和下载安装方法；DiamondAccess 控件集演示一、控件说明DiamondAccess是一套高速连接MicrosoftAccess数据库的控件集，包括TDAODatabase ，TDAOTable，TDAOQuery和 TDAOQueryDef四个控件。它不依靠BDE 访问数据库，而是使用微软的DataAcces

4、sObjects3.5 和 JetDatabaseEngine 访问数据库，利用Access 自带数据库引擎，DiamondAccess 可以提供高速的数据库访问接口。图 1DiamondAccess 控件集控件TDAODatabase用于定义要访问的Access 数据库，主要属性是DataBaseName；TDAOTable 和 Delphi 自带数据库控件Tabel 相似；TDAOQuery和 Delphi 自带控件Query 相似； TDAOQueryDef和 DAOQueryDefobject一起使用，平时编程中较少用到。二、演示程序现在，我们用实例了解DiamondAccess的用法

5、。在程序中，我们将用到TDAODatabase控件， TDAOQuery 控件， Delphi 自带 Datasource 控件， Edit 和 Button 控件。程序打开数据库 DataBase 的 main 表并列出所有数据，Edit1 控件用于输入数据检索。为了更好的了解，我们先看看main 的表结构。 1）数据库DataBase 表 main 的结构字段名数据类型字段大小/格式 ID 自动编号长整型姓名文本50 电话文本50 生日日期 /时间常规日期说明文本100 表 1 数据库 DataBase表 main 的结构2）程序中控件属性为了程序有更好的可迁移性，我们尽量不再属性面板中设

6、置控件属性，而是在程序代码中设置。以下属性，只是控件最基本的要求，进一步设置请看程序源代码。控件属性Form1Caption ：DiamondAccess 演示； DAODatabase1 默认； DAOQuery1Database ：DAODatabase1； SQL： selectfrommain ； DBGrid1DataSource ： DataSource1； DataSource1Dataset：DAOQuery1 ；Edit1 Text：空； Button1Caption：检索名师资料总结 - - -精品资料欢迎下载 - - - - - - - - - - - - - - - -

7、 - - 名师精心整理 - - - - - - - 第 1 页，共 3 页 - - - - - - - - - 表 2DiamondAccess 演示程序控件及控件属性图 2 控件属性3 ） 程 序 代 码 程 序 在Form1的Create时 间 中 设 置 控 件 的 主 要 属 性 。procedureTForm1.FormCreate;varbasename：string;begin/ 定义数据库，这里是程序所目录的Data子目录下的database1.mdb文件baseName：=ExtractFilePath+;DAODatabase1.DatabaseName ：=basenam

8、e;tryDAODatabase1.Open;/ 打开数据库 daoquery1.Open;/执行“ Selectfrommain ”语句 exceptShowMessage;Halt;end;end;点击按钮 Button1， 检索表 main 中姓名等于Edit1 输入值的记录。 procedureTForm1.Button1Click;var strsql ： string;/ 用 于 定 义DAOquery1的SQL语 句beginstrsql ： =;iftrimthenstrsql：=strsql+edit1.text+;form1.daoquery1.close;form1.da

9、oquery1.sql.clear;form1.daoquery1.SQL.add;Form1.setfocus;tryform1.daoquery1.open;exceptform1.daoquery1.execute;end;end;三、下载与安装DiamondAccess1.7 可以在凌云天地下载，安装与一般控件安装相同。四、要注重的地方 1）发布程序应用DiamondAccess 控件的程序， 在发布时要注重目标计算机是否安装有DAO3.5 或者以上版本，假如没有，程序执行时会出现要求安装的提示。DAO3.6 安装版下载： http： / 2）关于Access 版本的限制现在的Diam

10、ondAccess 只支持 Access97 版本， 程序中最好使用Access97 数据库。 3）日期格式的非凡说明日期数据的检索，日期格式要求与Access 的日期格式相同，不可与Delphi 的数据库的日期格式相同。试举一例：检索两个时间段之间的所有数据，这两个时间由控件：datetimepick er1 和 datetimepicker1 来决定，那么，SQL 语句如下： DAOquery1.sql.add+formatdatetime+ ） ;在这里，我们特意转换时间格式为：“mm/dd/yyyy ”格式格式，并且，时间用“#”包围起来。ODBCExpress5.06 控件集演示一、

11、 控件说明ODBCExpress 控件集是利用ODBC 快速访问数据库的控件，与 DiamondAccess不同， ODBCExpress 可以访问不同类型的数据库，并不局限于Access 数据库。所以，ODBCExpress 具有较大的灵活性。ODBCExpress 控件集包括19 个控件，实际上分为三类：核心控件，用于连接和查询数据库；可视数据控件；不可见控件。如图：图 3ODBCExpress 控件集二、 演示程序这个程序演示了如何在程序中动态设定DSN 数据源，如何动态载入数据，同时，简单演示了一个查询。所用控件有：THDBC控件，用于与DataSource 建立连接； OEDatas

12、et 控件； DataSource 控件； DBGrid 控件， Edit 控件和一个Button 控件。所用控件属性如下：控件属性Form1Caption ： ODBCExpress5.06演示； Hdbc1 默认 ； OEDataset1hdbc： Hdbc1 ；DBGrid1DataSource ： DataSource1 ； DataSource1Dataset： OEDataSet1 ； Edit1Text ： 空 ；Button1Caption ：检索名师资料总结 - - -精品资料欢迎下载 - - - - - - - - - - - - - - - - - - 名师精心整理 -

13、- - - - - - 第 2 页，共 3 页 - - - - - - - - - 表 3ODBCExpress5.06 演示程序控件属性程序中所用数据库和DiamondAccess 演示中数据库结构相同。以上控件的其他属性将在程序代码中设置。图 4ODBCExpress5.06 演示程序程序代码程序在Form1 的 Create中设定数据源DSN，同时设置其他控件属性。其中，设定DSN 数据源将用到注册表操作，请注重。procedureTForm1.FormCreate;varregisterTemp ：TRegistry; bData：arrayofbyte;begin/ 以下程序设置DS

14、N 数据源； registerTemp：=TRegistry.Create;/ 建立一个Registry 实例withregisterTempdobeginRootKey ： =HKEY_LOCAL_MACHINE;/设置ROOT； ifOpenKey;/ 设定DSN 为“ MyAccess ” ；endelsebeginshowmessage;/数据源描述；WriteString;/ 驱动程序DLL 文件 Wri teInteger;WriteString;WriteInteger;WriteString;/用户名称bData：=0;WriteBinaryData;WriteBinaryDa

15、ta;endelsebeginshowmessage;WriteInteger;/缓 冲 区 大 小WriteInteger;/ 页超时 WriteInteger;/ 支持的线程数目WriteString;endelsebeginshowmessage; exit;end;CloseKey;Free;end;/以下程序设置控件属性；Form1.Hdbc1.Terminate;Form1.Hdbc1.DataSource ：=;/DSN 名字 Form1.Hdbc1.UserName ：=;/数据库用户名Form1.Hdbc1.Password ： =;/ 用户密码 Form1.Hdbc1.Co

16、nnect;OEDataSet1.Table ：=;/数据表为mainOEDataSet1.sql：=;OEDataSet1.Open;datasource1.dataset：=OEdataset1;dbgrid1.DataSource ：=datasource1;end;以上程序设置DSN 是重要的一部分，这样 才使程序具 有真正的可移 植性。以下代 码为检索部分。procedureTForm1.Button1Click;beginifedit1.text=then/是否输入数据beginshowmessage;exit;end;OEDataSet1.Hstmt.ExecAsync：=Tru

17、e;OEDataSet1.Table：=;OEDataSet1.sql：=+edit1.text +;OEDataSet1.open;end;注：以上 DSN 设置部分参考了大富翁论坛贴子，在此表示感谢。三、下载与安装ODBCExpress5.06 在男儿有志当凌云下载。执行 Setup 安装。 四、要注重的地方1）版本问题ODBCExpress5.06 以前的版本在Delphi5 中使用时，将出现一些错误，如：关闭使用了此控件集的程序错。建议Delphi5 用户下载ODBCExpress5.06 及以后版本。 2）程序发布问题以上演示程序在程序窗口创建时定义DSN 数据源，并不是太好的方法，

18、一是延长程序启动时间，二是每一次程序执行都设置一次，并不太好。 建议适当修改以上程序，使其更加合理。总结以上两个控件集是Delphi 不使用BDE 的第三方控件集中的佼佼者，当然，与以上控件集具有同样功能的控件集有很多，比如 ODBC98 就和 ODBCExpress 一样应用 ODBC 访问数据库，而且功 能强 大，读 者假 如有 爱好可 以自 己研 究。在 这两 个控 件集中 ，笔 者更 加欣赏DiamondAccess ，它方法数据库的速度和使用上的简便是ODBCExpress 所欠缺的。名师资料总结 - - -精品资料欢迎下载 - - - - - - - - - - - - - - - - - - 名师精心整理 - - - - - - - 第 3 页，共 3 页 - - - - - - - - -