| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 303 人关注过本帖
标题:请教如何设定登陆表单次数?
只看楼主 加入收藏
shzhshg
Rank: 1
等 级:新手上路
帖 子:147
专家分:0
注 册:2010-5-7
结帖率:85.71%
收藏
已结贴  问题点数:20 回复次数:2 
请教如何设定登陆表单次数?
请教如何设定登陆表单次数?
例如:如何设定登陆cc.scx表单的次数为10次?
搜索更多相关主题的帖子: 如何 
2014-05-10 04:30
tlliqi
Rank: 19Rank: 19Rank: 19Rank: 19Rank: 19Rank: 19
等 级:贵宾
威 望:204
帖 子:15453
专家分:65956
注 册:2006-4-27
收藏
得分:20 
http://zhidao.baidu.com/link?url=y5jxwSrLXO3pEOS5K1NRR69nKYlql_qEACTTGY8C4cquBbMmw97qV5zcGZW-tRKb89av9jX376Srtm-bKM6Hh_

[ 本帖最后由 tlliqi 于 2014-5-10 07:07 编辑 ]
2014-05-10 06:53
liuxingang28
Rank: 11Rank: 11Rank: 11Rank: 11
来 自:山东济南
等 级:贵宾
威 望:47
帖 子:658
专家分:2180
注 册:2014-2-7
收藏
得分:0 
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

泉城飞狐
2014-05-10 15:37
快速回复:请教如何设定登陆表单次数?
数据加载中...
 
   



关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.019488 second(s), 8 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved