VERSION 1.0 CLASS
BEGIN
  MultiUse = -1  'True
  Persistable = 0  'NotPersistable
  DataBindingBehavior = 0  'vbNone
  DataSourceBehavior  = 0  'vbNone
  MTSTransactionMode  = 0  'NotAnMTSObject
END
Attribute VB_Name = "ClsEvaluation"
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)
    '連接數據庫
    MyDB.openDB
    
    SqlStmt = "DELETE FROM Evaluation WHERE EvaMonth='" _
               + Trim(TmpMonth) + "' And Emp_Id=" _
               + Trim(Str(TmpEmpId))
    '執行SQL語句
    Dim Isexe As Boolean
    Dim rsEvaluation As ADODB.Recordset
    Isexe = MyDB.exeSql(SqlStmt, rsEvaluation, True)
    
    '斷開與數據庫的連接
    MyDB.closeDB
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
    
    '連接數據庫
    MyDB.openDB
    
    SqlStmt = "SELECT * FROM Evaluation WHERE EvaMonth='" _
               + Trim(TmpMonth) + "' And Emp_Id=" _
               + Trim(Str(Emp_Id))
    '執行SQL語句
    Dim Isexe As Boolean
    Dim rsEvaluation As ADODB.Recordset
    Isexe = MyDB.exeSql(SqlStmt, rsEvaluation, True)
    
    If rsEvaluation.RecordCount = 0 Then
        GetInfo = False
        Init
        '斷開與數據庫的連接
        MyDB.closeDB
        Exit Function
    Else
        
        Performance = rsEvaluation.Fields("Performance")
        
        
'        SupervisorEvaluation = rsEvaluation.Fields("SupervisorEvaluation")
        
        
'        PrizeFactor1 = rsEvaluation.Fields("PrizeFactor1")
        
        HrEvaluation = rsEvaluation.Fields("HrEvaluation")
        
        
        PrizeFactor2 = rsEvaluation.Fields("PrizeFactor2")
        
    End If
    
    GetInfo = True
    '斷開與數據庫的連接
    MyDB.closeDB
End Function

Public Function In_DB(ByVal TmpMonth As String, _
                      ByVal TmpEmpId As Long) As Boolean
    '連接數據庫
    MyDB.openDB
    
    SqlStmt = "SELECT * FROM Evaluation WHERE EvaMonth='" _
               + Trim(TmpMonth) + "' And Emp_Id=" _
               + Trim(Str(TmpEmpId))
    '執行SQL語句
    Dim Isexe As Boolean
    Dim rsEvaluation As ADODB.Recordset
    Isexe = MyDB.exeSql(SqlStmt, rsEvaluation, True)
    
    If rsEvaluation.RecordCount = 0 Then
        In_DB = False
    Else
        In_DB = True
    End If
    '斷開與數據庫的連接
    MyDB.closeDB
End Function

Public Sub Insert()
    '連接數據庫
    MyDB.openDB
    
    SqlStmt = "INSERT INTO Evaluation Values('" _
               + Trim(EvaMonth) + "'," + Trim(Str(Emp_Id)) _
               + ",'" + Trim(Performance) + "','" + Trim(HrEvaluation) _
               + "'," + Trim(Str(PrizeFactor2)) + ")"
    '執行SQL語句
    Dim Isexe As Boolean
    Dim rsEvaluation As ADODB.Recordset
    Isexe = MyDB.exeSql(SqlStmt, rsEvaluation, True)
    
    '斷開與數據庫的連接
    MyDB.closeDB
End Sub

Public Sub Update(ByVal TmpMonth As String, _
                  ByVal TmpEmpId As Long, _
                  ByVal HrFlag As Boolean)
    '連接數據庫
    MyDB.openDB
    
    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) _
                   + "',Performance='" + Trim(Performance) _
                   + "',PrizeFactor2='" + Trim(Str(PrizeFactor2)) _
                   + "' WHERE EvaMonth='" + Trim(TmpMonth) _
                   + "' And Emp_Id=" + Trim(Str(TmpEmpId))
    End If
    '執行SQL語句
    Dim Isexe As Boolean
    Dim rsEvaluation As ADODB.Recordset
    Isexe = MyDB.exeSql(SqlStmt, rsEvaluation, True)
    
    '斷開與數據庫的連接
    MyDB.closeDB
End Sub