以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  用户登录后没有退出,用别的电脑怎么登录  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=194890)

--  作者:18365900066
--  发布时间:2025/1/30 16:38:00
--  用户登录后没有退出,用别的电脑怎么登录

图片点击可在新窗口打开查看此主题相关图片如下:捕获.jpg
图片点击可在新窗口打开查看


登录的代码这样写的
Dim counts As Integer = 0
counts = Tables("用户").Compute("count(用户ID)","姓名 = \'" & yhm.Text  & "\' and 密码 = \'" & mm.Text & "\' and 启用 =  true " and "状态 = false")

‘BeforeCloseProject关闭项目之前执行。

Dim dr As DataRow
dr = DataTables("用户").Find("姓名 = \'" & Vars("姓名") & "\' ") 
With DataTables("用户")
    dr("状态") = False
End With

请问:如果   用户 登录后没有退出系统,那从第二台电脑怎么登录啊。第二台登录的时候提醒 在别的地方登录,把原来登录的关闭呗,参考哪些文档啊
[此贴子已经被作者于2025/1/30 16:39:36编辑过]