通常我们在Delphi外,通过使用Borland 数据库引擎(BDE)的设置单元(bdecfg.exe)来建立和设置别名(Alias),但是,实际上用户可以在Delphi或应用程序中用TDatabaseComponent或其他方法建立和使用别名,而不必在IDAPI.CFG中预先定义。
建立有效的别名是非常重要的, 别名详细说明了数据库的定位信息和连接数据库服务器的参数,当发布应 用程序时不必担心IDAPI.CFG中是否有某项设置。
利用TDatabaseComponent建立别名
建立和设置一
个使用标准数据库的别名的步骤如下。//通过“对象观察器”建立BDE别名:
1.建立一个新工程(Project)。
2.将组件(Component)TDatabase、TTable、TDataSource、TDBGrid
和TButton放在FORM上。
3.双击TDatabaseComponent或在TDatabase快速菜
单上选择DatabaseEditor运行Database属性编辑器。
4.将DatabaseName设置成‘ZldchAlias’,这个名字
将被当作别名,用来设置数据集组件TTable、TQuery、TStoredProc等的DatabaseName属性。
5.将DriverName设置成STANDARD。
6.单击Defaults按钮,将PATH=自动加在Parameter
Overrides框中。
7.将PATH=设置成PATH=C:,单击OK按钮关闭Database
Editor。
8.单击OK按钮关闭DatabaseEditor。
9.将TTable的DatabaseName属性设置成‘ZldchAlias’。
10.将TDataSource的DataSet属性设置成‘Table1’。
11.将DBGrid的DataSource属性设置成‘DataSource1’。
12.在Tbutton的OnClick事件过程中加入下列代码:
procedureTForm1.Button1Click(Sender:Tobject);
begin
Table1.Tablename=‘customer’;
Table1.Active:=true;
end;
13.运行程序。
上面3~12步也可以用以下过程实现:
MyAddStandAlias(AliasN:String;DbLocat:String;DriverN:string );//使用程序的方法建立BDE别名
//{AliasN别名名,
//DbLocat数据库定位目录,DriverN联结驱动类型}
begin
withForm1.Database1do< begin
DatabaseName:=AliasN;
DriverName:= ‘STANDARD’;
Params.Clear;
Params.Add(‘PATH=’ +DbLocat);
Params.Add(‘DEFAULT DRIVER=’+DriverN);
end
end;
procedureTForm1.Button1Click(Sender:Tobject);
begin
MyAddStandAlias(‘ZldchAlias’,‘C:PARADOX’);
Table1.DatabaseName:=‘ZldchAlias’;
DataSource1.DataSet:=Table1;
DBGrid1.DataSource:=DataSource1;
Table1.Tablename=‘customer’;
Table1.Active:=true;
end;
建立使用INTRBASE数据库的别名
建立使用INTRBASE
数据库别名的步骤如下。
1~4步同上。
5.将DriverName设置为INTRBASE。
6.单击Defaults按钮,下列内容 会自动加在ParameterOverrides框中:
SERVERNAME=IB_SERVER:/PATH/DATABASE.GDB
USERNAME=MYNAME
OPENMODE=READ/WRITE
SCHEMACACHESIZE=8
LANGDRIVER=
SQLQRYMODE=
SQLPASSTHRUMODE=NOTSHARED
SCHEMACACHETIME=-1
PASSWORD=
7.将以上内容改为:
SERVERNAME=C:\ProgramFiles\Borland\Delphi 3\Demos\Data\EMPLOYEE.GDB
USERNAME=SYSDBA
OPENMODE=READ/WRITE
SCHEMACACHESIZE=8
LANGDRIVER=
SQLQRYMODE=
SQLPASSTHRUMODE=NOTSHARED
SCHEMACACHETIME=-1
PASSWORD=masterkey
8.将TDatabase的属性LoginPrompt 设置成‘False’,如用户在ParameterOverrides框中给出了正确的PASSWORD,连接数据库时将不会提示要求输入口令。请注意:如果在ParameterOverrides 框中给出的PASSWORD不正确,而TDatabase的属性LoginPrompt设置为‘False’,程序运行时将出错,但并不会提示要求重新输入正确口令。Intrbase安装 后,系统唯一授权的用户是SYSDBA,缺省口令是“masterkey”,所有其他的用户都必须由SYSDBA添加,所以在Intrbase系统安装后要尽快更改用户SYSDBA 的口令。
9、10、12步同上文的8、9、11步。
11.将TDataSource的DataSet属
性设置成‘Query1’。
13.在Tbutton的OnClick事件过 程中加入下列代码:
procedureTForm1.Button1Click(Sender:Tobject);
begin
Query1.SQL.Clear;
Query1.SQL.ADD(‘SELECT DISTINCT*FROMCUSTOMERC,SALESSWHERE (S.CUST_NO=C.CUST_NO)ORDERBYC.CUST_NO,C.CUSTOMER’);
Query1.Active:=True;
end;
14.运行程序。
过程MyAddStandAlias的参数可以 通过各种方式赋值。目录、服务器名、路径、数据库名和其他别名所需的参
数都可以通过输入对话框或从.INI文件读入程序中。通过以上方法建立的别名只在程序运行时存在,其他应用程序不能使用。
利用Session建立、修改、删除别名
所有数据库管理应用程序
都自动提供一个名为Session的Session组件。每个和数据库程序相关的数
据集组件都包含SessionName属性,它决定了和该组件相关的Session组件。
因为Session封装了一系列数据库连接特性,大部分Session组件的方法都通过BDE别名工作。每个和Session有关联的数据库组件都有别名(尽管在
处理PARADOX和DBASE数据库时,完整的路径可以取代别名),通过Session可以检测和决定别名的可见性、跟踪别名名和其他连接驱动信息以及建立、
修改和删除别名。
文章整理:西部数码--专业提供域名注册、虚拟主机服务
http://www.west263.com
以上信息与文章正文是不可分割的一部分,如果您要转载本文章,请保留以上信息,谢谢!




