DELPHI基礎教程：Delphi客戶服務器應用開發（四）[2]

　　CREATE TABLE EMPLOYEE （EMP_NO EMPNO NOT NULL

　　FIRST_NAME FIRSTNAME NOT NULL

　　LAST_NAME LASTNAME NOT NULL

　　PHONE_EXT VARCHAR（）

　　HIRE_DATE DATE DEFAULT NOW NOT NULL

　　DEPT_NO DEPTNO NOT NULL

　　JOB_CODE JOBCODE NOT NULL

　　JOB_GRADE JOBGRADE NOT NULL

　　JOB_COUNTRY COUNTRYNAME NOT NULL

　　SALARY SALARY NOT NULL

　　FULL_NAME COMPUTED BY （last_name || || first_name）

　　PRIMARY KEY （EMP_NO））

　　CHECK語句是給數據庫字段取值范圍加約束條件PRIMARY_KEY語句是給表建立關鍵字索引

　　如法炮制就可以定義IBLOCAL中的所有表

　　IBLOCAL中的表包括

　　EMPLOYEE CUSTOMER DEPARTMENT EMPLOYEE_PROJECT

　　PROJECT SALES SALARY_HISCORY

　　各數據庫表中的內容如下

　　表 EmployeeDemoDB中各數據庫表的內容

　　━━━━━━━━━━━━━━━━━━━━━━━━━━━

　　數據庫表名        表中內容

　　───────────────────────────

　　EMPLOYEE 雇員信息

　　CUSTOMER 客戶信息

　　DEPARTMENT 部門信息

　　EMPLOYEE_PROJECT 雇員負責的工程

　　PROJECT 工程信息

　　SALES 銷售信息

　　SALARY_HISTORY 雇員薪水調整的歷史信息

　　━━━━━━━━━━━━━━━━━━━━━━━━━━━

　　每個數據庫表中都定義了關鍵字段關於數據庫表中的字段名類型大小這裡不再贅述

　　 應用程序分析

　　 TDatabase部件的使用

　　CSDEMO程序中定義了一個數據庫模塊部件TDmEmployee它是繼承於TDataModuleTDataModule是在Delphi中才出現的專門放置數據訪問部件（如TDatabaseTTable和TQuery等）的框架其它涉及數據庫訪問的窗體只要在uses語句中插入數據庫模塊所在的庫單元該窗體上的數據庫部件就可引用相應的數據庫訪問部件

　　在TDmEmployee中定義了一個TDatabase類型的部件──EmployeeDatabaseEmployeeDatagase的主要屬性及屬性值如下

　　表 EmployeeDatabase部件主要屬性的取值

　　━━━━━━━━━━━━━━━━━━━━━━━

　　屬性        屬性值

　　───────────────────────

　　AliasName IBLOCAL

　　DatabaseName EmployeeDemoDB

　　KeepConnection True

　　LoginPrompt False

　　TransIsolation tiReadCommitted

　　Params USERNAME = SYSDBA

　　PASSWORD = masterkey

　　Connected True

　　━━━━━━━━━━━━━━━━━━━━━━━

　　AliasName屬性所指定的IBLOCAL必須已經在BDE中配置好DatabaseName屬性指定要使用的數據庫名該數據庫名是由應用程序自己定義的因此不反應到BDE中該屬性值被TTableTQuery等DataSet部件引用並且出現在DataSet部件的DatabaseName 下拉式列表框中本例中的EmployeeDemoDB被EmployeeTableSalesTable等所有DataSet部件引用

　　Connected為True表明應用程序與數據庫將保持聯接

　　KeepConnection屬性為True表明多次打開和關閉EmployeeDemoDB數據庫中的任意表應用程序將始終與數據庫保持聯接這省卻了重復注冊的開銷

　　LoginPrompt 屬性為False表明應用程序自動處理與數據庫的聯接注冊因此Params屬性中定義了注冊的用戶名和口令

　　USERNAME = SYSDBA

　　PASSWORD = masterkey

　　TransIsolation屬性為tiReadCommitted表明如果存在多個同時事務則某一事務只允許讀由其它事務提交了的數據

　　程序中EmployeeDatabase的應用還與事務控制等有關下文中會介紹這方面的內容

　　 不同數據庫表的切換

　　在許多數據庫應用中都要在不同數據庫表之間相互切換以響應用戶輸入條件或系統狀態的變化這時往往需要特別的處理例如改變光標形狀或隱藏數據改變等尤其是在客戶/服務器應用程序中因為是用SQL語句訪問遠程數據庫有時還要在服務器端執行計算任務所以客戶端的數據變化會有一定的間隔因此應該讓用戶明白發生了什麼下面是CSDEMO在數據庫表切換時的處理辦法

　　procedure TFrmViewDemoShowTable（ ATable: string ）

　　begin

　　ScreenCursor := crHourglass; { 向用戶提示當前操作狀態 }

　　VaryingTableDisableControls; { 隱藏數據變化 }

　　VaryingTableActive := FALSE; { 關閉原來的數據庫表 }

　　VaryingTableTableName := ATable; { 更新數據庫表名 }

　　VaryingTableOpen; { 打開數據庫表 }

　　VaryingTableEnableControls; { 顯示所作的修改 }

　　ScreenCursor := crDefault; { 重新設置光標形狀 }

　　end;

　　crHourglass型光標表明正在執行SQL查詢DisableControls和EnableControls的作用是隱藏和顯示數據變化

　　 InterBase觸發器（Trigger）的應用

　　在CSDEMO應用程序中演示觸發器應用的窗體是TFromTriggerDemo;

　　在該窗體中包含兩個TDBGrid對象DBGrid顯示EmployeeTable中的數據DBGrid顯示SalaryHistoryTable中的數據它們的主要屬性及屬性值如下

　　表 EmlpoyeeTable部件主要屬性的取值

　　━━━━━━━━━━━━━━━━━━━━━

　　屬 性       屬 性 值

　　─────────────────────

　　DatabaseName EmployeeDemoDB

　　IndexFieldName Emp_No

　　TableName EMPLOYEE

　　━━━━━━━━━━━━━━━━━━━━━

　　表 SalaryHistoryTable部件主要屬性的取值

　　━━━━━━━━━━━━━━━━━━━━━

　　屬 性       屬 性 表

　　─────────────────────

　　DatabaseName EmployeeDemoDB

　　IndexFieldName Emp_No

　　MasterFields Emp_No

　　MasterSource EmployeeSource

　　TableName SALARY_HISTORY

　　━━━━━━━━━━━━━━━━━━━━━

　　這兩個表之間存在兩種關系

　　● 連接關系

　　EmployeeTable的記錄變化時SalaryHistoryTable的數據要作相應的變化這種連接關系是通過索引來實現的

　　● 數據一致性

　　對EmployeeTable中的Salary字段的值作修改必須反映到SalaryHistoryTable中SalaryHistoryTable維護的是Salary變化的歷史信息這種數據一致性要求在本程序中是通過觸發器實現的

　　觸發器是在SQL服務器端執行的一段程序它在服務器端被觸發執行完成一定的數據計算任務

　　下面是InterBase服務器上與Employee表相關的觸發器程序

　　Triggers on Table EMPLOYEE:

　　SAVE_SALARY_CHANGE Sequence: Type: AFTER UPDATE Active AS

　　BEGIN

　　IF （oldsalary <> newsalary） THEN

　　INSERT INTO salary_history

　　（emp_no change_date updater_id old_salary percent_change）

　　VALUES （

　　oldemp_no

　　now

　　user

　　oldsalary

　　（newsalary oldsalary） * / oldsalary）

　　END

　　因為觸發器是相應於EMPLOYEE表上的數據修改由服務器自動觸發執行的所以在客戶應用程序上沒有顯式的調用在客戶端有打開並顯示數據庫表內容的程序和當SALARY_HISTORY表中數據變化時的更新顯示的操作

[]  []  []  []  

From:http://tw.wingwit.com/Article/program/Delphi/201311/25126.html