evaluation.cls

这是一个企业版的人力资源管理源码,很适合初级开发人员

VERSION 1.0 CLASS
BEGIN
  MultiUse = -1  'True
  Persistable = 0  'NotPersistable
  DataBindingBehavior = 0  'vbNone
  DataSourceBehavior  = 0  'vbNone
  MTSTransactionMode  = 0  'NotAnMTSObject
END
Attribute VB_Name = "Evaluation"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = True
Attribute VB_PredeclaredId = False
Attribute VB_Exposed = False
'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 Integer
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 Long)
  DB_Connect
  
  SqlStmt = "DELETE FROM Evaluation WHERE EvaMonth='" _
          + Trim(TmpMonth) + "' And Emp_Id=" _
          + Trim(Str(TmpEmpId))
  OdbcExt (SqlStmt)
  Rc = SQLFreeStmt(Hstmt, SQL_DROP)
  
  DB_Disconnect
End Sub

Public Function GetInfo(ByVal TmpMonth As String, _
                        ByVal TmpEmpId As Long) As Boolean
  If TmpMonth = "" Or TmpEmpId <= 0 Then
    GetInfo = False
    Exit Function
  End If
  
  EvaMonth = TmpMonth
  Emp_Id = TmpEmpId
  
  DB_Connect
  
  SqlStmt = "SELECT * FROM Evaluation WHERE EvaMonth='" _
          + Trim(TmpMonth) + "' And Emp_Id=" _
          + Trim(Str(Emp_Id))
  OdbcExt (SqlStmt)
  If SQLFetch(Hstmt) = SQL_NO_DATA_FOUND Then
    GetInfo = False
    Init
    Exit Function
  Else
    ColVal = String(400, 0)
    Rc = SQLGetData(Hstmt, 3, 1, ColVal, Lench(ColVal), pcblench)
    Performance = TrimStr(ColVal)
    
    ColVal = String(400, 0)
    Rc = SQLGetData(Hstmt, 4, 1, ColVal, Lench(ColVal), pcblench)
    SupervisorEvaluation = TrimStr(ColVal)

    ColVal = String(40, 0)
    Rc = SQLGetData(Hstmt, 5, 1, ColVal, Lench(ColVal), pcblench)
    PrizeFactor1 = Val(ColVal)
    
    ColVal = String(400, 0)
    Rc = SQLGetData(Hstmt, 6, 1, ColVal, Lench(ColVal), pcblench)
    HrEvaluation = TrimStr(ColVal)
    
    ColVal = String(40, 0)
    Rc = SQLGetData(Hstmt, 7, 1, ColVal, Lench(ColVal), pcblench)
    PrizeFactor2 = Val(ColVal)
    
  End If
    
  Rc = SQLFreeStmt(Hstmt, SQL_DROP)
  
  GetInfo = True
  DB_Disconnect
End Function

Public Function In_DB(ByVal TmpMonth As String, _
                        ByVal TmpEmpId As Long) As Boolean
  DB_Connect
  
  SqlStmt = "SELECT * FROM Evaluation WHERE EvaMonth='" _
          + Trim(TmpMonth) + "' And Emp_Id=" _
          + Trim(Str(TmpEmpId))
  OdbcExt (SqlStmt)
  If SQLFetch(Hstmt) = SQL_NO_DATA_FOUND Then
    In_DB = False
  Else
    In_DB = True
  End If
  Rc = SQLFreeStmt(Hstmt, SQL_DROP)

  DB_Disconnect
End Function

Public Sub Insert()
  DB_Connect
  
  SqlStmt = "INSERT INTO Evaluation Values('" _
     + Trim(EvaMonth) + "'," + Trim(Str(Emp_Id)) _
     + ",'" + Trim(Performance) + "','" + Trim(SupervisorEvaluation) _
     + "'," + Trim(Str(PrizeFactor1)) + ",'" + Trim(HrEvaluation) _
     + "'," + Trim(Str(PrizeFactor2)) + ")"
  OdbcExt (SqlStmt)
  Rc = SQLFreeStmt(Hstmt, SQL_DROP)
  DB_Disconnect
End Sub

Public Sub Update(ByVal TmpMonth As String, _
                  ByVal TmpEmpId As Long, _
                  ByVal HrFlag As Boolean)
  DB_Connect
  
  If HrFlag = False Then
    SqlStmt = "Update Evaluation Set Performance='" + Trim(Performance) _
          + "',SupervisorEvaluation='" + Trim(SupervisorEvaluation) _
          + "',PrizeFactor1=" + Trim(Str(PrizeFactor1)) _
          + " WHERE EvaMonth='" + Trim(TmpMonth) _
          + "' And Emp_Id=" + Trim(Str(TmpEmpId))
  Else
    SqlStmt = "Update Evaluation Set HrEvaluation='" _
          + Trim(HrEvaluation) + "',PrizeFactor2=" _
          + Trim(Str(PrizeFactor2)) _
          + " WHERE EvaMonth='" + Trim(TmpMonth) _
          + "' And Emp_Id=" + Trim(Str(TmpEmpId))
  End If
  OdbcExt (SqlStmt)
  Rc = SQLFreeStmt(Hstmt, SQL_DROP)
  DB_Disconnect
End Sub