Delphi 简单数据库应用的创建及MASTAPP介绍（三）

基于记录的有效性验证：

这种验证方式一般在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中获得的雇员号码，用户可以从中选择。

上一篇： Delphi 数据访问部件的应用及编程（一）
下一篇： Delphi 数据访问部件的应用及编程（二）

文章整理：西部数码--专业提供域名注册、虚拟主机服务
http://www.west263.com
以上信息与文章正文是不可分割的一部分,如果您要转载本文章,请保留以上信息，谢谢!