Foxtable(狐表)用户栏目专家坐堂 → 用户长时间不操作,自动退出登录


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

主题:用户长时间不操作,自动退出登录

帅哥哟,离线,有人找我吗?
简单168
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:婴狐 帖子:1 积分:76 威望:0 精华:0 注册:2020/10/8 17:37:00
用户长时间不操作,自动退出登录  发帖心情 Post By:2020/10/8 17:40:00 [只看该作者]

请问专家们,用户长时间不操作,如何设置自动退出登录


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


加好友 发短信
等级:狐神 帖子:4632 积分:33804 威望:0 精华:0 注册:2008/8/31 22:44:00
  发帖心情 Post By:2020/10/9 8:31:00 [只看该作者]

搜索LastInputTickCount

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


加好友 发短信
等级:小狐 帖子:322 积分:4991 威望:0 精华:0 注册:2019/1/1 15:53:00
  发帖心情 Post By:2020/10/9 8:35:00 [只看该作者]

SystemIdle

在系统空闲的时候执行。
此事件执行较为频繁,所以请不要出现"负荷"较重的代码。

示例一

例如为了在状态栏显示用户名、表名、总行数、当前行位置,可以在SystemIdle中加入下面的代码:

With CurrentTable
    Dim
 Str1 As String = "用户: " & User.Name
    Str1 = Str1 & 
" 表名: " & .Name & " 总行数: " 
    Str1 = Str1 & .Rows.Count & 
" 当前行: " & (.Position + 1)
    StatusBar.Message1 = Str1

End
 
With

示例二

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

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

End
 If

提示:LastInputTickCount是一个系统变量,返回距离用户上次操作之后的时间,单位为毫秒。


本页地址:http://www.foxtable.com/webhelp/topics/0665.htm

 回到顶部