以文本方式查看主题 - Foxtable(狐表) (http://foxtable.net/bbs/index.asp) -- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2) ---- [求助]无任何动作10分钟后锁定系统 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=8175) |
-- 作者:易服 -- 发布时间:2010/9/14 10:03:00 -- [求助]无任何动作10分钟后锁定系统 在《总览》表无任何动作10分钟后秒执行 For Each t As RibbonMenu.Tab In RibbonTabs
这样的代码怎么写?先谢了 |
-- 作者:狐狸爸爸 -- 发布时间:2010/9/14 10:08:00 -- 自己加一个全局日期型public变量,在AfterEdit、CurrentChanged、DataColumnChanged等事件设置代码:
变量名 = Date.Now
是项目的SystemIdle设置代码:
If (Date.Now - 变量名).TotalSeconds > 10 Then \'你的代码 End IF [此贴子已经被作者于2010-9-14 10:07:51编辑过]
|
-- 作者:易服 -- 发布时间:2010/9/14 11:57:00 -- 项目的SystemIdle设置代码: If (Date.Now - myDate).TotalSeconds > 600 Then 有一个不足就是10分钟(600秒)锁定后,在Forms("主界面").Open()重新输入密码打开后又立即锁定,不能再打开了,必须关闭系统重新启动。 "主界面"窗口 KeyDown事件: 怎样才能在锁定后重新输入密码仍然能打开? |
-- 作者:程兴刚 -- 发布时间:2010/9/14 12:05:00 -- If (Date.Now - 变量名).TotalSeconds > 10 Then \'你的代码,这里打开一个模式窗口,相当于自定义登录界面,输入正确的密码点击确定按钮进入,同时通过确定按钮解除锁定(恢复相应的功能、菜单) End IF |
-- 作者:程兴刚 -- 发布时间:2010/9/14 12:09:00 -- 也就是按照楼上打开模式窗口,把您的这一段代码放入确定按钮中,最外层嵌套判断密码语句:
if ........... For Each t As RibbonMenu.Tab In RibbonTabs \'隐藏菜单 有一个不足就是10分钟(600秒)锁定后,在Forms("主界面").Open()重新输入密码打开后又立即锁定,不能再打开了,必须关闭系统重新启动。 "主界面"窗口 KeyDown事件: |
-- 作者:易服 -- 发布时间:2010/9/14 14:12:00 -- 糊涂了! "主界面"窗口是一个独立窗口 [此贴子已经被作者于2010-9-14 19:13:03编辑过]
|
-- 作者:卟离卟弃 -- 发布时间:2010/9/14 14:35:00 -- 狐爸,DataColumnChanged 这是什么事件? 在那儿可以找到。。。 |
-- 作者:卟离卟弃 -- 发布时间:2010/9/14 14:36:00 -- 大哥,怎么不用模式窗口呢? |
-- 作者:狐狸爸爸 -- 发布时间:2010/9/14 14:37:00 -- 是DataColchanged
|
-- 作者:狐狸爸爸 -- 发布时间:2010/9/14 14:40:00 -- 以下是引用易服在2010-9-14 11:57:00的发言:
项目的SystemIdle设置代码: 有一个不足就是10分钟(600秒)锁定后,在Forms("主界面").Open()重新输入密码打开后又立即锁定,不能再打开了,必须关闭系统重新启动。 怎样才能在锁定后重新输入密码仍然能打开?
你应该在输入密码后,判断密码是否正确的地方,在判断正确之后,加入一行代码:
变量名 = Date.Now
这样就重新开始计时。 |