if i<3 then begin if UserMsg.sPwd=self.edtPWD.Text then Begin if application.FindComponent('frmMain')=nil then Application.CreateForm(TfrmMain,frmMain); frmMain.Show; self.Release ; end else begin i:=i+1; Application.MessageBox('你忘记了你的密码?','你再想一想!',mb_ok+mb_IconQuestion); self.edtID.SetFocus ; end; end else begin Application.MessageBox('你已试图登录多次都出错,程序将结束!','注意',mb_OK+mb_iconexclamation); Application.Terminate ; end;
----------------------------------------------
链接:https://pan.baidu.com/s/12jzmECYKhGCsHBxz8tmB6w 提取码:pelr --来自百度网盘超级会员V9的分享