各位大哥，请给小弟指点一下吧

[smp22]

为什么输入第一条数据可以判断正确，以后的输入都提示错误，也就是说不能在整个表里找正确的数据。
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;

[BS]

x:=dbgrid1.DataSource.DataSet.recordcount;
table1.first;//添加
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;
table1.next;//添加
end;
end;

• 打赏
• 举报

回复 赞

[mzzhf]

x:=dbgrid1.DataSource.DataSet.recordcount;
table1.first;//添加
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; 如果这里的用EXIT,只有第一个记录可以通过}
end;
table1.next;//添加
end;
showmessage('错误，请重新输入！');//应该放在这里
exit;//这一句要不要都可以，看情况.
end;

• 打赏
• 举报

回复 赞

[smp22]

如改为楼主所说的这样，以后虽每次都能通过，都要提示前几次错误

• 打赏
• 举报

回复 赞

[smp22]

OK，可以了，谢谢各位！

• 打赏
• 举报

回复 赞

[nxfbccu]

x:=dbgrid1.DataSource.DataSet.recordcount;
table1.first;
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;
table1.next;
end;
if i = x + 1 then
begin
showmessage('错误，请重新输入！');
end;

• 打赏
• 举报

回复 赞