family.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 = "Family"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = True
Attribute VB_PredeclaredId = False
Attribute VB_Exposed = False
'1 Id  自动编号，整型  编号，主键
'2 EmpId 数字，长整型  员工编号
'3 Name  文本，长度为50  姓名，必填字段（是），允许空字符串（否）
'4 Sex 文本，长度为2 性别，必填字段（是），允许空字符串（否）
'5 Age 数字，整型  年龄
'6 Relationship  文本，长度为20  与本人关系，必填字段（否），允许空字符串（是）
'7 WorkingOrg  文本，长度为40  工作单位，必填字段（否），允许空字符串（是）

Public Id As String
Public EmpId As String
Public Name As String
Public Sex As String
Public Age As Integer
Public Relationship As String
Public WorkingOrg As String

Public Sub Init()
  Id = 0
  EmpId = 0
  Name = ""
  Sex = ""
  Age = 0
  Relationship = ""
  WorkingOrg = ""
End Sub

'删除Family数据
Public Sub DeleteById(ByVal TmpId As Integer)
  SqlStmt = "DELETE FROM Family WHERE Id=" + trim(Str(TmpId))
  SQLExt (SqlStmt)
End Sub

'删除Family数据
Public Sub DeleteByEmpId(ByVal TmpEmpId As Long)
  SqlStmt = "DELETE FROM Family WHERE EmpId=" + trim(Str(TmpEmpId))
  SQLExt (SqlStmt)
End Sub

Public Function GetInfo(ByVal TmpId As Long) As Boolean
  Dim rs As New ADODB.Recordset
  If TmpId <= 0 Then
    GetInfo = False
    Init
    Exit Function
  End If
  
  Id = TmpId
  
  SqlStmt = "SELECT * FROM Family WHERE Id=" + trim(Str(TmpId))
  Set rs = QueryExt(SqlStmt)
  If rs.EOF Then
    Init
    GetInfo = False
  Else
    '员工编号
    EmpId = rs.Fields(1)
    '姓名
    Name = trim(rs.Fields(2))
    '性别
    If IsNull(rs.Fields(3)) Then
      Sex = ""
    Else
      Sex = trim(rs.Fields(3))
    End If
    '年龄
    If IsNull(rs.Fields(4)) Then
      Age = 0
    Else
      Age = rs.Fields(4)
    End If
    '关系
    If IsNull(rs.Fields(5)) Then
      Relationship = ""
    Else
      Relationship = trim(rs.Fields(5))
    End If
    '工作单位
    If IsNull(rs.Fields(6)) Then
      WorkingOrg = ""
    Else
      WorkingOrg = trim(rs.Fields(6))
    End If
    
    GetInfo = True
  End If
End Function

Public Sub Insert()
  SqlStmt = "INSERT INTO Family (EmpId, Name, Sex, Age, Relationship, WorkingOrg) Values(" _
     + trim(EmpId) + ",'" + trim(Name) + "','" + trim(Sex) + "'," _
     + trim(Str(Age)) + ",'" + trim(Relationship) + "','" + trim(WorkingOrg) + "')"
  SQLExt (SqlStmt)
End Sub

Public Sub Update(ByVal OriId As Long)
  SqlStmt = "Update Family Set Name='" + trim(Name) _
          + "', Sex='" + trim(Sex) + "',Age=" + trim(Str(Age)) _
          + ", Relationship='" + trim(Relationship) _
          + "', WorkingOrg='" + trim(WorkingOrg) _
          + "' WHERE Id=" + trim(Str(OriId))
  SQLExt (SqlStmt)
End Sub