【正文】 39。Are you sure you want to undo all changes made during the 39。Can39。按下 BtnCommitEdits按鈕將提交當前事務，并開始新的事務控制并刷新數(shù)據(jù)。當窗口顯示時，EmployeeDatabase 開始一次事務控制并激活 EmployeeTable： procedure (Sender: TObject)。 Delphi 中提供了事務的隱式和顯式兩種控制方法。 UPDATE project SET team_leader = NULL WHERE team_leader = :emp_num。 在 CSDEMO 應用程序中另一個使用存儲過程的 TStoredProc 部件是DeleteEmployeeProc。]。 END UPDATE sales SET order_status = shipped, ship_date = 39。 SUSPEND。 CSDEMO 中演示用 TStoredProc 調用存儲過程的窗體是 TFrmExecPr 在程 序運行中，當按下 ShipOrder 按鈕，要求對 ORED_STA_TUS 等字段的內容作修改以維護數(shù)據(jù)庫的一致性。 is assigned to 39。 procedure (Sender: TObject。下面是Get_Emp_Proj 的程序： PROCEDURE Get_Emp_Proj BEGIN FOR SELECT proj_id FROM employee_project WHERE emp_no = :emp_no INTO :proj_id DO SUSPEND。 對于數(shù)據(jù)庫表中大量記錄的統(tǒng)計和函數(shù)計算，存儲過程是很有用，這樣可以將重復性計算任務轉換到服務器，提高數(shù)據(jù)庫應用的性能。 procedure (Sender: TObject)。 ● 數(shù)據(jù)一致性 對 EmployeeTable 中的 Salary 字段的值作修改必須反映到 SalaryHistoryTable中， SalaryHistoryTable 維護的是 Salary 變化的歷史信息。 { 顯示所作的修改 } := crDefault。因為是用 SQL 語句訪問遠程數(shù)據(jù)庫，有時還要在服務器端執(zhí)行計算任務，所以客戶端的數(shù)據(jù)變化會有一定的間隔，因此應該讓用戶明白發(fā)生了什么。本例中的“ EmployeeDemoDB”，被 EmployeeTable， SalesTable 等所有 DataSet 部件引用。 如法炮制，就可以定義 IBLOCAL 中的所有表。 CREATE DOMAIN SALARY AS NUMERIC(15, 2) DEFAULT 0 CHECK (VALUE 0)。039。 用 ISQL 定義數(shù)據(jù)庫，首先要用 Create Database 命令建立數(shù)據(jù)庫，建立的新數(shù)據(jù)庫一般是以 GDB 為擴展名。 CSDEMO 較好地示范了 BDE 環(huán)境的配置， InterBASE Server 高級功能應用，SQL 服務器聯(lián)接，觸發(fā)器應用、存儲過程編程和事務控制技術等，具有較高的參考價值。Client/Server 應用程序必須解決大量的在桌面應用中所沒有的問題。依靠這些數(shù)據(jù)庫，可能需要改變結果表。 適化概述 所謂適化就是將桌面應用轉化為 Client/Server 應用。例如，可能想進行不同數(shù)據(jù)類型的映射。 任何 Delphi 應用程序都能用 TTable 或 TQuery 部件訪問數(shù)據(jù)。本節(jié)講述下列內容： ● 數(shù)據(jù)庫環(huán)境介紹 ● TDatabase 的應用 ● 不同數(shù)據(jù)庫表的切換 ● 觸發(fā)器編程 ● 存儲過程編程 ● 事務控制應用 數(shù)據(jù)庫環(huán)境介紹 本例中采用的數(shù)據(jù)庫服務器是 Local InterBase Server。建立好后，就可以用 SQL 語言定義數(shù)據(jù)庫表 ，例如建立 EMPLOYEE 表的 SQL 語句如下： 定義域名數(shù)據(jù)類型： CREATE DOMAIN FIRSTNAME AS VARCHAR(15)。 AND VALUE = 39。 建立 EMPLOYEE 表： CREATE TABLE EMPLOYEE (EMP_NO EMPNO NOT NULL, FIRST_NAME FIRSTNAME NOT NULL, LAST_NAME LASTNAME NOT NULL, PHONE_EXT VARCHAR(4), HIRE_DATE DATE DEFAULT 39。 IBLOCAL 中的表包括： EMPLOYEE CUSTOMER DEPARTMENT EMPLOYEE_PROJECT PROJECT SALES SALARY_HISCORY 各數(shù)據(jù)庫表中的內容如下： 表 EmployeeDemoDB 中各數(shù)據(jù)庫表的內容 ━━━━━━━━━━━━━━━━━━━━━━━━━━━ 數(shù) 據(jù)庫表名 表中內容 ─────────────────────────── EMPLOYEE 雇員信息 CUSTOMER 客戶信息 DEPARTMENT 部門信息 EMPLOYEE_PROJECT 雇員負責的工程 PROJECT 工程信息 SALES 銷售信息 SALARY_HISTORY 雇員薪水調整的歷史信息 ━━━━━━━━━━━━━━━━━━━━━━━━━━━ 每個數(shù)據(jù)庫表中都定義了關鍵字段。 Connected 為 True 表明，應用程序與數(shù)據(jù)庫將保持聯(lián)接。下面是 CSDEMO 在數(shù)據(jù)庫表切換時的處理辦法： procedure ( ATable: string )。 { 重新設置光標形狀 } end。這種數(shù)據(jù)一致性要求在本程序中是通過觸發(fā)器實現(xiàn)的。 begin 。 Delphi 中有兩個部件能操作遠程數(shù)據(jù)庫服務器上的存儲過程： TQuery 和TStoredProc。 END EMP_NO INPUT SMALL