srvfaq.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 = "SrvFaq"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = True
Attribute VB_PredeclaredId = False
Attribute VB_Exposed = False
'1   FaqId   int IDENTITY(1,1) NOT NULL ,
'2   Title VarChar(200),        --题目
'3   TypeId    int,              --问题类型
'4   Poster  varchar(50),              --创建者
'5   CreateDate   datetime,         --创建日期
'6   Detail VarChar(4000)           --问题描述

Public FaqId As Long
Public Title As String
Public TypeId As Long
Public Poster As String
Public Createdate As String
Public Detail As String

Public Sub Init()
  FaqId = 0
  Title = ""
  TypeId = 0
  Poster = ""
  Createdate = ""
  Detail = ""
End Sub
'删除数据
Public Sub Delete(ByVal TmpFaqId As Long)
  SqlStmt = "DELETE FROM SrvFaq WHERE FaqId=" + Trim(Str(TmpFaqId))
  SQLExt (SqlStmt)
End Sub
Public Sub GetInfo(ByVal TmpFaqId As Long)
  Dim rs As New ADODB.Recordset '定义结果集对象
  '设置问题编号
  FaqId = TmpFaqId
  '设置SELECT语句
  SqlStmt = "SELECT * FROM SrvFAQ WHERE FaqId=" _
          + Trim(Str(TmpFaqId))
  '执行SQL语句
  Set rs = QueryExt(SqlStmt)
  If Not rs.EOF Then
    '项目主管姓名
    If IsNull(rs.Fields(1)) Then
      Title = ""
    Else
      Title = Trim(rs.Fields(1))
    End If
    '负责工程师姓名
    If IsNull(rs.Fields(2)) Then
      TypeId = 0
    Else
      TypeId = rs.Fields(2)
    End If
    If IsNull(rs.Fields(3)) Then
      Poster = ""
    Else
      Poster = Trim(rs.Fields(3))
    End If
    If IsNull(rs.Fields(4)) Then
      Createdate = ""
    Else
      Createdate = Trim(rs.Fields(4))
    End If
    If IsNull(rs.Fields(5)) Then
      Detail = ""
    Else
      Detail = Trim(rs.Fields(5))
    End If
  Else
    Init
  End If
End Sub

Public Sub Insert()
  Createdate = Format(Now, "yyyy-mm-dd")
  SqlStmt = "INSERT INTO SrvFAQ VALUES('" + Trim(Title) + "'," + Trim(TypeId) + ",'" _
        + Trim(Poster) + "','" + Trim(Createdate) + "','" + Trim(Detail) + "')"
  SQLExt (SqlStmt)
End Sub

'更新数据
Public Sub Update(ByVal TmpFaqId As Long)
  SqlStmt = "UPDATE SrvFAQ SET TypeId=" + Trim(TypeId) _
          + ",Title='" + Trim(Title) + "',Detail='" + Trim(Detail) _
          + "' WHERE FaqId=" + Trim(Str(TmpFaqId))
  SQLExt (SqlStmt)
End Sub