delphi實現動態創建別名

對於BDE會話期對象來說，BDE別名特別重要，許多方法都需要傳遞一個數據庫的別名作為參數。TSession提供了管理BDE別名的功能。

但是作者往往等到要發布程序時才發現，你的程序由於找不到別名而無法運行，必須在一台已經裝了BDE管理程序的機上才能用，你一定非常失望。不要緊，只要在程序中加入以下語句，你的程序就又可以執行。

AddAlias用於為Paradox、dBase或文本創建別名，不需要連接參數，只需指定一個路徑和默認的驅動程序。

AddStandardAlias函數則需要傳遞三個參數，Name參數用於指定名稱，Driver參數用於指定SQL Links驅動程序，List參數用於指定連接參數。

procedure TForm1.FormCreate(Sender: TObject);
begin
with Session do
begin
ConfigMode := cmSession;
try
AddStandardAlias(WorkMen, ExtractFilePath(ParamStr(0)), PARADOX);
finally
ConfigMode := cmAll;
end;
end;
end;

上面的是單機版的創建別名方法，還有創建SQL服務器別名的方法

procedure TForm1.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;
Session1.AddAlias(WorkMen, INTRBASE, MyList);
finally
MyList.Free;
end;
end;