主题：同用户登录

请问限制同一用户同一时间登录，有什么简单的号方法，谢谢

方法一：做一个在线用户表、或者直接在用户表里标记是否登陆；退出的时候，设置为false。登陆的时候，先判断之前是否已经登陆。

 

方法二：用OpenQQ来做，类似 http://www.foxtable.com/help/topics/3009.htm

 

方法一，能给我一段代码作为参考吗，我不知道怎么在登录前给表字段座标记，非常感谢

方法一，能给我一段代码作为参考吗，我不知道怎么在登录前给表字段座标记，非常感谢

OpenQQ服务器端：

 

If  QQserver.Users.Contains(e.UserName) Then

    e.Message  = "该用户已经登录，请勿重复登陆"

     Return
End If

 

OpenQQ客户端登录按钮：

 

　

QQClient.ServerIP = "127.0.0.1" '指定服务器IP地址

QQClient.ServerPort = 52177  '指定服务器端口

QQClient.UserName = "用户名"

QQClient.Password = "密码"

If QQClient.Start() = True '如果登录成功

    Dim msg As String =  "恭喜,OpenQQ登录成功!"

    If QQClient.ServerMessage > "" Then '如果服务器返回了欢迎信息

        msg = msg & QQClient.ServerMessage

    End If

    PopMessage(msg,"提示",PopiconEnum.Infomation,5)

Else '如果登录失败,显示服务器返回错误信息

   PopMessage("登录失败,原因:" & vbcrlf & QQClient.ServerMessage,"提示",PopiconEnum.Error,5)

   Syscmd.Project.Exit()

End If

　

 

比如，你有一个用户表。那就加一列【在线】。

 

登陆的时候，不是要查找用户比较密码之类的吗？把查到的那一行的 在线 设置成true 保存