Delphi 如何判断在DBGridEh中某格输入数据是否符合约束
2012-01-18 16:36
441 查看
不好意思,弄错了,为了不误导楼主,特更正如下:
两种方法:
1、如果要实现复杂的判断,可以用字段的OnValidate事件,写法如下:
procedure ClientDataSetValidate(
Sender: TField);
var tpEvent:TFieldNotifyEvent;
begin
if Sender.AsFloat > 57 then begin
ShowMessage('值不符事要求了');
tpEvent:=Sender.OnValidate;
Sender.OnValidate:=Nil;
Sender.Value:=值; //注意,如果要赋值,一定要先屏蔽原事件,否则会堆栈溢出
Sender.OnValidate:=tpEvent;
tpEvent:=Nil;
end;
end;
方法二: 可以使用 DbGridEh的提供的功能,在每一列中,有
KeyList 与 PickList两个属性,其中KeyList用于限制输入的值,PickList用于显示选项,两者可以配合使用,或者是PickList单独使用。 配合使用时PickList的行数必须与KeyList一一对应,比如 PickList的值为
星期一
星期二
星期三
KeyLsit的值为
1
2
3
则用户选择时看到的时星期一、二、三,但字段得到的值是1,2,3,其他值不允许,
配合NotInKeyListIndex属性,可以设定,万一用户输入了不在keyList中的值,字段的默认值。
两种方法:
1、如果要实现复杂的判断,可以用字段的OnValidate事件,写法如下:
procedure ClientDataSetValidate(
Sender: TField);
var tpEvent:TFieldNotifyEvent;
begin
if Sender.AsFloat > 57 then begin
ShowMessage('值不符事要求了');
tpEvent:=Sender.OnValidate;
Sender.OnValidate:=Nil;
Sender.Value:=值; //注意,如果要赋值,一定要先屏蔽原事件,否则会堆栈溢出
Sender.OnValidate:=tpEvent;
tpEvent:=Nil;
end;
end;
方法二: 可以使用 DbGridEh的提供的功能,在每一列中,有
KeyList 与 PickList两个属性,其中KeyList用于限制输入的值,PickList用于显示选项,两者可以配合使用,或者是PickList单独使用。 配合使用时PickList的行数必须与KeyList一一对应,比如 PickList的值为
星期一
星期二
星期三
KeyLsit的值为
1
2
3
则用户选择时看到的时星期一、二、三,但字段得到的值是1,2,3,其他值不允许,
配合NotInKeyListIndex属性,可以设定,万一用户输入了不在keyList中的值,字段的默认值。
相关文章推荐
- Delphi 如何判断在DBGridEh中某格输入数据是否符合约束
- 以写代学:python 数据类型之字符串,判断用户输入的id是否符合要求
- 用JavaScript判断用户输入的数据是否如何要求!
- 如何判断标准输入或输出是否经过了重定向,即是否在命令行上使用了“”?
- 如何通过正则表达式判断一组字符串是否符合规范,首字母必须是字母、$、或是下划线
- 如何判断mysql中数据表中是否有相关字段——20120412
- Delphi 7 中,如何快速判断SQL是否能连接上??
- while循环中,用scanf输入一个float型的数字,如何让判断输入的是否为数字...
- 如何判断某变量是否为数组数据类型?
- php如何判断是否为json数据(格式)
- mysql创建数据表时如何判断是否已经存在?
- [Tool]判断用户输入是否符合规范(大小写0~9数字)
- 如何判断用户输入的邮箱格式是否正确?
- js如何判断输入是否为正整数、浮点数等数字的函数
- Delphi 在dbgrideh中表格输入数据时有效性的检查(转)
- 如何在C++中实现对输入数是否为小数的判断
- 如何(高效)判断数据是否线性可分
- js判断输入的数据是否是正整数,包括100.00(100.000)
- 输入一个日期,****年**月**日,如何判断是否为工作日?