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