此主题相关图片如下:捕获.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编辑过]