各位大哥,请给小弟指点一下吧
smp22 2003-12-12 01:03:02 为什么输入第一条数据可以判断正确,以后的输入都提示错误,也就是说不能在整个表里找正确的数据。
x:=dbgrid1.DataSource.DataSet.recordcount;
for i:=1 to x do
begin
mm:=trim(table1.fieldbyname('name').asstring);
nn:=trim(table1.fieldbyname('pass').asstring);
if (mm=trim(edit1.text)) and (nn=trim(edit2.text)) then
begin
showmessage('正确,欢迎进入!');
exit;
end else
begin
showmessage('错误,请重新输入!');
exit;
end;
end;
end;