在Delphi中建立和使用別名[1]

　　通常我們在Delphi外通過使用Borland 數據庫引擎(BDE)的設置單元(bdecfgexe)來建立和設置別名(Alias)但是實際上用戶可以在Delphi或應用程序中用TDatabaseComponent或其他方法建立和使用別名而不必在IDAPICFG中預先定義

　　建立有效的別名是非常重要的 別名詳細說明了數據庫的定位信息和連接數據庫服務器的參數當發布應 用程序時不必擔心IDAPICFG中是否有某項設置

　　利用TDatabaseComponent建立別名

　　建立和設置一 個使用標准數據庫的別名的步驟如下//通過對象觀察器建立BDE別名

　　建立一個新工程(Project)
　　將組件(Component)TDatabaseTTableTDataSourceTDBGrid 和TButton放在FORM上
　　雙擊TDatabaseComponent或在TDatabase快速菜 單上選擇DatabaseEditor運行Database屬性編輯器
　　將DatabaseName設置成ZldchAlias這個名字 將被當作別名用來設置數據集組件TTableTQueryTStoredProc等的DatabaseName屬性
　　將DriverName設置成STANDARD
　　單擊Defaults按鈕將PATH=自動加在Parameter Overrides框中
　　將PATH=設置成PATH=C:單擊OK按鈕關閉Database Editor
　　單擊OK按鈕關閉DatabaseEditor
　　將TTable的DatabaseName屬性設置成ZldchAlias
　　將TDataSource的DataSet屬性設置成Table
　　將DBGrid的DataSource屬性設置成DataSource
　　在Tbutton的OnClick事件過程中加入下列代碼

procedureTFormButtonClick(Sender:Tobject);
begin
TableTablename=customer;
TableActive:=true;
end;

　　運行程序
　　上面～步也可以用以下過程實現

MyAddStandAlias(AliasN:String;DbLocat:String;DriverN:string );//使用程序的方法建立BDE別名
//{AliasN別名名
//DbLocat數據庫定位目錄DriverN聯結驅動類型}
begin
withFormDatabasedo< begin
DatabaseName:=AliasN;
DriverName:= STANDARD;
ParamsClear;
ParamsAdd(PATH= ＋DbLocat);
ParamsAdd(DEFAULT DRIVER=＋DriverN);
end
end

procedureTFormButtonClick(Sender:Tobject);
begin
MyAddStandAlias(ZldchAliasC:PARADOX);
TableDatabaseName:=ZldchAlias;
DataSourceDataSet:=Table;
DBGridDataSource:=DataSource;
TableTablename=customer;
TableActive:=true;
end;

[]  []  []  

From:http://tw.wingwit.com/Article/program/Delphi/201311/24816.html