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

上一篇:Access.visual foxpro .VB. Delphi有什麽異同？

下一篇:soildwork花瓶浮雕如何做