frmmdi.frm

指纹考勤管理系统

                            
                            Sql = "select " & pb & "" & "上班" & " as kqsj from 员工考勤时间 where 工号='" & yggh & "'"
                            rsls.Open Sql, conn
                            If IsNull(rsls.Fields("kqsj")) Then
                                Sql = "update 员工考勤时间 set " & pb & "" & "上班" & "='" & rscj.Fields("考勤时间") & "' where 工号='" & yggh & "'"
                                conn.Execute Sql
                                If kqsj > sbtime Then
                                    zt = "迟到"
                                Else
                                    zt = "正常"
                                End If
                                
                                Sql = "update 员工考勤状态 set " & pb & "" & "上班" & "='" & zt & "' where 工号='" & yggh & "'"
                                conn.Execute Sql
                            Else
                                If rscj.Fields("考勤时间") < rsls.Fields("kqsj") Then
                                    If kqsj > sbtime Then
                                        zt = "迟到"
                                        Sql = "update 员工考勤状态 set " & pb & "" & "上班" & "='" & zt & "' where 工号='" & yggh & "'"
                                        conn.Execute Sql
                                    Else
                                        zt = "正常"
                                        Sql = "update 员工考勤状态 set " & pb & "" & "上班" & "='" & zt & "' where 工号='" & yggh & "'"
                                        conn.Execute Sql
                                     End If
                                    Sql = "update 员工考勤时间 set " & pb & "" & "上班" & "='" & rscj.Fields("考勤时间") & "' where 工号='" & yggh & "'"
                                    conn.Execute Sql
                                End If
                            End If
                        ElseIf kqsj < xbtime + 0.083 And kqsj > xbtime - 0.083 Then
                            
                            Sql = "select " & pb & "" & "下班" & " as kqsj from 员工考勤时间 where 工号='" & yggh & "'"
                            rsls.Open Sql, conn
                            If IsNull(rsls.Fields("kqsj")) Then
                                Sql = "update 员工考勤时间 set " & pb & "" & "下班" & "='" & rscj.Fields("考勤时间") & "' where 工号='" & yggh & "'"
                                conn.Execute Sql
                                
                                If kqsj < xbtime Then
                                    zt = "早退"
                                Else
                                    zt = "正常"
                                End If
                                
                                Sql = "update 员工考勤状态 set " & pb & "" & "下班" & "='" & zt & "' where 工号='" & yggh & "'"
                                conn.Execute Sql
                            Else
                                If rscj.Fields("考勤时间") > rsls.Fields("kqsj") Then
                                    If kqsj > sbtime Then
                                        zt = "正常"
                                        Sql = "update 员工考勤状态 set " & pb & "" & "上班" & "='" & zt & "' where 工号='" & yggh & "'"
                                        conn.Execute Sql
                                    Else
                                        zt = "迟到"
                                        Sql = "update 员工考勤状态 set " & pb & "" & "上班" & "='" & zt & "' where 工号='" & yggh & "'"
                                        conn.Execute Sql
                                     End If
                                
                                    Sql = "update 员工考勤时间 set " & pb & "" & "上班" & "='" & rscj.Fields("考勤时间") & "' where 工号='" & yggh & "'"
                                    conn.Execute Sql
                                End If
                            End If
                        End If
                    End If
                    If rsls.State Then
                    rsls.Close
                    End If
                End If
                
            End If
            Sql = "INSERT INTO 员工考勤记录历史 ( 指纹号,考勤时间 ) VALUES ('" & rscj.Fields("指纹号") & "','" & rscj.Fields("考勤时间") & "')"
            conn.Execute Sql
                
            rscj.MoveNext
            
        Next i
            
    End If
    
    rscj.Close
    Sql = "delete from 员工考勤记录"
    conn.Execute Sql


MsgBox ("采集完毕！")
 '   Unload frmProg
End Sub

Private Sub mnuAppcx_Click()
frmFlow.Show 1
End Sub

Private Sub mnuAppDefine_Click()
    frmAddS.Show vbModal
End Sub

Private Sub mnuAppKQFX_Click()
    Dim rskqfx As New ADODB.Recordset
    Dim rskqfxls As New ADODB.Recordset
    Sql = "select * from 排班"
    rskqfx.Open Sql, conn, adOpenKeyset, adLockPessimistic
    
    If rskqfx.RecordCount <> 0 Then
        rskqfx.MoveFirst
        Dim i As Integer
        For i = 0 To rskqfx.RecordCount - 1
            Dim j As Integer
            For j = 1 To 31
                If IsNull(rskqfx.Fields("a" & j)) Then
          '          Sql = "select * from 员工考勤状态 where 工号 ='" & rskqfx.Fields("工号") & "'"
         '           rskqfxls.Open Sql, conn
                    Sql = "update 员工考勤状态 set " & "a" & "" & j & "" & "上班" & " ='没排班' where 工号 ='" & rskqfx.Fields("工号") & "'"
                    conn.Execute Sql
                    Sql = "update 员工考勤状态 set " & "a" & "" & j & "" & "下班" & " ='没排班' where 工号 ='" & rskqfx.Fields("工号") & "'"
                    conn.Execute Sql
                Else
                    If Val(rskqfx.Fields("a" & j)) = 0 Then
         '              Sql = "select * from 员工考勤状态 where 工号 ='" & rskqfx.Fields("工号") & "'"
         '              rskqfxls.Open Sql, conn
                       Sql = "update 员工考勤状态 set  " & "a" & "" & j & "" & "上班" & " ='没排班' where 工号 ='" & rskqfx.Fields("工号") & "'"
                       conn.Execute Sql
                       Sql = "update 员工考勤状态 set  " & "a" & "" & j & "" & "下班" & " ='没排班' where 工号 ='" & rskqfx.Fields("工号") & "'"
                       conn.Execute Sql
                    ElseIf Val(rskqfx.Fields("a" & j)) = 98 Then
          '             Sql = "select * from 员工考勤状态 where 工号 ='" & rskqfx.Fields("工号") & "' where 工号 ='" & rskqfx.Fields("工号") & "'"""
         '              rskqfxls.Open Sql, conn
                       Sql = "update 员工考勤状态 set " & "a" & "" & j & "" & "上班" & "='请假' where 工号 ='" & rskqfx.Fields("工号") & "'"
                       conn.Execute Sql
                       Sql = "update 员工考勤状态 set " & "a" & "" & j & "" & "下班" & "='请假' where 工号 ='" & rskqfx.Fields("工号") & "'"
                       conn.Execute Sql
                    ElseIf Val(rskqfx.Fields("a" & j)) = 99 Then
           '            Sql = "select * from 员工考勤状态 where 工号 ='" & rskqfx.Fields("工号") & "' where 工号 ='" & rskqfx.Fields("工号") & "'"""
           '            rskqfxls.Open Sql, conn
                       Sql = "update 员工考勤状态 set  " & "a" & "" & j & "" & "上班" & " ='补班' where 工号 ='" & rskqfx.Fields("工号") & "'"
                       conn.Execute Sql
                       Sql = "update 员工考勤状态 set  " & "a" & "" & j & "" & "下班" & " ='补班' where 工号 ='" & rskqfx.Fields("工号") & "'"
                       conn.Execute Sql
                    End If
                End If
                
                If IsNull(rskqfx.Fields("p" & j)) Then
           '         Sql = "select * from 员工考勤状态 where 工号 ='" & rskqfx.Fields("工号") & "' where 工号 ='" & rskqfx.Fields("工号") & "'"""
           '         rskqfxls.Open Sql, conn
                    Sql = "update 员工考勤状态 set " & "p" & "" & j & "" & "上班" & " ='没排班' where 工号 ='" & rskqfx.Fields("工号") & "'"
                    conn.Execute Sql
                    Sql = "update 员工考勤状态 set " & "p" & "" & j & "" & "下班" & " ='没排班' where 工号 ='" & rskqfx.Fields("工号") & "'"
                    conn.Execute Sql
                Else
                    If Val(rskqfx.Fields("p" & j)) = 0 Then
          '             Sql = "select * from 员工考勤状态 where 工号 ='" & rskqfx.Fields("工号") & "'"
         '              rskqfxls.Open Sql, conn
                       Sql = "update 员工考勤状态 set " & "p" & "" & j & "" & "上班" & " ='没排班' where 工号 ='" & rskqfx.Fields("工号") & "'"
                       conn.Execute Sql
                       Sql = "update 员工考勤状态 set " & "p" & "" & j & "" & "下班" & " ='没排班' where 工号 ='" & rskqfx.Fields("工号") & "'"
                       conn.Execute Sql
                    ElseIf Val(rskqfx.Fields("p" & j)) = 98 Then
          '             Sql = "select * from 员工考勤状态 where 工号 ='" & rskqfx.Fields("工号") & "'"
          '             rskqfxls.Open Sql, conn
                       Sql = "update 员工考勤状态 set " & "p" & "" & j & "" & "上班" & " ='请假' where 工号 ='" & rskqfx.Fields("工号") & "'"
                       conn.Execute Sql
                       Sql = "update 员工考勤状态 set " & "p" & "" & j & "" & "下班" & " ='请假' where 工号 ='" & rskqfx.Fields("工号") & "'"
                       conn.Execute Sql
                    ElseIf Val(rskqfx.Fields("p" & j)) = 99 Then
          '             Sql = "select * from 员工考勤状态 where 工号 ='" & rskqfx.Fields("工号") & "'"
          '             rskqfxls.Open Sql, conn
                       Sql = "update 员工考勤状态 set " & "p" & "" & j & "" & "上班" & " ='补班' where 工号 ='" & rskqfx.Fields("工号") & "'"
                       conn.Execute Sql
                       Sql = "update 员工考勤状态 set " & "p" & "" & j & "" & "下班" & " ='补班' where 工号 ='" & rskqfx.Fields("工号") & "'"
                       conn.Execute Sql
                    End If
                End If
               
                 
                 
            Next j
            
      rskqfx.MoveNext
        Next i
    End If
    
    rskqfx.Close
    MsgBox ("分析完毕！")

End Sub

Private Sub mnuAppPlan_Click()
    frmPlan.Show 1
End Sub


Private Sub mnuGuardBase_Click()
    frmItem.Show 1
End Sub

Private Sub mnuGuardBeifen_Click()
    frmBF.Show 1
End Sub

Private Sub mnuGuardEmployee_Click()
    frmEmploy.Show vbModal
End Sub

Private Sub mnuGuardZW_Click()
    frmZW.Show 1
End Sub

Private Sub mnuRepDyn_Click()
    frmDyn.Show 1
End Sub

Private Sub mnuRepKQ_Click()
    frmPrn.Show 1
End Sub

Private Sub SetMenu(isEnable As Boolean)
    'mnuFile.Enabled = isEnable
    mnuApp.Enabled = isEnable
    mnuGuard.Enabled = isEnable
    mnuRep.Enabled = isEnable
End Sub