delphi编程实现动态创建别名
对于BDE会话期对象来说 BDE别名特别重要 许多方法都需要传递一个数据库的别名作为参数 TSession提供了管理BDE别名的功能
但是作者往往等到要发布程序时才发现 你的程序由于找不到别名而无法运行 必须在一台已经装了BDE管理程序的机上才能用 你一定非常失望 不要紧 只要在程序中加入以下语句 你的程序就又可以执行
AddAlias用于为Paradox dBase或文本创建别名 不需要连接参数 只需指定一个路径和默认的驱动程序
AddStandardAlias函数则需要传递三个参数 Name参数用于指定名称 Driver参数用于指定SQL Links驱动程序 List参数用于指定连接参数
procedure TForm FormCreate(Sender: TObject); begin with Session do begin ConfigMode := cmSession; try AddStandardAlias(WorkMen ExtractFilePath(ParamStr( )) PARADOX); finally ConfigMode := cmAll; end; end; end;
上面的是单机版的创建别名方法 还有创建SQL服务器别名的方法
procedure TForm FormCreate(Sender: TObject); var MyList: TStringList; begin MyList := TStringList Create; try with MyList do begin Add(SERVER NAME=IB_SERVER:/PATH/DATABASE GDB); Add(USER NAME=MYNAME); end; Session AddAlias(WorkMen INTRBASE MyList); finally MyList Free; end; end;
lishixinzhi/Article/program/Delphi/201311/24716
