如何创建时间缓冲区避免考勤IN/OUT重复记录

核心思路 #

时间缓冲区的核心是校验用户最近一次考勤记录与当前时间的间隔，如果间隔小于设定的缓冲时长（比如5分钟，可按需调整），就拒绝生成新记录，避免短时间内重复打卡。

代码修改方案 #

1. 优化最新考勤记录查询 #

将原查询所有记录改为仅获取该用户的最新一条考勤记录，减少数据库开销并精准获取最近状态：

' 查询用户最新的考勤记录（按时间倒序取第一条）
ConnectToDB()
sql = "SELECT * FROM rfidmaintest.monitoring WHERE id_num = @idnum ORDER BY date DESC LIMIT 1"
cmd = New MySqlCommand(sql, cn)
cmd.Parameters.AddWithValue("@idnum", idnum)
dr = cmd.ExecuteReader()

Dim lastRecordTime As DateTime? = Nothing
record = "IN" ' 默认初始状态为IN

While dr.Read
    ' 更新当前应打卡状态
    If dr("entry_record").ToString() = "IN" Then
        record = "OUT"
    ElseIf dr("entry_record").ToString() = "OUT" Then
        record = "IN"
    End If
    ' 记录最近一次考勤的时间
    lastRecordTime = Convert.ToDateTime(dr("date"))
    status.Text = record
End While
dr.Close()
cn.Close()

2. 添加时间缓冲区校验逻辑 #

在插入新记录前，判断当前时间与最近一次考勤时间的间隔是否超过缓冲时长：

' 设定缓冲时长（示例：5分钟，可自行修改）
Dim bufferMinutes As Integer = 5
Dim canInsert As Boolean = True

If lastRecordTime.HasValue Then
    ' 计算时间差
    Dim timeDiff As TimeSpan = DateTime.Now - lastRecordTime.Value
    ' 间隔小于缓冲时长则禁止插入
    If timeDiff.TotalMinutes < bufferMinutes Then
        MsgBox($"请等待{bufferMinutes}分钟后再打卡！", vbExclamation, "重复打卡")
        canInsert = False
    End If
End If

' 符合条件才执行插入操作
If canInsert Then
    ConnectToDB()
    sql = "INSERT INTO monitoring (id_num, fname, lname, status, entry_record, floor_level, date) VALUES (@num, @name, @lname, @stat, @record, @lev,@date)"
    cmd = New MySqlCommand(sql, cn)

    With cmd
        .Parameters.AddWithValue("@num", idnum)
        .Parameters.AddWithValue("@name", TextBox2.Text)
        .Parameters.AddWithValue("@lname", TextBox6.Text)
        .Parameters.AddWithValue("@stat", TextBox5.Text)
        .Parameters.AddWithValue("@lev", levellock.sharevalue)
        .Parameters.AddWithValue("@record", status.Text)
        .Parameters.AddWithValue("@date", Date.Now)
        .ExecuteNonQuery() ' 插入操作推荐用ExecuteNonQuery而非ExecuteReader
    End With

    MsgBox("打卡成功！", vbInformation, "已保存")
    cmd.Dispose()
    cn.Close()
End If

3. 额外优化建议 #

• 杜绝SQL注入：原代码中第一个查询使用字符串拼接sql = "select * from ... where f9 = '" & idnum & "'"，建议改为参数化查询（参考上述最新记录查询的写法），提升系统安全性。
• 自动资源释放：推荐使用Using语句管理数据库连接、命令等资源，避免手动关闭遗漏导致的资源泄漏，示例：

Using cn As New MySqlConnection(yourConnectionString)
    cn.Open()
    Using cmd As New MySqlCommand(sql, cn)
        ' 执行查询/插入逻辑
    End Using
End Using

内容的提问来源于stack exchange，提问作者user19101467