taskrec.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 Sub Insert()
  DB_Connect
  
  SqlStmt = "INSERT INTO Report (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 TmpReportId As Long)
  DB_Connect
    
  SqlStmt = "UPDATE Report SET Title='" + Trim(Title) _
          + "',Body='" + Trim(Body) + "',Author='" _
          + Trim(Author) + "',CreateDate='" + Trim(CreateDate) _
          + "' WHERE ReportId='" + Trim(Str(TmpReportId))
  OdbcExt (SqlStmt)
  Rc = SQLFreeStmt(Hstmt, SQL_DROP)
  DB_Disconnect
End Sub