怎么才能在数据录入后edit控件自动清空,然后报告录入成功???????在线等

Question

怎么才能在数据录入后edit控件自动清空,然后报告录入成功???????在线等

Answer 1

可以写一个ONKEYPRESS事件.如:
procedure TCGMXForm.Edit5KeyPress(Sender: TObject; var Key: Char);
begin
  if key=#13 then
  begin
    edit5.clear;
    showmessage('录入成功');
    edit5.setfocus;
  end;
end;

Answer 2

在edit的onexit事件中写代码．这个事件是当你的输入焦点离开当前edit控件时发生的，所以在这里你先把edit里的内容放到一个全局变量里，然后再用edit1.clear清空内容就行了．

Answer 3

在执行录入的控件下面执行
如果用的是ADOQUERY或者QUERY就是
SQL.add('insert ……')
……QUERY.execteSQL 
if 执行返回的是1就说明已经成功
　edit.text:='';
else
 　出错处理