以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  登录统计  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=120599)
--  作者：nxqtxwz
--  发布时间：2018/6/20 11:21:00
--  登录统计
请问有没有统计并显示用户登录次数的例子参考一下。我是外部用户表。
--  作者：有点甜
--  发布时间：2018/6/20 11:34:00
--  
用户表那里加入一列登陆次数，每登陆一次，数据就累加1
--  作者：nxqtxwz
--  发布时间：2018/6/20 13:29:00
--  
代码怎么写呢？
--  作者：有点甜
--  发布时间：2018/6/20 14:36:00
--  

登陆的时候，不是要find查找对应的行？找到以后

 

fdr("登陆次数") += 1

fdr.save
--  作者：nxqtxwz
--  发布时间：2018/6/20 17:01:00
--  
以下是引用有点甜在2018/6/20 14:36:00的发言：

登陆的时候，不是要find查找对应的行？找到以后

 

fdr("登陆次数") += 1

fdr.save

Dim fdr As DataRow
fdr = DataTables("users").Find("Name=user.Name")        ’找到当前用户行，这样写对吗？Name是用户表的姓名列
If fdr IsNot Nothing Then \'如果找到的话
    fdr("登录次数") += 1
    fdr.save
End If

[此贴子已经被作者于2018/6/20 17:03:47编辑过]
--  作者：有点甜
--  发布时间：2018/6/20 17:02:00
--  

贴出你登陆窗口登陆按钮的事件代码
--  作者：nxqtxwz
--  发布时间：2018/6/20 17:30:00
--  
用的是系统自带的登录窗口，没有写代码。只要把登录次数统计出来写入用户表的“登录次数”列就行了。
[此贴子已经被作者于2018/6/20 17:31:49编辑过]
--  作者：有点甜
--  发布时间：2018/6/20 17:37:00
--  

loadusersetting事件，写代码

 

Dim fdr As DataRow
fdr = DataTables("users").Find("Name=\'" & user.Name & "\'")        \'找到当前用户行,这样写对吗?Name是用户表的姓名列
If fdr IsNot Nothing Then \'如果找到的话
    fdr("登录次数") += 1
    fdr.save
End If