evaluation.cls

人事信息管理系统 VB毕业设计 原代码+论文

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  文本，长度为10  考评月份，必填字段（是），允许空字符串（否）
'2 EmpId 数字，长整型  员工编号
'3 ztEva 文本，长度为200 总体评价，必填字段（是），允许空字符串（否）
'4 jlReason  文本，长度为200 奖励事由，必填字段（否），允许空字符串（是）
'5 jlAmount  数字，整型  奖励金额，必填字段（否），允许空字符串（是）
'6 cfReason  文本，长度为200 处罚事由，必填字段（否），允许空字符串（是）
'7 cfAmount  数字，整型  处罚金额，必填字段（否），允许空字符串（是）
'8 Memo1  文本，长度为200 备注信息，必填字段（否），允许空字符串（是）

Public EvaMonth As String
Public EmpId As Integer
Public ztEva As String
Public jlReason As String
Public jlAmount As Integer
Public cfReason As String
Public cfAmount As Integer
Public Memo1 As String

Public Sub Init()
  EvaMonth = ""
  EmpId = 0
  ztEva = ""
  jlReason = ""
  jlAmount = 0
  cfReason = ""
  cfAmount = 0
  Memo1 = ""
End Sub

'删除Evaluation数据
Public Sub Delete(ByVal TmpMonth As String, _
                  ByVal TmpEmpId As Long)
  SqlStmt = "DELETE FROM Evaluation WHERE EvaMonth='" _
          + Trim(TmpMonth) + "' And EmpId=" + Trim(Str(TmpEmpId))
  SQLExt (SqlStmt)
End Sub

Public Function GetInfo(ByVal TmpMonth As String, _
                        ByVal TmpEmpId As Long) As Boolean
  
  Dim rs As New ADODB.Recordset
  If TmpMonth = "" Or TmpEmpId <= 0 Then
    GetInfo = False
    Init
    Exit Function
  End If
  
  EvaMonth = TmpMonth
  EmpId = TmpEmpId
  
  SqlStmt = "SELECT * FROM Evaluation WHERE EvaMonth='" _
          + Trim(TmpMonth) + "' And EmpId=" + Trim(Str(EmpId))
  Set rs = QueryExt(SqlStmt)
  If rs.EOF Then
    GetInfo = False
    Init
    Exit Function
  Else
    '总体评价
    ztEva = rs.Fields(2)
    '奖励事由
    If IsNull(rs.Fields(3)) Then
      jlReason = ""
    Else
      jlReason = Trim(rs.Fields(3))
    End If
    '奖励金额
    If IsNull(rs.Fields(4)) Then
      jlAmount = 0
    Else
      jlAmount = Trim(rs.Fields(4))
    End If
    '处罚事由
    If IsNull(rs.Fields(5)) Then
      cfReason = ""
    Else
      cfReason = Trim(rs.Fields(5))
    End If
    '处罚金额
    If IsNull(rs.Fields(6)) Then
      cfAmount = ""
    Else
      cfAmount = Trim(rs.Fields(6))
    End If
    '备注
    If IsNull(rs.Fields(7)) Then
      Memo1 = ""
    Else
      Memo1 = Trim(rs.Fields(7))
    End If
    
    GetInfo = True
  End If
End Function

Public Function In_DB(ByVal TmpMonth As String, _
                        ByVal TmpEmpId As Long) As Boolean
  Dim rs As New ADODB.Recordset
  SqlStmt = "SELECT * FROM Evaluation WHERE EvaMonth='" _
          + Trim(TmpMonth) + "' And EmpId=" + Trim(Str(TmpEmpId))
  Set rs = QueryExt(SqlStmt)
  If rs.EOF Then
    In_DB = False
  Else
    In_DB = True
  End If
End Function

Public Sub Insert()
  SqlStmt = "INSERT INTO Evaluation Values('" + Trim(EvaMonth) + "'," + Trim(Str(EmpId)) _
     + ",'" + Trim(ztEva) + "','" + Trim(jlReason) + "'," + Trim(Str(jlAmount)) + ",'" + Trim(cfReason) _
     + "'," + Trim(Str(cfAmount)) + ",'" + Trim(Memo1) + "')"
  SQLExt (SqlStmt)
End Sub

Public Sub Update(ByVal TmpMonth As String, ByVal TmpEmpId As Long)
  SqlStmt = "Update Evaluation Set ztEva='" + Trim(ztEva) + "',jlReason='" _
          + Trim(jlReason) + "',jlAmount=" + Trim(Str(jlAmount)) _
          + ", cfReason='" + Trim(cfReason) + "',cfAmount=" _
          + Trim(Str(cfAmount)) + ", Memo1='" + Trim(Memo1) + "' WHERE EvaMonth='" _
          + Trim(TmpMonth) + "' And EmpId=" + Trim(Str(TmpEmpId))
  SQLExt (SqlStmt)
End Sub