srvdespatch.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 = "SrvDespatch"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = True
Attribute VB_PredeclaredId = False
Attribute VB_Exposed = False
Public ProId As Long
Public DespUser As String
Public RespUser As String
Public DespSuggest As String
Public DespDate As String
Public PostDate As String

Public Sub Init()
  ProId = 0
  DespUser = ""
  RespUser = ""
  DespSuggest = ""
  DespDate = ""
  PostDate = ""
End Sub
'删除数据
Public Sub Delete(ByVal TmpProId As Long)
  SqlStmt = "DELETE FROM SrvDespatch WHERE ProId=" + Trim(Str(TmpProId))
  SQLExt (SqlStmt)
End Sub

Public Sub GetInfo(ByVal TmpProId As Long)
  Dim rs As New ADODB.Recordset '定义结果集对象
  '设置问题编号
  ProId = TmpProId
  '设置SELECT语句
  SqlStmt = "SELECT * FROM SrvDespatch WHERE ProId=" _
          + Trim(Str(TmpProId))
  '执行SQL语句
  Set rs = QueryExt(SqlStmt)
  If Not rs.EOF Then
    '项目主管姓名
    If IsNull(rs.Fields(1)) Then
      DespUser = ""
    Else
      DespUser = Trim(rs.Fields(1))
    End If
    '负责工程师姓名
    If IsNull(rs.Fields(2)) Then
      RespUser = ""
    Else
      RespUser = Trim(rs.Fields(2))
    End If
    If IsNull(rs.Fields(3)) Then
      DespSuggest = ""
    Else
      DespSuggest = Trim(rs.Fields(3))
    End If
    If IsNull(rs.Fields(4)) Then
      DespDate = ""
    Else
      DespDate = Trim(rs.Fields(4))
    End If
    If IsNull(rs.Fields(5)) Then
      PostDate = ""
    Else
      PostDate = Trim(rs.Fields(5))
    End If
  Else
    Init
  End If
End Sub

Public Sub Insert()
  PostDate = Format(Now, "yyyy-mm-dd")
  DespDate = DateAdd("d", 3, PostDate)
  SqlStmt = "INSERT INTO SrvDespatch VALUES(" + Trim(ProId) + ",'" _
      + Trim(DespUser) + "','','','" + Trim(DespDate) + "','" + Trim(PostDate) + "')"
  SQLExt (SqlStmt)
End Sub

'更新数据
Public Sub Update(ByVal TmpProId As Long)
  SqlStmt = "UPDATE SrvDespatch SET RespUser='" + Trim(RespUser) _
          + "',DespSuggest='" + Trim(DespSuggest) + "',DespDate='" _
          + Trim(DespDate) + "' WHERE ProId=" + Trim(Str(TmpProId))
  SQLExt (SqlStmt)
End Sub