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中獲得的雇員號碼，用戶可以從中選擇。
