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

Question

我使用的是 Delphi 6XE，以 MySQL 作为数据库服务器。

我有如下所示的表格字段

我正在使用 FireDAC。

我正在尝试使用TField.CustomConstraint 实现数据验证，因此我使用字段编辑器生成TField 后代对象，如下所示

我使用 Object Inspector 设置字段的属性

通过谷歌浏览和文档，作者给出了使用 CustomConstraint := 'x>1000'; 之类的示例，我尝试使用 x，但运行程序时未显示所有数据，因此我切换到使用 字段名称 em> 代替。但无论如何我仍然可以输入我想要的任何数据，根本没有应用任何验证。

请告知如何在 Delphi 中设置数据验证。 谢谢。

Answer 1

将FDQuery1 组件的ConstraintsEnabled 属性设置为True。该参考资料对此属性进行了以下说明：

指定数据集是否执行约束检查。

使用 ConstraintsEnabled 获取或设置控制 自动记录级约束执行。什么时候 ConstraintsEnabled 为 False（默认），数据集不检查 约束。这允许数据集执行大型数据更新 没有检查约束的开销。当 ConstraintsEnabled 时 为 True，数据集在数据编辑结束时检查约束 （发布/追加记录/插入记录）。