Object-Oriented database design with the DatabaseObjects library

' ___________________________________________________
'
'  � Hi-Integrity Systems 2007. All rights reserved.
'  www.hisystems.com.au - Toby Wicks
' ___________________________________________________
'

''' --------------------------------------------------------------------------------
''' <summary>
''' This class is identical to DatabaseObjects except that it implements the 
''' IEnumerable interface, therefore providing support for the "For Each" construct. 
''' If IEnumerable is not required then inherit from DatabaseObjects. Generally, 
''' inheriting from DatabaseObjectsEnumerable is preferable to DatabaseObjects as it 
''' generates simpler and more readable code.
''' </summary>
''' --------------------------------------------------------------------------------
''' 
Public MustInherit Class DatabaseObjectsEnumerable
    Inherits DatabaseObjects
    Implements IEnumerable

    Protected Sub New(ByVal objDatabase As Database)

        MyBase.New(objDatabase)

    End Sub

    Private Function GetEnumerator() As System.Collections.IEnumerator Implements System.Collections.IEnumerable.GetEnumerator

        Return MyBase.ObjectsList.GetEnumerator

    End Function

End Class