连接数据库问题

Question

小弟刚学delphi，写了些代码出现了问题。麻烦高手帮忙看下 以下代码哪里出错了呢？procedure TForm1.Button4Click(Sender: TObject);
var user,pass,uname:string;
begin
  user:=username.Text;
  pass:=pwd.Text;
  ADOQuery1.Close;
  ADOQuery1.SQL.Clear;
  ADOQuery1.SQL.Text:='select username from tb_members where username='''+user+'''and password='''+pass+'''';
  ADOQuery1.Open;
  uname:=ADOQuery1.FieldByName('username').AsString;
  showmessage(uname);
end;end.

Answer 1

看样子好像没问题，是不是记录返回的为空，加个判断进去类似如下var user,pass,uname:string;
begin
  user:=username.Text;
  pass:=pwd.Text;
  ADOQuery1.Close;
  ADOQuery1.SQL.Clear;
  ADOQuery1.SQL.Text:='select username from tb_members where username='''+user+'''and password='''+pass+'''';
  ADOQuery1.Open;
  if not ADOQuery1.IsEmpty then
  begin
    uname:=ADOQuery1.FieldByName('username').AsString;
    showmessage(uname);
  end 
  else
  begin
    showmessage('no data found.');
  end;
end;end.