如何改写这段查询判断？

Question

如果查找的内容数据库没有，就显示，没有找到，如果找到，就显示在dbtext标签上：VAR str:string;
begin
  str:='select * from userinfo  where  银行帐号 like '+''''+edit1.Text +'%'+'''';
  if str<>edit1.text then
  begin
  showmessage('not find');
  end
  else
  Query1.Close;
  Query1.SQL.Clear;
  Query1.SQL.Add(str);
  query1.prepare;
  Query1.open;
  dbtext1.Visible:=true;
  dbtext2.Visible:=true;
  dbtext3.Visible:=true;
end;

Answer 1

VAR str:string;
begin
  str:='select * from userinfo  where  银行帐号 like '+''''+edit1.Text +'%'+'''';
  Query1.Close;
  Query1.SQL.Clear;
  Query1.SQL.Add(str);
  query1.prepare;
  Query1.open;
  if query1.recordCount>0 then
    showmessage('not find');  dbtext1.Visible:=true;
  dbtext2.Visible:=true;
  dbtext3.Visible:=true;
end;

Answer 2

楼主式这个，可以达到你的要求
  str:='select * from userinfo  where  银行帐号 like '+''''+edit1.Text +'%'+'''';
  Query1.Close;
  Query1.SQL.Clear;
  Query1.SQL.Add(str);
  query1.prepare;
  Query1.open;
if Query1.isempty then
  showmessage('not find')
else
  showmessage('find some record');

Answer 3

var
  str: string;
begin
  str := 'select * from userinfo  where  银行帐号 like ''' + edit1.Text +'%''';
  Query1.Close;
  Query1.SQL.Clear;
  Query1.SQL.Add(str);
  Query1.open;
  if Query1.RecordCount < 1 then
    showmessage('not find')
  else begin
    showmessage('find some record');
    dbtext1.Visible:=true;
    dbtext2.Visible:=true;
    dbtext3.Visible:=true;
  end;
end;