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中的值,字段的默认值。

posted on 2021-05-29 19:06  癫狂编程  阅读(182)  评论(0编辑  收藏  举报

导航

好的代码像粥一样,都是用时间熬出来的