employees.cls

来自「软件项目管理的基本功能」· CLS 代码 · 共 78 行

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  数字 自动编号 员工ID
'2   EmpName 文本 长度50 员工姓名
'3   ETitle  文本 长度200 员工职务
'4   CreateDate 日期/时间 创建日期

Public EmpId As Long
Public EmpName As String
Public ETitle As String
Public CreateDate As String

Public Sub Init()
  EmpId = 0
  EmpName = ""
  ETitle = ""
  CreateDate = Date
End Sub

'删除数据
Public Sub Delete(ByVal TmpEmpId As Long)
  SqlStmt = "DELETE FROM Employees WHERE EmpId=" + Trim(TmpEmpId)
  SQLExt (SqlStmt)
End Sub

Public Function GetInfo(ByVal TmpEmpId As Long) As Boolean
  EmpId = TmpEmpId
  Dim rs As New ADODB.Recordset
  
  SqlStmt = "SELECT * FROM Employees WHERE EmpId=" + Trim(TmpEmpId)
  Set rs = QueryExt(SqlStmt)
  If rs.EOF Then
    GetInfo = False
    Exit Function
  Else
    EmpName = Trim(rs.Fields(1))
    ETitle = Trim(rs.Fields(2))
    CreateDate = Trim(rs.Fields(3))
  End If
  
  GetInfo = True
End Function

Public Function In_DB(ByVal TmpEmpId As Long) As Boolean
  Dim rs As New ADODB.Recordset
  SqlStmt = "SELECT * FROM Employees WHERE EmpId=" + Trim(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 Employees(EmpName,ETitle,CreateDate) Values('" + Trim(EmpName) _
     + "','" + Trim(ETitle) + "','" + Trim(CreateDate) + "')"
  SQLExt (SqlStmt)
End Sub

Public Sub Update(ByVal TmpEmpId As Long)
  SqlStmt = "Update Employees Set EmpName='" + Trim(EmpName) _
          + "',ETitle='" + Trim(ETitle) _
          + "',CreateDate='" + Trim(CreateDate) + "' WHERE EmpId=" + Trim(TmpEmpId)
  SQLExt (SqlStmt)
End Sub