以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  [求助]等待时间一过，弹出登录窗口  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=57700)
--  作者：liujywwy
--  发布时间：2014/9/29 15:36:00
--  [求助]等待时间一过，弹出登录窗口

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

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

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

是否在时间管理那款处理？
--  作者：有点甜
--  发布时间：2014/9/29 15:39:00
--  
Syscmd.Project.SwitchUser() 切换用户

 

 

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

If LastInputTickCount > 30000 Then
    Syscmd.Project.Exit()
End If
--  作者：Bin
--  发布时间：2014/9/29 15:39:00
--  
Syscmd.Project.SwitchUser()
--  作者：Bin
--  发布时间：2014/9/29 15:39:00
--  
http://www.foxtable.com/help/topics/0665.htm
--  作者：liujywwy
--  发布时间：2014/9/29 15:57:00
--  

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

 

怎么一下子不停的弹登录窗口？不应该指弹出一个登录窗口就可以了么。难道有多少user.name就弹出多少？
--  作者：有点甜
--  发布时间：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
--  发布时间：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型。主要是用来判断什么的？

另外重新输入密码之后，怎么一下子把过滤掉的行也一并显示出来了？不应该是和弹出登录窗口的数据一致么。
--  作者：有点甜
--  发布时间：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
--  发布时间：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
--  作者：有点甜
--  发布时间：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