srvtask.cls

来自「售后服务管理系统,采用VB+SQL实现,包含源程序及数据库备份,完美运行,完整无」· CLS 代码 · 共 128 行

VERSION 1.0 CLASS
BEGIN
  MultiUse = -1  'True
  Persistable = 0  'NotPersistable
  DataBindingBehavior = 0  'vbNone
  DataSourceBehavior  = 0  'vbNone
  MTSTransactionMode  = 0  'NotAnMTSObject
END
Attribute VB_Name = "SrvTask"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = True
Attribute VB_PredeclaredId = False
Attribute VB_Exposed = False
Public TaskId As Long
Public ProId As Long
Public StartDate As String
Public EndDate As String
Public SolveWay As String
Public Place As String
Public Detail As String
Public LostMemo As String

Public Sub Init()
  TaskId = 0
  ProId = 0
  StartDate = ""
  EndDate = ""
  SolveWay = ""
  Place = ""
  Detail = ""
  LostMemo = ""
End Sub

Public Sub Delete(ByVal TmpTaskId As Long)
  SqlStmt = "DELETE FROM SrvTask WHERE TaskId=" _
         + Trim(Str(TmpTaskId))
  SQLExt (SqlStmt)
End Sub

'判断是否存在某个问题的解决记录
Public Function In_DB(ByVal TmpProId As Long) As Boolean
  Dim rs As New ADODB.Recordset
 
  SqlStmt = "SELECT TaskId FROM SrvTask WHERE ProId=" + Trim(TmpProId)
  Set rs = QueryExt(SqlStmt)
  If Not rs.EOF Then
    In_DB = True
  Else
    In_DB = False
  End If
End Function

Public Sub GetInfo(ByVal TmpTaskId As Long)
  TaskId = TmpTaskId
  If TmpTaskId <= 0 Then
    Init
    Exit Sub
  End If
  Dim rs As New ADODB.Recordset '定义结果集对象
  
  SqlStmt = "SELECT * FROM SrvTask WHERE TaskId=" _
          + Trim(Str(TmpTaskId))
  Set rs = QueryExt(SqlStmt)
  If Not rs.EOF Then
    If IsNull(rs.Fields(1)) Then
      ProId = 0
    Else
      ProId = rs.Fields(1)
    End If
    If IsNull(rs.Fields(2)) Then
      StartDate = ""
    Else
      StartDate = Trim(rs.Fields(2))
    End If
    If IsNull(rs.Fields(3)) Then
      EndDate = ""
    Else
      EndDate = Trim(rs.Fields(3))
    End If
    If IsNull(rs.Fields(4)) Then
      SolveWay = ""
    Else
      SolveWay = Trim(rs.Fields(4))
    End If
    If IsNull(rs.Fields(5)) Then
      Place = ""
    Else
      Place = Trim(rs.Fields(5))
    End If
    If IsNull(rs.Fields(6)) Then
      Detail = ""
    Else
      Detail = Trim(rs.Fields(6))
    End If
    If IsNull(rs.Fields(7)) Then
      LostMemo = ""
    Else
      LostMemo = Trim(rs.Fields(7))
    End If
  Else
    Init
  End If
End Sub

Public Sub Insert()
  '设置INSERT语句
  SqlStmt = "INSERT INTO SrvTask VALUES(" _
          + Trim(Str(ProId)) + ",'" + Trim(StartDate) + "','" _
          + Trim(EndDate) + "','" + Trim(SolveWay) + "','" + Trim(Place) _
          + "','" + Trim(Detail) + "','" + Trim(LostMemo) + "')"
  '执行SQL语句
  SQLExt (SqlStmt)
End Sub

'更新数据
Public Sub Update(ByVal TmpTaskId As Long)
  '设置UPDATE语句
  SqlStmt = "UPDATE SrvTask SET StartDate='" + Trim(StartDate) _
          + "',EndDate='" + Trim(EndDate) + "',SolveWay='" _
          + Trim(SolveWay) + "',Place='" + Trim(Place) _
          + "',Detail='" + Trim(Detail) + "',LostMemo='" _
          + Trim(LostMemo) + "' WHERE TaskId=" + Trim(Str(TmpTaskId))
  '执行SQL语句
  SQLExt (SqlStmt)
End Sub