设置只允许三次密码错误

发布日期：2021/6/15

——此文章摘自《Delphi开发经验技巧宝典》定价￥特价￥购买>>http://tracklinktechcn/?m_id=dangdang&a_id=A&l=&l_type= width= height= border= nosave>

为了更加安全可以控制用户只能连续三次录入密码如果三次密码都不通过则自动退出系统主要代码如下

procedure TFrmOrderByBtnOrderClick(Sender: TObject);

begin

if Length(EdtPassWordText) = then

Exit;

with AQuery do

begin

Close;

SQLClear;

SQLAdd(SELECT pwdcompare(:Passloginpassword) FROM login WHERE loginname=:LoginName);

ParametersParamByName(Pass)Value := EdtPassWordText;

ParametersParamByName(LoginName)Value := Trim(EdtLoginNameText);

Open;

//密码验证成功进入主窗体

if Fields[]AsInteger = then

begin

SelfTag := ;

SelfClose;

end

else

begin

EdtPassWordClear;

EdtPassWordSetFocus;

ShowMessage(密码错误);

Inc(LoginCount);

end;

//如果密码验证三次不能通过则退出系统

if LoginCount >= then

begin

ApplicationTerminate;

end;