数据库

Question

在数据库编程的时候，有查询的功能。问题是：根据查询条件，如果找到了显示内容，如果没有找到弹出对话框，显示没有记录。
在以下代码中补添：
ADOQuery1.Active:=false;
ADOQuery1.SQL.Clear;
ADOQuery1.SQL.Add('Select * from communication Where 姓名=:TT');
ADOQuery1.Parameters[0].Value:=edit1.Text;
ADOQuery1.Active:=true;

Answer 1

if ADOQuery1.RecordCount<1 then
 Showmessage('没有找到记录');