srvproblem.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 = "SrvProblem"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = True
Attribute VB_PredeclaredId = False
Attribute VB_Exposed = False

Public ProId As Long
Public CustId As Long
Public Contact As String
Public ProLevel As Long
Public Title As String
Public ProType As Long
Public Status As String
Public Detail As String
Public SolveDate As String
Public Poster As String
Public Createdate As String

Public Sub Init()
  ProId = 0
  CustId = 0
  Contact = ""
  ProLevel = 0
  Title = ""
  ProType = 0
  Status = ""
  Detail = ""
  SolveDate = ""
  Poster = ""
  Createdate = ""
End Sub

'删除
Public Sub Delete(ByVal TmpProId As Long)
  '设置DELETE语句
  SqlStmt = "DELETE FROM SrvProblem WHERE ProId=" _
          + Trim(Str(TmpProId))
  '执行SQL语句
  SQLExt (SqlStmt)
End Sub

Public Sub GetInfo(ByVal TmpProId As Long)
  ProId = TmpProId
  If TmpProId <= 0 Then
    Init
    Exit Sub
  End If
  Dim rs As New ADODB.Recordset '定义结果集对象
  
  SqlStmt = "SELECT * FROM SrvProblem WHERE ProId=" _
          + Trim(Str(TmpProId))
  Set rs = QueryExt(SqlStmt)
  If Not rs.EOF Then
    If IsNull(rs.Fields(1)) Then
      CustId = 0
    Else
      CustId = rs.Fields(1)
    End If
    If IsNull(rs.Fields(2)) Then
      Contact = ""
    Else
      Contact = Trim(rs.Fields(2))
    End If
    If IsNull(rs.Fields(3)) Then
      ProLevel = 0
    Else
      ProLevel = rs.Fields(3)
    End If
    If IsNull(rs.Fields(4)) Then
      Title = ""
    Else
      Title = Trim(rs.Fields(4))
    End If
    If IsNull(rs.Fields(5)) Then
      ProType = 0
    Else
      ProType = rs.Fields(5)
    End If
    If IsNull(rs.Fields(6)) Then
      Status = ""
    Else
      Status = Trim(rs.Fields(6))
    End If
     If IsNull(rs.Fields(7)) Then
      Detail = ""
    Else
      Detail = Trim(rs.Fields(7))
    End If
    If IsNull(rs.Fields(8)) Then
      SolveDate = ""
    Else
      SolveDate = Trim(rs.Fields(8))
    End If
    If IsNull(rs.Fields(9)) Then
      Poster = ""
    Else
      Poster = Trim(rs.Fields(9))
    End If
    If IsNull(rs.Fields(10)) Then
      Createdate = ""
    Else
      Createdate = Trim(rs.Fields(10))
    End If
  Else
    Init
  End If
End Sub

Public Sub Insert()
  SqlStmt = "INSERT INTO SrvProblem VALUES( " + Trim(CustId) _
          + ",'" + Trim(Contact) + "'," + Trim(ProLevel) _
          + ",'" + Trim(Title) + "'," + Trim(ProType) _
          + ",'新建','" + Trim(Detail) + "','" _
          + Trim(SolveDate) + "','" + Trim(Poster) _
          + "','" + Trim(Createdate) + "')"
  SQLExt (SqlStmt)
End Sub

'更新问题状态
Public Sub UpdateStatus(ByVal TmpProId As Long)
  SqlStmt = "UPDATE SrvProblem SET Status='" + Trim(Status) _
          + "' WHERE ProId=" + Trim(Str(TmpProId))
  SQLExt (SqlStmt)
End Sub

'更新数据
Public Sub Update(ByVal TmpProId As Long)
  SqlStmt = "UPDATE SrvProblem SET CustId=" + Trim(CustId) _
          + ",Contact='" + Trim(Contact) + "',ProLevel=" + Trim(ProLevel) _
          + ",Title='" + Trim(Title) + "',ProType=" _
          + Trim(ProType) + ",Detail='" _
          + Trim(Detail) + "',SolveDate='" + Trim(SolveDate) _
          + "' WHERE ProId=" + Trim(Str(TmpProId))
  SQLExt (SqlStmt)
End Sub