【正文】 TQuery 部件的傳遞式 SQL 控制事務(wù) Delphi 還支持 Paradox和 dBASE 表的局部事務(wù)處理 事務(wù)控制概述 當(dāng)用 Delphi 創(chuàng)建數(shù)據(jù)庫應(yīng)用時(shí)， Delphi 提供了用為所有數(shù)據(jù)庫訪問的事務(wù)控制。對(duì)于 SQL 服務(wù)器，將SystemeTables 設(shè)為 True 將獲取系統(tǒng)表和用戶表。 GetTableNames 方法消除 List 中的內(nèi)容，并將名為 DatabaseName 的數(shù)據(jù)庫中的所有表的名字寫入 List。 Extensions, SystemTable: Boolean。 GetDriverParams 方法消除 List 中的內(nèi)容，并將名為 DriveName 驅(qū)動(dòng)程序缺省參數(shù)寫入 List。 5. GetDriverParams 方法 聲明： procedure GetDriverParams(const DriverName: String。 4. GetDriverNames 方法 聲明： procedure GetDriverNames(List: TStrings)。 3. GetDatabaseNames 方法 聲明： procedure GetDatabaseNames(List: TStrings)。 List: TStringList)。應(yīng)用程序生成的別名不包括在內(nèi)。 1. GetAliasNames 方法 聲明： procedure GetAliasNames(List: TStringList)。 TSession的PrivateDir 屬性描述存儲(chǔ)諸述處理局部 SQL 表達(dá)式的臨時(shí)文件的目錄的路徑。 TSession中的Databases 屬性是 Session中所有 活躍數(shù)據(jù)庫組成的數(shù)組， DatabasesCount屬性描述活躍數(shù)據(jù)庫的數(shù)目。如果 為 True，那么用于所有 TDatabase 部件的數(shù)據(jù)庫聯(lián)接都是持久的。那么就能重復(fù)打開和關(guān)閉數(shù)據(jù)庫表而不需每次進(jìn)行聯(lián)接注冊(cè)。 如果應(yīng)用程序需要在單個(gè)數(shù)據(jù)庫中多次打開關(guān)閉多個(gè)表時(shí)，將KeepConnection 置為 True 能使應(yīng)用程序具備更好的性能。將 Connected 設(shè)為 True 就建立了數(shù)據(jù)庫的聯(lián)接。 控制數(shù)據(jù)庫的聯(lián) 接 TDatabase 部件的 Connected 屬性，指示 TDatabase 部件是否建立與數(shù)據(jù)庫服務(wù)器的聯(lián)接。任何 DataSet 部件可通過描述DatabaseName 屬性來使用這些別名。通常都是在 Delphi 之外，運(yùn)用 BDE 配置工具 ()創(chuàng)建別名，并且別 名被存在 BDE 配置文件 中。 當(dāng)控制從數(shù)據(jù)庫注冊(cè)事件處理過程中返回時(shí)，這些參數(shù)被用來建立聯(lián)接。] := 39。 [39。] := 39。 [39。] := 39。如： [39。例如： USERNAME = SYSDBA PASSWORD = mosterkey 但不推薦使用該方法，因?yàn)檫@會(huì)危害數(shù)據(jù)庫安全 3. 使用 TDatabase 部件的 OnLogin事件設(shè)置注冊(cè)參數(shù)。這樣，當(dāng)應(yīng)用程序試圖建立數(shù)據(jù)庫聯(lián)接時(shí)，標(biāo)準(zhǔn)注冊(cè)對(duì)話框會(huì)打開。如果聯(lián)接已建立，則注冊(cè)對(duì)話框不會(huì)出現(xiàn)。 如果服務(wù)器需要注冊(cè)，在設(shè)計(jì)階段， Delphi 會(huì)在你試圖聯(lián)接時(shí)提示你，諸如在會(huì) TTable 部件描述數(shù)據(jù)庫表名時(shí)。 定制數(shù)據(jù)庫服務(wù)器的注冊(cè)參數(shù) 大多數(shù)數(shù)據(jù)庫服務(wù)器都包含限制數(shù)據(jù)庫訪問的安全特 征。用戶名是形如 USER NAME = 的字符串，口令是形如 PASSWORD = is_Password 的字符串。 Database 參數(shù)是要聯(lián)接的數(shù)據(jù)庫。 property OnLogin: TLoginEvent。 OnLogin事件處理過程的聲明是這樣的： TLoginEvent = procedure(Database: TDatabase。MYAPSSWORD39。 [PASSWORD39。] := 39。 [39。] := 39。 例如： [39。使用 OnLogin事件處理過程可以在運(yùn)行時(shí)設(shè)置注冊(cè)參數(shù)。 ⑶ Commit 方法 Commit 方法提交當(dāng)前事務(wù)控制，并且將自最近一次調(diào)用 StartTransaction以來所有數(shù)據(jù)修改存入數(shù)據(jù)庫。只有當(dāng)聯(lián)接數(shù)據(jù)庫服務(wù)器時(shí)，才能調(diào)用該方法。如果在一個(gè)事務(wù)已被激活的情況下調(diào)用該方 法， Delphi 將引發(fā)異常。 如果需要的獨(dú)立級(jí)別不被服務(wù)器支持，那么 Dephi 將使用下一個(gè)更高的獨(dú)立級(jí)別，如下表所示： 表 各類服務(wù)器 TransIsolation設(shè)置 ━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━ 獨(dú)立級(jí)別 Oracle Sybase 和 InterBase Microsoft SQL ────────────────────────────────────── Dirty Read Read Committed Read Committed Read Committed Read Committed Read Committed Read Committed Read Committed Repeatable read Repeatable read Not Supported Repeatable Read ━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━ 各個(gè)獨(dú)立級(jí)別的含義請(qǐng)見表 。 tiRepeatableRead 將只返回事務(wù)過程中最初的記錄，即使另一個(gè)應(yīng)用程序?qū)⑺鞯男薷奶峤弧? tiDirtyRead使所有修改都被返回，而不管記錄是否已被提交。如果置為 False，則應(yīng)用程序?qū)ふ襎Database 部件的 Params 屬性中的注冊(cè)參數(shù)。如置為True，當(dāng)應(yīng)用程序試圖建立數(shù)據(jù)庫聯(lián)接時(shí)屏幕上將出現(xiàn)標(biāo)準(zhǔn) Delphi 注冊(cè)對(duì)話框。如果 KeepConnection置為 False，當(dāng)每次將 Connected 置為 True，數(shù)據(jù)庫都必 須執(zhí)行注冊(cè)過程。 TDatabase 的 KeepConnection屬性描述當(dāng)數(shù)據(jù)庫中沒有表打開時(shí)是否維持?jǐn)?shù)據(jù)庫聯(lián)連。 ⑸ Connected 屬性 Connected 屬性指明是否建立數(shù)據(jù)庫的聯(lián)接，當(dāng)應(yīng)用程序打開數(shù)據(jù)庫中的一個(gè)表時(shí) Connected 將被置為 True；反之，關(guān)閉數(shù)據(jù)庫表， Connected 將被置為False，除非 KeepConnection為 True。在缺省情況下，這些參數(shù)由 BDE 配置工具設(shè)置；用戶也可以用數(shù)據(jù)庫參數(shù)編輯器 (Database Parameters Editor)修改這些參數(shù)。如果設(shè)置 AliasName，則該屬性值將被清除。如果設(shè)置 DriveName 屬性，則該屬性將被清除，如果當(dāng) Connected為 True 時(shí)強(qiáng)行設(shè)置 DriveName 屬性將引發(fā)異常。 ⑵ AliaName 屬性 AliasName 是 BDE 配置工具定義的 BDE 別名的名字。 DataSet 部件能引用該名字以取代直接使用BDE 別名。 2. TDatabase 的關(guān)鍵屬性 ⑴ DatabaseName 屬性 DatabaseName 是所要聯(lián)接的數(shù)據(jù)庫名，并且用于 DataSet 軟件，它將出現(xiàn)在DataSet 部件的 DatabaseName 屬性的下拉式列表框中。在設(shè)計(jì)時(shí)創(chuàng)建 TDatabase 部件，用戶可以設(shè)置初始值和編寫 OnLogin事件處理過程 (Event Handle)。但如果你想控制數(shù)據(jù)庫的持續(xù)聯(lián)接、進(jìn)入數(shù)據(jù)庫服務(wù)器的注冊(cè)和數(shù)據(jù)庫別名的值或事務(wù)控制 ，那么你就必須為每個(gè)所需的聯(lián)接創(chuàng)建一個(gè) TDatabase 部件。如