employees.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 = "Employees"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = True
Attribute VB_PredeclaredId = False
Attribute VB_Exposed = False
'1 EmpId 自动编号，长整型  员工编号，主键
'2 EmpName 文本，长度为50  姓名，必填字段（是），允许空字符串（否）
'3 Photo OLE对象 照片
'4 Sex 文本，长度为2 性别，必填字段（是），允许空字符串（否）
'5 Nationality 文本，长度为40  民族，必填字段（否），允许空字符串（是）
Public EmpId As Long
Public EmpName As String
Public Sex As String
Public Nationality As String
'6 Birth 文本，长度为10  生日，必填字段（否），允许空字符串（是）
'7 Political_Party 文本，长度为40  政治面貌，必填字段（否），允许空字符串（是）
'8 Culture_Level 文本，长度为40  文化程度，必填字段（否），允许空字符串（是）
'9 Marital_Condition 文本，长度为10  婚姻状况，必填字段（否），允许空字符串（是）
'10 Family_Place  文本，长度为60  籍贯，必填字段（否），允许空字符串（是）
Public Birth As String
Public Political_Party As String
Public Culture_Level As String
Public Marital_Condition As String
Public Family_Place As String
'11  Id_Card 文本，长度为20  身份证号，必填字段（否），允许空字符串（是）
'12  BadgeID 文本，长度为40  工作证号，必填字段（否），允许空字符串（是）
'13  Office_phone  文本，长度为30  办公电话，必填字段（否），允许空字符串（是）
'14  Mobile  文本，长度为30  手机号码，必填字段（否），允许空字符串（是）
'15  Files_Keep_Org  文本，长度为100 档案存放地，必填字段（否），允许空字符串（是）
Public Id_Card As String
Public PcId As String
Public BadgeID As String
Public Office_phone As String
Public Mobile As String
Public Files_Keep_Org As String
'16  Hukou 文本，长度为100 户口所在地，必填字段（否），允许空字符串（是）
'17  HireDate  文本，长度为10  到岗日期，必填字段（否），允许空字符串（是）
'18  DepId 数字，长整型  所在部门编号
'19  Position1  文本，长度为40  工作岗位，必填字段（否），允许空字符串（是）
'20  Title 文本，长度为20  职务，必填字段（否），允许空字符串（是）
Public Hukou As String
Public HireDate As String
Public DepId As Integer
Public Position1 As String
Public Title As String
'21  State 数字，字节  员工状态（1 - 在职人员，2 - 兼职人员，3 - 试用人员，4 - 离职人员，5 - 返聘人员，6 - 退休人员）
'22  UpperId 数字，长整型  上级员工编号
'23  Contract_Duration 文本，长度为20  合同有效期，必填字段（否），允许空字符串（是）
'24  Memo1  文本，长度为200 备注，必填字段（否），允许空字符串（是）
'25  Fillin_Person 文本，长度为30  填表用户，必填字段（是），允许空字符串（否）
'26  Fillin_Time 文本，长度为20  填表日期和时间，必填字段（是），允许空字符串（否）
Public State As Integer
Public UpperId As Integer
Public Contract_Duration As String
Public Memo1 As String
Public Fillin_Person As String
Public Fillin_Time As String

Public Sub Init()
  EmpId = 0
  EmpName = ""
  Sex = ""
  Nationality = ""
  Birth = ""
  Political_Party = ""
  Culture_Level = ""
  Marital_Condition = ""
  Family_Place = ""
  Id_Card = ""
  BadgeID = ""
  Office_phone = ""
  Mobile = ""
  Files_Keep_Org = ""
  Hukou = ""
  HireDate = ""
  DepId = -1
  Position1 = ""
  Title = ""
  State = 0
  UpperId = 0
  Contract_Duration = ""
  Memo1 = ""
  Fillin_Person = ""
  Fillin_Time = ""
End Sub

'删除Employees数据
Public Sub Delete(ByVal TmpEmpId As Long)
  SqlStmt = "Delete FROM Employees WHERE EmpId=" + Trim(Str(TmpEmpId))
  SQLExt (SqlStmt)
  '删除家庭成员和工作经历
  MyFam.DeleteByEmpId (TmpEmpId)
  MyExp.DeleteByEmpId (TmpEmpId)
End Sub

Public Function GetName(ByVal TmpEmpId As Long) As String
  Dim rs As New ADODB.Recordset
  If TmpEmpId <= 0 Then
    GetName = ""
    Exit Function
  End If
  '设置SELECT语句，根据员工编号读取员工姓名
  SqlStmt = "SELECT EmpName FROM Employees WHERE EmpId=" + Trim(Str(TmpEmpId))
  Set rs = QueryExt(SqlStmt)
  '从结果集中读取数据
  If rs.EOF Then
    GetName = ""
  Else
    GetName = Trim(rs.Fields(0))
  End If
End Function

Public Function GetInfo(ByVal TmpEmpId As Long) As Boolean
  Dim rs As New ADODB.Recordset
  If TmpEmpId <= 0 Then
    Init
    GetInfo = False
    Exit Function
  End If
  
  EmpId = TmpEmpId
  '根据EmpId的值从表中读取数据
  SqlStmt = "SELECT * FROM Employees WHERE EmpId=" + Trim(Str(TmpEmpId))
  Set rs = QueryExt(SqlStmt)
  If rs.EOF Then
    GetInfo = False
    Init
    Exit Function
  Else
    '员工姓名
    EmpName = Trim(rs.Fields(1))
    '性别
    If IsNull(rs.Fields(3)) Then
      Sex = ""
    Else
      Sex = Trim(rs.Fields(3))
    End If
    '民族
    If IsNull(rs.Fields(4)) Then
      Nationality = ""
    Else
      Nationality = Trim(rs.Fields(4))
    End If
    '生日
    If IsNull(rs.Fields(5)) Then
      Birth = ""
    Else
      Birth = Trim(rs.Fields(5))
    End If
    '政治面貌
    If IsNull(rs.Fields(6)) Then
      Political_Party = ""
    Else
      Political_Party = Trim(rs.Fields(6))
    End If
    '文化程度
    If IsNull(rs.Fields(7)) Then
      Culture_Level = ""
    Else
      Culture_Level = Trim(rs.Fields(7))
    End If
    '婚姻状况
    If IsNull(rs.Fields(8)) Then
      Marital_Condition = ""
    Else
      Marital_Condition = Trim(rs.Fields(8))
    End If
    '籍贯
    If IsNull(rs.Fields(9)) Then
      Family_Place = ""
    Else
      Family_Place = Trim(rs.Fields(9))
    End If
    '身份证号
    If IsNull(rs.Fields(10)) Then
      Id_Card = ""
    Else
      Id_Card = Trim(rs.Fields(10))
    End If
    '工作证号
    If IsNull(rs.Fields(11)) Then
      BadgeID = ""
    Else
      BadgeID = Trim(rs.Fields(11))
    End If
    '办公电话
    If IsNull(rs.Fields(12)) Then
      Office_phone = ""
    Else
      Office_phone = Trim(rs.Fields(12))
    End If
    '手机号码
    If IsNull(rs.Fields(13)) Then
      Mobile = ""
    Else
      Mobile = Trim(rs.Fields(13))
    End If
    '档案存放地
    If IsNull(rs.Fields(14)) Then
      Files_Keep_Org = ""
    Else
      Files_Keep_Org = Trim(rs.Fields(14))
    End If
    '户口所在地
    If IsNull(rs.Fields(15)) Then
      Hukou = ""
    Else
      Hukou = Trim(rs.Fields(15))
    End If
    '到岗日期
    If IsNull(rs.Fields(16)) Then
      HireDate = ""
    Else
      HireDate = Trim(rs.Fields(16))
    End If
    '所在部门编号
    If IsNull(rs.Fields(17)) Then
      DepId = ""
    Else
      DepId = Trim(rs.Fields(17))
    End If
    '工作岗位
    If IsNull(rs.Fields(18)) Then
      Position1 = ""
    Else
      Position1 = Trim(rs.Fields(18))
    End If
    '职务
    If IsNull(rs.Fields(19)) Then
      Title = ""
    Else
      Title = Trim(rs.Fields(19))
    End If
    '员工状态
    If IsNull(rs.Fields(20)) Then
      State = 0
    Else
      State = rs.Fields(20)
    End If
    '上级员工编号
    If IsNull(rs.Fields(21)) Then
      UpperId = 0
    Else
      UpperId = rs.Fields(21)
    End If
    '合同有效期
    If IsNull(rs.Fields(22)) Then
      Contract_Duration = ""
    Else
      Contract_Duration = Trim(rs.Fields(22))
    End If
    '备注
    If IsNull(rs.Fields(23)) Then
      Memo1 = ""
    Else
      Memo1 = Trim(rs.Fields(23))
    End If
    '合同有效期
    If IsNull(rs.Fields(24)) Then
      Fillin_Person = ""
    Else
      Fillin_Person = Trim(rs.Fields(24))
    End If
    '合同有效期
    If IsNull(rs.Fields(25)) Then
      Fillin_Person = ""
    Else
      Fillin_Person = Trim(rs.Fields(25))
    End If
  End If
  
  GetInfo = True
End Function

Public Sub Insert()
  '设置INSERT语句
  SqlStmt = "INSERT INTO Employees(EmpName, Sex, Nationality," _
     + " Birth, Political_Party, Culture_Level, Marital_Condition," _
     + " Family_Place, Id_Card, BadgeId, Office_Phone, Mobile," _
     + " Files_Keep_Org, Hukou, HireDate, DepId, Position1, Title," _
     + " State, UpperId, Contract_Duration, Memo1, Fillin_Person, Fillin_Time)" _
     + " Values('" + Trim(EmpName) + "','" + Trim(Sex) + "','" + Trim(Nationality) _
     + "','" + Trim(Birth) + "','" + Trim(Political_Party) + "','" _
     + Trim(Culture_Level) + "','" + Trim(Marital_Condition) + "','" _
     + Trim(Family_Place) + "','" + Trim(Id_Card) + "','" + Trim(BadgeID) _
     + "','" + Trim(Office_phone) + "','" + Trim(Mobile) _
     + "','" + Trim(Files_Keep_Org) + "','" + Trim(Hukou) + "','" + Trim(HireDate) _
     + "'," + Trim(DepId) + ",'" + Trim(Position1) + "','" _
     + Trim(Title) + "'," + Trim(State) + "," + Trim(UpperId) _
     + ",'" + Trim(Contract_Duration) + "','" + Trim(Memo1) + "','" _
     + Trim(CurUser.UserName) + "','" + Trim(Fillin_Time) + "')"
  SQLExt (SqlStmt)
End Sub

Public Sub Load_by_Dep(ByVal TmpDepid As Integer)
  Dim i As Integer
  Dim rs As New ADODB.Recordset
  '初始化部门数组
  Erase Arr_EmpId
  ReDim Arr_EmpId(0)
  '设置SELECT语句，读取指定部门的所有员工记录
  SqlStmt = "SELECT EmpId FROM Employees WHERE DepId=" _
          + Trim(Str(TmpDepid)) + " ORDER BY EmpId"
  Set rs = QueryExt(SqlStmt)
  i = 0
  Do Until rs.EOF
    '读取部门编号
    ReDim Preserve Arr_EmpId(i + 1)
    Arr_EmpId(i) = rs.Fields(0)
    i = i + 1
  Loop
End Sub

Public Sub Update(ByVal OriEmpId As Integer)
  '设置UPDATE语句
  SqlStmt = "Update Employees Set EmpName='" + Trim(EmpName) _
          + "', Sex='" + Trim(Sex) + "', Nationality='" + Trim(Nationality) _
          + "', Birth='" + Trim(Birth) + "', Political_Party='" + Trim(Political_Party) _
          + "', Culture_Level='" + Trim(Culture_Level) + "',Marital_Condition='" _
          + Trim(Marital_Condition) + "', Family_Place='" + Trim(Family_Place) _
          + "', Id_Card='" + Trim(Id_Card) + "', BadgeID='" + Trim(BadgeID) _
          + "', Office_phone='" + Trim(Office_phone) + "',Mobile='" + Trim(Mobile) _
          + "',Files_Keep_Org='" + Trim(Files_Keep_Org) + "', Hukou='" _
          + Trim(Hukou) + "', HireDate='" + Trim(HireDate) + "', DepId=" + Trim(Str(DepId)) _
          + ", Position1='" + Trim(Position1) + "', Title='" + Trim(Title) + "',State=" _
          + Trim(Str(State)) + ", UpperId=" + Trim(Str(UpperId)) + ", Contract_Duration='" _
          + Trim(Contract_Duration) + "', Memo1='" + Trim(Memo1) + "',Fillin_Person='" _
          + Trim(CurUser.UserName) + "',Fillin_Time='" + Trim(Fillin_Time) _
          + "' WHERE EmpId=" + Trim(Str(OriEmpId))
  SQLExt (SqlStmt)
End Sub

'更新部门职务
Public Sub Update_Transfer(ByVal OriEmpId As Integer)
  SqlStmt = "Update Employees Set DepId=" + Trim(DepId) + ",Title='" _
          + Trim(Title) + "' WHERE EmpId=" + Trim(OriEmpId)
  SQLExt (SqlStmt)
End Sub