本人在做进销存软件中的采购入库单，用到的控件为adoquery、datasource和dbgrid控件。
在开单时，要对某些字段进行校验，对哪些字段时行校验都是未知的。当这些字段输入的值不符合条件时，光标就停在那个字段，不准给它移动，包括用鼠标点其它控件也不行。
比如说，在开采购入库单时，在进货价格中输入0，不满足条件，光标就永远停在那里，直到输入的值满足条件为止象这种情况该怎么实现呢？？？、谢谢！！！！
在开单时，要对某些字段进行校验，对哪些字段时行校验都是未知的。当这些字段输入的值不符合条件时，光标就停在那个字段，不准给它移动，包括用鼠标点其它控件也不行。
比如说，在开采购入库单时，在进货价格中输入0，不满足条件，光标就永远停在那里，直到输入的值满足条件为止象这种情况该怎么实现呢？？？、谢谢！！！！
解决方案 »
- 请教一个类型转换的问题
- delphi2007使用问题
- 一个简单的算法~~~不知道怎么写? 高手请指教，小弟在线等!!!
- 我在用WebBrwoser控件编写某个网站的自动注册程序，发现它的注册按钮是submit的，可是Name属性是空的，请问怎么办？
- 急用!!程序中如何实现access的备份与恢复？
- 谢谢zdcnow对我的帮助，请拿分！
- 請大家幫個忙,操作txt流文件時候WriteBuffer的問題,代碼如下:
- 外挂程序，钩子失效
- 过程出现在赋值语句的疑问
- 怎么拦截系统函数？（超高度难题！）
- 怎样屏蔽一个事件，使得此事件在任何时候不触发？
- 很怪异的问题：adotable中用last无法定位到最后一条记录（ 求救 在线等）
另一种办法，maskedit 输入限制
procedure TForm1.Edit1Exit(Sender: TObject);
begin
if (Sender as TEdit).Text <> '1' then
(sender as tedit).SetFocus
end;