程序師世界是廣大編程愛好者互助、分享、學習的平台,程序師世界有你更精彩!
首頁
編程語言
C語言|JAVA編程
Python編程
網頁編程
ASP編程|PHP編程
JSP編程
數據庫知識
MYSQL數據庫|SqlServer數據庫
Oracle數據庫|DB2數據庫
 程式師世界 >> 編程語言 >> 更多編程語言 >> Delphi >> delphi編程實現動態創建別名

delphi編程實現動態創建別名

編輯: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;

   要說明的是,調用AddStandardAlias或AddAlias函數創建的別名只存在於內存中,程序關閉後就沒有了,要把別名永遠的保存到BDE配置文件中,請調用SaveConfigFile函數來保存到設置文件中。

  1. 上一頁:
  2. 下一頁:
Copyright © 程式師世界 All Rights Reserved