利用TField.CustomConstraint在Delphi中进行数据验证

Question

我使用Delphi6XE，以MySQL作为数据库服务器。

我有表的字段，如下所示

​

​

我在用FireDAC。

​

​

我试图使用TField.CustomConstraint实现数据验证，因此我使用字段编辑器生成TField子类对象，如下所示

​

​

我使用对象检查器设置字段的属性

通过谷歌的浏览和文档，奥瑟斯给出了一个像CustomConstraint := 'x>1000';一样的例子，我尝试了使用x，但是在运行程序时没有显示所有的数据，所以我转而使用字段名。但无论如何，我仍然可以输入任何我想要的数据，根本没有任何验证应用。

​

​

请建议如何在Delphi中设置数据验证。谢谢。

Answer 1

将您的ConstraintsEnabled组件的FDQuery1属性设置为True。引用说明了以下有关此属性的内容：

指定dataset是否执行约束检查。 使用ConstraintsEnabled获取或设置控制自动记录级约束强制执行的标志。当ConstraintsEnabled为False (默认值)时，dataset不检查约束。这允许dataset在不需要检查约束的情况下执行大型数据更新。当ConstraintsEnabled为True时，dataset在数据编辑结束时(Post / AppendRecord / InsertRecord)检查约束。