investigate.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 = "Investigate"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = True
Attribute VB_PredeclaredId = False
Attribute VB_Exposed = False
'1 ProjId  Int 项目编号
'2 Modname Varchar 50  模块名称
'3 Describe  Varchar 400 模块功能描述
'4 Ename Varchar 50  负责开发工程师

Public ProjId As Long
Public Modname As String
Public Describe As String
Public Ename As String

Public Sub Init()
  ProjId = 0
  Modname = ""
  Ename = ""
  Describe = ""
End Sub

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

  DB_Disconnect
End Sub

Public Sub GetInfo(ByVal TmpProjId As Long)
  ProjId = TmpProjId
  If TmpProjId <= 0 Then
    Init
    Exit Sub
  End If
  DB_Connect
  
  SqlStmt = "SELECT * FROM Modules WHERE ProjId=" _
          + Trim(Str(TmpProjId))
  OdbcExt (SqlStmt)
  If SQLFetch(Hstmt) <> SQL_NO_DATA_FOUND Then
    ColVal = String(400, 0)
    Rc = SQLGetData(Hstmt, 2, 1, ColVal, Len(ColVal), pcblen)
    Modname = TrimStr(ColVal)
    
    ColVal = String(400, 0)
    Rc = SQLGetData(Hstmt, 3, 1, ColVal, Len(ColVal), pcblen)
    Describe = TrimStr(ColVal)
    
    ColVal = String(400, 0)
    Rc = SQLGetData(Hstmt, 4, 1, ColVal, Len(ColVal), pcblen)
    Ename = TrimStr(ColVal)
  Else
    Init
  End If
  Rc = SQLFreeStmt(Hstmt, SQL_DROP)
  
  DB_Disconnect
End Sub

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

'更新数据
Public Sub Update(ByVal TmpProjId As Long, ByVal TmpModname As String)
  DB_Connect
    
  SqlStmt = "UPDATE Modules SET Modname='" + Trim(Modname) _
          + "',Ename='" + Trim(Ename) + "',Describe='" _
          + Trim(Describe) + "' WHERE ProjId=" _
          + Trim(Str(TmpProjId)) + " And Modname='" _
          + Trim(TmpModname) + "'"
  OdbcExt (SqlStmt)
  Rc = SQLFreeStmt(Hstmt, SQL_DROP)
  DB_Disconnect
End Sub