如何在登陆时,设置三次密码错误时自动退出系统(50分);

1楼: 那位高手帮帮忙,{如何在登陆时,设置三次密码错误时自动退出系统,

2楼: FormCreate时 var N:integer N := 0;

Button1Click里写下面的

Inc(N);
if trim(MaskEdit1.Text) = 你的密码 Then
begin
。。。。。。

end
else
begin
Label1.Caption := '密码错误，请重输!';
if N >= 3 then
begin
MessageDlg('密码连续3次错误，程序将退出!',mtWarning,[mbOk],0);
close;
end
else
begin
MaskEdit1.Text := '';
MaskEdit1.SetFocus;
end;
end;

3楼: 定义一个全局的记数器就可以了,登陆一次加一,大于等于三就退出,很容易的,

4楼: DBISAMtable1.Open ;
if DBISAMtable1.FindKey([trim(edit1.Text)])=false then
begin
showmessage('用户名不存在,请重新输入');
edit1.Text :='';
edit1.SetFocus ;
exit;
end;
if a=2 then
begin
Close ;
a:=0;
end;
if DBISAMtable1.FieldValues['pawd']<>trim(edit2.Text) then

字串3

begin
showmessage('密码不正确,请重新输入！');
edit2.Text :='';
edit2.SetFocus ;
inc(a);
exit;如胜天进销存

5楼: 同意楼上的做法

6楼: 不过我觉得密码校验的时候，最好不要提示明确的信息，说出是用户名不对还是密码不对。

否则方便试用户名和密码的人

7楼: 多人接受答案了。