DBGrid即时检查录入资料的正确性?

门外的码农 2006-11-18 09:50:59
数据集为TADOTable,在DBGrid中录入资料时,怎样写代码才能做到即时检查资料的正确性。

比如说有个字段是工号,我想在输入完工号时,马上检测工号的正确性,
如果工号不存在或已离职的,均不接受输入的值且不允许光标从当前单元格离开
(类似PowerBuilder中数据窗口的ItemChanged事件)

象这样的问题,在哪个对象的哪个事件中写代码比较方便、高效?
...全文
172 2 打赏 收藏 转发到动态 举报
写回复
用AI写文章
2 条回复
切换为时间正序
请发表友善的回复…
发表回复
门外的码农 2006-11-18
  • 打赏
  • 举报
回复
谢谢!

foxdelphi 2006-11-18
  • 打赏
  • 举报
回复
TADOTabl 工号field 的 Onvalidate

procedure TData_Form.first_checkpart_noValidate(Sender: TField);
var
MatCK_ado:tadoquery;
begin
MatCK_ado:=tadoquery.Create(self);
MatCK_ado.Connection:=mis;
MatCK_ado.SQL.Text:='select item_no from gbitem where item_no=:itno';
MatCK_ado.Parameters[0].Value:=trim(sender.Value) ;
MatCK_ado.Open ;
if MatCK_ado.RecordCount<>1 then
begin
showmessage('ª«®Æ½s¸¹¿ù»~¡A½Ð¬d¹ï!!!');
abort;
end;
end;

2,498

社区成员

发帖
与我相关
我的任务
社区描述
Delphi 数据库相关
社区管理员
  • 数据库相关社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧