timecard.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 = TimeCard
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 aTimeCard As TimeCard)
Public Event OnRecordMarkForDelete(byRef aTimeCard As TimeCard)
Public Event OnDirty(byVal IsDirty As Boolean)
Public Event OnRecordLoad(byRef aTimeCard As TimeCard)

Private WithEvents mobjValid As BrokenRules
Event Valid(ByVal IsValid As Boolean)
Private m_DateEntered As Date
Private m_EmployeeID As Long
Private m_FirstName As String
Private m_LastName As String
Private m_TimeCardID As Long
Private m_OldTimeCardID As Long
Private m_IsNew As Boolean
Private m_IsDirty As Boolean
Private m_IsDeleted As Boolean

Private m_TimeCardExpenses As TimeCardExpenses

Private m_TimeCardHours As TimeCardHours
	      

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 OldTimeCardID(vData As Long)
  m_OldTimeCardID = vData
End Property

Public Property Let DateEntered (vData As Date)
  m_DateEntered = vData 
  mobjValid.RuleBroken "DateEntered", False	
  IsDirty = True
End Property

Public Property Get DateEntered() As Date
  DateEntered = m_DateEntered
End Property


Public Property Let EmployeeID (vData As Long)
  m_EmployeeID = vData 	
  IsDirty = True
End Property

Public Property Get EmployeeID() As Long
  EmployeeID = m_EmployeeID
End Property


Public Property Get EmployeeIDIncludeLookup() As String
  EmployeeIDIncludeLookup = m_EmployeeID & vbtab & FirstName & vbtab & LastName 		  
End Property 

Friend Property Let EmployeeIDIncludeLookup(byval vData As string) 
  On Error Resume Next
  Dim strFields() As string
  strFields = split(vData, vbtab)
  EmployeeID = strFields(0) 
  m_FirstName = strFields(1)
  m_LastName = strFields(2) 		  
End Property 


Friend Property Let FirstName(vData As String)
  m_FirstName = vData
End Property
		
Public Property Get FirstName() As String
  FirstName = m_FirstName
End Property
Friend Property Let LastName(vData As String)
  m_LastName = vData
End Property
		
Public Property Get LastName() As String
  LastName = m_LastName
End Property
Public Property Let TimeCardID (vData As Long)
  m_TimeCardID = vData 	
  IsDirty = True
End Property

Public Property Get TimeCardID() As Long
  TimeCardID = m_TimeCardID
End Property


Public Property Set TimeCardExpenses(vData As TimeCardExpenses)
  Set m_TimeCardExpenses = vData
End Property

Public Property Get TimeCardExpenses() As TimeCardExpenses
  Set TimeCardExpenses  = m_TimeCardExpenses
End Property
Public Property Set TimeCardHours(vData As TimeCardHours)
  Set m_TimeCardHours = vData
End Property

Public Property Get TimeCardHours() As TimeCardHours
  Set TimeCardHours  = m_TimeCardHours
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_DateEntered = "12:00:00AM"
  m_EmployeeID = 0
  m_TimeCardID = 0
  Set m_TimeCardExpenses = Nothing
  Set m_TimeCardExpenses =  New TimeCardExpenses
  Set m_TimeCardHours = Nothing
  Set m_TimeCardHours =  New TimeCardHours


  Set mobjValid = New BrokenRules
  ReSetBrokenRule True 
End Sub	


Public Sub ReSetBrokenRule(byval BrokenAll As boolean)  
  Dim vTimeCardExpense As TimeCardExpense
  For Each vTimeCardExpense In m_TimeCardExpenses
  	vTimeCardExpense.ReSetBrokenRule BrokenAll
  Next
  Dim vTimeCardHour As TimeCardHour
  For Each vTimeCardHour In m_TimeCardHours
  	vTimeCardHour.ReSetBrokenRule BrokenAll
  Next
  mobjValid.RuleBroken "DateEntered", BrokenAll
End Sub


Private Sub Class_Initialize()
  Clear
  m_Fields = Array("DateEntered", "EmployeeID", "TimeCardID")  
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 [Time Cards] a WHERE  a.TimeCardID=" & m_OldTimeCardID & ""
  adoRS.Open strSQL , Conn, adOpenKeyset, adLockOptimistic
  With adoRS
  If Not .EOF Then
    If m_IsDeleted Then
      .Delete
    Else	
SaveRecord:
      adoRS("DateEntered") = m_DateEntered
      adoRS("EmployeeID") = m_EmployeeID

      .Update
      m_TimeCardID = adoRS("TimeCardID")
      m_OldTimeCardID = m_TimeCardID
    End If
  Else
    If Not m_IsDeleted Then
      .AddNew
      GoTo SaveRecord
    End If
  End If
  .Close
  End With

Skip_Save:

  Dim uTimeCardExpense As TimeCardExpense  
  i = 1
  Do While i <= m_TimeCardExpenses.Count
    Set uTimeCardExpense = m_TimeCardExpenses(i)
    If uTimeCardExpense.IsDeleted Then
      If Not uTimeCardExpense.Save(False) Then
        GoSub Rollback_Save
        Exit Function
      End If
      m_TimeCardExpenses.Remove i
    Else
      If uTimeCardExpense.IsDirty Then
        uTimeCardExpense.TimeCardID = m_TimeCardID
      End If
      If Not uTimeCardExpense.Save(False) Then
        GoSub Rollback_Save
        Exit Function
      End If  
      i = i + 1
    End If
  Loop

  Dim uTimeCardHour As TimeCardHour  
  i = 1
  Do While i <= m_TimeCardHours.Count
    Set uTimeCardHour = m_TimeCardHours(i)
    If uTimeCardHour.IsDeleted Then
      If Not uTimeCardHour.Save(False) Then
        GoSub Rollback_Save
        Exit Function
      End If
      m_TimeCardHours.Remove i
    Else
      If uTimeCardHour.IsDirty Then
        uTimeCardHour.TimeCardID = m_TimeCardID
      End If
      If Not uTimeCardHour.Save(False) Then
        GoSub Rollback_Save
        Exit Function
      End If  
      i = i + 1
    End If
  Loop

  If bolInTran Then 
    Conn.CommitTrans
    bolInTran = False
  End If
  Save = True
  IsDirty = False     
  IsNew = False