Foxtable(狐表)用户栏目专家坐堂 → 关于登录窗体验证码的生成


  共有7981人关注过本帖树形打印复制链接

主题:关于登录窗体验证码的生成

帅哥哟,离线,有人找我吗?
peibaomin
  11楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:一尾狐 帖子:465 积分:3216 威望:0 精华:0 注册:2017/4/18 1:15:00
  发帖心情 Post By:2017/9/12 20:55:00 [只看该作者]

老师当“登录窗体”密码输错或退出窗体时不会执行其他代码吧?如果是那样就不对了

 回到顶部
帅哥哟,离线,有人找我吗?
裴保民
  12楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:八尾狐 帖子:1995 积分:12672 威望:0 精华:0 注册:2017/4/3 15:01:00
  发帖心情 Post By:2017/9/12 21:26:00 [只看该作者]

老师我测试了当在“登录窗体”单击关闭窗体时还会执行执行“AfterOpenProject”事件中其他代码的?我是想当密码输入错误登录不上程序或关闭窗体时就不要执行其他任何代码,只有密码输入正确能够正常登录程序时才执行其他代码的。

 回到顶部
帅哥哟,离线,有人找我吗?
有点蓝
  13楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:110253 积分:561089 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2017/9/12 22:03:00 [只看该作者]

参考:http://www.foxtable.com/webhelp/scr/2945.htm

学会理解代码的逻辑,而不是只会抄代码。别人推一下才走一步

为了防止用户跳过确定和取消按钮,直接关闭窗口,请将窗口的“显示控制框”属性设置为False。

十、将项目事件AfterOpenProject的代码改为:

Dim cmd As New SQLCommand
cmd
.ConnectionName = "User"
cmd
.CommandText = "SELECT * From {Users} Where [Name] Is Null"
_UserTable
 = cmd.ExecuteReader(True)


Forms("用户登录").Open()
If
 _UserName = "" Then
    Syscmd.Project.Exit()
    Return 
'
这个要加上,因为既然要退出,就不应该再执行后面的初始化代码了,否则会出错
End
 If
'后续初始化代码

第一段是之前已经写好

[此贴子已经被作者于2017/9/12 22:03:21编辑过]

 回到顶部
帅哥哟,离线,有人找我吗?
裴保民
  14楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:八尾狐 帖子:1995 积分:12672 威望:0 精华:0 注册:2017/4/3 15:01:00
  发帖心情 Post By:2017/9/12 22:22:00 [只看该作者]

老师_UserTable 是什么呢?不让保存,提示未声明 已解决
[此贴子已经被作者于2017/9/12 22:26:58编辑过]

 回到顶部
帅哥哟,离线,有人找我吗?
有点蓝
  15楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:110253 积分:561089 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2017/9/12 22:27:00 [只看该作者]

13楼的帮助从头仔细看一遍

 回到顶部
帅哥哟,离线,有人找我吗?
裴保民
  16楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:八尾狐 帖子:1995 积分:12672 威望:0 精华:0 注册:2017/4/3 15:01:00
  发帖心情 Post By:2017/9/12 23:13:00 [只看该作者]

谢谢蓝老师

 回到顶部
帅哥哟,离线,有人找我吗?
裴保民
  17楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:八尾狐 帖子:1995 积分:12672 威望:0 精华:0 注册:2017/4/3 15:01:00
  发帖心情 Post By:2017/9/12 23:33:00 [只看该作者]

我怎么限制客户只能输入3次错误呢?只要超出就退出登录窗体呢?

 回到顶部
帅哥哟,离线,有人找我吗?
有点甜
  18楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2017/9/13 9:21:00 [只看该作者]

static count As Integer = 0

count += 1

If count > 3 Then

    msgbox("错误次数太多")

    e.form.Close

End If


 回到顶部
帅哥哟,离线,有人找我吗?
peibaomin
  19楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:一尾狐 帖子:465 积分:3216 威望:0 精华:0 注册:2017/4/18 1:15:00
  发帖心情 Post By:2017/9/13 9:27:00 [只看该作者]

甜老师把代码加到确认按钮单击事件的最后吗?
[此贴子已经被作者于2017/9/13 9:28:15编辑过]

 回到顶部
帅哥哟,离线,有人找我吗?
有点甜
  20楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2017/9/13 9:35:00 [只看该作者]

以下是引用peibaomin在2017/9/13 9:27:00的发言:
甜老师把代码加到确认按钮单击事件的最后吗?
[此贴子已经被作者于2017/9/13 9:28:15编辑过]

 

是的。或者加到密码输入错误的地方。


 回到顶部
总数 27 上一页 1 2 3 下一页