clsevaluation.vb

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

Class ClsEvaluation
    '1 EvaMonth  Char 10 考评月份
    '2 Emp_Id  Int 员工编号
    '3 Performance Varchar 200 工作业绩
    '4 SupervisorEvaluation  Varchar 200 领导评价
    '5 PrizeFactor1  Decimal (4,1) 领导设定的奖金系数
    '6 HrEvaluation  Varchar 200 人事部门评价
    '7 PrizeFactor2  Decimal (4,1) 人事部门设定的奖金系数

    Public EvaMonth As String  ' 考评月份
    Public Emp_Id As Short  ' 员工编号
    Public Performance As String  ' 工作业绩
    Public SupervisorEvaluation As String  ' 领导评价
    Public PrizeFactor1 As Single  ' 领导设定的奖金系数
    Public HrEvaluation As String   ' 人事部门评价
    Public PrizeFactor2 As Single   ' 人事部门设定的奖金系数


    Public Sub Init()
        EvaMonth = ""
        Emp_Id = 0
        Performance = ""
        SupervisorEvaluation = ""
        PrizeFactor1 = 0
        HrEvaluation = ""
        PrizeFactor2 = 0
    End Sub

    '删除Evaluation数据
    Public Sub Delete(ByVal TmpMonth As String, ByVal TmpEmpId As Integer)

        Dim SQLString As String
        Dim MSG As String
        SQLString = "DELETE FROM Evaluation WHERE EvaMonth='" & 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
        EvaMonth = TmpMonth
        Emp_Id = TmpEmpId
        Dim SQLString As String
        Dim MSG As String
        SQLString = "SELECT * FROM Evaluation WHERE EvaMonth='" & 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
            Performance = Trim(DTable.Rows(0)(2))
            SupervisorEvaluation = Trim(DTable.Rows(0)(3))
            PrizeFactor1 = Val(DTable.Rows(0)(4))
            HrEvaluation = Trim(DTable.Rows(0)(5))
            PrizeFactor2 = Val(DTable.Rows(0)(6))
        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 Evaluation WHERE EvaMonth='" & 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 Evaluation Values('" & Trim(EvaMonth) & "'," & Trim(Str(Emp_Id)) & ",'" & Trim(Performance) & "','" & Trim(SupervisorEvaluation) & "'," & Trim(Str(PrizeFactor1)) & ",'" & Trim(HrEvaluation) & "'," & Trim(Str(PrizeFactor2)) & ")"
        ClsOperation.DBOperate(SQLString, MSG)
    End Sub

    Public Sub Update(ByVal TmpMonth As String, ByVal TmpEmpId As Integer, ByVal HrFlag As Boolean)
        Dim SQLString As String
        Dim MSG As String
        If HrFlag = False Then
            SQLString = "Update Evaluation Set Performance='" & Trim(Performance) & "',SupervisorEvaluation='" & Trim(SupervisorEvaluation) & "',PrizeFactor1=" & Trim(Str(PrizeFactor1)) & " WHERE EvaMonth='" & Trim(TmpMonth) & "' And Emp_Id=" & Trim(Str(TmpEmpId))
        Else
            SQLString = "Update Evaluation Set HrEvaluation='" & Trim(HrEvaluation) & "',PrizeFactor2=" & Trim(Str(PrizeFactor2)) & " WHERE EvaMonth='" & Trim(TmpMonth) & "' And Emp_Id=" & Trim(Str(TmpEmpId))
        End If
        ClsOperation.DBOperate(SQLString, MSG)
    End Sub
End Class