|
' ___________________________________________________
'
' � Hi-Integrity Systems 2007. All rights reserved.
' www.hisystems.com.au - Toby Wicks
' ___________________________________________________
'
Option Strict On
Option Explicit On
''' --------------------------------------------------------------------------------
''' <summary>
''' Extends the capabilities of the DatabaseObject by providing a set of routines
''' that lock and unlock this object for exclusive access for a particular user.
''' When Lock() is called a record is written to the lock table which includes the
''' object's associated table name, the object's distinct value and the user ID
''' specified in the DatabaseObjectLockController. When Unlock() is called this
''' record is deleted. If another or the current user has locked the object then the
''' IsLocked property will return true.
''' The DatabseObjects library does not inhibit the loading and/or saving of any
''' locked objects.
''' </summary>
''' --------------------------------------------------------------------------------
'''
Public MustInherit Class DatabaseObjectLockable
Inherits DatabaseObject
Implements IDatabaseObjectLockable
Private pobjLockController As DatabaseObjectLockController
''' --------------------------------------------------------------------------------
''' <summary>
''' Initializes a new DatabaseObject with the parent collection that this object is
''' associated with and the lock controller to be used with this object.
''' </summary>
''' --------------------------------------------------------------------------------
Protected Sub New(ByVal objParent As DatabaseObjects, ByVal objLockController As DatabaseObjectLockController)
MyBase.New(objParent)
If objLockController Is Nothing Then
Throw New ArgumentNullException
End If
pobjLockController = objLockController
End Sub
''' --------------------------------------------------------------------------------
''' <summary>
''' Indicates whether the current object is Locked either by the current user or
''' another user.
''' </summary>
''' --------------------------------------------------------------------------------
Public ReadOnly Property IsLocked() As Boolean Implements IDatabaseObjectLockable.IsLocked
Get
Return pobjLockController.IsLocked(DirectCast(MyBase.ParentCollection, IDatabaseObjects).TableName, Me)
End Get
End Property
''' --------------------------------------------------------------------------------
''' <summary>
''' Returns the user identifier that currently has the object locked. Throws an
''' exception if the object is not locked by a user.
''' </summary>
''' --------------------------------------------------------------------------------
Protected ReadOnly Property LockedByUserID() As String Implements IDatabaseObjectLockable.LockedByUserID
Get
Return pobjLockController.LockedByUserID(DirectCast(MyBase.ParentCollection, IDatabaseObjects).TableName, Me)
End Get
End Property
''' --------------------------------------------------------------------------------
''' <summary>
''' Locks the current object. Throws an exception if the object is already locked.
''' </summary>
''' --------------------------------------------------------------------------------
Public Sub Lock() Implements IDatabaseObjectLockable.Lock
pobjLockController.Lock(DirectCast(MyBase.ParentCollection, IDatabaseObjects).TableName, Me)
End Sub
''' --------------------------------------------------------------------------------
''' <summary>
''' UnLocks the current object. Throws an exception if the object is not locked.
''' </summary>
''' --------------------------------------------------------------------------------
Public Sub UnLock() Implements IDatabaseObjectLockable.UnLock
pobjLockController.UnLock(DirectCast(MyBase.ParentCollection, IDatabaseObjects).TableName, Me)
End Sub
''' --------------------------------------------------------------------------------
''' <summary>
''' Returns whether the current user has the object locked.
''' </summary>
''' --------------------------------------------------------------------------------
Public ReadOnly Property IsLockedByCurrentUser() As Boolean Implements IDatabaseObjectLockable.IsLockedByCurrentUser
Get
Return pobjLockController.IsLockedByCurrentUser(DirectCast(MyBase.ParentCollection, IDatabaseObjects).TableName, Me)
End Get
End Property
End Class
|
By viewing downloads associated with this article you agree to the Terms of Service and the article's licence.
If a file you wish to view isn't highlighted, and is a text file (not binary), please
let us know and we'll add colourisation support for it.
This article has no explicit license attached to it but may contain usage terms in the article text or the download files themselves. If in doubt please contact the author via the discussion board below.
A list of licenses authors might use can be found here
This member has not yet provided a Biography. Assume it's interesting and varied, and probably something to do with programming.