clscheckin.vb

使用说明 1.在使用源程序前

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