Delphi 如何判断在DBGridEh中某格输入数据是否符合约束
不好意思,弄错了,为了不误导楼主,特更正如下:
两种方法:
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中的值,字段的默认值。
好的代码像粥一样,都是用时间熬出来的