client.cls

人事档案管理系统(PB)/人事工资管理系统/干部信息管理系统/投标报价与合同管理系统/... 超市...

VERSION 1.0 CLASS
Begin      
  MultiUse = -1  'True
  Persistable = 0  'NotPersistable
  DataBindingBehavior = 0  'vbNone
  DataSourceBehavior  = 0  'vbNone
  MTSTransactionMode  = 0  'NotAnMTSObject
End    

Attribute VB_Name = Client
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = True
Attribute VB_PredeclaredId = False
Attribute VB_Exposed = True
Option Explicit
Implements COMEXDataSourceSingle      
Private m_Fields() 
Public Event OnRecordSaved(byRef aClient As Client)
Public Event OnRecordMarkForDelete(byRef aClient As Client)
Public Event OnDirty(byVal IsDirty As Boolean)
Public Event OnRecordLoad(byRef aClient As Client)

Private WithEvents mobjValid As BrokenRules
Event Valid(ByVal IsValid As Boolean)
Private m_Address As String
Private m_City As String
Private m_ClientID As Long
Private m_CompanyName As String
Private m_ContactFirstName As String
Private m_ContactLastName As String
Private m_ContactTitle As String
Private m_Country As String
Private m_FaxNumber As String
Private m_Notes As String
Private m_PhoneNumber As String
Private m_PostalCode As String
Private m_StateOrProvince As String
Private m_OldClientID As Long
Private m_IsNew As Boolean
Private m_IsDirty As Boolean
Private m_IsDeleted As Boolean

Private m_ClientProjects As ClientProjects
	      

Friend Property Let IsNew(Byval vData As boolean)
  m_IsNew = vData
End Property

Public Property Get IsNew() As Boolean
  IsNew = m_IsNew
End Property

Friend Property Let IsDirty(Byval vData As boolean)
  m_IsDirty = vData
  RaiseEvent OnDirty(vData)
End Property

Public Property Get IsDirty() As Boolean
  IsDirty = m_IsDirty
End Property

Friend Property Let IsDeleted(Byval vData As boolean)
  m_IsDeleted = vData
  RaiseEvent OnRecordMarkForDelete(Me) 
End Property

Public Property Get IsDeleted() As Boolean
  IsDeleted = m_IsDeleted
End Property    

Public Property Get IsValid() As Boolean
  IsValid = (mobjValid.Count = 0)
End Property

Private Sub mobjValid_BrokenRule()
  RaiseEvent Valid(False)
End Sub

Private Sub mobjValid_NoBrokenRules()
  RaiseEvent Valid(True)
End Sub
'******************************************************************************
'Begin property get/let/set                                                   *
'******************************************************************************

Friend Property Let OldClientID(vData As Long)
  m_OldClientID = vData
End Property

Public Property Let Address (vData As String)
  m_Address = vData 	
  IsDirty = True
End Property

Public Property Get Address() As String
  Address = m_Address
End Property


Public Property Let City (vData As String)
  m_City = vData 	
  IsDirty = True
End Property

Public Property Get City() As String
  City = m_City
End Property


Public Property Let ClientID (vData As Long)
  m_ClientID = vData 	
  IsDirty = True
End Property

Public Property Get ClientID() As Long
  ClientID = m_ClientID
End Property


Public Property Let CompanyName (vData As String)
  m_CompanyName = vData 	
  IsDirty = True
End Property

Public Property Get CompanyName() As String
  CompanyName = m_CompanyName
End Property


Public Property Let ContactFirstName (vData As String)
  m_ContactFirstName = vData 	
  IsDirty = True
End Property

Public Property Get ContactFirstName() As String
  ContactFirstName = m_ContactFirstName
End Property


Public Property Let ContactLastName (vData As String)
  m_ContactLastName = vData 	
  IsDirty = True
End Property

Public Property Get ContactLastName() As String
  ContactLastName = m_ContactLastName
End Property


Public Property Let ContactTitle (vData As String)
  m_ContactTitle = vData 	
  IsDirty = True
End Property

Public Property Get ContactTitle() As String
  ContactTitle = m_ContactTitle
End Property


Public Property Let Country (vData As String)
  m_Country = vData 	
  IsDirty = True
End Property

Public Property Get Country() As String
  Country = m_Country
End Property


Public Property Let FaxNumber (vData As String)
  m_FaxNumber = vData 	
  IsDirty = True
End Property

Public Property Get FaxNumber() As String
  FaxNumber = m_FaxNumber
End Property


Public Property Let Notes (vData As String)
  m_Notes = vData 	
  IsDirty = True
End Property

Public Property Get Notes() As String
  Notes = m_Notes
End Property


Public Property Let PhoneNumber (vData As String)
  m_PhoneNumber = vData 	
  IsDirty = True
End Property

Public Property Get PhoneNumber() As String
  PhoneNumber = m_PhoneNumber
End Property


Public Property Let PostalCode (vData As String)
  m_PostalCode = vData 	
  IsDirty = True
End Property

Public Property Get PostalCode() As String
  PostalCode = m_PostalCode
End Property


Public Property Let StateOrProvince (vData As String)
  m_StateOrProvince = vData 	
  IsDirty = True
End Property

Public Property Get StateOrProvince() As String
  StateOrProvince = m_StateOrProvince
End Property


Public Property Set ClientProjects(vData As ClientProjects)
  Set m_ClientProjects = vData
End Property

Public Property Get ClientProjects() As ClientProjects
  Set ClientProjects  = m_ClientProjects
End Property
'******************************************************************************
'End property get/let/set                                                     *
'******************************************************************************	

'******************************************************************************
'*                                                                            *
'* Name:    Clear                                                             *
'*                                                                            *
'* Purpose: Reset this object and initialize data to default.                 *
'*                                                                            *
'******************************************************************************
Public Sub Clear() 
  m_IsNew = True
  m_IsDirty = False
  m_IsDeleted = False 

  m_Address = vbnullstring
  m_City = vbnullstring
  m_ClientID = 0
  m_CompanyName = vbnullstring
  m_ContactFirstName = vbnullstring
  m_ContactLastName = vbnullstring
  m_ContactTitle = vbnullstring
  m_Country = vbnullstring
  m_FaxNumber = vbnullstring
  m_Notes = vbnullstring
  m_PhoneNumber = vbnullstring
  m_PostalCode = vbnullstring
  m_StateOrProvince = vbnullstring
  Set m_ClientProjects = Nothing
  Set m_ClientProjects =  New ClientProjects


  Set mobjValid = New BrokenRules
  ReSetBrokenRule True 
End Sub	


Public Sub ReSetBrokenRule(byval BrokenAll As boolean)  
  Dim vClientProject As ClientProject
  For Each vClientProject In m_ClientProjects
  	vClientProject.ReSetBrokenRule BrokenAll
  Next
End Sub


Private Sub Class_Initialize()
  Clear
  m_Fields = Array("Address", "City", "ClientID", "CompanyName", "ContactFirstName", "ContactLastName", "ContactTitle", "Country", "FaxNumber", "Notes", "PhoneNumber", "PostalCode", "StateOrProvince")  
End Sub
Private Sub Class_Terminate()
  Clear
End Sub

'******************************************************************************
'*                                                                            *
'* Name:    Save                                                              *
'*                                                                            *
'* Purpose: Save a changed object or a new record into database.              *
'*                                                                            *
'* Returns: True when successfully saved, false when failed to save.          *
'*                                                                            *
'******************************************************************************
Public Function Save(optional Byval bolStartTran As boolean = True) As Boolean   
  Dim adoRS As ADODB.Recordset
  Dim strSQL As String
  Dim Count As Long, i As Long, bolInTran As boolean 
  
  On Error GoTo Err_Save
  
  If Not IsDirty Then GoTo Skip_Save
  
                 
  If Not IsValid Then 
    InvalidHandler(mobjValid.BrokenRules)
    GoTo Done_Save
  End If
  
  If bolStartTran Then 
    Conn.BeginTrans  
    bolInTran = True
  End If
  
  Set adoRS = New ADODB.Recordset  

  strSQL ="Select * FROM Clients a WHERE  a.ClientID=" & m_OldClientID & ""
  adoRS.Open strSQL , Conn, adOpenKeyset, adLockOptimistic