salechance.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 = "SaleChance"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = True
Attribute VB_PredeclaredId = False
Attribute VB_Exposed = False
'只有客户管理员才可以编辑新的商业机会，并设置终止、运行和结束
Public Id As String
Public CustId As Long
Public CtId As Long
Public PName As String
Public PTypeId As Integer
Public EmpId As Integer
Public SignDate As String
Public SignSum As Double
Public PPercent As String
Public Status As String
Public Detail As String
Public CreateDate As String
Public Poster As String

Public Sub Init()
  Id = ""
  CustId = 0
  CtId = 0
  PName = ""
  PTypeId = 0
  EmpId = 0
  SignDate = ""
  SignSum = 0
  PPercent = "0%"
  Status = ""
  Detail = ""
  CreateDate = ""
  Poster = ""
End Sub

Public Sub Delete(ByVal TmpId As String)
  SqlStmt = "DELETE FROM SaleChance WHERE Id='" + Trim(TmpId) + "'"
  SQLExt (SqlStmt)
End Sub

'获取指定的商业机会信息
Public Sub GetInfo(ByVal TmpId As String)
  Dim rs As New ADODB.Recordset
  
  Id = TmpId
    
  SqlStmt = "SELECT * FROM SaleChance WHERE Id='" + Trim(TmpId) + "'"
  Set rs = QueryExt(SqlStmt)
  If Not rs.EOF Then
    CustId = rs.Fields(1)
    CtId = rs.Fields(2)
    PName = Trim(rs.Fields(3))
    
    If IsNull(rs.Fields(4)) Then
      PTypeId = 0
    Else
      PTypeId = rs.Fields(4)
    End If
    If IsNull(rs.Fields(5)) Then
      EmpId = 0
    Else
      EmpId = rs.Fields(5)
    End If
    If IsNull(rs.Fields(6)) Then
      SignDate = ""
    Else
      SignDate = Trim(rs.Fields(6))
    End If
   If IsNull(rs.Fields(7)) Then
      SignSum = 0
    Else
      SignSum = Trim(rs.Fields(7))
    End If
    If IsNull(rs.Fields(8)) Then
      PPercent = ""
    Else
      PPercent = Trim(rs.Fields(8))
    End If

    If IsNull(rs.Fields(9)) Then
      Status = ""
    Else
      Status = 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
      CreateDate = ""
    Else
      CreateDate = Trim(rs.Fields(11))
    End If

    If IsNull(rs.Fields(12)) Then
      Poster = ""
    Else
      Poster = Trim(rs.Fields(12))
    End If
  Else
    Init
  End If
End Sub
'判断指定商业机会编号信息是否存在
Public Function In_DB(ByVal TmpId As String) As Boolean
  Dim rs As New ADODB.Recordset
  
  SqlStmt = "SELECT * FROM SaleChance WHERE Id='" _
          + Trim(TmpId) + "'"
  Set rs = QueryExt(SqlStmt)
  If Not rs.EOF Then
    In_DB = True
  Else
    In_DB = False
  End If
End Function
Public Sub Insert()
  SqlStmt = "INSERT INTO SaleChance(Id,CustId,CtId,ProName,PTypeId,EmpId,SignDate,SignSum," _
          + "PPercent,Status,Detail,CreateDate,Poster) " _
          + " Values('" + Trim(Id) + "'," _
          + Trim(Str(CustId)) + "," + Trim(Str(CtId)) + ",'" _
          + Trim(PName) + "'," + Trim(PTypeId) + "," + Trim(EmpId) _
          + ",'" + Trim(SignDate) + "'," + Trim(SignSum) + ",'" _
          + Trim(PPercent) + "','" + Trim(Status) + "','" + Trim(Detail) _
          + "','" + Trim(CreateDate) + "','" + Trim(Poster) + "')"
  SQLExt (SqlStmt)
End Sub

Public Sub Update(ByVal OriId As String)
  SqlStmt = "UPDATE SaleChance SET CustId=" + Trim(Str(CustId)) _
          + ",CtId=" + Trim(CtId) + ",ProName='" + Trim(PName) _
          + "',PTypeid=" + Trim(PTypeId) _
          + ",EmpId=" + Trim(Str(EmpId)) + ",SignDate='" _
          + Trim(SignDate) + "',SignSum=" + Trim(SignSum) + ",PPercent='" _
          + Trim(PPercent) + "',Status='" + Trim(Status) _
          + "',Detail='" + Trim(Detail) + "'" _
          + " WHERE Id='" + Trim(OriId) + "'"
  SQLExt (SqlStmt)
End Sub

'更改状态：进行中、中止、结束
Public Sub UpdateStatus(ByVal OriId As String)
  SqlStmt = "UPDATE SaleChance SET Status='" + Trim(Status) _
          + "' WHERE Id='" + Trim(OriId) + "'"
  SQLExt (SqlStmt)
End Sub

Public Function HaveCustomer(ByVal TmpCustId As Long) As Boolean
  Dim rs As New ADODB.Recordset
  
  SqlStmt = "SELECT CustId FROM SaleChance WHERE CustId=" _
          + Trim(Str(TmpCustId))
  Set rs = QueryExt(SqlStmt)
  If Not rs.EOF Then
    HaveCustomer = True
  Else
    HaveCustomer = False
  End If
End Function