| 以文本方式查看主题 - Foxtable(狐表) (http://foxtable.com/bbs/index.asp) -- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2) ---- [求助]登录用户限制操作 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=38447) |
| -- 作者：北冰洋 -- 发布时间：2013/7/29 18:32:00 -- [求助]登录用户限制操作 求助怎么设定一个用户，当这个用户登陆的时候不能对项目有任何的操作，可以不用插入加密狗，其他用户切换到这个用户时把加密狗拔出来时项目可以不退出，只是不可以操作，用户切换回来时一切正常，可不可以正常用户拔加密狗时提示下是保存关闭还是切换到不能操作的用户？ 谢谢。。这么做主要是避免临时有事离开电脑的话，回来还得重新打开项目，加载数据等等，太麻烦
|
| -- 作者：狐狸爸爸 -- 发布时间：2013/7/29 18:41:00 -- 做个计划，每10秒钟检查一下加密狗，根据狗是否存在，来执行相关操作 |
| -- 作者：北冰洋 -- 发布时间：2013/7/29 18:46:00 -- 不会 求老大帮助… |
| -- 作者：狐狸爸爸 -- 发布时间：2013/7/29 18:51:00 -- 做个计划： If UKey.Encrypt1("abc") <> "2F7EFE3A0632AE5C" Then baseMainform.Enabled = False Else baseMainform.Enabled = True End if |
| -- 作者：北冰洋 -- 发布时间：2013/7/29 19:02:00 -- 看不明白 老大 ，是不是我可以弄个例子您帮我实现啊？ |
| -- 作者：狐狸爸爸 -- 发布时间：2013/7/29 19:04:00 -- If UKey.Encrypt1("abc") <> "2F7EFE3A0632AE5C" Then ‘如果加密狗不存在
这么简单，怎么就看不明白？ 如果看不明白，就不用做这个功能了。
记得将2F7EFE3A0632AE5C改为实际的加密abc后的字符串。 [此贴子已经被作者于2013-7-29 19:04:54编辑过]
|
| -- 作者：北冰洋 -- 发布时间：2013/7/29 19:10:00 -- 好吧 谢谢老大 我试试去。。。 |
| -- 作者：北冰洋 -- 发布时间：2013/8/3 23:01:00 -- 老大 能不能帮忙给这句 If UKey.Encrypt1("abc") <> "2F7EFE3A0632AE5C" Then ‘如果加密狗不存在 再加一个判断，就是 如果加密狗不存在或者加密狗UID和当前登录用户不匹配，谢谢。。 |
| -- 作者：有点酸 -- 发布时间：2013/8/3 23:18:00 -- 如果是系统用户：
If UKey.Encrypt1("abc") <> "2F7EFE3A0632AE5C" Orelse Ukey.UID <> User.Tag Then End if
如果自定义用户，你得在用户表增加一个UID列，用于记录每个用户的Ukey的ID |
| -- 作者：有点甜 -- 发布时间：2013/8/3 23:20:00 -- 以下是引用北冰洋在2013-8-3 23:01:00的发言： 老大 能不能帮忙给这句 If UKey.Encrypt1("abc") <> "2F7EFE3A0632AE5C" Then ‘如果加密狗不存在 再加一个判断，就是 如果加密狗不存在或者加密狗UID和当前登录用户不匹配，谢谢。。 加密狗uid与当前登录用户是否匹配，需要uid与用户有具体关联，需要查询表得出。建议看看 |