熱點推薦:
您现在的位置: 電腦知識網 >> 編程 >> Delphi編程 >> 正文

DELPHI基礎教程:簡單數據庫應用的創建及MASTAPP介紹(三)[4]

2013-11-23 17:49:47  來源: Delphi編程 

  基於數據庫表的有效性驗證

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

  基於字段的有效性驗證

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

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

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

  基於記錄的有效性驗證

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

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

   創建一個用TEdit部件浏覽ORDERSDB表的應用如圖所示

   修改TDataSource部件的AutoEdit屬性為True

   雙擊TTable部件打開字段編輯器Fields Editor並單擊SaleDate字段

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

  TFormTableSaleDateValidate(Sender:TField)

  begin

  If SaleDateValue>Now then

  raise ExceptionCreate(不能輸入一個未來的日期

  end;

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

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

  創建查看ordersdb表的應用窗體中顯示Terms 字段的是TDBComBox部件顯示EmpNo字段的是TDBLookupComBox部件

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

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

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

  部 件 屬 性 屬 性 值

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

  DataField Terms

  DBComBox DataSource DataSource

  Items Prepaid

  Net

  COD

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

  DataField EmpNo

  DataSource DataSource

  DBLookupComBox LookupSource DataSource

  KeyField EmpNo

  LookupField EmpNo

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

  DataSource DataSet Table

  AutoEdit True

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

  DataSource DataSet Table

  AutoEdit True

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

  Table DatabaseName DemosDB

  TableName ordersdb

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

  Table DatabaseName DemosDB

  TableName ordersdb

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

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

  返回目錄DELPHI基礎教程

       編輯推薦

       Java程序設計培訓視頻教程

       JEE高級框架實戰培訓視頻教程

  Visual C++音頻/視頻技術開發與實戰

  Oracle索引技術

  ORACLEG數據庫開發優化指南

  Java程序性能優化讓你的Java程序更快更穩定

  C嵌入式編程設計模式

  Android游戲開發實踐指南

[]  []  []  []  


From:http://tw.wingwit.com/Article/program/Delphi/201311/25166.html
    推薦文章
    Copyright © 2005-2013 電腦知識網 Computer Knowledge   All rights reserved.