clsfamilymember.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 = "ClsFamilyMember"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = True
Attribute VB_PredeclaredId = False
Attribute VB_Exposed = False
'1 Id  TinyInt 编号
'2 Emp_Id  Int 员工编号
'3 Name  Varchar 50  姓名
'4 Sex Char 2  性别
'5 Age TinyInt 年龄
'6 Relationship  Varchar 20  与本人关系
'7 WorkingOrg  Varchar 40  工作单位
Public Id As String
Public Emp_Id 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
  Emp_Id = 0
  Name = ""
  Sex = ""
  Age = 0
  Relationship = ""
  WorkingOrg = ""
End Sub

'删除FamilyMember数据
Public Sub DeleteById(ByVal TmpEmpId As Long, _
                      ByVal TmpId As Integer)
    '连接数据库
  MyDB.openDB
  
  SqlStmt = "DELETE FROM FamilyMember WHERE Id=" _
          + Trim(Str(TmpId)) + " And Emp_Id=" _
          + Trim(Str(TmpEmpId))
 '执行SQL语句
  Dim Isexe As Boolean
  Dim rsFamilyMember As ADODB.Recordset
  Isexe = MyDB.exeSql(SqlStmt, rsFamilyMember, True)
  
  '断开与数据库的连接
  MyDB.closeDB
End Sub

'删除FamilyMember数据
Public Sub DeleteByEmpId(ByVal TmpEmpId As Long)
    '连接数据库
  MyDB.openDB
  
  SqlStmt = "DELETE FROM FamilyMember WHERE EmpId=" + Trim(Str(TmpEmpId))
  '执行SQL语句
  Dim Isexe As Boolean
  Dim rsFamilyMember As ADODB.Recordset
  Isexe = MyDB.exeSql(SqlStmt, rsFamilyMember, True)
  
  '断开与数据库的连接
  MyDB.closeDB
End Sub

Public Function GetInfo(ByVal TmpEmpId As Long, _
                        ByVal TmpId As Long) As Boolean
  If TmpId <= 0 Or TmpEmpId <= 0 Then
    GetInfo = False
    Exit Function
  End If
  
  Id = TmpId
  Emp_Id = TmpEmpId
  
  '连接数据库
  MyDB.openDB
  
  SqlStmt = "SELECT * FROM FamilyMember WHERE Id=" _
          + Trim(Str(TmpId)) + " And Emp_Id=" _
          + Trim(Str(Emp_Id))
 '执行SQL语句
  Dim Isexe As Boolean
  Dim rsFamilyMember As ADODB.Recordset
  Isexe = MyDB.exeSql(SqlStmt, rsFamilyMember, True)
  
  If rsFamilyMember.RecordCount = 0 Then
    GetInfo = False
    Exit Function
  Else

    Name = rsFamilyMember.Fields("Name")
    

    Sex = rsFamilyMember.Fields("Sex")


    Age = rsFamilyMember.Fields("Age")
    

    Relationship = rsFamilyMember.Fields("Relationship")


    WorkingOrg = rsFamilyMember.Fields("WorkingOrg")
  End If
    

  
  GetInfo = True
  
  '断开与数据库的连接
  MyDB.closeDB
  
End Function

Public Function GetNewId() As Long
  Dim TmpId As Long
  
   '连接数据库
  MyDB.openDB
    
  SqlStmt = "SELECT Id FROM FamilyMember ORDER BY Id"
   '执行SQL语句
  Dim Isexe As Boolean
  Dim rsFamilyMember As ADODB.Recordset
  Isexe = MyDB.exeSql(SqlStmt, rsFamilyMember, True)
  
  i = 1
  Do While rsFamilyMember.EOF = False
 
    TmpId = rsFamilyMember.Fields("Id")
    If TmpId = i Then
      i = i + 1
    Else
      GetNewId = i
     '断开与数据库的连接
      MyDB.closeDB
      Exit Function
    End If
   rsFamilyMember.MoveNext
  Loop
 '断开与数据库的连接
      MyDB.closeDB
  
  GetNewId = i
End Function

Public Sub Insert(ByVal TmpEmpId As Long)
  Id = GetNewId()
  
   '连接数据库
  MyDB.openDB
  
  SqlStmt = "INSERT INTO FamilyMember Values(" _
     + Trim(Str(Id)) + "," + Trim(Str(TmpEmpId)) _
     + ",'" + Trim(Name) + "','" + Trim(Sex) + "'," _
     + Trim(Str(Age)) + ",'" + Trim(Relationship) + "','" _
     + Trim(WorkingOrg) + "')"
 
 
    '执行SQL语句
  Dim Isexe As Boolean
  Dim rsFamilyMember As ADODB.Recordset
  Isexe = MyDB.exeSql(SqlStmt, rsFamilyMember, True)
  
  '断开与数据库的连接
      MyDB.closeDB
      
End Sub

Public Sub Update(ByVal OriEmpId As Long, _
                  ByVal OriId As Long)
    '连接数据库
  MyDB.openDB
  
  
  SqlStmt = "Update FamilyMember Set Name='" + Trim(Name) _
          + "',Sex='" + Trim(Sex) + "',Age=" + Trim(Str(Age)) _
          + ",Relationship='" + Trim(Relationship) _
          + "',WorkingOrg='" + Trim(WorkingOrg) _
          + "' WHERE Emp_Id=" + Trim(Str(OriEmpId)) _
          + " And Id=" + Trim(Str(OriId))


    '执行SQL语句
  Dim Isexe As Boolean
  Dim rsFamilyMember As ADODB.Recordset
  Isexe = MyDB.exeSql(SqlStmt, rsFamilyMember, True)
  
  '断开与数据库的连接
      MyDB.closeDB
      
End Sub