Foxtable(狐表)用户栏目专家坐堂 → 登录防止重复登录


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

主题:登录防止重复登录

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


加好友 发短信
等级:四尾狐 帖子:825 积分:1650 威望:0 精华:0 注册:2021/7/30 8:48:00
登录防止重复登录  发帖心情 Post By:2021/11/4 17:50:00 [显示全部帖子]

老师你好,我想问问已下这个重复登录的问题,我现在计划管理那里判断不出是否多人登录,导致他一直弹出有人在登录,可以帮我看一下吗,谢谢
 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:日常小练.zip


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


加好友 发短信
等级:四尾狐 帖子:825 积分:1650 威望:0 精华:0 注册:2021/7/30 8:48:00
  发帖心情 Post By:2021/11/4 17:52:00 [显示全部帖子]

我分别在计划管理跟AfterOpenProject跟BeforeCloseProject 都有写了代码

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


加好友 发短信
等级:四尾狐 帖子:825 积分:1650 威望:0 精华:0 注册:2021/7/30 8:48:00
  发帖心情 Post By:2021/11/4 18:01:00 [显示全部帖子]

或者老师有没有更好的方法可以禁止多人登录一个号图片点击可在新窗口打开查看

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


加好友 发短信
等级:四尾狐 帖子:825 积分:1650 威望:0 精华:0 注册:2021/7/30 8:48:00
  发帖心情 Post By:2021/11/5 8:56:00 [显示全部帖子]

老师你好我想问一下是不是在网络监视器里面Disconnected写这个就好呀Dim dr As DataRow = DataTables("用户登录状态表").SQLFind("Num = '" & _login_num & "'")
If dr IsNot Nothing Then
    dr.Delete
    dr.Save
End If

'查询是否有状态记录用户名等于本次登录用户名且state为0的记录,如果有则清除,以此消除非正常退出留下的记录
Dim drs As List(of DataRow)  = DataTables("用户登录状态表").SQLSelect("user_ID = '" & user.Name & "'")
If drs IsNot Nothing Then
    For Each dr1 As DataRow In drs
        If dr1("state") = "0" Then
            dr1.Delete
            dr1.Save()
        End If
    Next
End If

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


加好友 发短信
等级:四尾狐 帖子:825 积分:1650 威望:0 精华:0 注册:2021/7/30 8:48:00
  发帖心情 Post By:2021/11/5 9:41:00 [显示全部帖子]

我是把代码直接放在Disconnected里面还是跟官方文档一样,还是跟官方文档一样建表跟着步骤做

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


加好友 发短信
等级:四尾狐 帖子:825 积分:1650 威望:0 精华:0 注册:2021/7/30 8:48:00
  发帖心情 Post By:2021/11/5 9:44:00 [显示全部帖子]

好的谢谢老师

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


加好友 发短信
等级:四尾狐 帖子:825 积分:1650 威望:0 精华:0 注册:2021/7/30 8:48:00
  发帖心情 Post By:2021/11/5 10:12:00 [显示全部帖子]

.NET Framework 版本:4.0.30319.42000
Foxtable 版本:2021.10.16.1
错误所在事件:窗口,主控窗口,Button26,Click
详细错误信息:
FillSchema: SelectCommand.Connection 属性尚未初始化。 老师这个是什么意思呀

 回到顶部