bugs.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 = "Bugs"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = True
Attribute VB_PredeclaredId = False
Attribute VB_Exposed = False
'1   BugId  数字 自动编号 缺陷编号
'2   BugTitle 文本 长度 150  缺陷名称
'3   ModuleId  数字 模块编号
'4   LevelId  数字 级别编号
'5   CreateDate 日期时间 创建日期
'6   Poster  文本 长度 150
'7   BugDetail  文本 长度 200  缺陷描述
'8   SolveDate 文本 长度50 解决日期
'9   SolveDetail 备注 解决描述

Public BugId As Long
Public BugTitle As String
Public ModuleId As Long
Public LevelId As Long
Public CreateDate As String
Public Poster As String
Public BugDetail As String
Public SolveDate As String
Public SolveDetail As String

Public Sub Init()
  BugId = 0
  BugTitle = ""
  ModuleId = 0
  LevelId = 0
  CreateDate = Date
  Poster = ""
  BugDetail = ""
  SolveDate = ""
  SolveDetail = ""
End Sub

'删除数据
Public Sub Delete(ByVal TmpBugId As Long)
  SqlStmt = "DELETE FROM Bugs WHERE BugId=" + Trim(TmpBugId)
  SQLExt (SqlStmt)
End Sub

Public Function GetInfo(ByVal TmpBugId As Long) As Boolean
  BugId = TmpBugId
  Dim rs As New ADODB.Recordset
  
  SqlStmt = "SELECT * FROM Bugs WHERE BugId=" + Trim(TmpBugId)
  Set rs = QueryExt(SqlStmt)
  If rs.EOF Then
    GetInfo = False
    Exit Function
  Else
    BugTitle = Trim(rs.Fields(1))
    ModuleId = rs.Fields(2)
    LevelId = rs.Fields(3)
    CreateDate = Trim(rs.Fields(4))
    Poster = Trim(rs.Fields(5))
    BugDetail = Trim(rs.Fields(6))
    If IsNull(rs.Fields(7)) Then
      SolveDate = ""
    Else
      SolveDate = Trim(rs.Fields(7))
    End If
    If IsNull(rs.Fields(8)) Then
      SolveDetail = ""
    Else
      SolveDetail = Trim(rs.Fields(8))
    End If
  End If
  
  GetInfo = True
End Function

Public Sub Insert()
  SqlStmt = "INSERT INTO Bugs(BugTitle,ModuleId,LevelId,CreateDate,Poster,BugDetail," _
     + "SolveDate,SolveDetail) Values('" + Trim(BugTitle) _
     + "'," + Trim(ModuleId) + "," + Trim(LevelId) + ",'" + Trim(CreateDate) + "','" _
     + Trim(Poster) + "','" + Trim(BugDetail) + "','" + Trim(SolveDate) _
     + "','" + Trim(SolveDetail) + "')"
  SQLExt (SqlStmt)
End Sub

Public Sub Update(ByVal TmpBugId As Long)
  SqlStmt = "Update Bugs Set BugTitle='" + Trim(BugTitle) _
      + "',ModuleId=" + Trim(ModuleId) + ",LevelId=" + Trim(LevelId) _
      + ",CreateDate='" + Trim(CreateDate) + "',Poster='" + Trim(Poster) _
      + "',BugDetail='" + Trim(BugDetail) + "',SolveDate='" + Trim(SolveDate) _
      + "',SolveDetail='" + Trim(SolveDetail) + "' WHERE BugId=" + Trim(TmpBugId)
  SQLExt (SqlStmt)
End Sub
'根据标记判断是否存在缺陷级别编号（2）或模块编号（1）
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 Bugs WHERE ModuleId=" + Trim(TmpId)
  Else
    SqlStmt = "SELECT * FROM Bugs WHERE LevelId=" + Trim(TmpId)
  End If
  Set rs = QueryExt(SqlStmt)
  If rs.EOF Then
    HaveIds = False
  Else
    HaveIds = True
  End If
End Function