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

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

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

  建立使用INTRBASE數據庫的別名
  建立使用INTRBASE 數據庫別名的步驟如下
  步同上
  將DriverName設置為INTRBASE
  單擊Defaults按鈕下列內容 會自動加在ParameterOverrides框中

SERVERNAME=IB_SERVER/PATH/DATABASEGDB
USERNAME=MYNAME
OPENMODE=READ/WRITE
SCHEMACACHESIZE=
LANGDRIVER=
SQLQRYMODE=
SQLPASSTHRUMODE=NOTSHARED
SCHEMACACHETIME=-
PASSWORD=

  將以上內容改為

SERVERNAME=C\ProgramFiles\Borland\Delphi \Demos\Data\EMPLOYEEGDB
USERNAME=SYSDBA
OPENMODE=READ/WRITE
SCHEMACACHESIZE=
LANGDRIVER=
SQLQRYMODE=
SQLPASSTHRUMODE=NOTSHARED
SCHEMACACHETIME=-
PASSWORD=masterkey

  將TDatabase的屬性LoginPrompt 設置成False如用戶在ParameterOverrides框中給出了正確的PASSWORD連接數據庫時將不會提示要求輸入口令請注意如果在ParameterOverrides 框中給出的PASSWORD不正確而TDatabase的屬性LoginPrompt設置為False程序運行時將出錯但並不會提示要求重新輸入正確口令Intrbase安裝 後系統唯一授權的用戶是SYSDBA缺省口令是masterkey所有其他的用戶都必須由SYSDBA添加所以在Intrbase系統安裝後要盡快更改用戶SYSDBA 的口令

  步同上文的
  將TDataSource的DataSet屬 性設置成Query
  在Tbutton的OnClick事件過 程中加入下列代碼

procedureTFormButtonClick(Sender:Tobject);
begin
QuerySQLClear;
QuerySQLADD(SELECT DISTINCT*FROMCUSTOMERCSALESSWHERE (SCUST_NO=CCUST_NO)ORDERBYCCUST_NOCCUSTOMER);
QueryActive:=True;
end;

  運行程序

  過程MyAddStandAlias的參數可以 通過各種方式賦值目錄服務器名路徑數據庫名和其他別名所需的參 數都可以通過輸入對話框或從INI文件讀入程序中通過以上方法建立的別名只在程序運行時存在其他應用程序不能使用

  利用Session建立修改刪除別名

  所有數據庫管理應用程序 都自動提供一個名為Session的Session組件每個和數據庫程序相關的數 據集組件都包含SessionName屬性它決定了和該組件相關的Session組件 因為Session封裝了一系列數據庫連接特性大部分Session組件的方法都通過BDE別名工作每個和Session有關聯的數據庫組件都有別名(盡管在 處理PARADOX和DBASE數據庫時完整的路徑可以取代別名)通過Session可以檢測和決定別名的可見性跟蹤別名名和其他連接驅動信息以及建立 修改和刪除別名

  Session的設置模式(ConfigMode) 屬性決定了什麼樣的BDE別名對它是可見的默認設置是cmAll它可解釋成[cfmVirtualorcfmPersistent]如果設置模式值為cmAll由Session建立的所有別名用戶系統BDE設置文件中預定義的別名以及BDE在內存中維護的所有別名均可見

[]  []  []  


From:http://tw.wingwit.com/Article/program/Delphi/201311/24814.html
    推薦文章
    Copyright © 2005-2013 電腦知識網 Computer Knowledge   All rights reserved.