taskrec.cls

来自「Visual Basic + Oracle 9i数据库应用系统开发与实例(项目售」· CLS 代码 · 共 134 行

VERSION 1.0 CLASS
BEGIN
  MultiUse = -1  'True
  Persistable = 0  'NotPersistable
  DataBindingBehavior = 0  'vbNone
  DataSourceBehavior  = 0  'vbNone
  MTSTransactionMode  = 0  'NotAnMTSObject
END
Attribute VB_Name = "TaskRec"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = True
Attribute VB_PredeclaredId = False
Attribute VB_Exposed = False
'1 TaskId  Int 任务编号
'2 PrId  Int 问题记录编号
'3 Sdate Varchar 20  开始日期
'4 Edate Varchar 20  结束日期
'5 Rway  Varchar 200 解决方式
'6 Rplace  Varchar 50  工作地点
'7 Rdescribe Varchar 300 工作描述
'8 Rlost Varchar 300 遗留问题

Public TaskId As Long
Public PrId As Long
Public Sdate As String
Public Edate As String
Public Rway As String
Public Rplace As String
Public Rdescribe As String
Public Rlost As String

Public Sub Init()
  TaskId = 0
  PrId = 0
  Sdate = ""
  Edate = ""
  Rway = ""
  Rplace = ""
  Rdescribe = ""
  Rlost = ""
End Sub

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

Public Sub GetInfo(ByVal TmpTaskId As Long)
  TaskId = TmpTaskId
  If TmpTaskId <= 0 Then
    Init
    Exit Sub
  End If
  DB_Connect
  
  SqlStmt = "SELECT * FROM TaskRec WHERE TaskId=" _
          + Trim(Str(TmpTaskId))
  OdbcExt (SqlStmt)
  If SQLFetch(Hstmt) <> SQL_NO_DATA_FOUND Then
    ColVal = String(400, 0)
    Rc = SQLGetData(Hstmt, 2, 1, ColVal, Len(ColVal), pcblen)
    PrId = Val(ColVal)
    
    ColVal = String(400, 0)
    Rc = SQLGetData(Hstmt, 3, 1, ColVal, Len(ColVal), pcblen)
    Sdate = TrimStr(ColVal)
    
    ColVal = String(400, 0)
    Rc = SQLGetData(Hstmt, 4, 1, ColVal, Len(ColVal), pcblen)
    Edate = TrimStr(ColVal)
    
    ColVal = String(400, 0)
    Rc = SQLGetData(Hstmt, 5, 1, ColVal, Len(ColVal), pcblen)
    Rway = TrimStr(ColVal)
    
    ColVal = String(400, 0)
    Rc = SQLGetData(Hstmt, 6, 1, ColVal, Len(ColVal), pcblen)
    Rplace = TrimStr(ColVal)
  
    ColVal = String(400, 0)
    Rc = SQLGetData(Hstmt, 7, 1, ColVal, Len(ColVal), pcblen)
    Rdescribe = TrimStr(ColVal)
    
    ColVal = String(400, 0)
    Rc = SQLGetData(Hstmt, 8, 1, ColVal, Len(ColVal), pcblen)
    Rlost = TrimStr(ColVal)
  Else
    Init
  End If
  Rc = SQLFreeStmt(Hstmt, SQL_DROP)
  
  DB_Disconnect
End Sub

Public Sub Insert()
  '连接到数据库
  DB_Connect
  '设置INSERT语句
  SqlStmt = "INSERT INTO TaskRec VALUES( TASKID.NEXTVAL, " _
          + Trim(Str(PrId)) + ",'" + Trim(Sdate) + "','" _
          + Trim(Edate) + "','" + Trim(Rway) + "','" + Trim(Rplace) _
          + "','" + Trim(Rdescribe) + "','" + Trim(Rlost) + "')"
  '执行SQL语句
  OdbcExt (SqlStmt)
  Rc = SQLFreeStmt(Hstmt, SQL_DROP)
  '断开与数据库的连接
  DB_Disconnect
End Sub

'更新数据
Public Sub Update(ByVal TmpTaskId As Long)
  '连接到数据库
  DB_Connect
  '设置UPDATE语句
  SqlStmt = "UPDATE TaskRec SET Sdate='" + Trim(Sdate) _
          + "',Edate='" + Trim(Edate) + "',Rway='" _
          + Trim(Rway) + "',Rplace='" + Trim(Rplace) _
          + "',Rdescribe='" + Trim(Rdescribe) + "',Rlost='" _
          + Trim(Rlost) + "' WHERE TaskId=" + Trim(Str(TmpTaskId))
  '执行SQL语句
  OdbcExt (SqlStmt)
  Rc = SQLFreeStmt(Hstmt, SQL_DROP)
  '断开与数据库的连接
  DB_Disconnect
End Sub