第十八章delphi客戶服務(wù)器應(yīng)用開發(fā)四-文庫吧資料
2024-09-13 15:30本頁面
【正文】 Params EMP_No(輸 入?yún)?shù)， Smallint 類型 ) SQL Select * from Get_Emp_Proj(:EMP_NO) ━━━━━━━━━━━━━━━━━━━━━━━━━━ TQuery 部件是在 SQL 語句中直接調(diào)用存儲過程。具體的連接任務(wù)是由服務(wù)器上的存儲過程 Get_Emp_Proj 完成。 DBGrid2 顯示 Project 表中的數(shù)據(jù)。 TFrmQueryProc 中有兩個 TDBGrid 部件。 Delphi 中有兩個部件能操作遠程數(shù)據(jù)庫 服務(wù)器上的存儲過程： TQuery 和TStoredProc。 存儲過程編程 存儲過程也是 SQL 服務(wù)器上的一段程序，它接收輸入?yún)?shù)，在服務(wù)器端執(zhí)行，并將結(jié)果返回客戶端，存儲過程是必須在客戶應(yīng)用程序中顯式調(diào)用的。 begin { 一個雇員的薪水變化將觸發(fā)薪水調(diào)整歷史記錄的變化 , 因此，如果 SalaryHistory 打開的話，就需要更新顯示 } with SalaryHistoryTable do if Active then Refresh。 end。 begin 。在客戶端有打開并顯示數(shù)據(jù)庫表內(nèi)容的程序和當 SALARY_HISTORY 表中數(shù)據(jù)變化時的更新顯示的操作。, user, , ( ) * 100 / )。 下面是 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。這種數(shù)據(jù)一致性要求在本程序中是通過觸 發(fā)器實現(xiàn)的。這種連接關(guān)系是通過索引來實現(xiàn)的。 DBGrid1 顯示 EmployeeTable 中的數(shù)據(jù)，DBGrid2 顯示 SalaryHistoryTable 中的數(shù)據(jù)。 DisableControls 和EnableControls 的作用是隱藏和顯示數(shù)據(jù)變化。 { 重新設(shè)置光標形狀 } end。 { 打開數(shù)據(jù)庫表 } 。 { 關(guān)閉原來的數(shù)據(jù)庫表 } := ATable。 { 向用戶提示當前操作狀態(tài) } 。下面是 CSDEMO 在數(shù)據(jù)庫表切換時的處理辦法： procedure ( ATable: string )。這時，往往需要特別的處理，例如改變光標形狀或隱藏數(shù)據(jù)改變等，尤其是在客戶 /服務(wù)器應(yīng)用程序中。下文中會介紹這方面的內(nèi)容。 LoginPrompt 屬性為 False，表明應(yīng)用程序自動處理與數(shù)據(jù)庫的聯(lián)接注冊，因此，Params 屬性中定義了注冊的用戶名和口令： USERNAME = SYSDBA PASSWORD = masterkey TransIsolation 屬性為 tiReadCommitted 表明，如果存在多個同時事務(wù)，則某一事務(wù)只允許讀由其它事務(wù)提交了 的數(shù)據(jù)。 Connected 為 True 表明，應(yīng)用程序與數(shù)據(jù)庫將保持聯(lián)接。 EmployeeDatagase 的主要屬性及屬性值如下： 表 EmployeeDatabase 部件主要屬性的取值 ━━━━━━━━━━━━━━━━━━ ━━━━━ 屬性 屬性值 ─────────────────────── AliasName IBLOCAL DatabaseName EmployeeDemoDB KeepConnection True LoginPrompt False TransIsolation tiReadCommitted Params USERNAME = SYSDBA PASSWORD = masterkey Connected True ━━━━━━━━━━━━━━━━━━━━━━━ AliasName屬性所指定的 IBLOCAL，必須已經(jīng)在 BDE中配置好， DatabaseName屬性指定要使用的數(shù)據(jù)庫名，該數(shù)據(jù)庫名是由應(yīng)用程序自己定義的，因此不反應(yīng)到 BDE 中，該屬性值被 TTable、 TQuery 等 DataSet 部件引用，并且出現(xiàn)在DataSet 部 件 的 DatabaseName 下 拉 式 列 表 框 中 。其它涉及數(shù)據(jù)庫訪問的窗體，只要在 uses 語句中插入數(shù)據(jù)庫模塊所在的庫單元，該窗體上的數(shù)據(jù)庫部件就可引用相應(yīng)的數(shù)據(jù)庫訪問部件。 應(yīng)用程序分析 TDatabase 部件的使用 CSDEMO 程序中定義了一個數(shù)據(jù)庫模塊部件 —— TDmEmployee，它是繼承于 TDataModule。 IBLOCAL 中的表包括： EMPLOYEE CUSTOMER DEPARTMENT EMPLOYEE_PROJECT PROJECT SALES SALARY_HISCORY 各數(shù)據(jù)庫表中的內(nèi)容如下： 表 EmployeeDemoDB 中各數(shù)據(jù)庫表的內(nèi)容 ━━━━━━━━━━━━━━━━━━━━━━━━━━━ 數(shù)據(jù)庫表名 表中內(nèi)容 ─────────────────────────── EMPLOYEE 雇員信息 CUSTOMER 客戶信息 DEPARTMENT 部門信息 EMPLOYEE_PROJECT 雇員負責(zé)的工程 PROJECT 工程信息 SALES 銷售信息 SALARY_HISTORY 雇員薪水調(diào)整的歷史信息 ━━━━━━━━━━━━━━━━━━━━━━━━━━━ 每個數(shù)據(jù)庫表中都定義了關(guān)鍵字段。 PRIMARY_KEY 語句是給表建立關(guān)鍵字索引。 || first_name), PRIMARY KEY (EMP_NO))。 NOT NULL, DEPT_NO DEPTNO NOT NULL,
公司管理相關(guān)推薦
鄂ICP備17016276號-1