document.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 = "Document"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = True
Attribute VB_PredeclaredId = False
Attribute VB_Exposed = False
'1 DocId Int 文档编号
'2 ProjId  Int 项目编号
'3 DocType Varchar 40  文档类型（需求文档 / 设计文档 / 开发文档 / 测试文档 / 质量文档/ 验收文档）
'4 Title Varchar 100 文档标题
'5 fName Varchar 100 文件名
'6 DocFile Text  文档文件
'7 Author  Varchar 50  作者
'8 SaveTime  Varchar 30  保存时间

Public DocId As Long
Public ProjId As Long
Public DocType As Integer
Public Title As String
Public fName As String
Public Author As String
Public SaveTime As String

Public Sub Init()
  DocId = 0
  ProjId = 0
  DocType = 0
  Title = ""
  fName = ""
  Author = ""
  SaveTime = ""
End Sub

'删除
Public Sub Delete(ByVal TmpDocId As Long)
  DB_Connect
  
  SqlStmt = "DELETE FROM Document WHERE DocId=" + Trim(TmpDocId)
  OdbcExt (SqlStmt)
  Rc = SQLFreeStmt(Hstmt, SQL_DROP)

  DB_Disconnect
End Sub

Public Sub GetInfo(ByVal TmpDocId As Long)
  DocId = TmpDocId
  If TmpDocId <= 0 Then
    Init
    Exit Sub
  End If
  DB_Connect
  
  SqlStmt = "SELECT * FROM Document WHERE DocId=" _
          + Trim(Str(TmpDocId))
  OdbcExt (SqlStmt)
  If SQLFetch(Hstmt) <> SQL_NO_DATA_FOUND Then
    ColVal = String(40, 0)
    Rc = SQLGetData(Hstmt, 2, 1, ColVal, Len(ColVal), pcblen)
    ProjId = Val(ColVal)
    
    ColVal = String(4, 0)
    Rc = SQLGetData(Hstmt, 3, 1, ColVal, Len(ColVal), pcblen)
    DocType = Val(ColVal)
    
    ColVal = String(400, 0)
    Rc = SQLGetData(Hstmt, 4, 1, ColVal, Len(ColVal), pcblen)
    Title = TrimStr(ColVal)
  
    ColVal = String(400, 0)
    Rc = SQLGetData(Hstmt, 5, 1, ColVal, Len(ColVal), pcblen)
    fName = TrimStr(ColVal)
  
    ColVal = String(400, 0)
    Rc = SQLGetData(Hstmt, 7, 1, ColVal, Len(ColVal), pcblen)
    Author = TrimStr(ColVal)
  
    ColVal = String(40, 0)
    Rc = SQLGetData(Hstmt, 8, 1, ColVal, Len(ColVal), pcblen)
    SaveTime = Val(ColVal)
  Else
    Init
  End If
  Rc = SQLFreeStmt(Hstmt, SQL_DROP)
  
  DB_Disconnect
End Sub

Public Function In_DB(ByVal TmpProjId As Long, _
                      ByVal TmpTitle As String) As Boolean
  DB_Connect
  
  SqlStmt = "SELECT * FROM Document WHERE ProjId=" + Trim(TmpProjId) _
          + " And Title='" + Trim(TmpTitle) + "'"
  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
  
  SaveTime = Format(Now, "yyyy-mm-dd")
  SqlStmt = "INSERT INTO Document (ProjId, DocType, Title," _
          + " fName, Author, SaveTime) VALUES(" + Trim(Str(ProjId)) _
          + ",'" + Trim(DocType) + "','" + Trim(Title) + "','','" _
          + Trim(Author) + "','" + Trim(SaveTime) + "')"
  OdbcExt (SqlStmt)
  Rc = SQLFreeStmt(Hstmt, SQL_DROP)
  DB_Disconnect
End Sub

'更新数据
Public Sub Update(ByVal TmpDocId As Long)
  DB_Connect
    
  SaveTime = Format(Now, "yyyy-mm-dd")
  SqlStmt = "UPDATE Document SET DocType='" + Trim(DocType) _
          + "', Title='" + Trim(Title) + "', Author='" + Trim(Author) + "', SaveTime='" _
          + Trim(SaveTime) + "' WHERE DocId=" + Trim(TmpDocId)
  OdbcExt (SqlStmt)
  Rc = SQLFreeStmt(Hstmt, SQL_DROP)
  DB_Disconnect
End Sub

'更新文件名数据
Public Sub UpdatefName(ByVal TmpDocId As Long, ByVal TmpName As String)
  DB_Connect
    
  SaveTime = Format(Now, "yyyy-mm-dd")
  SqlStmt = "UPDATE Document SET fName='" + Trim(TmpName) _
          + "' WHERE DocId=" + Trim(TmpDocId)
  OdbcExt (SqlStmt)
  Rc = SQLFreeStmt(Hstmt, SQL_DROP)
  DB_Disconnect
End Sub