employees.cls

来自「我只是个对编程有着浓厚兴趣的初学者」· CLS 代码 · 共 83 行

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
Public EmpId As Integer          '员工编号，设置为主键
Public EmpName As String         '员工姓名
Public Sex As String             '员工性别
Public Title As String           '员工职务
Public Wage As Integer           '工资
Public DepId As Long             '所在部门编号

'初始化成员变量
Public Sub Init()
  EmpId = 0
  EmpName = ""
  Sex = ""
  Title = ""
  Wage = 0
  DepId = 0
End Sub

'删除Employees数据
Public Sub Delete(ByVal TmpEmpId As Long)
  SqlStmt = "Delete FROM Employees WHERE EmpId=" + Trim(Str(TmpEmpId))
  SQLExt (SqlStmt)
End Sub
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(2)) Then
      Sex = ""
    Else
      Sex = Trim(rs.Fields(3))
    End If
    '职务
    If IsNull(rs.Fields(3)) Then
      Title = ""
    Else
      Title = Trim(rs.Fields(3))
    End If
    '工资待遇
    If IsNull(rs.Fields(4)) Then
      Wage = 0
    Else
      Wage = rs.Fields(5)
    End If
    '所在部门编号
    If IsNull(rs.Fields(5)) Then
      DepId = ""
    Else
      DepId = Trim(rs.Fields(6))
    End If
  End If
  
  GetInfo = True
End Function