14.8 輸入數據的有效性驗證

　　當用戶向一個數據庫表中插入新記錄或修改原有記錄時，我們必須確保用戶輸入的數據是有效的，為此Delphi通過三種不同的途徑用來驗證用戶輸入的數據是否有效。

　　這三種途徑是：基于數據庫表的有效性驗證、基于字段的有效性驗證、基于記錄的有效性驗證。

　　基于數據庫表的有效性驗證：

　　在用戶創建數據庫表時就建立有效性驗證機制，如在使用DBD創建一個表時，我們可以為創建的數據庫表說明一些驗證手段，包括字段的最大值，最小值，圖形字段的顯示格式等等。在設定這些有效性驗證機制時，不需要編寫任何程序代碼。基于數據庫表的有效性驗證是當數據寫到數據庫之前，由數據庫本身來執行。Delphi也執行一些有效性驗證，如在數據寫到數據庫之前Delphi會驗證每一個字段是否被填入相應的值，有關這種途徑來驗證數據的有效性的詳細情況請參考DBD的使用。

　　基于字段的有效性驗證：

　　一般有兩種方法來進行這種方式的有效性驗證。

　　①為記錄中需要設置有效性驗證的字段編寫Onvalidate事件處理過程。這樣每當該字段的值被修改時，該字段的OnValidate事件處理過程就會被調用，進而對被修改的字段值進行驗證。

　　②對于記錄中要求非空的字段(如口令或關鍵字等)，我們必須首先設置這些字段的Required屬性為True，然后為這些字段編寫OnValidate事件處理過程，這樣在修改現存記錄或插入新記錄時，在寫入數據庫之前，如果要求非空的字段中沒有填入適當的字段值，那么會出現錯誤信息提示用戶必須輸入字段值。

　　基于記錄的有效性驗證：

　　這種驗證方式一般在TTable部件的BeforePost事件處理過程中進行處理，即在記錄寫回到數據庫之前對記錄的每個字段值進行有效性驗證。

　　例14.8 在程序中對字段值的有效性進行驗證。

　　1. 創建一個用TEdit部件瀏覽ORDERS.DB表的應用，如圖14.25所示。

　　2. 修改TDataSource部件的AutoEdit屬性為True。

　　3. 雙擊TTable部件打開字段編輯器Fields Editor，并單擊SaleDate字段。

　　4. 在Object Inspector中雙擊SaleDate字段對象的OnValidate事件，為該字段對象編寫事件處理過程如下：

　　TForm1.Table1SaleDateValidate(Sender:TField);

　　begin

　　If SaleDate.Value>Now then

　　raise Exception.Create('不能輸入一個未來的日期');

　　end;

　　當這個應用程序運行時，用戶修改或插入ORDERS.DB中的記錄時，該應用程序會對銷售日期(SaleDate)字段的值進行驗證，該字段值不能晚于系統的當前日期，程序中調用Now方法獲得系統的當前日期。如果字段值大于系統的當前日期會出現一錯誤信息提示框，告知用戶不能輸入一個未來的日期。

　　使用TDBComBox部件和TDBLookupComBox部件來限制用戶輸入字段值的范圍。

　　創建查看orders.db表的應用，創建好的窗體如圖14.25所示。窗體中顯示Terms 字段的是TDBComBox部件，顯示EmpNo字段的是TDBLookupComBox部件。

　　圖14.25 用數據瀏覽部件限制用戶的輸入

　　TDBComBox和TDBLookupComBox部件的屬性值如表14.8所示：

　　表14.8 窗體中各部件的屬性設置

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

　　部 件 屬 性 屬 性 值

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

　　DataField Terms

　　DBComBox1 DataSource DataSource1

　　Items Prepaid

　　Net 30

　　COD

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

　　DataField EmpNo

　　DataSource DataSource1

　　DBLookupComBox LookupSource DataSource2

　　KeyField EmpNo

　　LookupField EmpNo

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

　　DataSource1 DataSet Table1

　　AutoEdit True

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

　　DataSource2 DataSet Table1

　　AutoEdit True

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

　　Table1 DatabaseName DemosDB

　　TableName orders.db

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

　　Table2 DatabaseName DemosDB

　　TableName orders.db

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

　　該應用運行時，當用戶修改和插入記錄到ORDERS.DB表中時，Terms字段的值可以從組合框中的Prepaid、Net30、COD三個值中任選，EmpNo字段的值是從另一個表Employee中獲得的雇員號碼，用戶可以從中選擇。