关于登录次限制

wangjianxiao

我做了一个考评系统，想让同一个人每天只能登录一次，且登的时间管理员可以查看，望高手给指点一下，谢谢了

admin

做一个 用户表,记录用户登录 开始时间, 如果下一次登录与开始时间的日期是同一天,则禁止登录

笑嘻嘻哦

登陆次数当然是有限制的啊

LeeTien

最一个用户登录日志表
记录用户登录信息
下次用户登录时比对当前登录日期
如在登录日志中存在当前日期
则拒绝登录
如没有则通过登录并记录当前登录日期到登录日志中去

LeeTien

如果是

roych

新建表：
用户名【文本】、登录时间【常规时间】、退出时间【常规时间】、次数【默认值为0，长整型】、是否允许登录【是否，默认为否】
**********************************************************************************
声明：
大体代码入下：暂不做实例和测试，需要的话请自行建立好表和登录界面上传，俺再进行调试。
**********************************************************************************
在登录模块里写上：

1. Sub test()
   
2. Dim str As String
   
3. str = "select *,count([用户名]) As 统计次数 from 用户登录表 where 用户名='" & Forms!登录窗体!用户名 & "' and " _
   
4.         & "DateSerial(Year([登录时间]), Month([登录时间]), Day([登录时间])) = " & Date
   
5. Dim rst As New ADODB.Recordset
   
6. rst.Open str, CurrentProject.Connection, adOpenKeyset, adLockOptimistic
   
7. '如果当天没有登录记录则新增一条，否则就退出。
   
8. If rst("统计次数") = 0 Then
   
9.     rst.AddNew
   
10.     rst("用户名") = Forms!登录窗体!用户名
    
11.     rst("退出时间") = Now()
    
12. Else
    
13.     MsgBox "您今天已登录过，请明天再来^_^", vbInformation, "提示"
    
14. End If
    
15. rst.Close
    
16. Set rst = Nothing
    
17. End Sub

复制代码

在退出按钮里写入更新事件【如果只是限制每个用户每天只登录一次，上面的代码已经足够，不过为了了解登出情况，写下也好】：

1. Sub test2()
   
2. Dim str As String
   
3. str = "select *  from 用户登录表 where 用户名='" & Forms!登录窗体!用户名 & "' and " _
   
4.         & "DateSerial(Year([登录时间]), Month([登录时间]), Day([登录时间])) = " & Date
   
5. Dim rst As New ADODB.Recordset
   
6. rst.Open str, CurrentProject.Connection, adOpenKeyset, adLockOptimistic
   
7. rst("退出时间") = Now()
   
8. rst("是否允许登录") = False
   
9. rst("登录次数") = 1
   
10. rst.Update
    
11. rst.Close
    
12. Set rst = Nothing
    
13. End Sub

复制代码

wangjianxiao

谢谢