employees.cls

主要是基本的客户资源管理操作界面, 包含基本信息管理、客户管理商业管理等

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 Sex 文本 性别
Public EmpId As Long
Public EmpName As String
Public Sex As String
'4  DepName 文本  所在部门
'5  ETitle 文本，长度为50  职务，必填字段（否），允许空字符串（是）
Public DepName As String
Public ETitle As String

Public Sub Init()
  EmpId = 0
  EmpName = ""
  Sex = "男"
  DepName = ""
  ETitle = ""
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(2))
    End If
    '所在部门
    If IsNull(rs.Fields(3)) Then
      DepName = ""
    Else
      DepName = Trim(rs.Fields(3))
    End If
    '职务
    If IsNull(rs.Fields(4)) Then
      ETitle = ""
    Else
      ETitle = Trim(rs.Fields(4))
    End If
  End If
  
  GetInfo = True
End Function

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

Public Sub Insert()
  SqlStmt = "INSERT INTO Employees(EmpName,Sex,DepName,ETitle) Values('" + Trim(EmpName) + "','" _
          + Trim(Sex) + "','" + Trim(DepName) _
          + "','" + Trim(ETitle) + "')"
  SQLExt (SqlStmt)
End Sub

Public Sub Update(ByVal OriEmpId As Long)
  SqlStmt = "UPDATE Employees set EmptName='" + Trim(EmpName) _
          + "',DepName='" + Trim(DepName) + "',ETitle='" + Trim(ETitle) _
          + "' WHERE EmpId=" + Trim(Str(OrgEmpId))
  SQLExt (SqlStmt)
End Sub