对于BDE会话期对象来说BDE别名特别重要许多方法都需要传递一个数据库的别名作为参数TSession提供了管理BDE别名的功能
但是作者往往等到要发布程序时才发现你的程序由于找不到别名而无法运行必须在一台已经装了BDE管理程序的机上才能用你一定非常失望不要紧只要在程序中加入以下语句你的程序就又可以执行
AddAlias用于为ParadoxdBase或文本创建别名不需要连接参数只需指定一个路径和默认的驱动程序
AddStandardAlias函数则需要传递三个参数Name参数用于指定名称Driver参数用于指定SQL Links驱动程序List参数用于指定连接参数
procedure TFormFormCreate(Sender: TObject);
begin
with Session do
begin
ConfigMode := cmSession;
try
AddStandardAlias(WorkMen ExtractFilePath(ParamStr()) PARADOX);
finally
ConfigMode := cmAll;
end;
end;
end;
上面的是单机版的创建别名方法还有创建SQL服务器别名的方法
procedure TFormFormCreate(Sender: TObject);
var MyList: TStringList;
begin
MyList := TStringListCreate;
try
with MyList do
begin
Add(SERVER NAME=IB_SERVER:/PATH/DATABASEGDB);
Add(USER NAME=MYNAME);
end;
SessionAddAlias(WorkMen INTRBASE MyList);
finally
MyListFree;
end;
end;
要说明的是调用AddStandardAlias或AddAlias函数创建的别名只存在于内存中程序关闭后就没有了要把别名永远的保存到BDE配置文件中请调用SaveConfigFile函数来保存到设置文件中
