[求助]等待时间一过，弹出登录窗口 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助]等待时间一过，弹出登录窗口

共有4276人关注过本帖树形打印复制链接主题：[求助]等待时间一过，弹出登录窗口

liujywwy

小大 1楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：三尾狐帖子：633 积分：4034 威望：0 精华：0 注册：2014/6/23 10:27:00

[求助]等待时间一过，弹出登录窗口 发帖心情

Post By：2014/9/29 15:36:00 [只看该作者]

我的登录窗口用的是系统自带的logform.txt,还有我自己的一张图片。

比如项目3分钟不进行任何操作，自动弹出登录出口，需要重新输入密码才能操作项目。

这个我如何把登录窗口调出来？

是否在时间管理那款处理？

有点甜

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2014/9/29 15:39:00 [只看该作者]

Syscmd.Project.SwitchUser()

切换用户

如果用户30秒内没有进行任何操作，就自动关闭系统，可以在SystemIdle中加入下面的代码：

If LastInputTickCount > 30000 Then
Syscmd.Project.Exit()
End If

Bin

小大 3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：贵宾帖子：35433 积分：178524 威望：0 精华：3 注册：2013/3/30 16:36:00

Post By：2014/9/29 15:39:00 [只看该作者]

Syscmd.Project.SwitchUser()

Bin

小大 4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：贵宾帖子：35433 积分：178524 威望：0 精华：3 注册：2013/3/30 16:36:00

Post By：2014/9/29 15:39:00 [只看该作者]

http://www.foxtable.com/help/topics/0665.htm

liujywwy

小大 5楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：三尾狐帖子：633 积分：4034 威望：0 精华：0 注册：2014/6/23 10:27:00

Post By：2014/9/29 15:57:00 [只看该作者]

If LastInputTickCount > 180000 Then
Syscmd.Project.SwitchUser()
End If

怎么一下子不停的弹登录窗口？不应该指弹出一个登录窗口就可以了么。难道有多少user.name就弹出多少？

有点甜

小大 6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2014/9/29 16:01:00 [只看该作者]

改一下代码

static flag As Boolean = False
If flag = False AndAlso LastInputTickCount > 18000 Then
    flag = True
    Syscmd.Project.SwitchUser()
    flag = False
End If

liujywwy

小大 7楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：三尾狐帖子：633 积分：4034 威望：0 精华：0 注册：2014/6/23 10:27:00

Post By：2014/9/29 16:12:00 [只看该作者]

以下是引用有点甜在2014-9-29 16:01:00的发言：

改一下代码

static flag As Boolean = False
If flag = False AndAlso LastInputTickCount > 18000 Then
    flag = True
    Syscmd.Project.SwitchUser()
    flag = False
End If

你定义的这个静态flag，而且是boolean型。主要是用来判断什么的？

另外重新输入密码之后，怎么一下子把过滤掉的行也一并显示出来了？不应该是和弹出登录窗口的数据一致么。

有点甜

小大 8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2014/9/29 16:15:00 [只看该作者]

1、加入判断只要是不让下面的代码重复执行；

2、重新登录以后，会触发LoadUserSetting事件的，你也可以用一个变量，设置一个标志，不让那个事件重复执行；

3、或者你用另外一种方法去实现锁屏的功能 http://www.foxtable.com/bbs/dispbbs.asp?BoardID=2&ID=52203&replyID=343370&skin=1

liujywwy

小大 9楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：三尾狐帖子：633 积分：4034 威望：0 精华：0 注册：2014/6/23 10:27:00

Post By：2014/9/29 16:39:00 [只看该作者]

1、加入判断只要是不让下面的代码重复执行；----已明白了

2、重新登录以后，会触发LoadUserSetting事件的，你也可以用一个变量，设置一个标志，不让那个事件重复执行；

----既然会触发LoadUserSetting事件的。那应该按照设置的过滤条件来加载吧

比如Tables("临时版本跟踪表").Filter = "状态 = 'Confirming' or 状态 = 'Bound' or 状态 is null"
Tables("需求主表").Filter = "审核通过 = False And 审核不通过 = False"
Tables("商务下单查询表").Filter = "状态 = 'Published'"

3、或者你用另外一种方法去实现锁屏的功能 http://www.foxtable.com/bbs/dispbbs.asp?BoardID=2&ID=52203&replyID=343370&skin=1

----这里面有个问题是每个账户的密码都是不一致的，怎么可以固定为一个值呢，比如123456呢？

Dim pwd As String = e.Form.Controls("TextBox1").Text
If pwd <> "123456" Then
msgbox("密码不正确,默认密码是123456")
e.cancel = True
End If

有点甜

小大 10楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2014/9/29 16:41:00 [只看该作者]

2、要重启才生效

static flag As Boolean = False
If flag = False Then
    flag = True
    Tables("临时版本跟踪表").Filter = "状态 = 'Confirming' or 状态 = 'Bound' or 状态 is null"
    Tables("需求主表").Filter = "审核通过 = False And 审核不通过 = False"
    Tables("商务下单查询表").Filter = "状态 = 'Published'"
End If

下一主题 >> << 上一主题

总数 35 1 2 3 4 下一页

主题：[求助]等待时间一过，弹出登录窗口