Object-Oriented database design with the DatabaseObjects library

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

Option Strict On
Option Explicit On 

Namespace SQL

    Public Class SQLUpdateCopyField

        Private pstrSourceFieldName As String
        Private pstrDestinationFieldName As String

        Public Sub New(ByVal strSourceFieldName As String, ByVal strDestinationFieldName As String)

            If strSourceFieldName = Nothing Then
                Throw New ArgumentNullException("SourceFieldName")
            End If

            If strDestinationFieldName = Nothing Then
                Throw New ArgumentNullException("DestinationFieldName")
            End If

            pstrSourceFieldName = strSourceFieldName
            pstrDestinationFieldName = strDestinationFieldName

        End Sub

        Public ReadOnly Property SourceFieldName() As String
            Get

                Return pstrSourceFieldName

            End Get
        End Property

        Public ReadOnly Property DestinationFieldName() As String
            Get

                Return pstrDestinationFieldName

            End Get
        End Property

    End Class


    Public Class SQLUpdateCopyFields

        Private pobjCopyFields As New ArrayList

        Public Function Add(ByVal strSourceFieldName As String, ByVal strDestinationFieldName As String) As SQLUpdateCopyField

            Dim objCopyField As New SQLUpdateCopyField(strSourceFieldName, strDestinationFieldName)

            pobjCopyFields.Add(objCopyField)

            Return objCopyField

        End Function

        Public ReadOnly Property Count() As Integer
            Get

                Return pobjCopyFields.Count

            End Get
        End Property

        Default Public ReadOnly Property Item(ByVal intIndex As Integer) As SQLUpdateCopyField
            Get

                Return DirectCast(pobjCopyFields(intIndex), SQLUpdateCopyField)

            End Get
        End Property

    End Class

End Namespace