VERSION 1.0 CLASS
BEGIN
  MultiUse = -1  'True
  Persistable = 0  'NotPersistable
  DataBindingBehavior = 0  'vbNone
  DataSourceBehavior  = 0  'vbNone
  MTSTransactionMode  = 0  'NotAnMTSObject
END
Attribute VB_Name = "clsCustomerVisiting"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = True
Attribute VB_PredeclaredId = False
Attribute VB_Exposed = False
 '***************************************************************
'coCustomerVisiting類模塊
'CreateTime:2002-11-10 3:08:15;Editor:RZHOU
'ComputerIP:192.168.3.252;ComputerName:bluepc
'***************************************************************
Option Explicit
'*****************************************
Public m_ID As String 'DBO.coCustomerVisiting.ID;描述:;主鍵
Public m_CustomerID As String 'DBO.coCustomerVisiting.CustomerID;描述:;
Public m_TransDate As Date 'DBO.coCustomerVisiting.TransDate;描述:;
Public m_TransTitle As String 'DBO.coCustomerVisiting.TransTitle;描述:;
Public m_VisiterID As String 'DBO.coCustomerVisiting.VisiterID;描述:;
Public m_Summary As String 'DBO.coCustomerVisiting.Summary;描述:;
Public m_Result As String 'DBO.coCustomerVisiting.Result;描述:;
Public m_Fee As Double 'DBO.coCustomerVisiting.Fee;描述:;
Public m_OperatorID As String 'DBO.coCustomerVisiting.OperatorID;描述:;記錄操作人的ID,從模塊中的g_sUserID得到
Private m_CreateDate As Date 'DBO.coCustomerVisiting.CreateDate;描述:;記錄加入的時間,在Insert的時候取值getDate(),在Update的時候不用修改
Private m_ModifyDate As Date 'DBO.coCustomerVisiting.ModifyDate;描述:;記錄最后修改的時間,在Insert的時候取值getDate(),在Update的時候也取值getDate()
'*****************************************
Dim sSQL As String
'coCustomerVisiting Templet在給對象賦值時使用,可以少寫不少代碼...
'Public function Templet() as boolean
'On Error Resume Next
       '.m_ID=""
       '.m_CustomerID=""
       '.m_TransDate=""
       '.m_TransTitle=""
       '.m_VisiterID=""
       '.m_Summary=""
       '.m_Result=""
       '.m_Fee=""
       '.m_OperatorID=""
       '.m_CreateDate=""
       '.m_ModifyDate=""
'End Function

'修改數據開始
'coCustomerVisiting Insert SQL
Public Function Insert() As Boolean
On Error Resume Next
   sSQL = ""
   sSQL = sSQL + " insert into coCustomerVisiting"
   sSQL = sSQL + " ("
   sSQL = sSQL + "ID,CustomerID,TransDate,TransTitle,VisiterID,Summary,Result,Fee,OperatorID,CreateDate,ModifyDate"
   sSQL = sSQL + ") Values ("
   sSQL = sSQL + CheckString(m_ID) + ","
   sSQL = sSQL + CheckString(m_CustomerID) + ","
   sSQL = sSQL + "convert(Datetime," + CheckString(m_TransDate) + ")" + ","
   sSQL = sSQL + CheckString(m_TransTitle) + ","
   sSQL = sSQL + CheckString(m_VisiterID) + ","
   sSQL = sSQL + CheckString(m_Summary) + ","
   sSQL = sSQL + CheckString(m_Result) + ","
   sSQL = sSQL + "convert(Float," + CheckString(m_Fee) + ")" + ","
   sSQL = sSQL + CheckString(g_sUserID) + ","
   sSQL = sSQL + "getDate()" + ","
   sSQL = sSQL + "getDate()"
   sSQL = sSQL + ")"
   g_cn.BeginTrans
      g_cn.Execute sSQL
      If Err.Number = 0 Then
         g_cn.CommitTrans
         'Add Log*********************'
         g_System.AddLog "coCustomerVisiting", sSQL
         Insert = True
      Else
         g_cn.RollbackTrans
         Insert = False
         Err.Clear
      End If
End Function
'coCustomerVisiting Update SQL
Public Function Update() As Boolean
On Error Resume Next
    sSQL = ""
    sSQL = sSQL + " update coCustomerVisiting Set "
    sSQL = sSQL + "CustomerID=" + CheckString(m_CustomerID) + ","
    sSQL = sSQL + "TransDate=" + "convert(Datetime," + CheckString(m_TransDate) + ")" + ","
    sSQL = sSQL + "TransTitle=" + CheckString(m_TransTitle) + ","
    sSQL = sSQL + "VisiterID=" + CheckString(m_VisiterID) + ","
    sSQL = sSQL + "Summary=" + CheckString(m_Summary) + ","
    sSQL = sSQL + "Result=" + CheckString(m_Result) + ","
    sSQL = sSQL + "Fee=" + "convert(Float," + CheckString(m_Fee) + ")" + ","
    sSQL = sSQL + "OperatorID=" + CheckString(g_sUserID) + ","
    sSQL = sSQL + "ModifyDate=" + "getDate()"
    sSQL = sSQL + " where ID=" + CheckString(m_ID)
    g_cn.BeginTrans
      g_cn.Execute sSQL
      If Err.Number = 0 Then
         g_cn.CommitTrans
         'Add Log*********************'
         g_System.AddLog "coCustomerVisiting", sSQL
         Update = True
      Else
         g_cn.RollbackTrans
         Update = False
         Err.Clear
      End If
End Function
'coCustomerVisiting Delete SQL
Public Function Delete() As Boolean
On Error Resume Next
    sSQL = ""
    sSQL = sSQL + " Delete coCustomerVisiting where ID=" + CheckString(m_ID)
    g_cn.BeginTrans
      g_cn.Execute sSQL
      If Err.Number = 0 Then
         g_cn.CommitTrans
         'Add Log*********************'
         g_System.AddLog "coCustomerVisiting", sSQL
         Delete = True
      Else
         g_cn.RollbackTrans
         Delete = False
         Err.Clear
      End If
End Function
'coCustomerVisiting Fill By ID SQL ,根據ID填充本對象
'參數  iID:對象的ID值
Public Function FillByID(ByVal sID As String) As Boolean
Dim rsTemp As ADODB.Recordset
    Set rsTemp = New ADODB.Recordset
    sSQL = ""
    sSQL = sSQL + " Select * from coCustomerVisiting where ID=" + CheckString(sID)
    rsTemp.Open sSQL, g_cn
      If rsTemp.RecordCount > 0 Then
         m_ID = rsTemp.Fields("ID").value
         m_CustomerID = rsTemp.Fields("CustomerID").value
         m_TransDate = rsTemp.Fields("TransDate").value
         m_TransTitle = rsTemp.Fields("TransTitle").value
         m_VisiterID = rsTemp.Fields("VisiterID").value
         m_Summary = rsTemp.Fields("Summary").value
         m_Result = rsTemp.Fields("Result").value
         m_Fee = rsTemp.Fields("Fee").value
         m_OperatorID = rsTemp.Fields("OperatorID").value
         m_CreateDate = rsTemp.Fields("CreateDate").value
         m_ModifyDate = rsTemp.Fields("ModifyDate").value
         FillByID = True
      Else
         FillByID = False
      End If
End Function
'coCustomerVisiting get List Recordset SQL,根據條件返回本數據庫的記錄集
'參數  sFields:查找到的記錄集的字段列表;sWhere:找到記錄的條件;sOrder:記錄集的排序字段及方式
Public Function GetList(Optional ByVal sFields As String = "*", Optional ByVal sWhere As String = "", Optional ByVal sOrder As String = "") As Recordset
Dim rsTemp As ADODB.Recordset
    Set rsTemp = New ADODB.Recordset
    sSQL = ""
    sSQL = sSQL + " Select " + sFields + " from coCustomerVisiting"
    If Len(sWhere) > 0 Then
       sSQL = sSQL + " where " + sWhere
    End If
    If Len(sOrder) > 0 Then
       sSQL = sSQL + " Order by " + sOrder
    End If
    rsTemp.Open sSQL, g_cn
    Set GetList = rsTemp
End Function
'coCustomerVisiting get Recordset By ID SQL,根據ID返回本數據庫的記錄集
'參數  iID:對象的ID值;sFields:查找到的記錄集的字段列表;sOrder:記錄集的排序字段及方式
Public Function GetRecordsetByID(ByVal sID As String, Optional ByVal sFields As String = "*", Optional ByVal sOrder As String = "") As ADODB.Recordset
Dim rsTemp As ADODB.Recordset
    Set rsTemp = New ADODB.Recordset
    sSQL = ""
    sSQL = sSQL + " Select " + sFields + " from coCustomerVisiting where ID=" + CheckString(sID)
    If Len(sOrder) > 0 Then
       sSQL = sSQL + " Order by " + sOrder
    End If
    rsTemp.Open sSQL, g_cn
    Set GetRecordsetByID = rsTemp
End Function