Foxtable(狐表)用户栏目专家坐堂 → 系统登录日志合并?


  共有3551人关注过本帖树形打印复制链接

主题:系统登录日志合并?

帅哥哟,离线,有人找我吗?
地瓜
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:小狐 帖子:382 积分:3007 威望:0 精华:0 注册:2012/8/30 16:09:00
系统登录日志合并?  发帖心情 Post By:2015/2/26 16:10:00 [只看该作者]

如图的日志,当用户登录时,登录日期列记录其登录时间,当该用户退出时,退出系统时间列记录其退出的时间,想把把他们放在同一行里。谢谢!
图片点击可在新窗口打开查看此主题相关图片如下:捕获.jpg
图片点击可在新窗口打开查看

 回到顶部
帅哥哟,离线,有人找我吗?
有点甜
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2015/2/26 16:12:00 [只看该作者]

查找那一行即可,比如

 

Dim fdr As DataRow = DataTables("表A").Find("用户名 = '" & user.Name & "'", "_Identify Desc")


 回到顶部
帅哥哟,离线,有人找我吗?
有点甜
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2015/2/26 16:14:00 [只看该作者]

 或者,设置一个全局变量,在登陆的时候,保存新增的行,比如

 

 vars("登陆的行") = DataTables("表A").AddNew


 回到顶部
帅哥哟,离线,有人找我吗?
Bin
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:贵宾 帖子:35433 积分:178524 威望:0 精华:3 注册:2013/3/30 16:36:00
  发帖心情 Post By:2015/2/26 16:14:00 [只看该作者]

增加一个列作为登录标识列.

增加一个全局变量储存标识

vars("lb")=guid.newguid().tostring()
dr("标识")=vars("lb")


推出的时候

利用FIND("标识='" &  vars("lb") & "'")
找到行然后为行退出时间列赋值

 回到顶部
帅哥哟,离线,有人找我吗?
地瓜
  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:小狐 帖子:382 积分:3007 威望:0 精华:0 注册:2012/8/30 16:09:00
  发帖心情 Post By: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()

 回到顶部
帅哥哟,离线,有人找我吗?
Bin
  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:贵宾 帖子:35433 积分:178524 威望:0 精华:3 注册:2013/3/30 16:36:00
  发帖心情 Post By:2015/2/26 16:15:00 [只看该作者]

看3 4楼.

3楼简单点.
4楼有保障一点.

 回到顶部
帅哥哟,离线,有人找我吗?
地瓜
  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:小狐 帖子:382 积分:3007 威望:0 精华:0 注册:2012/8/30 16:09:00
  发帖心情 Post By:2015/2/26 16:18:00 [只看该作者]

有点犯晕了。谢谢!
可以实现了,谢谢!
[此贴子已经被作者于2015/2/26 16:22:47编辑过]

 回到顶部
帅哥哟,离线,有人找我吗?
13865161910
  8楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:小狐 帖子:396 积分:3297 威望:0 精华:0 注册:2014/12/13 14:35:00
回复:(地瓜)有点犯晕了。谢谢!可以实现了,谢谢!...  发帖心情 Post By:2015/11/2 16:36:00 [只看该作者]

请教,您这段代码是如何设计的?

 回到顶部
帅哥哟,离线,有人找我吗?
大红袍
  9楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:贵宾 帖子:39310 积分:196782 威望:0 精华:1 注册:2015/4/25 9:23:00
  发帖心情 Post By:2015/11/2 16:56:00 [只看该作者]

以下是引用13865161910在2015/11/2 16:36:00的发言:
请教,您这段代码是如何设计的?

 

你想问日志合并,还是登陆日志的功能?

 

点击登陆的时候,添加一行数据,退出系统,也添加一行数据。


 回到顶部
帅哥哟,离线,有人找我吗?
13865161910
  10楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:小狐 帖子:396 积分:3297 威望:0 精华:0 注册:2014/12/13 14:35:00
回复:(大红袍)以下是引用13865161910在2015/11/2 1...  发帖心情 Post By:2015/12/18 15:58:00 [只看该作者]

登录日志的功能,另外上次看到的防止不同IP用同一自定义用户及密码登录,如何预防,给的案例是openqq,所以没看明白


 回到顶部
总数 11 1 2 下一页