多层数据库开发五:连接数据库

类别:Delphi 点击:0 评论:0 推荐:
第五章 连接数据库
  在数据库应用程序中,TDatabase构件是很有用的。它能够管理和操纵数据库的连接,控制数据库连接的持续性。TDatabase构件还提供了管理事务和申请更新数据的功能。
  第三章已经详细介绍了TSession与TDatabase的关系,所有的数据库连接都在TDatabase构件的控制之下,而所有的TDatabase构件又在BDE会话期对象的管理之下。
5.1 永久和临时的TDatabase构件
  很多情况下,其实并没有必要显式地使用TDatabase 构件。当应用程序试图打开一个数据库时,会自动创建一个临时的TDatabase构件。当然,这个临时的TDatabase 构件只在数据库连接期间是有效的,一旦关闭了数据库,这个临时的TDatabase 构件将被删除。
  不过,在有的数据库应用程序尤其是两层或多层的Client/Server应用程序中,最好还是显式地使用TDatabase构件。凡是在设计期加到窗体或数据模块上的TDatabase构件,我们称为永久的TDatabase构件,这是相对临时的TDatabase构件而言的。
  使用永久的TDatabase构件的好处是,可以建立永久的连接,具有管理事务的能力,可以创建应用程序专用的BDE别名,还可以响应OnLogin事件。
  临时的TDatabase构件的功能就有某种程度的局限,它的有些关键属性受制于它所属的BDE会话期对象,例如,BDE会话期对象的KeepConnections属性决定了当所有数据集都关闭后数据库是否继续维持在连接状态。而永久的TDatabase构件的KeepConnections 属性则不受BDE会话期对象的KeepConnections属性的影响。
  有时候,往往很难确定到底需要用几个TDatabase构件,而您又不希望用临时的TDatabase构件来代替,这时候,就需要在运行期动态地创建TDatabase构件。
  要在运行期动态地创建TDatabase构件,首先要声明一个TDatabase类型的变量,然后调用TDatabase的Create函数来创建TDatabase的对象实例。程序示例如下:
Function RunTimeDbCreate(const DatabaseName, SessionName: string): TDatabase;
var
TempDatabase: TDatabase;
Begin
TempDatabase := nil;
Try
Sessions.OpenSession(SessionName);
With Sessions Do
Begin
With FindSession(SessionName) Do
Result := FindDatabase(DatabaseName);
If Result = nil then
Begin
TempDatabase := TDatabase.Create(Self);
TempDatabase.DatabaseName := DatabaseName;
TempDatabase.SessionName := SessionName;
TempDatabase.KeepConnection := True;
End;
Result := OpenDatabase(DatabaseName);
End;
Except
TempDatabase.Free;
Raise;
End;
End;
  可以这样调用RunTimeDbCreate函数:
var
MyDatabase: array [1..10] of TDatabase;
MyDbCount: Integer;
Begin
MyDbCount := 1;
...
MyDatabase[MyDbCount]:=RunTimeDbCreate('MyDb'+IntToStr(MyDbCount),'');
Inc(MyDbCount);
...
End;
5.2 控 制 连 接
  无论是永久的TDatabase构件还是临时的TDatabase构件,都可以通过它们的属性、方法和事件来控制有关连接数据库的行为,这也是使用TDatabase构件的主要目的。
5.2.1 指定一个BDE会话期
  所有的TDatabase构件都必须指定一个它所属的BDE会话期,这就要用到两个属性,一个是SessionName,另一个是Session。
  SessionName属性用于指定一个BDE会话期的名称。当在设计期把一个TDatabase构件放到窗体或数据模块上时,它的SessionName属性自动设为“Default”,这是默认的BDE会话期的名称。如果您已经在窗体或数据模块上放了若干个TSession构件,您就可以从一个下拉列表中选择SessionName属性的值。
  Session属性是只读的,用于返回TDatabase构件所属的BDE会话期对象。如果SessionName属性设为空或“Default”,Session属性就返回默认的BDE会话期对象。
  通过Session属性返回BDE会话期对象后,您就可以访问TSession的属性、方法和事件,即使您不知道该BDE会话期对象的实际名称。
5.2.2 指定要访问的数据库
  要指定一个数据库,就要用到AliasName属性或DriverName属性。这两个属性是互斥的,设置其中一个,另一个就被清空。修改AliasName、DriverName、DatabaseName等属性之前都要先把Connected属性设为False,否则将触发异常。
  AliasName属性用于指定一个数据库的别名,只能设为已有的BDE别名如DBDEMOS、DefaultDB、IBLOCAL等。
  数据库的别名一般是用SQL Explorer或BDE管理程序定义的。不过,也可以用DatabaseName属性定义一个应用程序专用的别名。DatabaseName属性可以设为一个已有的BDE别名。对于Paradox和dBASE表来说,也可以设为表所在的路径。
  用DatabaseName属性定义的别名只限于在本应用程序中使用,它将出现在TTable、TQuery、TStoredProc构件的DatabaseName属性的下拉列表中。
  DriverName属性用于指定一个数据库驱动程序的类型,可以设为STANDARD(用于dBASE和Paradox)、MSSQL、INTERBASE、ORACLE、SYBASE、INFormIX等。设置了DriverName属性后,还得设置Params属性指定连接参数。
  数据库驱动程序其实是BDE别名的一个参数。因此,设置了AliasName属性后,DriverName就会自动清空。反之,设置了DriverName 属性后,AliasName属性也会自动清空,否则就会出现矛盾。这样看来,DriverName属性似乎作用不大,只要设置AliasName属性就够了。不过,当DatabaseName属性定义一个应用程序专用的别名时,需要设置DriverName属性指定该别名使用什么驱动程序。
  在设计期,要指定一个BDE别名或者数据库驱动程序或者定义一个专用的别名,既可以在对象观察器中进行,也可以双击TDatabase构件打开数据库属性编辑器,然后在“Name”框内设置DatabaseName属性的值,在“Alias Name”框内设置Alias属性的值,在“Driver Name”框内设置DriverName属性的值。
  也可以在运行期设置DatabaseName、AliasName或DriverName属性的值,例如:
  Database1.DatabaseName := Edit1.Text;
5.2.3 设置BDE别名的参数
  要设置BDE别名的参数,如路径、服务器名、缓存长度、语言驱动程序、用户名、口令等,就要用到Params属性。
  在设计期,要设置BDE别名的参数有三种方式:
  一是使用SQL Explorer或BDE Administrator来定义或修改别名以及参数。
  二是在对象观察器中单击Params属性边上的省略号按钮打开字符串列表编辑器,然后按格式键入参数的名称和值。
  三是双击TDatabase构件打开数据库属性编辑器,如图5.1所示。
  图5.1 设置BDE别名的参数
  单击“Defaults”按钮将在“Parameter Overrides”框内列出与驱动程序所对应的默认参数,对于dBASE和Paradox来说,默认的参数主要是路径,对于远程服务器来说,默认的参数就多了,包括服务器名、用户名和口令、语言驱动程序等。
  单击“Clear”按钮可以把“Parameter Overrides”框实际上就是Params属性清空。
  可以直接在“Parameter Overrides”框内修改参数,也可以添加新的参数。
  要在运行期设置BDE别名的参数,就要用到TStrings对象。从图5.1也可以看出,Params属性实际上是一个字符串列表,每个字符串的格式是“名称=值”。程序示例如下:
With Database1 Do
Begin
Params.Clear;
Params.Add('UserName = Sysdba');
Params.Add('Password = 1234');
LoginPrompt := False;
Open;
End;
5.2.4 登录到服务器
  大多数服务器都有严密的安全措施,以防止未授权的访问。对于用户来说,他面临的第一道关卡就是登录,即输入用户名和口令。
  在设计期,当试图连接一个远程服务器时,Delphi 4会推出一个标准的登录对话框,让您输入用户名和口令。
  在运行期,有三种方式进行登录:
  第一种方式是把LoginPrompt属性设为True,这样,当需要连接远程服务器时,就会自动弹出一个标准的登录对话框,让用户输入用户名和口令。
  第二种方式是把LoginPrompt属性设为False,并且设置Params属性,其中应包含“USER NAME”和“PASSWORD”参数,例如:
  USER NAME=SYSDBAPASSWORD=masterkey
  注意:在程序中通过代码提供用户名和口令容易泄密,建议最好不要用这种方式。
  第三种方式就是在处理OnLogin事件的句柄中设置LoginParams参数,程序示例如下:
  LoginParams.Values['USER NAME'] := UserName;
  LoginParams.Values['PASSWORD'] := PasswordSearch(UserName);
  当退出处理OnLogin事件的句柄时,LoginParams参数的值就被赋给Params属性。
5.2.5 开始连接数据库服务器
  要开始连接数据库服务器,可以调用Open函数或者把Connected属性设为True。实际上,把Connected属性设为True会自动调用Open。此时,会触发OnLogin事件。如果程序没有处理OnLogin事件,就会弹出一个标准的登录对话框让用户登录。
  如果在没有连接服务器的情况下试图打开一个数据集,将首先调用Open函数连接服务器,并根据需要自动创建一个临时的TDatabase构件。
  一旦与服务器建立了连接,只要至少有一个数据集是活动的,连接就会一直保持。如果所有的数据集都不处于活动状态,是否断开连接取决于KeepConnections属性的值。
  如果KeepConnections属性设为True,即使没有一个数据集处于活动状态,也保持连接,对于那些频繁地打开和关闭数据集的应用程序来说,可以避免老是登录。如果KeepConnections属性设为False,当所有的数据集都关闭了时,将断开与服务器的连接。
  要断开连接,就要调用Close或者把Connected属性设为False。实际上,把Connected属性设为False会自动调用Close。
  Close会自动关闭所有的数据集,然后断开连接。如果只想关闭所有的数据集,但不想断开连接,首先要把KeepConnections属性设为True,然后调用CloseDataSets函数。
  注意:即使KeepConnections属性设为True,调用Close函数总是能断开连接。
5.2.6 网络协议和ODBC
  Delphi 4用BDE和SQL Links驱动程序来连接数据库服务器,其中,BDE还可以驱动ODBC访问更广泛的数据源。
  在配置SQL Links和ODBC驱动程序时要注意网络协议的问题。大部分情况下,网络协议由数据库服务器的客户端软件来配置,但对于ODBC来说,还需要在专门的ODBC管理程序中配置网络协议。
  刚开始连接服务器时往往很难成功,这时候首先要检查客户端软件是否正确配置,如果使用TCP/IP协议的话,要检查是否安装了支持TCP/IP协议的软件如WINSOCK.DLL,服务器的IP地址是否在客户端的HOSTS文件中注册,域名服务是否正确配置。
5.3 遍历一个数据库的所有数据集
  TDatabase构件的DataSets属性和DataSetCount属性配合起来使用可以遍历一个数据库的所有数据集。
  DataSets属性是一个数组,它的每一个元素是一个活动的数据集如TTable、TQuery或TStoredProc,每个数据集都可以通过序号来访问。
  DataSetCount属性返回DataSets数组中元素的个数,程序示例如下:
var
I: Integer;
Begin
For I := 0 to DataSetCount - 1 Do
If DataSets[I] is TTable then
DataSets[I].CachedUpdates := True;
End;
5.4 TDatabase与TSession的关系
  TDatabase构件主要用于管理数据库的连接,而TSession则用于对一个应用程序中的TDatabase构件进行全局控制,包括临时的TDatabase构件。
  TSession的方法往往是针对所有的TDatabase构件的,它不考虑TDatabase构件的状态。例如,TSession的DropConnections函数将关闭所有的数据集,并断开所有的数据库,即使这些TDatabase构件的KeepConnections属性设为True。
  而TDatabase只能管理它所连接的数据库,例如,TDatabase的CloseDataSets函数只关闭某个数据库的所有数据集,不关闭其他数据库的数据集。

本文地址:http://com.8s8s.com/it/it4592.htm