主题：求助 自定义用户

老师您好，请问用 自定义用户 方式，如果aaa用户已经登录了，不能再用aaa登录了，aaa再登录提示，提示该用户已登录，不允许再登录，怎么实现。

 

老师代码写在那个事件中

 

Dim UserName As String = e.Form.Controls("UserName").Value
Dim dr As DataRow
If UserName = ""  Then
    Messagebox.show("请选择用户!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
    Return
End If
dr = _UserTable.SQLFind("[Name] = '" & UserName & "'")
If dr Is Nothing Then
    Messagebox.show("此用户不存在!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
    Return
End If
If e.Form.Controls("PassWord").Value = dr("Password") Then
    _UserName = UserName
    _UserGroup = dr("Group")
    e.Form.Close
Else
    Messagebox.show("密码错误!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
End If

 

 

在用户表增加了一列  登录 （逻辑性）代码应该怎么写，谢谢。

Dim UserName As String = e.Form.Controls("UserName").Value
Dim dr As DataRow
If UserName = ""  Then
    Messagebox.show("请选择用户!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
    Return
End If
dr = _UserTable.SQLFind("[Name] = '" & UserName & "'")
If dr Is Nothing Then
    Messagebox.show("此用户不存在!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
    Return
End If

If dr("登录") = True Then
    msgbox("其它地方已登录")
    Return
End If

If e.Form.Controls("PassWord").Value = dr("Password") Then
    _UserName = UserName
    _UserGroup = dr("Group")
    
    dr("登录") = True
    dr.save
    
    e.Form.Close
Else
    Messagebox.show("密码错误!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
End If

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

 

登录以后 登录列没有打t

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

BeforeCloseProject里面写代码

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

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

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


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

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

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

 

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

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

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