delphi客戶服務(wù)器應(yīng)用開發(fā)四(編輯修改稿)
2024-09-26 15:18 本頁面
【文章內(nèi)容簡介】 = masterkey TransIsolation 屬性為 tiReadCommitted 表明，如果存在多個同時事務(wù)，則某一事務(wù)只允許讀由其它事務(wù)提交了的數(shù)據(jù)。 程序中 EmployeeDatabase 的應(yīng)用還與事務(wù)控制等有關(guān)。下文中會介紹這方面的內(nèi)容。 不同數(shù)據(jù)庫表的切換 在許多數(shù)據(jù)庫應(yīng)用中都要在不同數(shù)據(jù)庫表之間相互切換，以響應(yīng)用戶輸入條件或系統(tǒng)狀態(tài)的變化。這時，往往需要特別的處理，例如改變光標(biāo)形狀或隱藏數(shù)據(jù) 改變等，尤其是在客戶 /服務(wù)器應(yīng)用程序中。因為是用 SQL 語句訪問遠(yuǎn)程數(shù)據(jù)庫，有時還要在服務(wù)器端執(zhí)行計算任務(wù)，所以客戶端的數(shù)據(jù)變化會有一定的間隔，因此應(yīng)該讓用戶明白發(fā)生了什么。下面是 CSDEMO 在數(shù)據(jù)庫表切換時的處理辦法： procedure ( ATable: string )。 begin := crHourglass。 { 向用戶提示當(dāng)前操作狀態(tài) } 。 { 隱藏數(shù)據(jù)變化 } := FALSE。 { 關(guān)閉原來的數(shù)據(jù)庫表 } := ATable。 { 更新數(shù)據(jù)庫表名 } 。 { 打開數(shù)據(jù)庫表 } 。 { 顯示所作的修改 } := crDefault。 { 重新設(shè)置光標(biāo)形狀 } end。 crHourglass 型光標(biāo)表明正在執(zhí)行 SQL 查詢。 DisableControls 和EnableControls 的作用是隱藏和顯示數(shù)據(jù)變化。 InterBase 觸發(fā)器 (Trigger)的應(yīng)用 在 CSDEMO 應(yīng)用程序中，演示觸發(fā)器應(yīng)用的窗體是 TFromTriggerDemo； 在該窗體中包含兩個 TDBGrid 對象。 DBGrid1 顯示 EmployeeTable 中的數(shù)據(jù)，DBGrid2 顯示 SalaryHistoryTable 中的數(shù)據(jù)。它們的主要屬性及屬性值如下： 表 EmlpoyeeTable 部件主要屬性的取值 ━━━━━━━━━━━━━━━━━ ━━━━ 屬 性 屬 性 值 ───────────────────── DatabaseName EmployeeDemoDB IndexFieldName Emp_No TableName EMPLOYEE ━━━━━━━━━━━━━━━━━━━━━ 表 SalaryHistoryTable 部件主要屬性的取值 ━━━━━━━━━━━━━━━━━━━━━ 屬 性 屬 性 表 ───────────────────── DatabaseName EmployeeDemoDB IndexFieldName Emp_No MasterFields Emp_No MasterSource EmployeeSource TableName SALARY_HISTORY ━━━━━━━━━━━━━━━━━━━━━ 這兩個表之間存在兩種關(guān)系： ● 連接關(guān)系 EmployeeTable 的記錄變化時， SalaryHistoryTable 的數(shù)據(jù)要作相應(yīng)的變化。這種連接關(guān)系是通過索引來實現(xiàn)的。 ● 數(shù)據(jù)一致性 對 EmployeeTable 中的 Salary 字段的值作修改必須反映到 SalaryHistoryTable中， SalaryHistoryTable 維護(hù)的是 Salary 變化的歷史信息。這種數(shù)據(jù)一致性要求在本程序中是通過觸發(fā)器實現(xiàn)的。 觸發(fā)器是在 SQL 服務(wù)器端執(zhí)行的一段程序，它在服務(wù)器端被觸發(fā)執(zhí)行完成一定的數(shù)據(jù)計算任務(wù)。 下面是 InterBase 服務(wù)器上與 Employee 表相關(guān)的觸發(fā)器程序： Triggers on Table EMPLOYEE: SAVE_SALARY_CHANGE, Sequence: 0, Type: AFTER UPDATE, Active AS BEGIN IF ( ) THEN INSERT INTO salary_history (emp_no, change_date, updater_id, old_salary, percent_change) VALUES ( , 39。now39。, user, , ( ) * 100 / )。 END 因為觸發(fā)器是相應(yīng)于 EMPLOYEE 表上的數(shù)據(jù)修改由服務(wù)器自動觸發(fā)執(zhí)行的，所以在客戶應(yīng)用程序上沒有顯式的調(diào)用。在客戶端有打開并顯示數(shù)據(jù)庫表內(nèi)容的程序和當(dāng) SALARY_HISTORY 表中數(shù)據(jù)變化時的更新顯示的操作。 procedure (Sender: TObject)。 begin 。 。 end。 procedure (DataSet: TDataSet)。 begin { 一個雇員的薪水變化將觸發(fā)薪水調(diào)整歷史記錄的變化 , 因此，如果 SalaryHistory 打開的話，就需要更新顯示 } with SalaryHistoryTable do if Active then Refresh。 end。 存儲過程編程 存儲過程也是 SQL 服務(wù)器上的一段程序，它接收輸入?yún)?shù)，在服務(wù)器端執(zhí)行，并將結(jié)果返回客戶端，存儲過程是必須在客戶應(yīng)用程 序中顯式調(diào)用的。 對于數(shù)據(jù)庫表中大量記錄的統(tǒng)計和函數(shù)計算，存儲過程是很有用，這樣可以將重復(fù)性計算任務(wù)轉(zhuǎn)換到服務(wù)器，提高數(shù)據(jù)庫應(yīng)用的性能。 Delphi 中有兩個部件能操作遠(yuǎn)程數(shù)據(jù)庫服務(wù)器上的存儲過程： TQuery 和TStoredProc。 1. TQuery 的存儲過程編程 CSDEMO 中演示用 TQuery 調(diào)用存儲過程的窗體是 TFrmQueryProc。 TFrmQueryProc 中有兩個 TDBGrid 部件。 DBGrid1 顯示 EmployeeTable中的數(shù)據(jù)。 DBGrid2 顯示 Project 表 中的數(shù)據(jù)。使用存儲過程的 TQuery 部件名為 EmployeeProjectsQuery，它的作用是建立 Employee 表和 Project 表的
環(huán)評公示相關(guān)推薦
鄂ICP備17016276號-1