标题:Delphi 7.0开发技巧集锦(一)------关于Delphi的BDE作者：  出处：  更新时间： 2004年08月09日

Delphi 7.0开发技巧集锦(一)

这里为读者提供一些实用的开发技巧和某些常见问题的解决途径。很多程序设计人员都有这样的体会，那就是往往自己冥思苦想某个问题的时候，旁人的一句点拨就可以拨云见日，灵感突现。因此下面以FAQ的形式列举了在开发过程中可能会遇到的问题，以飨读者。

1.1 关于Delphi的BDE

Delphi操作数据库主要是利用BDE来进行。BDE是基于32位Windows内核的数据库引擎和连接工具，支持现有的大多数数据库。它具有如下一些特点：

1. 为多种数据库格式提供统一的应用程序接口，包括任何ODBC数据源。

2. 适应C/S数据库应用的开发，程序设计人员可以访问所有本地和服务端的数据，并且很容易实现应用的向上兼容性。

3. 对于Delphi标准的数据库访问(如Paradox和dBASE)，BDE提供的连接方式是最快的。

4. 直接实时的访问数据源。

1.1.1 如何自定义BDE的驱动程序

BDE中按照各个文件的作用可分为以下几部分，这些文件均保存在“…\Program Files\Common Files\Borland Shared\BDE”目录下。

1. 必备文件

Blw32.dll：语言驱动函数库。

Idapi32.dll：BDE基本函数库。

Fareast.bll、Usa.bll：远东语言及美国语言驱动程序，对中文软件不可缺少。

Idr20009.dll：错误信息库。

2. 数据库驱动程序(可选)

Idasci32.dll：Ascii文本数据库驱动程序函数库；

Iddao32.dll：Access数据库驱动程序函数库；

Iddbas32.dll：dBase数据库驱动程序函数库；

Idodbc32.dll：ODBC数据库驱动程序函数库；

Idpdx32.dll：Paradox数据库驱动程序函数库。

3. 其他驱动程序和配置文件(可选)

Idbat32.dll：批操作驱动程序函数库，如果不用TBatchMove组件或DbiBatchMove类函数，可以不要。

Iddr32.dll：Data Repository驱动程序函数库，如果不用Data Repository功能，可以不要。

Idprov32.dll：BDE DataSet provide驱动程序函数库，如果不用TProvider组件，可以不要。

Idqbe32.dll：QBE驱动程序函数库，如果不用Query By Example，可以不要。

Idsql32.dll：SQL查询驱动程序函数库，如果不用TQuery进行查询，可以不要。

Idapi32.cfg：BDE配置文件，如果程序中没有特殊要求，可以不要。也可以在BDE管理器中设置正确后再分发。

4. 其他文件(一般不用)

BDE32.HLP、BDE32.CNT：BDE帮助文件。

BdeAdmin.exe、BdeAdmin.HLP、BdeAdmin.CNT：BDE管理器及帮助文件。

*.BLL：其他国家和地区的语言驱动程序。

DataBump.EXE、DataBump.HLP：数据库数据转移工具及帮助文件。

Localsql.HLP、Localsql.CNT：SQL查询语句帮助文件。

Sqllnk32.HLP、Sqllnk32.CNT：SQL连接帮助文件。

1.1.2 如何注册BDE

安装BDE仅仅复制前面提到的各种文件是不行的，还要等到向注册表注册之后才可以使用。

必需的注册表项目包括：

1. BDE动态链接库文件位置设置(如图1所示)

Key：HKEY_LOCAL_MACHINE\Software\Borland\Database Engine

Item：DLLPATH

Value：BDE动态链接库文件所在位置

图1 BDE动态链接库文件位置设置

2. BDE语言驱动文件路径设置(如图2所示)

Key：HKEY_LOCAL_MACHINE\Software\Borland\BLW32

Item：BLAPIPATH

Value：BDE语言驱动文件所在路径

图2 BDE语言驱动文件路径设置

3. 定义可用的BDE语言驱动文件(如图3所示)

Key：HKEY_LOCAL_MACHINE\Software\Borland\BLW32

Item：LOCALE_LIB#" (#表示数字, 如"LOCALE_LIB1"、"LOCALE_LIB3"等)

Value：指定各BDE语言驱动文件

图3定义可用的BDE语言驱动文件

1.1.3 如何在运行期检测和建立数据库别名

在前面学习的案例中，数据库别名的建立、修改和删除等维护工作，一般在BDE Administrator中进行，并在设计期就已经设置完毕，但这些功能在运行期将如何实现呢？在Delphi的BDE中，当数据库类型为STANDARD时，其别名定义最为简单，但这时仅能使用Paradox，dBASE，ASCIIDRV三种数据库作为默认的驱动程序。另外还需定义数据库存储路径(PATH)和ENABLE BCD，这样才能建立一个完整的数据库别名。

Delphi的数据库应用程序能自动提供一个Session组件，这个Session组件即为应用程序与BDE的接口。

1. 检测别名

通过调用Session.GetAliasNames(list:Tstrings)方法，可将当前BDE配置中的所有数据库别名的名称存放到List字符串列表中。然后调用list.IndexOf(需要检测的别名')函数，该函数的返回值可用来检测数据库别名是否存在(若其值为-1则不存在)。

2. 添加别名

使用Session组件的过程AddStandardAlias(constName,Path,DefaultDriver:string)，可以添加一个标准类型的数据库别名。如添加一个数据库别名为NewAlias，其默认数据库驱动程序为Paradox、存储路径为c:\instance1，则可以使用下面的语句。

Session.AddStandardAlias('NewAlias',' c:\instance1','Paradox');

3. BDE配置文件存盘

使用Session.SaveConfigFile语句可将设置信息保存。

一般可以在窗体的OnCreate事件中添加检测和创建数据库别名的程序代码，下面就是一个在运行期实现上述功能的例子。首先单击Delphi工具栏上的“New Form”按钮，新建一窗体，在该窗体上添加一个Table组件，用以提供TSession对象。然后在窗体的OnCreate事件中添加如下所示的代码，程序执行时，系统会首先检测NewAlias别名是否存在，若不存在，提示用户是否创建这个别名，如图4所示。

Procedure TForm1.FormCreate(Sender: TObject);

var

sl:TStringList; //字符串列表变量

re:Integer;

begin

sl:=TStringlist.Create;

Session.GetAliasNames(sl); //取得别名列表

if (sl.IndexOf('NewAlias')=-1) then //判断别名是否存在

begin

re:=Application.MessageBox('别名NewAlias不存在，现在创建吗？','BDE信息窗口',mb_OKCancel);

if re=IDCANCEL then begin

sl.Free;

Exit;

end;

Session.AddStandardAlias('newAlias','c:\instance1','Paradox');

//增加一个名为NewAlias的数据库别名

Session.SaveConfigFile; //保存BDE配置文件

end ;

sl.free;

end;

图4 提示信息

1.1.4 Delphi连接数据库的方式有哪些

---- Delphi访问数据库的方式主要有3种，包括直接访问，如访问标准数据库类型Paradox和dBASE；通过ODBC访问，如访问Access、Foxpro等数据库；通过内嵌(Native)方式访问数据库，如访问SQLServer、Oracle、DB2等。下面以Table组件为例说明这3种方式的特点和用法。

1. 直接访问

----Delphi可以直接访问诸如Paradox和dBASE的标准数据库类型，而不需要什么特别的设置，只需要把文件路径或数据库别名赋值给Table组件的属性DatabaseName就可以访问该路径下的数据表了。

2. 通过ODBC访问

----访问Paradox和dBASED以外的数据库，通常可通过ODBC来实现。Delphi可以访问支持ODBC的数据库系统，如Access、SQLServer和Oracle等。当然，通过ODBC访问数据库时，首先要使用Windows的控制面板或Delphi的数据库引擎建立ODBC数据源。

3. 通过内嵌方式访问

Delphi中还可以不使用ODBC，而以内嵌方式访问SQLServer、Oracle、DB2等数据库系统。这需要使用数据库别名来指定数据库，数据库别名可以事先建立，也可以在程序运行时动态创建。前者称为静态别名，后者称为动态别名。使用数据库别名来访问数据库的方法和使用ODBC数据源的情形相同，这里不再赘述。

通过内嵌方式访问数据库的静态别名必须在BDE中建立。以访问SQLServer数据库为例，在建立别名时必须指定数据库服务器的名称(Servername)、主机名(Hostname)以及要访问的数据库名称(Databasename)，可以指定登录用户名(Username)和密码(Password)等。

图5 设置Database组件

通过动态创建的别名来访问数据库必须使用Database组件。用户可以用鼠标双击Database组件，出现参数设置窗口，如图5所示。在“Drivername”一栏选择要访问的数据库系统，如“MSSQL”，然后选择按钮“Defaults”，就会把BDE中该数据库系统所需的参数名称和缺省值加入到“Parameteroverrides”列表中。根据实际情况更改参数中的“Servername”、“Databasename”等项。最后单击OK按钮完成设置。

比较可知，通过内嵌方式访问数据库要比通过ODBC访问数据库速度快一些。而且，内嵌方式可以在程序中动态设置连接数据库所需的参数，用户可不必设置ODBC数据源，从而降低了对用户技术水平的要求，并且减少了用户的工作量。因此从系统配置的难易和复杂程度来看，使用内嵌方式开发出的数据库应用系统更便于普通用户使用。

1.1.5 如何获取BDE的版本信息

单击Delphi工具栏中的“New Form”按钮，新建一窗体。向该窗体中添加1个Memo组件，并设置其Align属性为alclient。在窗体对应的单元文件的USES部分添加dbierrs, DBTables两个引用库文件。在下面的单元文件中，fDbiGetSysVersion函数将返回一个称为SysVersion的结构，并将最后结果显示在窗体的Memo中。

/*该窗体的单元文件代码*/

unit Unit1;

interface

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs,dbierrs, DBTables, StdCtrls;

type

TForm1 = class(TForm)

Memo1: TMemo;

procedure FormCreate(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form1: TForm1;

implementation

{$R *.dfm}

function fDbiGetSysVersion(SysVerList: TStringList): SYSVersion;

var

Month, Day, iHour, iMin, iSec: Word;

Year: SmallInt;

begin

Check(DbiGetSysVersion(Result));

if (SysVerList <> nil) then

begin

with SysVerList do

begin

Clear;

Add(Format('数据引擎版本号=%d', [Result.iVersion]));

Add(Format('接口级=%d', [Result.iIntfLevel]));

Check(DbiDateDecode(Result.dateVer, Month, Day, Year));

Add(Format('版本日期=%s', [DateToStr(EncodeDate(Year, Month, Day))]));

Check(DbiTimeDecode(Result.timeVer, iHour, iMin, iSec));

Add(Format('版本时间=%s', [TimeToStr(EncodeTime(iHour, iMin, iSec div 1000, iSec div 100))]));

end;

end;

end;

procedure TForm1.FormCreate(Sender: TObject);

var hStrList: TStringList;

Ver: SYSVersion;

begin

hStrList:= TStringList.Create;

try Ver := fDbiGetSysVersion(hStrList);

except

ShowMessage('BDE not installed !');

end;

Memo1.Lines.Assign(hStrList);

hStrList.Destroy;

end;

end.

按F9键运行程序，将得到如图6所示的BDE版本信息。

图6 运行结果窗口

1.1.6 如何维护DBF数据库

事实上，由于Delphi具有快捷易用、功能强大等优点，使得很多FoxPro和VFP的程序设计人员加入到了Delphi阵营。但在FoxPro和VFP的开发环境下，有许多DBF类型的数据表文件需要移植到Delphi中来，因此在Delphi中如何维护和操作这些数据将是一个很重要的问题。下面阐述在Delphi中完成DBF数据库的如下操作：真正删除记录、显示被删除记录、获取当前记录号和恢复被删除记录．

1. 真正删除记录

在Delphi程序中，使用Table或Query组件的Delete方法执行删除记录操作时，系统执行的是软删除，即相当于Foxpro中的“Set Delete Off”的效果。该方法只是将记录用星号标记为删除，实际并没有进行物理上的删除。要想真正删除记录，需要调用BDE函数DbiPackTable，该函数语法为：

functionDbiPackTable(hDb:hDBIDb;hCursor:hDBICur;pszTableName:PChar;pszDriverType:PChar;bRegenIdxs:Bool):DBIResult;

其中hDb为数据库Databse的句柄，hCursor为数据表Table的句柄，pszTableName为要删除记录的数据表名，pszDriverType为要删除记录的数据表的类型，bRegenIdxs表示是否在删除记录后自动更新索引文件。在四个参数中，hDb不能为NULL。hCursor、pszTableName、pszDriverType可以为NULL，但必须提供足够的信息来标识数据表的文件名和类型，当hCursor不为空时，pszTableName和pszDriverType可以为NULL；当pszTableName为数据表的路径和文件名时，hCursor和pszDriverType可以为NULL。

值得注意的是，在删除记录时，如果用Table来实现，则Table必须以Exclusive=True的方式打开。

2. 显示或不显示软删除记录

当DBF数据库中的记录执行软删除后，默认情况下在DBGrid等数据库显示组件中是看不见这些记录的。可以用BDE函数来控制是否显示DBF数据库中被软删除的记录，如同在Foxpro中利用语句Set Delete ON/OFF开关一样。执行这一功能的函数为DbiSetProp，其语法为：

functionDbiSetProp(hObj:hDBIObj;iProp:Longint;iPropValue:Longint):DBIResult;

该函数用来设置DBI对象中某个属性的值。其中Obj为DBI对象名称，这里为数据表Table的句柄，iProp为属性名，可使用软删除属性curSOFTDELETEON，iPropValue为属性值。

3. 获取当前记录号

在Delphi中可以使用BDE函数获取当前记录在数据集中的记录号．该函数为DbiGetRecord，其语法为：

functionDbiGetRecord(hCursor:hDBICur;eLock:DBILockType;pRecBuff:Pointer;precProps:pRECProps):DBIResult;

该函数用来取得当前记录的一些属性。其中，hCursor为数据集的Handle，eLock为对记录加锁的类型，pRecBuff存放记录的缓冲区，precProps为记录属性集，这里面就包含当前记录的记录号。

4. 恢复软删除记录

在Delphi应用程序中，对DBF数据表执行的删除操作为软删除操作。由于物理记录并没有从数据表中删除，因此可以恢复被软删除的记录，只要去掉删除标志即可。完成这一功能需使用函数DbiUndeleteRecord，其语法为：

functionDbiUndeleteRecord(hCursor:hDBICur):DBIResult;

其中，hCursor可以是数据集的Handle。

1.1.7 如何备份数据表

对于数据库应用来说，数据表的备份应该算是一个常用的功能。下面举一例，介绍其实现过程。单击Delphi工具栏上的“New Form”按钮，新建一窗体，在该窗体上添加1个Table组件、1个DataSource组件、1个DBGrid组件和2个Button组件，设置数据库之间的连接关系，并置Table的Active属性为True。窗体的布局设计如图7所示。

图7 窗体布局示例

然后在“备份表”按钮的OnClick事件中添加代码：

Procedure TForm1.Button1Click(Sender: TObject);

begin

QuickCopyTable(table1,'c:\a.dbf',true);

ShowMessage('数据表备份已完成')

end;

其中所引用的QuickCopyTable方法的代码如下所示。

Procedure QuickCopyTable(T: TTable; DestTblName: string; Overwrite: Boolean);

var

DBType: DBINAME;

WasOpen: Boolean;

NumCopied: Word;

begin

WasOpen := T.Active; //保存表的Active属性值

if not WasOpen then T.Open; //检查表是否打开

Check(DbiGetProp(hDBIObj(T.Handle),drvDRIVERTYPE,@DBType, SizeOf(DBINAME), NumCopied)); //获得驱动程序类型字符串

Check(DBICopyTable(T.DBHandle, Overwrite, PChar(T.Tablename),

DBType, PChar(DestTblName))); //复制表

T.Active := WasOpen; //恢复表的Active属性值

end;

最后，要在单元文件的Uses备份添加dbierrs库文件。此时单击Delphi工具栏上的“Run”按钮或按下F9键，运行程序，单击“备份表”按钮，如图8所示。所备份的数据表a.dbf内容，如图9所示。

图8 运行结果窗口

图9 备份的a.dbf文件的内容

1.1.8 如何使用过滤器

在操作数据库时，经常需要对数据进行筛选过滤。例如在第四章学生学籍管理系统的案例中，有一个名为jiben.dbf的数据表，它具有XH、XM、CSRQ等多个字段，如果只想查看班级编号为001的学生记录，就需要对数据表中的信息进行过滤。下面是常用的对数据表信息进行过滤的方法：

1. 利用TTable和TQuery的Filter属性

n 在设计时设置Filter属性

例如设置Filter为(bjbh=’001’)，然后改变Filtered属性为True。此时将只能看到对应的bjbh(班级编号)字段内容为’001’的记录。另外设置Filter时可以使用的操作符有：＜、＞、＜=、＞=、=、＜＞、AND、OR、NOT。

n 在程序运行期间进行动态过滤

要在程序运行时改变Filter属性，包括两种情况。一是操作符右边为常量，例如语句(table1.Filter:='bjbh'+'='+'001';)；二是操作符右边不为常量，可能是通过一个变量指定的值，或由一输入框给出的值。此时需要使用Format函数。其代码形式为(Table1.Filter:=Format('bjbh'+'='+'%S',[bjbhvalue]);)其中bjbhvalue为已经赋值的一个字符串变量，也可以为其他形式如Edit1.Text。

2. 用ApplyRange筛选数据集的记录

Delphi的DBDEMOS数据库中有一个Customer.db数据表，如果我们想查看顾客号从1000到3000之间的顾客记录。可使用ApplyRange, SetRangeStart, SetRangeEnd过程来完成，其代码为：

Table1.SetRangeStart;

Table1[‘CustNo’]:=1000;

Table1.SetRangeEnd;

Table1[‘CustNo’]:=3000;

Table1.ApplyRange;

需要说明的是该过程只适用于索引的字段。

3. 用OnFilterRecord事件过滤

例如下面的代码：

Procedure TForm1.Table1FilterRecord(DataSet:TDataSet;varAccept:Boolean);

begin

Accept:=DataSet[‘bjbh’]=’001’;

end;

4. 用Query组件的SQL语句

n SQL语句中不包含变量和参数

Select * from Customer Where CustNo＞=1000 and CustNo＜=3000

n SQL语句中包含参数

Select * from Customer Where CustNo＞=:p1

可在程序中给参数p1赋值，读者可参阅前面讲述的案例程序。

n SQL语句中包含变量

此时向Query组件添加SQL语句的代码如下所示：

Query1.Close;

Query1.SQL.Clear;

Query1.SQL.Add(Format(‘Select * from Customer’+’’+’where CustNo=’+’%S’, [CustNoValue]));

Query1.Open;