【文章內(nèi)容簡介】 [39。PASSWORD39。] := 39。MYPASSWORD39。 當控制從數(shù)據(jù)庫注冊事件處理過程中返回時，這些參數(shù)被用來建立聯(lián)接。 建立應用程序特定的別名 TDatabase 的 Aliases 描述了數(shù)據(jù)庫表的位置和數(shù)據(jù)庫服務器的聯(lián)接參數(shù)。通常都是在 Delphi 之外，運用 BDE 配置工具 ()創(chuàng)建別名，并且別 名被存在 BDE 配置文件 中。 用戶也可以用 TDatabase 創(chuàng)建只在應用程序中可用的別名，用 TDatabase 創(chuàng)建的別名不會加進 BDE 配置文件中。任何 DataSet 部件可通過描述DatabaseName 屬性來使用這些別名。為了定制這些局部別名的參數(shù)，用鼠標左鍵雙擊 TDatabase 部件或從 TDatabase 部件中選擇 Database Editor， Delphi就會打開數(shù)據(jù)庫屬性編輯器 (Database Properties Editor)。 控制數(shù)據(jù)庫的聯(lián) 接 TDatabase 部件的 Connected 屬性，指示 TDatabase 部件是否建立與數(shù)據(jù)庫服務器的聯(lián)接。當應用程序打開數(shù)據(jù)庫中的表時， Connected 被設置為 True。將 Connected 設為 True 就建立了數(shù)據(jù)庫的聯(lián)接。 1. 保持數(shù)據(jù)庫聯(lián)接 TDatabase 的 KeepConnection屬性描述當沒有數(shù)據(jù)庫表打開時是否要與保持數(shù)據(jù)庫的聯(lián)接。 如果應用程序需要在單個數(shù)據(jù)庫中多次打開關(guān)閉多個表時，將KeepConnection 置為 True 能使應用程序具備更好的性能。 當 KeepConnection為 True 時，即使沒有表打開，應用程序也能保持數(shù)據(jù)庫的聯(lián)接。那么就能重復打開和關(guān)閉數(shù)據(jù)庫表而不需每次進行聯(lián)接注冊。 2. 使用 TSesstion控制聯(lián)接 TSesstion部件有一個面向整個應用程序的 KeepConnections 屬性。如果 為 True，那么用于所有 TDatabase 部件的數(shù)據(jù)庫聯(lián)接都是持久的。 TSession為應用程序提供數(shù)據(jù)庫聯(lián)接的全局控制。 TSession中的Databases 屬性是 Session中所有 活躍數(shù)據(jù)庫組成的數(shù)組， DatabasesCount屬性描述活躍數(shù)據(jù)庫的數(shù)目。 3. 描述 Net 和 Private 目錄 TSession的 NetFileDir 屬性描述 BDE 網(wǎng)絡控制目錄的路徑。 TSession的PrivateDir 屬性描述存儲諸述處理局部 SQL 表達式的臨時文件的目錄的路徑。 獲取數(shù)據(jù)庫信息 TSession擁有許多讓用戶獲取數(shù)據(jù)庫有關(guān)的信息，每個方法都以TStringList 部件作為傳入?yún)?shù)，并將信息返回 TStringList 中。 1. GetAliasNames 方法 聲明： procedure GetAliasNames(List: TStringList)。 GetAliasNames 方法消除 List 中的參數(shù)，并將所有已定義的 BDE 別名的名字寫入 List。應用程序生成的別名不包括在內(nèi)。 2. GetAliasParams 方法 聲明： procedure GetAliasParams(const AliasName: String。 List: TStringList)。 GetAliasParams 方法清除 List 的內(nèi)容，并將 BDE 別名為 AliaName 的參數(shù)寫入List。 3. GetDatabaseNames 方法 聲明： procedure GetDatabaseNames(List: TStrings)。 GetDatabaseNames方法清除 List 的內(nèi)容并將所有 BDE別名和應用程序定義的別名的名字寫入 List。 4. GetDriverNames 方法 聲明： procedure GetDriverNames(List: TStrings)。 GetDriverNames 方法清除 List 中的內(nèi)容，并將 BDE 當前安裝的驅(qū)動程序名寫入 List。 5. GetDriverParams 方法 聲明： procedure GetDriverParams(const DriverName: String。 List: TStrings)。 GetDriverParams 方法消除 List 中的內(nèi)容，并將名為 DriveName 驅(qū)動程序缺省參數(shù)寫入 List。 6. GetTableNames 方法 聲明： procedure GetTableNames(const DatabaseName, Pattern: Strings。 Extensions, SystemTable: Boolean。 List: TStrings)。 GetTableNames 方法消除 List 中的內(nèi)容，并將名為 DatabaseName 的數(shù)據(jù)庫中的所有表的名字寫入 List。 Pattern參數(shù)將限制表名。對于 SQL 服務器，將SystemeTables 設為 True 將獲取系統(tǒng)表和用戶表。對非 SQL 數(shù)據(jù)庫，將Extensions 設為 True 將在表名中包含擴展名。 處理 Client/Server 事務控制 使用隱式控制和顯示控 制的數(shù)據(jù)庫應用中有兩種方法管理事務控制： ● 運用 TDatabase 部件的屬性和方法進行顯式控制 ● 運用 TQuery 部件的傳遞式 SQL 控制事務 Delphi 還支持 Paradox和 dBASE 表的局部事務處理 事務控制概述 當用 Delphi 創(chuàng)建數(shù)據(jù)庫應用時， Delphi 提供了用為所有數(shù)據(jù)庫訪問的事務控制。 事務是這樣一組操作，在被提交前，它們對一個或多個數(shù)據(jù)庫的操作，必須全部執(zhí)行成功。如果其中一個操作失敗，則所有操作失敗，即事務具有原子性。 即使發(fā)生硬件失敗 ，事務也要保證數(shù)據(jù)庫一致性。當允許多用戶并發(fā)訪問時，事務還要維持數(shù)據(jù)完整性。 例如：一個應用程序可能更新 ORDERS表以指明接受購買某一項目的定單，那么也要更新 INNENTORY 表以反映庫存的減少。如果在第一個更新之后，第二個更新之前發(fā)生硬件錯誤，數(shù)據(jù)庫就會處于不一致狀態(tài)，因為庫存情況沒有反映定單情況。在事務控制下，兩個表達式將在同一時間提交，如果其中一個表達式失敗，則被返轉(zhuǎn) (Rolled Back)。 使用隱式控制 在缺省情況下， Delphi 通過 BDE 為應用程序提供隱式事 務控制。當應用程序處于隱式事務控制時 Delphi 為 DataSet 中的寫每個記錄進行隱式事務控制。它提交每一個獨立的寫操作，如 Post 和 Append Record。 使用隱式事務控制是容易的，它保證最小的記錄更新沖突和數(shù)據(jù)庫的一致性視圖。另一方面，因為寫入數(shù)據(jù)庫的數(shù)據(jù)的每一行都要進行事務控制， 所以隱式事務控制將導致網(wǎng)絡過忙和應用程序性能下降。 如果采用顯式事務控制，就能選擇最有效的時機來開始、提交和終止事務，特別是在開發(fā)多用戶環(huán)境下的客戶應用程序運行訪問遠程 SQL 服務器，就更應該采用顯式控制。 使用顯式事務控制 有兩種協(xié)作又獨立的方式可運用于 Delphi 數(shù)據(jù)庫應用的事務控制： ● 使用 TDatabase 部件的方法和屬性 ● 使用 TQuery 部件中的傳遞式 SQL。這種方式只有在 Delphi Client/Server Suite 版中才有效， SQL Links 將 SQL 表達式直接傳給過程 SQL或 ODBC 服務器 使用 TDatabase 部件