需求回顾 #

• 员工完成打卡（time in）后，必须等待3或5小时才能执行签退（time out）操作；
• 若员工尝试在打卡后不足3或5小时签退，需通过MessageBox或Label提示其已完成打卡，无法提前签退。

原代码问题分析 #

你的现有代码主要负责从数据库读取打卡和签退记录，但缺少核心的时间差校验逻辑，同时还有一些可优化的细节：

1. 重复执行两次数据库查询，效率偏低；
2. 变量重置逻辑存在冗余；
3. 未实现关键的提前签退拦截与提示功能。

优化后的代码实现 #

下面是整合了时间校验逻辑的改进版本，同时优化了数据库查询（合并为单次查询），并添加了完整的状态判断与提示：

' 合并查询，一次获取当天的time_in和time_out记录，使用参数化避免SQL注入
Dim getQuery As String = "SELECT dtr.time_in, dtr.time_out FROM dtr 
                          WHERE dtr.employee_id = @empId 
                          AND dtr.rfid = @rfid 
                          AND dtr.date = @todayDate"
Using getCommand As New MySqlCommand(getQuery, MySQLConnection)
    ' 添加参数，替代字符串拼接
    getCommand.Parameters.AddWithValue("@empId", empid.Text)
    getCommand.Parameters.AddWithValue("@rfid", txtRFID.Text)
    getCommand.Parameters.AddWithValue("@todayDate", Date.Now.ToString("yyyy-MM-dd"))
    
    Using getReader As MySqlDataReader = getCommand.ExecuteReader()
        If getReader.Read() Then
            ' 处理数据库空值，用可空DateTime类型接收
            Dim timeIn As DateTime? = If(getReader("time_in") Is DBNull.Value, Nothing, CType(getReader("time_in"), DateTime))
            Dim timeOut As DateTime? = If(getReader("time_out") Is DBNull.Value, Nothing, CType(getReader("time_out"), DateTime))
            
            If timeIn.HasValue Then
                ' 已完成打卡，判断签退状态
                If timeOut.HasValue Then
                    ' 当天已完成签退，禁用签退按钮
                    disableTimeOutColor()
                Else
                    ' 计算当前时间与打卡时间的间隔
                    Dim waitDuration As TimeSpan = DateTime.Now - timeIn.Value
                    ' 校验是否满足3/5小时等待要求
                    If waitDuration.TotalHours >= 3 OrElse waitDuration.TotalHours >= 5 Then
                        ' 满足条件，允许签退，禁用打卡按钮
                        disableTimeINColor()
                    Else
                        ' 未满足等待时长，弹出提示
                        MessageBox.Show($"已完成打卡，需等待至少3小时才能签退，当前仅等待了{Math.Round(waitDuration.TotalHours, 2)}小时", "操作提示", MessageBoxButtons.OK, MessageBoxIcon.Warning)
                        ' 禁用签退按钮
                        disableTimeOutColor()
                    End If
                End If
            Else
                ' 未打卡，禁用签退按钮
                disableTimeOutColor()
            End If
        Else
            ' 当天无任何打卡记录，禁用签退按钮
            disableTimeOutColor()
        End If
    End Using
End Using

关键改进点说明 #

1. 参数化查询：替换字符串拼接的查询方式，彻底避免SQL注入风险，同时提升代码可维护性；
2. 合并数据库请求：单次查询获取当天所有打卡状态数据，减少数据库交互次数；
3. 核心时间校验逻辑：通过TimeSpan.TotalHours计算打卡后的等待时长，严格执行3/5小时的等待要求，并给出友好提示；
4. 空值安全处理：使用可空DateTime?类型处理数据库中的空值，避免空引用异常；
5. 逻辑简化：梳理了打卡/签退的状态判断流程，让代码逻辑更清晰易懂。

额外建议 #

• 如果需要区分不同员工的等待时长（比如部分岗位3小时、部分5小时），可以在数据库中新增required_wait_hours配置字段，动态读取等待时长，让代码更灵活；
• 提示信息可以根据UI需求替换为Label显示，例如：lblStatusWarning.Text = "已完成打卡，无法提前签退"。

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