在Delphi中建立和使用别名[2]

建立使用INTRBASE数据库的别名

建立使用INTRBASE 数据库别名的步骤如下

～步同上

将DriverName设置为INTRBASE

单击Defaults按钮下列内容 会自动加在ParameterOverrides框中

SERVERNAME=IB_SERVER/PATH/DATABASEGDB

USERNAME=MYNAME

OPENMODE=READ/WRITE

SCHEMACACHESIZE=

LANGDRIVER=

SQLQRYMODE=

SQLPASSTHRUMODE=NOTSHARED

SCHEMACACHETIME=－

PASSWORD=

将以上内容改为

SERVERNAME=C\ProgramFiles\Borland\Delphi \Demos\Data\EMPLOYEEGDB

USERNAME=SYSDBA

OPENMODE=READ/WRITE

SCHEMACACHESIZE=

LANGDRIVER=

SQLQRYMODE=

SQLPASSTHRUMODE=NOTSHARED

SCHEMACACHETIME=－

PASSWORD=masterkey

将TDatabase的属性LoginPrompt 设置成False如用户在ParameterOverrides框中给出了正确的PASSWORD连接数据库时将不会提示要求输入口令请注意如果在ParameterOverrides 框中给出的PASSWORD不正确而TDatabase的属性LoginPrompt设置为False程序运行时将出错但并不会提示要求重新输入正确口令Intrbase安装 后系统唯一授权的用户是SYSDBA缺省口令是masterkey所有其他的用户都必须由SYSDBA添加所以在Intrbase系统安装后要尽快更改用户SYSDBA 的口令

步同上文的步

将TDataSource的DataSet属 性设置成Query

在Tbutton的OnClick事件过 程中加入下列代码

procedureTFormButtonClick(Sender:Tobject);

begin

QuerySQLClear;

QuerySQLADD(SELECT DISTINCT＊FROMCUSTOMERCSALESSWHERE (SCUST_NO=CCUST_NO)ORDERBYCCUST_NOCCUSTOMER);

QueryActive:=True;

end;

运行程序

过程MyAddStandAlias的参数可以 通过各种方式赋值目录服务器名路径数据库名和其他别名所需的参 数都可以通过输入对话框或从INI文件读入程序中通过以上方法建立的别名只在程序运行时存在其他应用程序不能使用

利用Session建立修改删除别名

所有数据库管理应用程序 都自动提供一个名为Session的Session组件每个和数据库程序相关的数 据集组件都包含SessionName属性它决定了和该组件相关的Session组件 因为Session封装了一系列数据库连接特性大部分Session组件的方法都通过BDE别名工作每个和Session有关联的数据库组件都有别名(尽管在 处理PARADOX和DBASE数据库时完整的路径可以取代别名)通过Session可以检测和决定别名的可见性跟蹤别名名和其他连接驱动信息以及建立 修改和删除别名

Session的设置模式(ConfigMode) 属性决定了什么样的BDE别名对它是可见的默认设置是cmAll它可解释成[cfmVirtualorcfmPersistent]如果设置模式值为cmAll由Session建立的所有别名用户系统BDE设置文件中预定义的别名以及BDE在内存中维护的所有别名均可见

[] [] []