DBGrid1 中输入的有效验证问题(5分)

  • 主题发起人 主题发起人 李宏光
  • 开始时间 开始时间

李宏光

Unregistered / Unconfirmed
GUEST, unregistred user!
求教:
有一个table1 ,在DBGrid1 显示, 问题是如何做到: table1的一个字段
要进行有效性验证,若输入不合要求,光标怎样停留在原处不动?
下面的程序,有效性倒是能检查,可光标不能停留,

type Einvalid =class(Exception);
procedure TForm1.Table1AValidate(Sender: TField);
begin
try
// 比如:不能为123 !
if table1.FieldByName('A').asinteger=123 then
raise Einvalid.Create(' 输入错误 ');
except
on Einvalid do
application.messagebox('输入错误', ' 提示',MB_OK);
end;
end;
 
你只要在table中该字段的onvalidate事件中进行判断,如果
不符合要求,则 raise exception.Create(' 输入错误 ')就行了
 
很对不起:
这个问题是 我输入上次输入错误造成的重复问题,两次的一个
大家可以看 ' DBGrid1 中 ' 的讨论,
 
后退
顶部