testcase.cls

来自「本系统实现了软件项目开发的流程管理和控制」· CLS 代码 · 共 120 行

VERSION 1.0 CLASS
BEGIN
  MultiUse = -1  'True
  Persistable = 0  'NotPersistable
  DataBindingBehavior = 0  'vbNone
  DataSourceBehavior  = 0  'vbNone
  MTSTransactionMode  = 0  'NotAnMTSObject
END
Attribute VB_Name = "TestCase"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = True
Attribute VB_PredeclaredId = False
Attribute VB_Exposed = False
'1 CaseId  Int 案例编号
'2 ProjId  Int 项目编号
'3 Title Varchar 40  标题
'4 Step  Varchar 600 测试步骤
'5 Result  Varchar 200 期望结果
'6 Author  Varchar 50  作者
'7 CreateDate  Varchar 10  创建日期

Public CaseId As Long
Public ProjId As Long
Public Title As String
Public Step As String
Public Result As String
Public Author As String
Public CreateDate As String

Public Sub Init()
  CaseId = 0
  ProjId = 0
  Title = ""
  Step = ""
  Result = ""
  Author = ""
  CreateDate = ""
End Sub

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

  DB_Disconnect
End Sub

Public Sub GetInfo(ByVal TmpCaseId As Long)
  CaseId = TmpCaseId
  If TmpCaseId <= 0 Then
    Init
    Exit Sub
  End If
  DB_Connect
  
  SqlStmt = "SELECT * FROM TestCase WHERE CaseId=" _
          + Trim(Str(TmpCaseId))
  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)
    Step = TrimStr(ColVal)
  
    ColVal = String(400, 0)
    Rc = SQLGetData(Hstmt, 5, 1, ColVal, Len(ColVal), pcblen)
    Result = TrimStr(ColVal)
  
    ColVal = String(400, 0)
    Rc = SQLGetData(Hstmt, 6, 1, ColVal, Len(ColVal), pcblen)
    Author = TrimStr(ColVal)
  
    ColVal = String(400, 0)
    Rc = SQLGetData(Hstmt, 7, 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 TestCase (ProjId, Title, Step," _
          + " Result, Author, CreateDate) VALUES(" + Trim(Str(ProjId)) _
          + ",'" + Trim(Title) + "','" + Trim(Step) + "','" _
          + Trim(Result) + "','" + Trim(Author) + "','" + Trim(CreateDate) + "')"
  OdbcExt (SqlStmt)
  Rc = SQLFreeStmt(Hstmt, SQL_DROP)
  DB_Disconnect
End Sub

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