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

通常我们在Delphi外通过使用Borland 数据库引擎(BDE)的设置单元(bdecfgexe)来建立和设置别名(Alias)但是实际上用户可以在Delphi或应用程序中用TDatabaseComponent或其他方法建立和使用别名而不必在IDAPICFG中预先定义

建立有效的别名是非常重要的 别名详细说明了数据库的定位信息和连接数据库服务器的参数当发布应 用程序时不必担心IDAPICFG中是否有某项设置

利用TDatabaseComponent建立别名

建立和设置一 个使用标准数据库的别名的步骤如下//通过对象观察器建立BDE别名

建立一个新工程(Project)

将组件(Component)TDatabaseTTableTDataSourceTDBGrid 和TButton放在FORM上

双击TDatabaseComponent或在TDatabase快速菜 单上选择DatabaseEditor运行Database属性编辑器

将DatabaseName设置成ZldchAlias这个名字 将被当作别名用来设置数据集组件TTableTQueryTStoredProc等的DatabaseName属性

将DriverName设置成STANDARD

单击Defaults按钮将PATH=自动加在Parameter Overrides框中

将PATH=设置成PATH=C:单击OK按钮关闭Database Editor

单击OK按钮关闭DatabaseEditor

将TTable的DatabaseName属性设置成ZldchAlias

将TDataSource的DataSet属性设置成Table

将DBGrid的DataSource属性设置成DataSource

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

procedureTFormButtonClick(Sender:Tobject);

begin

TableTablename=customer;

TableActive:=true;

end;

运行程序

上面～步也可以用以下过程实现

MyAddStandAlias(AliasN:String;DbLocat:String;DriverN:string );//使用程序的方法建立BDE别名

//{AliasN别名名

//DbLocat数据库定位目录DriverN联结驱动类型}

begin

withFormDatabasedo< begin

DatabaseName:=AliasN;

DriverName:= STANDARD;

ParamsClear;

ParamsAdd(PATH= ＋DbLocat);

ParamsAdd(DEFAULT DRIVER=＋DriverN);

end

end

procedureTFormButtonClick(Sender:Tobject);

begin

MyAddStandAlias(ZldchAliasC:PARADOX);

TableDatabaseName:=ZldchAlias;

DataSourceDataSet:=Table;

DBGridDataSource:=DataSource;

TableTablename=customer;

TableActive:=true;

end;

[] [] []