team.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 = "Team"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = True
Attribute VB_PredeclaredId = False
Attribute VB_Exposed = False
'1 ProjId  Int 项目编号
'2 Ename Varchar 50  员工姓名
'3 Title Varchar 50  职务（组长、开发工程师、测试工程师、质量控制工程师）

Public ProjId As Long
Public Ename As String
Public Title As String

Public Sub Init()
  ProjId = 0
  Ename = ""
  Title = ""
End Sub

'删除
Public Sub Delete(ByVal TmpProjId As Long, ByVal TmpName As String)
  DB_Connect
  
  SqlStmt = "DELETE FROM Team WHERE ProjId=" + Trim(TmpProjId) _
          + " And Ename='" + Trim(TmpName) + "'"
  OdbcExt (SqlStmt)
  Rc = SQLFreeStmt(Hstmt, SQL_DROP)

  DB_Disconnect
End Sub

Public Function GetTitle(ByVal TmpProjId As Long, ByVal TmpName As String) As String
  DB_Connect
  
  SqlStmt = "SELECT Title FROM Team WHERE ProjId=" + Trim(Str(TmpProjId)) _
          + " And Ename='" + Trim(TmpName) + "'"
  OdbcExt (SqlStmt)
  If SQLFetch(Hstmt) <> SQL_NO_DATA_FOUND Then
    ColVal = String(400, 0)
    Rc = SQLGetData(Hstmt, 1, 1, ColVal, Len(ColVal), pcblen)
    GetTitle = TrimStr(ColVal)
  Else
    GetTitle = ""
  End If
  Rc = SQLFreeStmt(Hstmt, SQL_DROP)
  
  DB_Disconnect
End Function

Public Function In_DB(ByVal TmpProjId As Long, _
                      ByVal TmpName As String) As Boolean
  DB_Connect
  
  SqlStmt = "SELECT * FROM Team WHERE ProjId=" + Trim(TmpProjId) _
          + " And Ename='" + Trim(TmpName) + "'"
  OdbcExt (SqlStmt)
  If SQLFetch(Hstmt) = SQL_NO_DATA_FOUND Then
    In_DB = False
  Else
    In_DB = True
  End If
  Rc = SQLFreeStmt(Hstmt, SQL_DROP)

  DB_Disconnect
End Function

Public Sub Insert()
  DB_Connect
  
  SqlStmt = "INSERT INTO Team VALUES(" _
          + Trim(Str(ProjId)) + ",'" + Trim(Ename) + "','" _
          + Trim(Title) + "')"
  OdbcExt (SqlStmt)
  Rc = SQLFreeStmt(Hstmt, SQL_DROP)
  DB_Disconnect
End Sub

'更新数据
Public Sub Update(ByVal TmpProjId As Long)
  DB_Connect
    
  SqlStmt = "UPDATE Team SET Title='" + Trim(Title) _
          + "' WHERE ProjId=" + Trim(Str(TmpProjId))
  OdbcExt (SqlStmt)
  Rc = SQLFreeStmt(Hstmt, SQL_DROP)
  DB_Disconnect
End Sub