types.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 = "Types"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = True
Attribute VB_PredeclaredId = False
Attribute VB_Exposed = False
'1 TypeId 数字 长整型 编号
'2 TypeName  文本 长度 50  类型名称、附件名称
'3 Flag  数字 字节 类型标记,
'1-表示项目类型；2-表示项目状态；3-模块状态

Public TypeId As Long
Public TypeName As String
Public Flag As Integer

Public Sub Init()
  TypeName = ""
  Flag = 1
End Sub

'删除Type
Public Sub Delete(ByVal TmpTypeId As Long)
  SqlStmt = "DELETE FROM Types WHERE TypeId=" + Trim(TmpTypeId)
  SQLExt (SqlStmt)
End Sub

Public Function In_DB(ByVal TmpTypeName As String, ByVal TmpFlag As Integer) As Boolean
  Dim rs As New ADODB.Recordset
  
  SqlStmt = "SELECT * FROM Types WHERE TypeName='" _
          + Trim(TmpTypeName) + "' AND Flag=" + Trim(Str(TmpFlag))
  Set rs = QueryExt(SqlStmt)
  If rs.EOF = True Then
    In_DB = False
  Else
    In_DB = True
  End If
End Function
Public Function GetInfo(ByVal TmpTypeId As Long) As Boolean
  Dim rs As New ADODB.Recordset  '定义结果集对象
  
  '设置SELECT语句，读取编号为TmpTypeId的记录
  SqlStmt = "SELECT * FROM Types WHERE TypeId=" + Trim(TmpTypeId)
  '将结果集读取到rs中
  Set rs = QueryExt(SqlStmt)

  If rs.EOF Then
    '如果结果集为空，则初始化
    Init
    GetInfo = False
  Else
    '将结果集中的数据赋值到成员变量中
    TypeId = TmpTypeId
   
    If IsNull(rs.Fields(1)) Then   '类型名称
      TypeName = ""
    Else
      TypeName = rs.Fields(1)
    End If
    If IsNull(rs.Fields(2)) Then  '种类编号
      Flag = 1
    Else
      Flag = rs.Fields(2)
    End If
    GetInfo = True
  End If
End Function

'插入分类
Public Sub Insert()
  SqlStmt = "INSERT INTO Types(TypeName,Flag) VALUES('" _
       + Trim(TypeName) + "'," + Trim(Flag) + ")"
  SQLExt (SqlStmt)
End Sub
'更新数据
Public Sub Update(ByVal TmpTypeId As Long)
   SqlStmt = "UPDATE Types SET TypeName='" + Trim(TypeName) _
          + "' Where TypeId = " + Trim(Str(TmpTypeId))
  SQLExt (SqlStmt)
End Sub