TClientDataSet[27]: 字段值的约束(或叫输入限制)
Required、Precision、MaxValue、MinValue:
begin{ Required: 必填字段 }with TIntegerField.Create(Self) do beginFieldName := 'ID';Required := True;DataSet := ClientDataSet1;end;{ Precision: 浮点数精度}with TFloatField.Create(Self) do beginFieldName := 'Float';Precision := 3; { 譬如: 输入 1.2345 只会保留 1.23 }DataSet := ClientDataSet1;end;{ MaxValue、MinValue }with TIntegerField.Create(Self) do beginFieldName := 'Integer';MinValue := 1;MaxValue := 99;DataSet := ClientDataSet1;end;ClientDataSet1.CreateDataSet; end;
可在字段的 CustomConstraint 属性中按 SQL 语法指定约束规则;
并用字段的 ConstraintErrorMessage 属性指定违反规则后的错误提示.
procedure TForm1.FormCreate(Sender: TObject); beginwith TIntegerField.Create(Self) do beginFieldName := 'ID';CustomConstraint := 'x>0 and x<100'; { 其中的 x 是随意的, 表示当前字段值 }ConstraintErrorMessage := 'Err1';DataSet := ClientDataSet1;end;with TStringField.Create(Self) do beginFieldName := 'Name';Size := 11;CustomConstraint := 'x Like ''张%'''; { 假如只要姓张的 }ConstraintErrorMessage := 'Err2';DataSet := ClientDataSet1;end;with TStringField.Create(Self) do beginFieldName := 'Sex';Size := 2; { 如果使用 TWideStringField 这里应该是 1 }CustomConstraint := 'x in(''男'', ''女'')'; { 只能输入: 男或女 }ConstraintErrorMessage := 'Err3';DataSet := ClientDataSet1;end;with TStringField.Create(Self) do beginFieldName := 'Email';Size := 21;CustomConstraint := 'Lower(x) Like ''%@gmail.com'''; { 假如只能是 Google 信箱}ConstraintErrorMessage := 'Err4';DataSet := ClientDataSet1;end;ClientDataSet1.CreateDataSet;ClientDataSet1.AppendRecord([1, '张三', '男', '123@gmail.com']);ClientDataSet1.AppendRecord([2, '张四', '女', 'ABC@GMAIL.COM']); end;{ 禁用限制 } procedure TForm1.Button1Click(Sender: TObject); beginClientDataSet1.DisableConstraints; end;{ 启用限制 } procedure TForm1.Button2Click(Sender: TObject); beginClientDataSet1.EnableConstraints; end;
使用数据集的 Constraints 属性重做上面的例子:
procedure TForm1.FormCreate(Sender: TObject); beginwith ClientDataSet1.FieldDefs do beginAdd('ID', ftInteger);Add('Name', ftString, 11);Add('Sex', ftString, 2);Add('Email', ftString, 21);end;with ClientDataSet1.Constraints.Add do beginCustomConstraint := 'ID>0 and ID<100'; { 其中的 ID 是字段名 }ErrorMessage := 'Err1';end;with ClientDataSet1.Constraints.Add do beginCustomConstraint := 'Name Like ''张%''';ErrorMessage := 'Err2';end;with ClientDataSet1.Constraints.Add do beginCustomConstraint := 'Sex in(''男'', ''女'')';ErrorMessage := 'Err3';end;with ClientDataSet1.Constraints.Add do beginCustomConstraint := 'Lower(Email) Like ''%@gmail.com''';ErrorMessage := 'Err4';end;ClientDataSet1.CreateDataSet;ClientDataSet1.AppendRecord([1, '张三', '男', '123@gmail.com']);ClientDataSet1.AppendRecord([2, '张四', '女', 'ABC@GMAIL.COM']); end;procedure TForm1.Button1Click(Sender: TObject); beginClientDataSet1.DisableConstraints; end;procedure TForm1.Button2Click(Sender: TObject); beginClientDataSet1.EnableConstraints; end;
数据集的 Constraints 和字段的 CustomConstraint 也都可以在设计时完成.
不过其中的 ConstraintErrorMessage 和 ErrorMessage 在当前版本(14.0.3593.25826)中有 bug;
我在 Delphi 2007 中测试了一下, 没有问题.
转载于:https://www.cnblogs.com/del/archive/2010/02/09/1666783.html
TClientDataSet[27]: 字段值的约束(或叫输入限制)相关推荐
- sqlserver添加字段值唯一约束
ALTER TABLE 表名 ADD CONSTRAINT 约束名 UNIQUE (列名) 例如: alter table erp_basic_billno_prefixadd constraint ...
- list中抽出某一个字段的值_使用LINQ获取List列表中的某个字段值
使用LINQ获取列表中的某个字段值,下面以获取员工列表中的编号字段为例子. 1.使用Select方法 1 List emplayeeList = GetEmplayeeList(); //获取员工信息 ...
- mysql+默认值+default_十六、MySQL 中数据类型的默认值 - default 约束-搜云库
MySQL 中,所有的数据类型,都可以显式或隐式的拥有默认值. 我们可以使用 DEFAULT 约束显式的为列指定一个默认值.比如 CREATE TABLE t1 ( i INT DEFAULT -1, ...
- mysql按照学生分组查询_将student表按照gender字段值进行分组查询,并计算每个分组中有多少名学生_学小易找答案...
[简答题]查询student表中一共有多少条记录 [简答题]在department表和employee表之间分别使用where查询.自连接查询 [简答题]使用DESC查看学生表和班级表 [简答题]在表 ...
- datagrid如何获取一行数据中的某个字段值_或许是全网最全面关于数据库面试题...
原文: https://www.enmotech.com/web/detail/1/794/1.html 两万字全面论述数据库面试题(上) https://www.enmotech.com/web/d ...
- PHP中 如何将二位数组按某一个或多个字段值(升序/降序)排序?数字索引被重置,关联索引保持不变...
如何将二位数组按某一个或多个字段值(升序/降序)排序?数字索引被重置,关联索引保持不变 1.$arr=array( 2. array('id'=>1,'name'=>'will','age ...
- mysql 修改字段值语句_mysql修改字段语句
--------------------------------------------------------- Ta 只分享的内容开始 ------------------------------ ...
- 为表中的某个字段添加check约束
场景:使用navicat创建一个user表,而navicat的图形化界面创建表时不提供对字段的check约束操作,所以只能通过sql语句对字段进行约束 使用: alter table `user` a ...
- MSSQL 如何删除字段的所有约束和索引
代码如下: ---------------------------------------------------------- -- mp_DropColConstraint -- 功能:删除某个表 ...
最新文章
- oracle数据类型之number/char浅析
- Clion从入门到精通
- Swift--逃逸闭包与非逃逸闭包(Swift3.1)
- 钉钉获取免登授权码 php_php代码如何加域名授权?开源php项目如何保护版权 商业授权?...
- 《iOS 9应用开发入门经典(第7版)》——第1章,第1.6节小结
- Shell-通过shell启动Java类中的main方法 + 通过Shell启动jar包
- 12月25号 Category类别
- android 调用系统短信接口开发,聚合数据Android SDK 短信api接口验证演示示例
- Sharepoint 2010 根据用户权限隐藏Ribbon菜单
- 普渡大学计算机工程专业提前毕业,Purdue的ECE「普渡大学西拉法叶分校电气与计算机工程学院」...
- uml的九种图例分析
- vasp 模拟退火_【转】vasp的分子动力学模拟 - 第一原理 - 小木虫 - 学术 科研 互动社区...
- 永磁同步发电机仿真,带四个牵引电机仿真。内燃机车仿真模型
- js 翻转表格(行列互换)
- 8.4 内存映射文件
- java反射异常ava.lang.IllegalArgumentException: argument type mismatch
- 【Jenkins+青藤云】基于Jenkins部署青藤云镜像扫描插件(1)
- 关于DMA,TCM(ITCM和DTCM)和Cache
- 【环境部署】华为云ECS安装MySQL
- java:计算π的值
热门文章
- event.target【转载】
- 当安全遇到大数据 “永恒之蓝”也将无所遁形!
- 看我如何基于PythonFacepp打造智能监控系统
- 最近提交一个mysql5.7的bug,提醒自己以后注意写SQL要规范
- [Python3]Python面向对象的程序设计
- 基础入门_Python-内建函数.运维开发中eval内建函数的最佳实践?
- Docker热点文章链接 - 持续更新
- Packet for query is too large(mysql写入数据过大)
- R内存扩展 win7内存扩展
- DHCP option 150与option 66的区别