防止多用户登陆同一账号及出现异常关闭软件现象

       防止多用户登陆同一账号当遇到异常关闭软件时怎么处理，想了好久才想到这个办法，我觉得还可以。

       在数据库中对登陆者表工作记录的表WorkLog中，可以设置两个字段，一个字段设置为登陆者的登陆状态为WorkStatus ,一个字段可以设为软件的运行状态为SoftStatus。都将其设置成Boolean，将软件在线和用户在线都定义为True，只在两者都为True时，才可以限制其登陆。

在登陆代码中可以进行如下判断：

 '定义记录集对象

Dim rs As ADODB.Recordset

 '用于存放sql语句

Dim strtxtSQL As String

 '用来返回记录集信息

Dim strMsgtext As String

strtxtSQL = "select * fromWorklog_Info where serial=(select max(serial)    from   Worklog_Info where UserID='" &txtUserName.Text & "' ) "

Set rs = ExecuteSQL(strtxtSQL, strMsgtext)

 

    If rs.EOF = False Then

            If Trim(rs.Fields(SoftStatus)) = true AndTrim(rs.Fields(WorkStatus)) = True Then

                  MsgBox "对不起该用户已经登陆，不能重复登陆！",vbOKOnly + vbExclamation, "警告"

                        Exit Sub

                        rs.Close

             End If

     End If

 

在结束软件时，代码如下：

 

'定义记录集对象

Dim rs As ADODB.Recordset

 '用于存放sql语句

Dim strtxtSQL As String

 '用来返回记录集信息

Dim strMsgtext As String

strtxtSQL = "select * fromWorklog_Info where serial=(select max(serial)    from   Worklog_Info where UserID='" &txtUserName.Text & "' ) "

Set rs = ExecuteSQL(strtxtSQL, strMsgtext)

 

rs.Fields(SoftStatus) =False

rst.Fields(WorkStatus) = False

rs.Update

rs.Close

 

      当然为了安全起见还可以在异常关闭软件的情况下，当再次运行时，可以进行验证登陆得ip等相关信息，以保证用户信息的安全。