設置只允許三次密碼錯誤

    ——此文章摘自《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;
      end;
    end;

From:http://tw.wingwit.com/Article/program/Delphi/201311/24878.html