clsevaluation.cls

这是一个利用VB编写的中小企业ERP。功能比较全

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