|
在Delphi中建立和使用别名
通常我们在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可以检测和决定别名的可见性、跟踪别名名和其他连接驱动信息以及建立、
修改和删除别名。
Session的设置模式(ConfigMode)
属性，决定了什么样的BDE别名对它是可见的。默认设置是cmAll，它可解释成[cfmVirtualorcfmPersistent]。如果设置模式值为cmAll，由Session建立的所有别名、用户系统BDE设置文件中预定义的别名以及BDE在内存中维护的所有别名均可见。
设置模式的主要目的是，允许应用程序详细说明和限定别名在Session级别上的可见性。例如把设置模式
设置成[cfmSession]，可使Session只可见那些由其建立的别名，所有其他的别名都无效。
当别名在Session存在期间建立后，BDE在内存中建立一个它的拷贝。这个局部拷贝只对建立它的Session
有效，除非在同一个应用程序中其他Session的模式设置成cmAll或cfmPersistent。
使用Session的SaveConfigFile方法，可以将内存中的别名写入BDE设置文件中，这样其他BDE允许的应用程序就可以使用该别名。
Session组件有五个方法，允许应用程序跟踪BDE别名的参数和驱动程序等信息：
GetAliasNames：列出Session已经处理过的别名；
GetAliasParams：列出指定的别名的参数；
GetAliasDriverName：返回包含别名使用的驱动程序名的字符串；
GetDriverNames：返回所有有效的BDE驱动程序；
GetDriverParams：返回指定的驱动程序的驱动参数。
Session可以在其存在期间建立、修改和删除别名。方法AddAlias为SQL数据库服务器建立一个新的BDE据工作区。方法AddStandardAlias为PARADOX、DBASE、ASCII表建立一个新的BDE标准别名。
AddAlias需要三个参数：一个包含别名工作区名的字符串、一个说明SQL连接驱动类型的字符串、一个汇集连接参数的列表字符串，其格式为：
procedureAddAlias(constName,
Driver:string;List:TStrings);
AddStandardAlias需要三个参数：别名名、PARADOX和DBASE表存放的完整路径、当试图打开一个没有扩展名表时的默认驱动类型，其格式为：
procedureAddStandardAlias(const
Name,Path,DefaultDriver:string);
当为Session添加一个别名时，它仅对该Session和其他设置模式值为cfmPersistent的Session有效。为了使新建的别名对所有的应用程序有效，在建立别名后应该调用SaveConfigFile方法。
修改别名可以调用过程ModifyAlias，它需要二个参数：将要修改的别名名和包含修改后连接参数值的列表串，格式为：
procedureModifyAlias(Name:
string;List:TStrings);
方法DeleteAlias可以使别名对Session
无效，但它不会删除写入BDE设置文件的别名。如果要将其从BDE设置文件中删除，需要在调用DeleteAlias后再调用SaveConfigFile。DeleteAlias只需一个参数：别名名。其格式为：
procedureDeleteAlias(const Name:string);
利用Session操作别名具有更大的灵活性，将给编程和发布程序尤其是C/S应用程序带来很大方便。以上例程在Win95、Delphi3.0下调试通过。
没有相关教程
| 
注：本站部分文章源于互联网，版权归原作者所有！如有侵权，请原作者与本站联系，本站将立即删除！ 本站文章除特别注明外均可转载，但需注明出处！ [MinTao学以致用网] 
