Class ClsCheckIn
    '1 CheckinMonth  Char 10 考勤月份
    '2 Emp_Id  Int 員工編號
    '3 DaysOfMonth TinyInt 當月天數
    '4 qqDays  Decimal (4,1) 全勤天數
    '5 bjDays  Decimal (4,1) 病假天數
    '6 sjDays  Decimal (4,1) 事假天數
    '7 kgDays  Decimal (4,1) 曠工天數
    '8 fdxjDays  Decimal (4,1) 法定休假天數
    '9 nxjDays Decimal (4,1) 年休假天數
    '10  dxjDays Decimal (4,1) 倒休假天數
    '11  cxDays  Decimal (4,1) 出差天數
    '12  cdDays  Decimal (4,1) 遲到次數
    '13  ztDays  Decimal (4,1) 早退次數
    '14  ot1Days Decimal (4,1) 一類加班天數（法定節假日加班）
    '15  ot2Days Decimal (4,1) 二類加班天數（周六或周日加班）
    '16  ot3Days Decimal (4,1) 三在加班天數（日常加班）

    Public CheckinMonth As String
    Public Emp_Id As Short
    Public DaysOfMonth As Short
    Public qqDays As Single
    Public bjDays As Single
    Public sjDays As Single
    Public kgDays As Single
    Public fdxjDays As Single
    Public nxjDays As Single
    Public dxjDays As Single
    Public cxDays As Single
    Public cdDays As Single
    Public ztDays As Single
    Public ot1Days As Single
    Public ot2Days As Single
    Public ot3Days As Single

    Public Sub Init()
        CheckinMonth = ""
        Emp_Id = 0
        DaysOfMonth = 0
        qqDays = 0
        bjDays = 0
        sjDays = 0
        kgDays = 0
        fdxjDays = 0
        nxjDays = 0
        dxjDays = 0
        cxDays = 0
        cdDays = 0
        ztDays = 0
        ot1Days = 0
        ot2Days = 0
        ot3Days = 0
    End Sub

    '刪除CheckIn數據
    Public Sub Delete(ByVal TmpMonth As String, ByVal TmpEmpId As Integer)
        Dim SQLString As String
        Dim MSG As String
        SQLString = "DELETE FROM CheckIn WHERE CheckinMonth='" & Trim(TmpMonth) & "' And Emp_Id=" & Trim(Str(TmpEmpId))
        ClsOperation.DBOperate(SQLString, MSG)
    End Sub

    Public Function GetInfo(ByVal TmpMonth As String, ByVal TmpEmpId As Integer) As Boolean
        If TmpMonth = "" Or TmpEmpId <= 0 Then
            GetInfo = False
            Exit Function
        End If
        CheckinMonth = TmpMonth
        Emp_Id = TmpEmpId
        Dim SQLString As String
        Dim MSG As String
        SQLString = "SELECT * FROM CheckIn WHERE CheckinMonth='" & Trim(TmpMonth) & "' And Emp_Id=" & Trim(Str(Emp_Id))
        Dim DTable As DataTable = ClsOperation.DBOperate(SQLString, MSG)
        If DTable.Rows.Count < 1 Then
            GetInfo = False
            Init()
            Exit Function
        Else
            DaysOfMonth = Val(DTable.Rows(0)(2))
            qqDays = Val(DTable.Rows(0)(3))
            bjDays = Val(DTable.Rows(0)(4))
            sjDays = Val(DTable.Rows(0)(5))
            kgDays = Val(DTable.Rows(0)(6))
            fdxjDays = Val(DTable.Rows(0)(7))
            nxjDays = Val(DTable.Rows(0)(8))
            dxjDays = Val(DTable.Rows(0)(9))
            cxDays = Val(DTable.Rows(0)(10))
            cdDays = Val(DTable.Rows(0)(11))
            ztDays = Val(DTable.Rows(0)(12))
            ot1Days = Val(DTable.Rows(0)(13))
            ot2Days = Val(DTable.Rows(0)(14))
            ot3Days = Val(DTable.Rows(0)(15))
        End If
        GetInfo = True
    End Function

    Public Function In_DB(ByVal TmpMonth As String, ByVal TmpEmpId As Integer) As Boolean
        Dim SQLString As String
        Dim MSG As String
        SQLString = "SELECT * FROM CheckIn WHERE CheckinMonth='" & Trim(TmpMonth) & "' And Emp_Id=" & Trim(Str(TmpEmpId))
        Dim DTable As DataTable = ClsOperation.DBOperate(SQLString, MSG)
        If DTable.Rows.Count < 1 Then
            In_DB = False
        Else
            In_DB = True
        End If
    End Function

    Public Sub Insert()
        Dim SQLString As String
        Dim MSG As String
        SQLString = "INSERT INTO CheckIn Values('" & Trim(CheckinMonth) & "'," & Trim(Str(Emp_Id)) & "," & Trim(Str(DaysOfMonth)) & "," & Trim(Str(qqDays)) & "," & Trim(Str(bjDays)) & "," & Trim(Str(sjDays)) & "," & Trim(Str(kgDays)) & "," & Trim(CStr(fdxjDays)) & "," & Trim(Str(nxjDays)) & "," & Trim(Str(dxjDays)) & "," & Trim(Str(cxDays)) & "," & Trim(Str(cdDays)) & "," & Trim(Str(ztDays)) & "," & Trim(Str(ot1Days)) & "," & Trim(Str(ot2Days)) & "," & Trim(Str(ot3Days)) & ")"
        ClsOperation.DBOperate(SQLString, MSG)
    End Sub

    Public Sub Update(ByVal TmpMonth As String, ByVal TmpEmpId As Integer)
        Dim SQLString As String
        Dim MSG As String
        SQLString = "Update CheckIn Set qqDays=" & Trim(Str(qqDays)) & ",bjDays=" & Trim(Str(bjDays)) & ",sjDays=" & Trim(Str(sjDays)) & ",kgDays=" & Trim(Str(kgDays)) & ",fdxjDays=" & Trim(Str(fdxjDays)) & ",nxjDays=" & Trim(Str(nxjDays)) & ",dxjDays=" & Trim(Str(dxjDays)) & ",cxDays=" & Trim(Str(cxDays)) & ",cdDays=" & Trim(Str(cdDays)) & ",ztDays=" & Trim(Str(ztDays)) & ",ot1Days=" & Trim(Str(ot1Days)) & ",ot2Days=" & Trim(Str(ot2Days)) & ",ot3Days=" & Trim(Str(ot3Days)) & " WHERE CheckinMonth='" & Trim(TmpMonth) & "' And Emp_Id=" & Trim(Str(TmpEmpId))
        ClsOperation.DBOperate(SQLString, MSG)
    End Sub
End Class