summary.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 = "Summary"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = True
Attribute VB_PredeclaredId = False
Attribute VB_Exposed = False
'1 SumId Int 总结编号
'2 ProjId  Int 项目编号
'3 Title Varchar 40  标题
'4 Body  Varchar 600 总结内容
'5 Author  Varchar 50  总结人
'6 CreateDate  Varchar 10  创建日期

Public SumId As Long
Public ProjId As Long
Public Title As String
Public Body As String
Public Author As String
Public CreateDate As String

Public Sub Init()
  SumId = 0
  ProjId = 0
  Title = ""
  Body = ""
  Author = ""
  CreateDate = ""
End Sub

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

  DB_Disconnect
End Sub

Public Sub GetInfo(ByVal TmpSumId As Long)
  SumId = TmpSumId
  If TmpSumId <= 0 Then
    Init
    Exit Sub
  End If
  DB_Connect
  
  SqlStmt = "SELECT * FROM Summary WHERE SumId=" + Trim(Str(TmpSumId))
  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(400, 0)
    Rc = SQLGetData(Hstmt, 3, 1, ColVal, Len(ColVal), pcblen)
    Title = TrimStr(ColVal)
  
    ColVal = String(700, 0)
    Rc = SQLGetData(Hstmt, 4, 1, ColVal, Len(ColVal), pcblen)
    Body = TrimStr(ColVal)
    
    ColVal = String(400, 0)
    Rc = SQLGetData(Hstmt, 5, 1, ColVal, Len(ColVal), pcblen)
    Author = TrimStr(ColVal)
  
    ColVal = String(400, 0)
    Rc = SQLGetData(Hstmt, 6, 1, ColVal, Len(ColVal), pcblen)
    CreateDate = TrimStr(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 Summary 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
  CreateDate = Format(Now, "yyyy-mm-dd")
  SqlStmt = "INSERT INTO Summary (ProjId, Title, Body, Author, CreateDate) VALUES(" _
          + Trim(Str(ProjId)) + ",'" + Trim(Title) + "','" + Trim(Body) + "','" _
          + Trim(Author) + "','" + Trim(CreateDate) + "')"
  OdbcExt (SqlStmt)
  Rc = SQLFreeStmt(Hstmt, SQL_DROP)
  DB_Disconnect
End Sub

'更新数据
Public Sub Update(ByVal TmpSumId As Long)
  DB_Connect
    
  CreateDate = Format(Now, "yyyy-mm-dd")
  SqlStmt = "UPDATE Summary SET Title='" + Trim(Title) + "',Body='" _
          + Trim(Body) + "', Author='" + Trim(Author) + "', CreateDate='" _
          + Trim(CreateDate) + "' WHERE SumId=" + Trim(TmpSumId)
  OdbcExt (SqlStmt)
  Rc = SQLFreeStmt(Hstmt, SQL_DROP)
  DB_Disconnect
End Sub