老师好!
客户端退出后,服务器的登录管理表没有及时删除该用户,而是在心跳超时以后触发的UserLogout,删除该用户。UserLogout事件显示的e.Mode = 3
这种情况是哪里的原因?
谢谢!
1、客户端主窗口(模式)的关闭按钮代码:
Syscmd.Project.Exit()
Forms("数据表").Close()
System.Diagnostics.Process.GetCurrentProcess().Kill '退出进程
2、服务器的UserLogout代码:
'msgbox(e.UserName)
'msgbox(e.Mode)
'System.Threading.Thread.Sleep(1500) '延时1.5秒
DataTables("登录管理").LoadFilter = ""
DataTables("登录管理").Load()
Dim pts() As String = e.UserName.Split(".")
Dim i As Integer
With Tables("登录管理")
i = .Findrow("登录用户= '" & pts(1) & "'",0,False)
If i>-1 Then
.Rows(i).Delete()
End If
End With
DataTables("登录管理").save