report.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 = "Report"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = True
Attribute VB_PredeclaredId = False
Attribute VB_Exposed = False
'1 ReportId  Int 报告编号
'2 ProjId  Int 项目编号
'3 Title Varchar 100 标题
'4 Body  Varchar 1000  内容
'5 Author  Varchar 50  作者
'6 CreateDate  Varchar 10  写作日期

Public ReportId 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()
  ReportId = 0
  ProjId = 0
  Title = ""
  Body = ""
  Author = ""
  CreateDate = ""
End Sub

Public Sub Delete(ByVal TmpReportId As Long)
  DB_Connect
  
  SqlStmt = "DELETE FROM Report WHERE ReportId=" _
         + Trim(Str(TmpReportId))
  OdbcExt (SqlStmt)
  
  Rc = SQLFreeStmt(Hstmt, SQL_DROP)
  DB_Disconnect
End Sub

Public Sub GetInfo(ByVal TmpReportId As Long)
  ReportId = TmpReportId
  If TmpReportId <= 0 Then
    Init
    Exit Sub
  End If
  DB_Connect
  
  SqlStmt = "SELECT * FROM Report WHERE ReportId=" _
          + Trim(Str(TmpReportId))
  OdbcExt (SqlStmt)
  If SQLFetch(Hstmt) <> SQL_NO_DATA_FOUND Then
    ColVal = String(400, 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(400, 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 Report 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
  '设置INSERT语句
  SqlStmt = "INSERT INTO Report (ProjId, Title, Body," _
          + "Author, CreateDate) VALUES(" + Trim(Str(ProjId)) _
          + ",'" + Trim(Title) + "','" + Trim(Body) + "','" _
          + Trim(Author) + "','" + Trim(CreateDate) + "')"
  '执行INSERT语句
  OdbcExt (SqlStmt)
  Rc = SQLFreeStmt(Hstmt, SQL_DROP)
  '断开与数据库的连接
  DB_Disconnect
End Sub

'更新数据
Public Sub Update(ByVal TmpReportId As Long)
  '连接数据库
  DB_Connect
  '设置UPDATE语句
  SqlStmt = "UPDATE Report SET Title='" + Trim(Title) _
          + "',Body='" + Trim(Body) + "',Author='" _
          + Trim(Author) + "',CreateDate='" + Trim(CreateDate) _
          + "' WHERE ReportId=" + Trim(Str(TmpReportId))
  '执行UPDATE语句
  OdbcExt (SqlStmt)
  Rc = SQLFreeStmt(Hstmt, SQL_DROP)
  '断开与数据库的连接
  DB_Disconnect
End Sub