delphi客戶服務器應用開發(fā)（四）-全文預覽
【正文】 Params PO_NUM(輸入?yún)?shù)， String 類型 ) StoredProcName SHIP_ORDER ━━━━━━━━━━━━━━━━━━━━━━━━━━━━ 客戶端執(zhí)行 SHIP_ORDER 的程序如下： procedure (Sender: TObject)。NOW39。 60 INTO :any_po DO BEGIN EXCEPTION customer_check。 END ELSE IF (hold_stat = *) THEN BEGIN EXCEPTION customer_on_hold。 DECLARE VARIABLE any_po CHAR(8)。字段內容的修改任務由服務器上的存儲過程 SHIP_ORDER 完成。 該事件處理過程與 EmployeeSource 的 OnDataChange 屬性相聯(lián)。 + IntToStr() + 39。 WriteMsg(39。 Field: TField)。 with EmployeeProjectsQuery do if not Active then Prepare。 END EMP_NO INPUT SMALLINT PROJ_ID OUTPUT CHAR(5) 該過程帶兩個參數(shù)： EMP_NO 是輸入?yún)?shù)，類型是 SMALLINT. PROJ_ID 是輸出參數(shù)，類型是 CHAR(5) 相應地， EmployeeProjectsQuery 的主要屬性如下： 表 18. 18 EmployeeProjectsQuery 部件主要屬性的取值 ━━━━━━━━━━━━━━━━━━━━━━━━━━ 屬 性 屬 性 值 ────────────────────────── DatabaseName EmployeeDemoDB Params EMP_No(輸入?yún)?shù)， Smallint 類型 ) SQL Select * from Get_Emp_Proj(:EMP_NO) ━━━━━━━━━━━━━━━━━━━━━━━━━━ TQuery 部件是在 SQL 語句中直接調用存儲過程。 DBGrid2 顯示 Project 表 中的數(shù)據(jù)。 Delphi 中有兩個部件能操作遠程數(shù)據(jù)庫服務器上的存儲過程： TQuery 和TStoredProc。 begin { 一個雇員的薪水變化將觸發(fā)薪水調整歷史記錄的變化 , 因此，如果 SalaryHistory 打開的話，就需要更新顯示 } with SalaryHistoryTable do if Active then Refresh。 begin 。, user, , ( ) * 100 / )。這種數(shù)據(jù)一致性要求在本程序中是通過觸發(fā)器實現(xiàn)的。 DBGrid1 顯示 EmployeeTable 中的數(shù)據(jù)，DBGrid2 顯示 SalaryHistoryTable 中的數(shù)據(jù)。 { 重新設置光標形狀 } end。 { 關閉原來的數(shù)據(jù)庫表 } := ATable。下面是 CSDEMO 在數(shù)據(jù)庫表切換時的處理辦法： procedure ( ATable: string )。下文中會介紹這方面的內容。 Connected 為 True 表明，應用程序與數(shù)據(jù)庫將保持聯(lián)接。其它涉及數(shù)據(jù)庫訪問的窗體，只要在 uses 語句中插入數(shù)據(jù)庫模塊所在的庫單元，該窗體上的數(shù)據(jù)庫部件就可引用相應的數(shù)據(jù)庫訪問部件。 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ù)庫表中都定義了關鍵字段。 || first_name), PRIMARY KEY (EMP_NO))。 建立 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。9999939。 AND VALUE = 39。 CREATE DOMAIN DEPTNO AS CHAR(3) CHECK (VALUE = 39。建立好后，就可以用 SQL 語言定義數(shù)據(jù)庫表 ，例如建立 EMPLOYEE 表的 SQL 語句如下： 定義域名數(shù)據(jù)類型： CREATE DOMAIN FIRSTNAME AS VARCHAR(15)。 IBLOCAL 的 BDE 參數(shù) 本例中的 SQL數(shù)據(jù)庫是 IBLOCAL。本節(jié)講述下列內容： ● 數(shù)據(jù)庫環(huán)境介紹 ● TDatabase 的應用 ● 不同數(shù)據(jù)庫表的切換 ● 觸發(fā)器編程 ● 存儲過程編程 ● 事務控制應用 數(shù)據(jù)庫環(huán)境介紹 本例中采用的數(shù)據(jù)庫服務器是 Local InterBase Server。因為存儲過程執(zhí)行更快，使用存儲過程還可以減少網(wǎng)絡負載，特別是大量行數(shù) 據(jù)的函數(shù)。 任何 Delphi 應用程序都能用 TTable 或 TQuery 部件訪問數(shù)據(jù)。
環(huán)評公示相關推薦
鄂ICP備17016276號-1