熱點推薦:
您现在的位置: 電腦知識網 >> 編程 >> Delphi編程 >> 正文

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

2013-11-23 17:38:43  來源: Delphi編程 

  通常我們在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
    推薦文章
    Copyright © 2005-2013 電腦知識網 Computer Knowledge   All rights reserved.