主题：求助 自定义用户

老师现在登录解决了，用户退出，把登录要改成 否 是不是在

BeforeCloseProject里面写代码

是的

Dim dr As DataRow
dr = DataTables("users").SQLFind("name = _UserName")

If dr("登录") = True Then
    dr("登录") = False
    dr.save
End If

参考：http://www.foxtable.com/webhelp/topics/1284.htm

此主题相关图片如下：捕获1.png


此主题相关图片如下：捕获.png

老师请问，登录窗口的取消按钮有报错，什么原因

贴出BeforeCloseProject完整代码

此主题相关图片如下：捕获.png

 

Dim dr As DataRow
dr = DataTables("users").SQLFind("name = '" & _UserName & "'")

If dr("登录") = True  Then
    dr("登录") = False
    dr.save
End If

Dim dr As DataRow
dr = DataTables("users").SQLFind("name = '" & _UserName & "'")

If dr isnot nothing   Then
    dr("登录") = False
    dr.save
End If

老师一个新的问题出现了，之前按照您的操作一切正常，新的问题是 如果aaa 登录了这是突然停电了，没有触发 BeforeCloseProject  事件，那么这个用户aaa就无法再登录了。有没有什么方法使aaa 可以在登录。

方法1、添加一个功能给管理员使用，手工查询清除指定用户的登录标记