请问高手这个循环错在何处？！登录时只能出三次错，我输入了正确的名称和密码，为什么还显示此用户不存在,

Question

procedure TForm1.BitBtn1Click(Sender: TObject);
begin
while count<2 do
   begin
   if ADODataSet1.Locate('name',NameEdit.Text,[])= false then
   begin
          MessageBox(form1.Handle,'此管理员不存在!','输入出错',MB_OK+MB_ICONERROR);
            NameEdit.Clear;
           NameEdit.SetFocus;
            count:=count+1;
           exit;
   end;
   res:=adodataset1.FieldValues['password'];
   if res=PwdEdit.Text then
      begin          AdminForm.show;
          NameEdit.Clear;
          PwdEdit.Clear;
            form1.Hide;
      end
    else
        begin
          MessageBox(form1.Handle,'您输入的密码输有误!','输入出错',MB_OK+MB_ICONERROR);
          PwdEdit.SetFocus;
          PwdEdit.Clear;
          count:=count+1;
          exit;
        end;
 end;
 
     MessageBox(form1.Handle,'您不能再试,要想登录，请和管理员联系!','输入出错',MB_OK+MB_ICONERROR);
     form1.Close;
   end;
end.

Answer 1

呵呵，你把值对错了，都要用检索来查找某个人具体在不在