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
请问:如果 用户 登录后没有退出系统,那从第二台电脑怎么登录啊。第二台登录的时候提醒 在别的地方登录,把原来登录的关闭呗,参考哪些文档啊