Question

DELPHI 用户登录窗口设计时，三次错误输入之后 还是提示用户密码错误 而不是预想的关闭窗口 咋回事呢？

begin
edit1.Tag:=0;
table1.Open;
table1.SetKey;
table1.FieldByName('用户名').AsString:=Edit1.Text;
if (table1.GotoKey) and (table1.FieldByName('密码').AsString=edit2.Text) then
begin
username:=edit1.Text;
password:=edit2.Text;
x1:=table1.FieldByName('管理权限').AsBoolean;
x2:=table1.FieldByName('操作权限').AsBoolean;
x3:=table1.FieldByName('查询权限').AsBoolean;
table1.Close;
close;
end
else
begin
table1.Close;
messagebox(0,'用户名或者密码错误，请确认您的输入信息！','错误提示',mb_ok+mb_iconhand);
edit1.Text:='';
edit2.Text:='';
edit1.SetFocus;
edit1.Tag:=edit1.Tag+1;

if edit1.tag=2 then
begin
messagebox(0,'您操作过于频繁，请查明您的登录信息后再试！','警告提示',mb_ok+mb_iconhand);
Form2.Close;
form1.Close;
end;
end;
end;
end.总是提示用户密码错误，三次之后还是同样的提示！还有个问题，为什么我的数据表理的用户密码不能正确调用到EDIT里？输入数据表里的数据 提示用户密码错误！

Answer 1

你的代码有逻辑错误 每次begin后面的edit1.Tag:=0;都将edit1.Tag重置为0 所以无论怎么都不会出现edit1.tag=2的情况, 要学会逐步调试代码, 这样的小问题调试一下就出来了.

追问

顺便问问，为什么我输入了数据表里的用户名 密码 还是提示错误呢?代码哪个地方需要修改下？

追答

手头暂时没法测试问题所在, 不过你可以在
"if (table1.GotoKey) and (table1.FieldByName('密码').AsString=edit2.Text) then" 这行打 一个断点,

然后监控一下 table1.FieldByName('用户名').AsString 和 table1.FieldByName('密码').AsString 看看这两个属性的值是多少 就知道问题出在哪里了

追问

多谢指导我试试！

追答

好的程序是调试出来的 做程序员一定要有耐心! 祝你成功

追问

我已经成功了一步了，把edit1.tag:=0;一句去了 就能正常关闭了！哈哈

追答

tag属性的默认值好像就是0 不用额外初始化

Answer 2

edit1.Tag:=0;每次赋值，都会把把修改的tag值冲掉，可以把这个放在界面初始化里面

追问

EN~!

Answer 3

。。。你用tag记录错误次数吗？