如何根据登录/退出日志，提炼出用户在线状态？

zww3008

判断局域网上当前有哪些用户在线，一种做法是登录的用户前台使用计时器触发方式不断向后台数据库写数据标志状态来判断。但我想通过操作日志来实现。
我的系统有登录操作日志（下图），根据“用户登录”、“退出系统”（正常按退出按钮）或“关闭系统”（直接点右上角红叉退出）,可以人工判断出某电脑上的某用户是否在线。但我想根据此表建立一个查询或通过代码直接反映出来，不知如何实现？

zww3008

补上附件。

fine88888888

问红尘大师吧，这个登陆系统是他做的。

zww3008

想到了一个方法：建一个“在线用户”表，写登录日志的同时向“在线用户”表内写入信息，退出或关闭系统时再删除该条信息，则表内保存的就是当前的在线用户。晚上试试看。

aslxt

查询：某个用户的最后登录时间和最后退出时间比较，最后登录时间>最后退出时间，表示在线，反之则不在线
当然得拿用户表和登录日志连接起来查询

aslxt

或者如果没有冗余数据的话，统计某个用户的登录次数是否等于退出次数，如果登录次数=退出次数，则不在线，否则表示该用户为在线

aslxt

也可以在用户表中增加一个表示用户的在线状态的字段（是/否类型就可以），用户登录的时候把该字段更新为“是”，用户退出系统的时候，把该字段更新为“否”，你要查询用户在线情况，直接查询用户表就可以了

aslxt

建一个在线表也可以。不建议增加一个表专门记录在线状态，特殊需要可自便。

zww3008

aslxt 发表于 2011-7-6 21:53
也可以在用户表中增加一个表示用户的在线状态的字段（是/否类型就可以），用户登录的时候把该字段更新为“是 ...

谢谢你的回复。不过用户表不带电脑名称信息。
新建一个在线用户表，已经实现了：
    strSQL = " INSERT INTO [在线用户](FComputerName,FUserName)" & _
                 " SELECT '" & Environ$("ComputerName") & "','" & strCurrentUserName & "'"
        CurrentDb.Execute strSQL

不过，删除该用户的代码不如如何写。下面SQL查询语句测试是可以的
DELETE 在线用户.FComputerName, 在线用户.FUserName
FROM 在线用户
WHERE (((在线用户.FComputerName)=Environ$("ComputerName")) AND ((在线用户.FUserName)=UserName()));
但不知如何以VBA代码表示，以下代码无效：
  strSQL = "DELETE  * FROM 在线用户 WHERE (((在线用户.FComputerName)=" & _
    Environ$("ComputerName") & ") AND ((在线用户.FUserName)=" & UserName() & "))"
    CurrentDb.Execute strSQL

zww3008

aslxt 发表于 2011-7-6 21:49
或者如果没有冗余数据的话，统计某个用户的登录次数是否等于退出次数，如果登录次数=退出次数，则不在线，否 ...

肯定有冗余数据，如网线被意外断开时...