- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- 开发者如何查询到有哪些用户登录了系统？ (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=71660)
-- 发布时间：2015/7/15 17:31:00
-- 开发者如何查询到有哪些用户登录了系统？
开发者如何查询到有哪些用户登录了系统？
-- 发布时间：2015/7/15 17:42:00
--
做一个在线用户表，用户登陆的时候，记录其信息即可
-- 发布时间：2015/7/15 17:54:00
--
代码如何写？
-- 发布时间：2015/7/15 17:57:00
--
登陆按钮。
Dim nr As Row = Tables("在线用户").AddNew
nr("用户名") = "123"
nr("时间") = Date.Now
-- 发布时间：2022/4/23 8:05:00
--
下述问题怎么反映到在线用户表里面来呢：
(1) 如果用户主动退出了foxtable系统
(2) 用户的电脑突然断电导致foxtable系统关闭
-- 发布时间：2022/4/23 8:54:00
--
1、到BeforeCloseProject事件更新用户表
2、使用openqq，在服务端UserLogout事件更新用户表
-- 发布时间：2022/4/23 10:16:00
--
请问4楼所指“登陆按钮”在哪里，我好把代码放进去？
-- 发布时间：2022/4/23 10:24:00
--
要自己做用户管理：http://www.foxtable.com/webhelp/topics/2048.htm
-- 发布时间：2024/1/22 8:42:00
--
Dim drf As DataRow = DataTables("系统版本").SQLFind("用户名 = \'" & User.name & "\'")
If drf IsNot Nothing Then
drf("系统发布日期") = Publishdate
drf("登录时间") = Date.now
drf("计算机名称") = SysInfo.ComputerName
drf.save
Else
Dim dra1 As DataRow = DataTables("系统版本").AddNew()
dra1("用户名") = User.name
dra1("系统发布日期") = Publishdate
dra1("登录时间") = Date.now
dra1("计算机名称") = SysInfo.ComputerName
Dim IP As String
IP = User.ExtendedValues("IP")
dra1("IP地址") = IP
dra1.save
End If
我想用上面 afteropenproject 里面的代码来记录用户登录系统所用电脑的IP地址，可是没有效果。请问要怎么修改? 谢谢。
-- 发布时间：2024/1/22 8:48:00
--
不能使用扩展属性，在不同电脑登录应该IP是不一样的，要通过代码提取当前电脑的IP
http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=59092