prtable.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 = "PrTable"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = True
Attribute VB_PredeclaredId = False
Attribute VB_Exposed = False
'1 PrId  Int 错误编号
'2 ProjId  Int 项目编号
'3 PrLevel Tinyint 错误级别
'4 Title Varchar 40  标题
'5 Body  Varchar 600 错误描述
'6 Modules Varchar 50  所属模块
'7 Status  Varchar 10  当前状态（开放、已修改、关闭）
'8 SoftEng Varchar 50  软件开发责任人
'9 Author  Varchar 50  报错人
'10  CreateDate  Varchar 10  创建日期

Public PrId As Long
Public ProjId As Long
Public PrLevel As Integer
Public Title As String
Public Body As String
Public Modules As String
Public Status As String
Public SoftEng As String
Public Author As String
Public CreateDate As String

Public Sub Init()
  PrId = 0
  ProjId = 0
  PrLevel = ""
  Title = ""
  Body = ""
  Modules = ""
  Status = ""
  SoftEng = ""
  Author = ""
  CreateDate = ""
End Sub

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

  DB_Disconnect
End Sub

Public Sub GetInfo(ByVal TmpPrId As Long)
  PrId = TmpPrId
  '连接数据库
  DB_Connect
  '设置读取问题数据的SQL语句
  SqlStmt = "SELECT * FROM PrTable WHERE PrId=" + Trim(Str(TmpPrId))
  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(40, 0)
    Rc = SQLGetData(Hstmt, 3, 1, ColVal, Len(ColVal), pcblen)
    PrLevel = Val(ColVal)
    '问题标题
    ColVal = String(400, 0)
    Rc = SQLGetData(Hstmt, 4, 1, ColVal, Len(ColVal), pcblen)
    Title = TrimStr(ColVal)
    '问题描述
    ColVal = String(700, 0)
    Rc = SQLGetData(Hstmt, 5, 1, ColVal, Len(ColVal), pcblen)
    Body = TrimStr(ColVal)
    '所属模块
    ColVal = String(400, 0)
    Rc = SQLGetData(Hstmt, 6, 1, ColVal, Len(ColVal), pcblen)
    Modules = TrimStr(ColVal)
    '问题的当前状态
    ColVal = String(40, 0)
    Rc = SQLGetData(Hstmt, 7, 1, ColVal, Len(ColVal), pcblen)
    Status = TrimStr(ColVal)
    '负责此问题的软件工程师
    ColVal = String(400, 0)
    Rc = SQLGetData(Hstmt, 8, 1, ColVal, Len(ColVal), pcblen)
    SoftEng = TrimStr(ColVal)
    '报错人
    ColVal = String(400, 0)
    Rc = SQLGetData(Hstmt, 9, 1, ColVal, Len(ColVal), pcblen)
    Author = TrimStr(ColVal)
    '报错日期
    ColVal = String(400, 0)
    Rc = SQLGetData(Hstmt, 10, 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
  CreateDate = Format(Now, "yyyy-mm-dd")
  SqlStmt = "INSERT INTO PrTable (ProjId, PrLevel, Title, Body, Modules, Status," _
          + " SoftEng, Author, CreateDate) VALUES(" + Trim(Str(ProjId)) + "," _
          + Trim(PrLevel) + ",'" + Trim(Title) + "','" _
          + Trim(Body) + "','" + Trim(Modules) + "','开放','" _
          + Trim(SoftEng) + "','" + Trim(Author) + "','" + Trim(CreateDate) + "')"
  OdbcExt (SqlStmt)
  Rc = SQLFreeStmt(Hstmt, SQL_DROP)
  DB_Disconnect
End Sub

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

'更新状态数据
Public Sub UpdateStatus(ByVal TmpPrId As Long)
  DB_Connect
    
  SqlStmt = "UPDATE PrTable SET Status='" + Trim(Status) _
          + "' WHERE PrId=" + Trim(TmpPrId)
  OdbcExt (SqlStmt)
  Rc = SQLFreeStmt(Hstmt, SQL_DROP)
  DB_Disconnect
End Sub