members.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 = "Members"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = True
Attribute VB_PredeclaredId = False
Attribute VB_Exposed = False
'1   MemId  数字 自动编号 成员编号
'2   ProId 数字  项目编号
'3   EmpId  数字 员工编号
'4   RoleId  数字 角色编号
'5   JoinDate 时间日期 加入时间
'6   MStatus  文本 长度10 成员状态：正常、无效

Public MemId As Long
Public ProId As Long
Public EmpId As Long
Public RoleId As Long
Public JoinDate As String
Public MStatus As String

Public Sub Init()
  MemId = 0
  ProId = 0
  EmpId = 0
  RoleId = 0
  JoinDate = ""
  MStatus = ""
End Sub

'删除数据
Public Sub Delete(ByVal TmpMemId As Long)
  SqlStmt = "DELETE FROM Members WHERE MemId=" + Trim(TmpMemId)
  SQLExt (SqlStmt)
End Sub

Public Function GetInfo(ByVal TmpMemId As Long) As Boolean
  MemId = TmpMemId
  Dim rs As New ADODB.Recordset
  
  SqlStmt = "SELECT * FROM Members WHERE MemId=" + Trim(TmpMemId)
  Set rs = QueryExt(SqlStmt)
  If rs.EOF Then
    GetInfo = False
    Exit Function
  Else
    ProId = rs.Fields(1)
    EmpId = rs.Fields(2)
    RoleId = rs.Fields(3)
    JoinDate = Trim(rs.Fields(4))
    MStatus = Trim(rs.Fields(5))
  End If
  
  GetInfo = True
End Function

Public Sub Insert()
  SqlStmt = "INSERT INTO Members(ProId,EmpId,RoleId,JoinDate,MStatus) Values(" + Trim(ProId) _
     + "," + Trim(EmpId) + "," + Trim(RoleId) + ",'" + Trim(JoinDate) + "','正常')"
  SQLExt (SqlStmt)
End Sub

Public Sub Update(ByVal TmpMemId As Long)
  SqlStmt = "Update Members Set EmpId=" + Trim(EmpId) + ",RoleId=" + Trim(RoleId) _
          + ",JoinDate='" + Trim(JoinDate) + "',MStatus='" + Trim(MStatus) _
          + "' WHERE MemId=" + Trim(TmpMemId)
'  MsgBox SqlStmt
  SQLExt (SqlStmt)
End Sub
'根据标记判断是否存在员工编号或角色编号
Public Function HaveIds(ByVal TmpId As Long, ByVal TmpFlag As Integer) As Boolean
  Dim rs As New ADODB.Recordset
  If TmpFlag = 1 Then
    SqlStmt = "SELECT * FROM Members WHERE EmpId=" + Trim(TmpId)
  ElseIf TmpFlag = 2 Then
    SqlStmt = "SELECT * FROM Members WHERE RoleId=" + Trim(TmpId)
  Else
    SqlStmt = "SELECT * FROM Members WHERE ProId=" + Trim(TmpId)
  End If
  Set rs = QueryExt(SqlStmt)
  If rs.EOF Then
    HaveIds = False
  Else
    HaveIds = True
  End If
End Function