srvinvestigate.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 = "SrvInvestigate"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = True
Attribute VB_PredeclaredId = False
Attribute VB_Exposed = False
'1   InvId   int IDENTITY(1,1) NOT NULL ,
'2   ProId   int NOT NULL,   --问题编号
'3   CustId  int,        --客户编号
'4   Contact    int,        --被调查人
'5   InvDate VarChar(20), --调查日期
'6   InvWay VarChar(20), --调查方式
'7   Evaluate VarChar(200), --总体评价
'8   Summary VarChar(500) - -客户意见和建议
'9   Poster varchar(40) --调查人

Public InvId As Long
Public ProId As Long
Public CustId As Long
Public Contact As String
Public InvDate As String
Public InvWay As String
Public Evaluate As String
Public Summary As String
Public Poster As String

Public Sub Init()
  InvId = 0
  ProId = 0
  CustId = 0
  Contact = ""
  InvDate = ""
  InvWay = ""
  Evaluate = ""
  Summary = ""
  Poster = ""
End Sub

Public Sub Delete(ByVal TmpInvId As Long)
  SqlStmt = "DELETE FROM SrvInvestigate WHERE InvId=" + Trim(TmpInvId)
  SQLExt (SqlStmt)
End Sub
Public Sub GetInfo(ByVal TmpInvId As Long)
  InvId = TmpInvId
  If TmpInvId <= 0 Then
    Init
    Exit Sub
  End If
  Dim rs As New ADODB.Recordset '定义结果集对象
 
  SqlStmt = "SELECT * FROM SrvInvestigate WHERE InvId=" _
          + Trim(Str(TmpInvId))
  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
      CustId = 0
    Else
      CustId = rs.Fields(2)
    End If
    If IsNull(rs.Fields(3)) Then
      Contact = ""
    Else
      Contact = Trim(rs.Fields(3))
    End If
    If IsNull(rs.Fields(4)) Then
      InvDate = ""
    Else
      InvDate = Trim(rs.Fields(4))
    End If
    If IsNull(rs.Fields(5)) Then
      InvWay = ""
    Else
      InvWay = Trim(rs.Fields(5))
    End If
    If IsNull(rs.Fields(6)) Then
      Evaluate = ""
    Else
      Evaluate = Trim(rs.Fields(6))
    End If
    If IsNull(rs.Fields(7)) Then
      Summary = ""
    Else
      Summary = Trim(rs.Fields(7))
    End If
    If IsNull(rs.Fields(8)) Then
      Poster = ""
    Else
      Poster = Trim(rs.Fields(8))
    End If
  Else
    Init
  End If
End Sub

Public Sub Insert()
  SqlStmt = "INSERT INTO SrvInvestigate VALUES(" + Trim(ProId) + "," + Trim(CustId) _
          + ",'" + Trim(Contact) + "','" + Trim(InvDate) + "','" + Trim(InvWay) + "','" _
          + Trim(Evaluate) + "','" _
          + Trim(Summary) + "','" + Trim(Poster) + "')"
  SQLExt (SqlStmt)
End Sub

'更新数据
Public Sub Update(ByVal TmpInvId As Long)
  SqlStmt = "UPDATE SrvInvestigate SET ProId=" + Trim(ProId) _
          + ",CustId=" + Trim(CustId) + ",Contact='" + Trim(Contact) _
          + "',InvDate='" + Trim(InvDate) + "',InvWay='" _
          + Trim(InvWay) + "',Evaluate='" + Trim(Evaluate) + "',Summary='" _
          + Trim(Summary) + "',Poster='" + Trim(Poster) + "' WHERE InvId=" _
          + Trim(Str(TmpInvId))
  SQLExt (SqlStmt)
End Sub