modules.cls

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

VERSION 1.0 CLASS
BEGIN
  MultiUse = -1  'True
  Persistable = 0  'NotPersistable
  DataBindingBehavior = 0  'vbNone
  DataSourceBehavior  = 0  'vbNone
  MTSTransactionMode  = 0  'NotAnMTSObject
END
Attribute VB_Name = "Modules"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = True
Attribute VB_PredeclaredId = False
Attribute VB_Exposed = False
'1   ModuleId  数字 自动编号 模块编号
'2   ModuleName  文本 长度100 模块名称
'3   ProId  数字 项目编号
'4   StatusId  数字 状态编号
'5   StartDate 日期时间 模块开始日期

Public ModuleId As Long
Public ModuleName As String
Public ProId As Long
Public StatusId As Long
Public StartDate As String

Public Sub Init()
  ModuleId = 0
  ModuleName = ""
  ProId = 0
  StatusId = 0
  StartDate = Date
End Sub

'删除数据
Public Sub Delete(ByVal TmpModuleId As Long)
  SqlStmt = "DELETE FROM Modules WHERE ModuleId=" + Trim(TmpModuleId)
  SQLExt (SqlStmt)
End Sub

Public Function GetInfo(ByVal TmpModuleId As Long) As Boolean
  ModuleId = TmpModuleId
  Dim rs As New ADODB.Recordset
  
  SqlStmt = "SELECT * FROM Modules WHERE ModuleId=" + Trim(TmpModuleId)
  Set rs = QueryExt(SqlStmt)
  If rs.EOF Then
    GetInfo = False
    Exit Function
  Else
    ModuleName = Trim(rs.Fields(1))
    ProId = rs.Fields(2)
    StatusId = rs.Fields(3)
    StartDate = Trim(rs.Fields(4))
  End If
  
  GetInfo = True
End Function

Public Sub Insert()
  SqlStmt = "INSERT INTO Modules(ModuleName,ProId,StatusId,StartDate) Values('" + Trim(ModuleName) _
     + "'," + Trim(ProId) + "," + Trim(StatusId) + ",'" + Trim(StartDate) + "')"
  SQLExt (SqlStmt)
End Sub

Public Sub Update(ByVal TmpModuleId As Long)
  SqlStmt = "Update Modules Set ModuleName='" + Trim(ModuleName) _
      + "',ProId=" + Trim(ProId) + ",StatusId=" + Trim(StatusId) _
      + ",StartDate='" + Trim(StartDate) + "' WHERE ModuleId=" + Trim(TmpModuleId)
  SQLExt (SqlStmt)
End Sub
'根据标记判断是否存在项目编号（1）或模块状态编号（2）
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 Modules WHERE ProId=" + Trim(TmpId)
  Else
    SqlStmt = "SELECT * FROM Modules WHERE StatusId=" + Trim(TmpId)
  End If
  Set rs = QueryExt(SqlStmt)
  If rs.EOF Then
    HaveIds = False
  Else
    HaveIds = True
  End If
End Function