请教如何设定登陆表单次数?
请教如何设定登陆表单次数?例如:如何设定登陆cc.scx表单的次数为10次?
#DEFINE MAX_TIMES 10 && 最大登录次数 LOCAL cUser,cPass cUser = ALLT(THISFORM.txtUser.Value) && 用户登录名 cPass = ALLT(THISFORM.txtPass.Value) && 输入的口令 SELECTt user LOCATE FOR ALLT(user) == m.cUser && 查找登录用户是否存在 IF FOUND() AND ALLT(pass) == m.cPass && 用户名和口令都正确 THISFORM.lOK = .t. && 登录成功 * 进行系统…… ELSE THISFORM.nTime = THISFORM.nTime + 1 && 登录不成功,次数累加 DO CASE CASE THISFORM.nTime >= 10 && 超过登录次数 MESSAGEBOX('已达到登录次数限制,将退出系统!',16,'提示') QUIT CASE !FOUND() && 用户名错误 MESSAGEBOX('登录名输入错误!',48,'提示') .txtUser.SetFocus OTHERWISE && 口令错误 MESSAGEBOX('口令输入错误,请重新输入!',48,'提示') .txtPass.SetFocus ENDCASE ENDIF