Foxtable(狐表) → 用户栏目 → 专家坐堂 → [讨论]同账号登录问题


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

主题：[讨论]同账号登录问题
帅哥哟，离线，有人找我吗？
pcxjxjhkw
 小大  11楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：七尾狐 帖子：1791 积分：12764 威望：0 精华：1 注册：2013/7/18 15:51:00 		  发帖心情 Post By：2016/11/26 11:01:00 [只看该作者]

以下是引用pcxjxjhkw在2016/11/25 13:12:00的发言：

同一账号，先在甲机上登录，后在乙机上登录

如何实现：甲机上提示信息，“您的账号在另一台计算机（IP，乙机的IP）登录，你被迫下线！”

 

谢

[此贴子已经被作者于2016/11/26 11:01:47编辑过]
 回到顶部
帅哥，在线噢！
有点蓝
 小大  12楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：107881 积分：548774 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2016/11/26 11:36:00 [只看该作者]

必须使用自定义用户管理模式

乙机上用户登录系统后afteropenproject事件向用户表记录电脑ip

甲机，Disconnected事件

If e.Mode = 4 Then
    Dim dr As DataRow = DataTables("用户").Find("姓名='" & User.Name & "'")
    msgbox("你已在其它地方登录,ip:" & dr("ip"))
    Syscmd.Project.Exit(False)
End If
 回到顶部
帅哥哟，离线，有人找我吗？
pcxjxjhkw
 小大  13楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：七尾狐 帖子：1791 积分：12764 威望：0 精华：1 注册：2013/7/18 15:51:00 		  发帖心情 Post By：2016/11/26 11:49:00 [只看该作者]

以下是引用有点蓝在2016/11/26 11:36:00的发言：
必须使用自定义用户管理模式

乙机上用户登录系统后afteropenproject事件向用户表记录电脑ip

甲机，Disconnected事件

If e.Mode = 4 Then
    Dim dr As DataRow = DataTables("用户").Find("姓名='" & User.Name & "'")
    msgbox("你已在其它地方登录,ip:" & dr("ip"))
    Syscmd.Project.Exit(False)
End If

我设计的客户端都没连服务器的用户数据库。

[此贴子已经被作者于2016/11/26 11:48:53编辑过]
 回到顶部
帅哥，在线噢！
有点蓝
 小大  14楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：107881 积分：548774 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2016/11/26 11:58:00 [只看该作者]

那就没有办法

 回到顶部
帅哥哟，离线，有人找我吗？
逛逛
 小大  15楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：版主 帖子：1693 积分：12123 威望：0 精华：7 注册：2013/7/11 10:52:00 		  发帖心情 Post By：2016/11/26 12:30:00 [只看该作者]

在登陆的时候，把IP传过去啊。
 回到顶部
总数 15 上一页 1 2
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.03125 秒, 4 次数据查询