Question

delphi查询 edit限制为空弹框，输入值后执行sql

edit限制为空弹框，输入值后执行sql。
if trim(edit1.text)='' then
messagebox('');
exit;
adoquery1.close;
adoquery1.sql.clear;
adoquery1.sql.add();
adoquery1.open;

messagebox 提示后，在edit中输入值， 在查询，不显示结果，为什么？

Answer 1

因为你的程序逻辑错误。可修改为：

if trim(edit1.text)='' then begin
    messagebox('');
    exit;
end else begin
    adoquery1.close;
    adoquery1.sql.clear;
    adoquery1.sql.add(trim(edit1.text));
    adoquery1.open;
end;

Answer 2

Edit.Text='特定数字' then Application.MessageBox('提示内容','提示',0);