- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- 系统登录日志合并？ (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=64655)
-- 发布时间：2015/2/26 16:10:00
-- 系统登录日志合并？
如图的日志，当用户登录时，登录日期列记录其登录时间，当该用户退出时，退出系统时间列记录其退出的时间，想把把他们放在同一行里。谢谢！
此主题相关图片如下：捕获.jpg
-- 发布时间：2015/2/26 16:12:00
--
查找那一行即可，比如
Dim fdr As DataRow = DataTables("表A").Find("用户名 = \'" & user.Name & "\'", "_Identify Desc")
-- 发布时间：2015/2/26 16:14:00
--
或者，设置一个全局变量，在登陆的时候，保存新增的行，比如
vars("登陆的行") = DataTables("表A").AddNew
-- 发布时间：2015/2/26 16:14:00
--
增加一个列作为登录标识列.
增加一个全局变量储存标识
vars("lb")=guid.newguid().tostring()
dr("标识")=vars("lb")
推出的时候
利用FIND("标识=\'" & vars("lb") & "\'")
找到行然后为行退出时间列赋值
-- 发布时间：2015/2/26 16:15:00
--
我写的代码是：
AfterOpenProject事件：
Dim dt As DataTable=DataTables("tbldrrz")
Dim dr As DataRow=dt.addnew()
dr("username")=User.Name
dr("drrq")= Date.Now()
BeforeCloseProject事件：
Dim dt As DataTable=DataTables("tbldrrz")
Dim dr As DataRow=dt.addnew()
dr("username")=User.Name
dr("exitrq")= Date.Now()
-- 发布时间：2015/2/26 16:15:00
--
看3 4楼.
3楼简单点.
4楼有保障一点.
-- 发布时间：2015/2/26 16:18:00
--
有点犯晕了。谢谢！
可以实现了，谢谢！
[此贴子已经被作者于2015/2/26 16:22:47编辑过]
-- 发布时间：2015/11/2 16:36:00
-- 回复：（地瓜）有点犯晕了。谢谢！可以实现了，谢谢！...
请教，您这段代码是如何设计的？
-- 发布时间：2015/11/2 16:56:00
--
以下是引用13865161910在2015/11/2 16:36:00的发言：
请教，您这段代码是如何设计的？
请教，您这段代码是如何设计的？
你想问日志合并，还是登陆日志的功能？
点击登陆的时候，添加一行数据，退出系统，也添加一行数据。
-- 发布时间：2015/12/18 15:58:00
-- 回复：（大红袍）以下是引用13865161910在2015/11/2 1...
登录日志的功能，另外上次看到的防止不同IP用同一自定义用户及密码登录，如何预防，给的案例是openqq，所以没看明白