请教如何设定登陆表单次数？
例如：如何设定登陆cc.scx表单的次数为10次？

http://zhidao.baidu.com/link?url=y5jxwSrLXO3pEOS5K1NRR69nKYlql_qEACTTGY8C4cquBbMmw97qV5zcGZW-tRKb89av9jX376Srtm-bKM6Hh_

[ 本帖最后由 tlliqi 于 2014-5-10 07:07 编辑 ]

1. 在表单的 Init 事件中，为表单增加两个属性：nTime 记录登录次数；lOK 保存是否登录成功
   THIS.AddProperty('nTime',0)
   THIS.AddProperty('lOK',.f.)
2. 在“登录”按钮的 Click 事件中，参考如下代码：

#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