Foxtable(狐表)用户栏目专家坐堂 → [求助]登录用户限制操作


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

主题:[求助]登录用户限制操作

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


加好友 发短信
等级:小狐 帖子:319 积分:3465 威望:0 精华:0 注册:2012/4/24 14:47:00
[求助]登录用户限制操作  发帖心情 Post By:2013/7/29 18:32:00 [显示全部帖子]

求助怎么设定一个用户,当这个用户登陆的时候不能对项目有任何的操作,可以不用插入加密狗,其他用户切换到这个用户时把加密狗拔出来时项目可以不退出,只是不可以操作,用户切换回来时一切正常,可不可以正常用户拔加密狗时提示下是保存关闭还是切换到不能操作的用户?

谢谢。。这么做主要是避免临时有事离开电脑的话,回来还得重新打开项目,加载数据等等,太麻烦

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


加好友 发短信
等级:小狐 帖子:319 积分:3465 威望:0 精华:0 注册:2012/4/24 14:47:00
  发帖心情 Post By:2013/7/29 18:46:00 [显示全部帖子]

不会 求老大帮助…

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


加好友 发短信
等级:小狐 帖子:319 积分:3465 威望:0 精华:0 注册:2012/4/24 14:47:00
  发帖心情 Post By:2013/7/29 19:02:00 [显示全部帖子]

看不明白 老大 ,是不是我可以弄个例子您帮我实现啊?

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


加好友 发短信
等级:小狐 帖子:319 积分:3465 威望:0 精华:0 注册:2012/4/24 14:47:00
  发帖心情 Post By:2013/7/29 19:10:00 [显示全部帖子]

好吧 谢谢老大 我试试去。。。

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


加好友 发短信
等级:小狐 帖子:319 积分:3465 威望:0 精华:0 注册:2012/4/24 14:47:00
  发帖心情 Post By:2013/8/3 23:01:00 [显示全部帖子]

老大 能不能帮忙给这句  If UKey.Encrypt1("abc") <> "2F7EFE3A0632AE5C" Then ‘如果加密狗不存在  加一个判断,就是 如果加密狗不存在或者加密狗UID和当前登录用户不匹配,谢谢。。

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


加好友 发短信
等级:小狐 帖子:319 积分:3465 威望:0 精华:0 注册:2012/4/24 14:47:00
  发帖心情 Post By:2013/8/3 23:41:00 [显示全部帖子]

If UKey.Encrypt2("abc") <> "2F7EFE3A0632AE5C" OrElse Ukey.UID <> User.Tag Then '如果加密狗不存在或者加密狗UID和当前登录用户不匹配
   baseMainform.Enabled = False  '禁用整个主界面
Else
   baseMainform.Enabled = True  '启用整个主界面
End If

不行啊 大哥 我上面的代码用了,一登录进去就禁用整个主界面了,直接就不能进行任何操作   求指教。。

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


加好友 发短信
等级:小狐 帖子:319 积分:3465 威望:0 精华:0 注册:2012/4/24 14:47:00
  发帖心情 Post By:2013/8/5 11:36:00 [显示全部帖子]

顶上去 求助……

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


加好友 发短信
等级:小狐 帖子:319 积分:3465 威望:0 精华:0 注册:2012/4/24 14:47:00
  发帖心情 Post By:2013/8/5 11:46:00 [显示全部帖子]

好的 谢谢 还有个问题 就是同一个加密狗 在不同的电脑上用用户算法加密同一个字符,加密结果不一样么? 我换了台电脑 结果就不一样了。。

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


加好友 发短信
等级:小狐 帖子:319 积分:3465 威望:0 精华:0 注册:2012/4/24 14:47:00
  发帖心情 Post By:2013/8/5 12:03:00 [显示全部帖子]

If UKey.Encrypt2("abc") <> "2F7EFE3A0632AE5C" OrElse Ukey.UID <> User.Tag.Trim("*") Then '如果加密狗不存在或者加密狗UID和当前登录用户不匹配
   baseMainform.Enabled = False  '禁用整个主界面
Else
   baseMainform.Enabled = True  '启用整个主界面
End If

老大 这个用了还是登录进去直接禁用整个主界面。。加密结果我晚上回去了再重新试一下好了

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


加好友 发短信
等级:小狐 帖子:319 积分:3465 威望:0 精华:0 注册:2012/4/24 14:47:00
  发帖心情 Post By:2013/8/5 20:42:00 [显示全部帖子]

啊 我错了。。17楼说中了,我回来后记错密匙了,,那么长 错了一位,不好意思啊…… 还有 上面的代码还是不能用啊 登录进去了就直接禁用了 求解决……

 回到顶部
总数 14 1 2 下一页