saletask.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 = "SaleTask"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = True
Attribute VB_PredeclaredId = False
Attribute VB_Exposed = False
Public Id As Long
Public SaleId As String
Public EmpId As Integer
Public TaskDate As String
Public TaskBy As String
Public Purpose As String
Public CtId As Integer
Public Place As String
Public StartTime As String
Public EndTime As String
Public Detail As String
Public Result As String

Public Sub Init()
  Id = 0
  SaleId = ""
  EmpId = 0
  TaskDate = ""
  TaskBy = ""
  Purpose = ""
  CtId = 0
  Place = ""
  StartTime = ""
  EndTime = ""
  Detail = ""
  Result = ""
End Sub

Public Sub Delete(ByVal TmpId As Long)
  SqlStmt = "DELETE FROM SaleTask WHERE Id=" + Trim(TmpId)
  SQLExt (SqlStmt)
End Sub

'获取指定的客户跟踪信息
Public Sub GetInfo(ByVal TmpId As Long)
  Dim rs As New ADODB.Recordset
  
  Id = TmpId
    
  SqlStmt = "SELECT * FROM SaleTask WHERE Id=" + Trim(TmpId)
  Set rs = QueryExt(SqlStmt)
  If Not rs.EOF Then
    SaleId = Trim(rs.Fields(1))
    EmpId = rs.Fields(2)
    TaskDate = Trim(rs.Fields(3))
    
    If IsNull(rs.Fields(4)) Then
      TaskBy = ""
    Else
      TaskBy = Trim(rs.Fields(4))
    End If
    If IsNull(rs.Fields(5)) Then
      Purpose = ""
    Else
      Purpose = Trim(rs.Fields(5))
    End If
    If IsNull(rs.Fields(6)) Then
      CtId = 0
    Else
      CtId = rs.Fields(6)
    End If
   If IsNull(rs.Fields(7)) Then
      Place = ""
    Else
      Place = Trim(rs.Fields(7))
    End If
    If IsNull(rs.Fields(8)) Then
      StartTime = ""
    Else
      StartTime = Trim(rs.Fields(8))
    End If

    If IsNull(rs.Fields(9)) Then
      EndTime = ""
    Else
      EndTime = Trim(rs.Fields(9))
    End If
    If IsNull(rs.Fields(10)) Then
      Detail = ""
    Else
      Detail = Trim(rs.Fields(10))
    End If
  
    If IsNull(rs.Fields(11)) Then
      Result = ""
    Else
      Result = Trim(rs.Fields(11))
    End If
  Else
    Init
  End If
End Sub
Public Sub Insert()
  SqlStmt = "INSERT INTO SaleTask(SaleId,EmpId,TaskDate,TaskBy,Purpose,CtId," _
          + "Place,StartTime,EndTime,Detail,Result) Values('" + Trim(SaleId) + "'," _
          + Trim(Str(EmpId)) + ",'" + Trim(TaskDate) + "','" _
          + Trim(TaskBy) + "','" + Trim(Purpose) + "'," + Trim(CtId) _
          + ",'" + Trim(Place) + "','" + Trim(StartTime) + "','" _
          + Trim(EndTime) + "','" + Trim(Detail) + "','" _
          + Trim(Result) + "')"
  SQLExt (SqlStmt)
End Sub

Public Sub Update(ByVal OriId As Long)
  SqlStmt = "UPDATE SaleTask SET EmpId=" + Trim(Str(EmpId)) _
          + ",TaskDate='" + Trim(TaskDate) + "',TaskBy='" + Trim(TaskBy) _
          + "',Purpose='" + Trim(Purpose) + "',Place='" + Trim(Place) _
          + "',StartTime='" + Trim(StartTime) + "',EndTime='" + Trim(EndTime) _
          + "',Detail='" + Trim(Detail) + "',Result='" + Trim(Result) + "'" _
          + " WHERE Id=" + Trim(OriId)
  SQLExt (SqlStmt)
End Sub