主题：求助 自定义用户

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

用户表增加一个登陆标记列，用户登录后设置为1，关闭项目前设置为0。登录的时候判断如果是1，说明已经登录了，提示并拒绝登录

 

哪个步骤，什么地方有问题，写了什么代码有问题？

老师代码写在那个事件中

点击登录的确定按钮

 

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

这个_UserTable是不是不能保存数据的？那就改为使用SQLcommand更新数据