clscustomercontract.cls

来自「很好！ 很实用！ 免费！」· CLS 代码 · 共 210 行

VERSION 1.0 CLASS
BEGIN
  MultiUse = -1  'True
  Persistable = 0  'NotPersistable
  DataBindingBehavior = 0  'vbNone
  DataSourceBehavior  = 0  'vbNone
  MTSTransactionMode  = 0  'NotAnMTSObject
END
Attribute VB_Name = "clsCustomerContract"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = True
Attribute VB_PredeclaredId = False
Attribute VB_Exposed = False
 '***************************************************************
'CoCustomerContact类模块
'CreateTime:2002-11-10 3:07:17;Editor:RZHOU
'ComputerIP:192.168.3.252;ComputerName:bluepc
'***************************************************************
Option Explicit
'*****************************************
Public m_ID As String 'DBO.CoCustomerContact.ID;描述:;主键
Public m_CustomerID As String 'DBO.CoCustomerContact.CustomerID;描述:;
Public m_Title As String 'DBO.CoCustomerContact.Title;描述:;
Public m_Summary As String 'DBO.CoCustomerContact.Summary;描述:;
Public m_ConDate As Date 'DBO.CoCustomerContact.ConDate;描述:;
Public m_Status As String 'DBO.CoCustomerContact.Status;描述:;
Public m_BDate As Date 'DBO.CoCustomerContact.BDate;描述:;
Public m_EDate As Date 'DBO.CoCustomerContact.EDate;描述:;
Public m_DataType As String 'DBO.CoCustomerContact.DataType;描述:;
Public m_ConData As String 'DBO.CoCustomerContact.ConData;描述:;
Public m_OperatorID As String 'DBO.CoCustomerContact.OperatorID;描述:;记录操作人的ID,从模块中的g_sUserID得到
Private m_CreateDate As Date 'DBO.CoCustomerContact.CreateDate;描述:;记录加入的时间,在Insert的时候取值getDate(),在Update的时候不用修改
Private m_ModifyDate As Date 'DBO.CoCustomerContact.ModifyDate;描述:;记录最后修改的时间,在Insert的时候取值getDate(),在Update的时候也取值getDate()
'*****************************************
Dim sSQL As String
'CoCustomerContact Templet在给对象赋值时使用,可以少写不少代码...
'Public function Templet() as boolean
'On Error Resume Next
       '.m_ID=""
       '.m_CustomerID=""
       '.m_Title=""
       '.m_Summary=""
       '.m_ConDate=""
       '.m_Status=""
       '.m_BDate=""
       '.m_EDate=""
       '.m_DataType=""
       '.m_ConData=""
       '.m_OperatorID=""
       '.m_CreateDate=""
       '.m_ModifyDate=""
'End Function

'修改数据开始
'CoCustomerContact Insert SQL
Public Function Insert() As Boolean
On Error Resume Next
   sSQL = ""
   sSQL = sSQL + " insert into CoCustomerContact"
   sSQL = sSQL + " ("
   sSQL = sSQL + "ID,CustomerID,Title,Summary,ConDate,Status,BDate,EDate,OperatorID,CreateDate,ModifyDate" 'DataType,ConData,
   sSQL = sSQL + ") Values ("
   sSQL = sSQL + CheckString(m_ID) + ","
   sSQL = sSQL + CheckString(m_CustomerID) + ","
   sSQL = sSQL + CheckString(m_Title) + ","
   sSQL = sSQL + CheckString(m_Summary) + ","
   sSQL = sSQL + "convert(Datetime," + CheckString(m_ConDate) + ")" + ","
   sSQL = sSQL + CheckString(m_Status) + ","
   sSQL = sSQL + "convert(Datetime," + CheckString(m_BDate) + ")" + ","
   sSQL = sSQL + "convert(Datetime," + CheckString(m_EDate) + ")" + ","
                
   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
         Call UpdateData
         'Add Log*********************'
         g_System.AddLog "CoCustomerContact", sSQL
         Insert = True
      Else
         g_cn.RollbackTrans
         Insert = False
         Err.Clear
      End If
End Function
Private Sub UpdateData()
Dim rsTemp As ADODB.Recordset
    If m_ConData = "" Then Exit Sub
    
    Set rsTemp = New Recordset
    rsTemp.Open "select ID,DataType,ConData from CoCustomerContact where ID=" + CheckString(m_ID), g_cnString, 3, 3
    rsTemp.Fields("DataType").Value = Mid(m_ConData, InStrRev(m_ConData, ".") + 1, Len(m_ConData) - InStrRev(m_ConData, "."))
    Call g_System.File.ImageToField(rsTemp.Fields("ConData"), m_ConData)
    rsTemp.Update
    rsTemp.Close
    Set rsTemp = Nothing
End Sub

'CoCustomerContact Update SQL
Public Function Update() As Boolean
On Error Resume Next
    sSQL = ""
    sSQL = sSQL + " update CoCustomerContact Set "
    sSQL = sSQL + "CustomerID=" + CheckString(m_CustomerID) + ","
    sSQL = sSQL + "Title=" + CheckString(m_Title) + ","
    sSQL = sSQL + "Summary=" + CheckString(m_Summary) + ","
    sSQL = sSQL + "ConDate=" + "convert(Datetime," + CheckString(m_ConDate) + ")" + ","
    sSQL = sSQL + "Status=" + CheckString(m_Status) + ","
    sSQL = sSQL + "BDate=" + "convert(Datetime," + CheckString(m_BDate) + ")" + ","
    sSQL = sSQL + "EDate=" + "convert(Datetime," + CheckString(m_EDate) + ")" + ","
    'sSQL = sSQL + "DataType=" + CheckString(m_DataType) + ","
    'sSQL = sSQL + "ConData=" + CheckString(m_ConData) + ","
    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
         Call UpdateData
         'Add Log*********************'
         g_System.AddLog "CoCustomerContact", sSQL
         Update = True
      Else
         g_cn.RollbackTrans
         Update = False
         Err.Clear
      End If
End Function
'CoCustomerContact Delete SQL
Public Function Delete() As Boolean
On Error Resume Next
    sSQL = ""
    sSQL = sSQL + " Delete CoCustomerContact 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 "CoCustomerContact", sSQL
         Delete = True
      Else
         g_cn.RollbackTrans
         Delete = False
         Err.Clear
      End If
End Function
'CoCustomerContact 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 CoCustomerContact 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_Title = rsTemp.Fields("Title").Value
         m_Summary = rsTemp.Fields("Summary").Value
         m_ConDate = rsTemp.Fields("ConDate").Value
         m_Status = rsTemp.Fields("Status").Value
         m_BDate = rsTemp.Fields("BDate").Value
         m_EDate = rsTemp.Fields("EDate").Value
         m_DataType = rsTemp.Fields("DataType").Value
         m_ConData = g_System.File.FieldToImage(rsTemp.Fields("ConData"), rsTemp.Fields("DataType").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
'CoCustomerContact 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 CoCustomerContact"
    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
'CoCustomerContact 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 CoCustomerContact 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