if (Edit1.Text=ADOQuery1.FieldByName('id').AsString) and (Edit2.Text=ADOQuery1.FieldByName('pass').AsString) then ShowMessage('通过验证!') else ShowMessage('请检查用户名跟密码!'); end; 为什么代码执行之后,只能验证数据库中的第个用户名跟密码,如果有多个用户,为什么不能验证第二个用户呢?请大家帮忙,小弟在此先谢谢了!
----------------------------------------------
-
前面, if ADOQuery1.Locate('id',Edit1.Text,[loCaseInsensitive])=true then ShowMessage('通过验证!') else ShowMessage('请检查用户名跟密码!');
----------------------------------------------
delphi酷儿