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

Syscmd.Project.SwitchUser()

切换用户

 

 

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

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

改一下代码

 

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

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

 

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

 

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

 

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

3、

 

方法一：给用户表加入一列解锁密码，用户单独设置；

 

方法二：直接根据输入密码，这个做不到，不清楚默认的加密方式。

 为什么要加入这个代码啊？我叫你在LoadUserSetting里面改啊

 新加的代码不变，改原本事件的代码啊，亲

 这段写在LoadUserSetting

 

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

关键的啊

 

static flag As Boolean = False
If flag = False Then
    '里面写你原来的东西
End If

 代码没有问题啊，如果有问题，就是你的逻辑错了，你自己msgbox看一下条件，再对比一下你的数据。