Initial population

clsBook.vb

@@ -0,0 +1,553 @@
+Imports System.Data
+Imports System.Text
+Imports System.Windows.Forms
+Imports System.Xml
+
+Public Class clsBook
+    Implements ICloneable
+
+    Private mguidBookID As Guid
+    Private m_objComposer As clsComposer
+    Private m_objInstrumentation As clsInstrumentation
+    Private m_strBookTitle As String
+    Private m_objPublisher As clsPublisher
+    Private m_blnObjectAlreadyPersisted As Boolean
+
+    Public Sub New()
+        mguidBookID = Guid.NewGuid
+        m_objComposer = Nothing
+        m_objInstrumentation = Nothing
+        m_strBookTitle = ""
+        m_objPublisher = Nothing
+        m_blnObjectAlreadyPersisted = False
+    End Sub
+
+    Public Sub New(ByVal objComposer As clsComposer, ByVal strBookTitle As String, ByVal objInstrumentation As clsInstrumentation, ByVal objPublisher As clsPublisher)
+        mguidBookID = Guid.NewGuid
+        m_objComposer = objComposer
+        m_objInstrumentation = objInstrumentation
+        m_strBookTitle = strBookTitle
+        m_objPublisher = objPublisher
+        m_blnObjectAlreadyPersisted = False
+    End Sub
+
+    Public Sub New(ByVal guidBookID As Guid)
+        mguidBookID = guidBookID
+
+        Dim ldbcmdCommand As New SqlClient.SqlCommand
+        ldbcmdCommand.CommandText = "sel_book"
+
+        ldbcmdCommand.CommandType = CommandType.StoredProcedure
+        ' Set up parameter for stored procedure 
+        Dim prmBookID As New SqlClient.SqlParameter
+        prmBookID.ParameterName = "@book_id"
+        prmBookID.SqlDbType = SqlDbType.UniqueIdentifier
+        'prmBookID.Size = 5
+        prmBookID.Value = guidBookID
+        ldbcmdCommand.Parameters.Add(prmBookID)
+
+        Dim ldbdsBooks As DataSet = MyGlobals.g_objDatabaseLayer.ExecuteDataSet(ldbcmdCommand)
+
+        If ldbdsBooks.Tables(0).Rows.Count > 0 Then
+            Dim ldbrwRow As DataRow
+            ldbrwRow = ldbdsBooks.Tables(0).Rows(0)
+            PopulateFromDBRow(ldbrwRow)
+            m_blnObjectAlreadyPersisted = True
+            MyGlobals.AddCachedObject(Me, Me.BookID.ToString)
+        End If
+        ldbdsBooks.Clear()
+    End Sub
+
+    Public Sub New(ByVal ldbrwRow As DataRow)
+        PopulateFromDBRow(ldbrwRow)
+
+        m_blnObjectAlreadyPersisted = True
+        MyGlobals.AddCachedObject(Me, Me.BookID.ToString)
+    End Sub
+
+    Private Sub PopulateFromDBRow(ByVal ldbrwRow As DataRow)
+        mguidBookID = CType(ldbrwRow.Item("book_id"), Guid)
+
+        If ldbrwRow.IsNull("composer_id") Then
+            m_objComposer = Nothing
+        Else
+            Dim guidComposerID As Guid = CType(ldbrwRow.Item("composer_id"), Guid)
+            If MyGlobals.CachedObjectExists(guidComposerID.ToString) Then
+                m_objComposer = CType(MyGlobals.CachedObjectRetrieve(guidComposerID.ToString), clsComposer)
+            Else
+                m_objComposer = New clsComposer(guidComposerID)
+            End If
+        End If
+
+        If ldbrwRow.IsNull("instrumentation_id") Then
+            m_objInstrumentation = Nothing
+        Else
+            Dim guidInstrumentationID As Guid = CType(ldbrwRow.Item("instrumentation_id"), Guid)
+            If MyGlobals.CachedObjectExists(guidInstrumentationID.ToString) Then
+                m_objInstrumentation = CType(MyGlobals.CachedObjectRetrieve(guidInstrumentationID.ToString), clsInstrumentation)
+            Else
+                m_objInstrumentation = New clsInstrumentation(guidInstrumentationID)
+            End If
+        End If
+
+        m_strBookTitle = CType(ldbrwRow.Item("book_title"), String)
+
+        If ldbrwRow.IsNull("publisher_id") Then
+            m_objPublisher = Nothing
+        Else
+            Dim guidPublisherID As Guid = CType(ldbrwRow.Item("publisher_id"), Guid)
+            If MyGlobals.CachedObjectExists(guidPublisherID.ToString) Then
+                m_objPublisher = CType(MyGlobals.CachedObjectRetrieve(guidPublisherID.ToString), clsPublisher)
+            Else
+                m_objPublisher = New clsPublisher(guidPublisherID)
+            End If
+        End If
+    End Sub
+
+    Public Function Delete() As Boolean
+        Try
+            MyGlobals.RemoveCachedObject(Me.BookID.ToString)
+
+            Dim ldbcmdCommand As New SqlClient.SqlCommand
+            ldbcmdCommand.CommandText = "del_book"
+
+            ldbcmdCommand.CommandType = CommandType.StoredProcedure
+            ' Set up parameter for stored procedure 
+            Dim prmBookID As New SqlClient.SqlParameter
+            prmBookID.ParameterName = "@book_id"
+            prmBookID.SqlDbType = SqlDbType.UniqueIdentifier
+            'prmBookID.Size = 5
+            prmBookID.Value = mguidBookID
+            ldbcmdCommand.Parameters.Add(prmBookID)
+
+            Dim lintRowsAffected As Integer = MyGlobals.g_objDatabaseLayer.ExecuteNonQuery(ldbcmdCommand)
+            If lintRowsAffected > 0 Then
+                Return True
+            Else
+                Return False
+            End If
+        Catch
+            Return False
+        End Try
+
+    End Function
+
+    Public Function Save() As Boolean
+        Try
+            If Not m_objComposer Is Nothing Then
+                If Not m_objComposer.ItemAlreadyPersisted Then
+                    m_objComposer.Save()
+                End If
+            End If
+            If Not m_objInstrumentation Is Nothing Then
+                If Not m_objInstrumentation.ItemAlreadyPersisted Then
+                    m_objInstrumentation.Save()
+                End If
+            End If
+            If Not m_objPublisher Is Nothing Then
+                If Not m_objPublisher.ItemAlreadyPersisted Then
+                    m_objPublisher.Save()
+                End If
+            End If
+
+            MyGlobals.AddCachedObject(Me, Me.BookID.ToString)
+
+            If m_blnObjectAlreadyPersisted Then
+                Dim ldbcmdCommand As New SqlClient.SqlCommand
+                ldbcmdCommand.CommandText = "upd_book"
+
+                ldbcmdCommand.CommandType = CommandType.StoredProcedure
+                ' Set up parameter for stored procedure 
+                Dim prmBookID As New SqlClient.SqlParameter
+                prmBookID.ParameterName = "@book_id"
+                prmBookID.SqlDbType = SqlDbType.UniqueIdentifier
+                'prmComposerID.Size = 5
+                prmBookID.Value = mguidBookID
+                ldbcmdCommand.Parameters.Add(prmBookID)
+                ' Set up parameter for stored procedure 
+                Dim prmComposerID As New SqlClient.SqlParameter
+                prmComposerID.ParameterName = "@composer_id"
+                prmComposerID.SqlDbType = SqlDbType.UniqueIdentifier
+                'prmComposerID.Size = 5
+                If m_objComposer Is Nothing Then
+                    prmComposerID.Value = DBNull.Value
+                Else
+                    prmComposerID.Value = m_objComposer.ComposerID
+                End If
+                ldbcmdCommand.Parameters.Add(prmComposerID)
+                ' Set up parameter for stored procedure 
+                Dim prmInstrumentationID As New SqlClient.SqlParameter
+                prmInstrumentationID.ParameterName = "@instrumentation_id"
+                prmInstrumentationID.SqlDbType = SqlDbType.UniqueIdentifier
+                'prmInstrumentationID.Size = 5
+                If m_objInstrumentation Is Nothing Then
+                    prmInstrumentationID.Value = DBNull.Value
+                Else
+                    prmInstrumentationID.Value = m_objInstrumentation.InstrumentationID
+                End If
+                ldbcmdCommand.Parameters.Add(prmInstrumentationID)
+                ' Set up parameter for stored procedure 
+                Dim prmBookTitle As New SqlClient.SqlParameter
+                prmBookTitle.ParameterName = "@book_title"
+                prmBookTitle.SqlDbType = SqlDbType.VarChar
+                prmBookTitle.Size = MyGlobals.BOOK_TITLE_SIZE
+                prmBookTitle.Value = m_strBookTitle
+                ldbcmdCommand.Parameters.Add(prmBookTitle)
+                ' Set up parameter for stored procedure 
+                Dim prmPublisherID As New SqlClient.SqlParameter
+                prmPublisherID.ParameterName = "@publisher_id"
+                prmPublisherID.SqlDbType = SqlDbType.UniqueIdentifier
+                'prmPublisherID.Size = 5
+                If m_objPublisher Is Nothing Then
+                    prmPublisherID.Value = DBNull.Value
+                Else
+                    prmPublisherID.Value = m_objPublisher.PublisherID
+                End If
+                ldbcmdCommand.Parameters.Add(prmPublisherID)
+
+                Dim lintRowsAffected As Integer = MyGlobals.g_objDatabaseLayer.ExecuteNonQuery(ldbcmdCommand)
+                If lintRowsAffected > 0 Then
+                    Return True
+                Else
+                    Return False
+                End If
+            Else
+                Dim ldbcmdCommand As New SqlClient.SqlCommand
+                ldbcmdCommand.CommandText = "ins_book"
+
+                ldbcmdCommand.CommandType = CommandType.StoredProcedure
+                ' Set up parameter for stored procedure 
+                Dim prmBookID As New SqlClient.SqlParameter
+                prmBookID.ParameterName = "@book_id"
+                prmBookID.SqlDbType = SqlDbType.UniqueIdentifier
+                'prmComposerID.Size = 5
+                prmBookID.Value = mguidBookID
+                ldbcmdCommand.Parameters.Add(prmBookID)
+                ' Set up parameter for stored procedure 
+                Dim prmComposerID As New SqlClient.SqlParameter
+                prmComposerID.ParameterName = "@composer_id"
+                prmComposerID.SqlDbType = SqlDbType.UniqueIdentifier
+                'prmComposerID.Size = 5
+                If m_objComposer Is Nothing Then
+                    prmComposerID.Value = DBNull.Value
+                Else
+                    prmComposerID.Value = m_objComposer.ComposerID
+                End If
+                ldbcmdCommand.Parameters.Add(prmComposerID)
+                ' Set up parameter for stored procedure 
+                Dim prmInstrumentationID As New SqlClient.SqlParameter
+                prmInstrumentationID.ParameterName = "@instrumentation_id"
+                prmInstrumentationID.SqlDbType = SqlDbType.UniqueIdentifier
+                'prmInstrumentationID.Size = 5
+                If m_objInstrumentation Is Nothing Then
+                    prmInstrumentationID.Value = DBNull.Value
+                Else
+                    prmInstrumentationID.Value = m_objInstrumentation.InstrumentationID
+                End If
+                ldbcmdCommand.Parameters.Add(prmInstrumentationID)
+                ' Set up parameter for stored procedure 
+                Dim prmBookTitle As New SqlClient.SqlParameter
+                prmBookTitle.ParameterName = "@book_title"
+                prmBookTitle.SqlDbType = SqlDbType.VarChar
+                prmBookTitle.Size = MyGlobals.BOOK_TITLE_SIZE
+                prmBookTitle.Value = m_strBookTitle
+                ldbcmdCommand.Parameters.Add(prmBookTitle)
+                ' Set up parameter for stored procedure 
+                Dim prmPublisherID As New SqlClient.SqlParameter
+                prmPublisherID.ParameterName = "@publisher_id"
+                prmPublisherID.SqlDbType = SqlDbType.UniqueIdentifier
+                'prmPublisherID.Size = 5
+                If m_objPublisher Is Nothing Then
+                    prmPublisherID.Value = DBNull.Value
+                Else
+                    prmPublisherID.Value = m_objPublisher.PublisherID
+                End If
+                ldbcmdCommand.Parameters.Add(prmPublisherID)
+
+                Dim lintRowsAffected As Integer = MyGlobals.g_objDatabaseLayer.ExecuteNonQuery(ldbcmdCommand)
+                If lintRowsAffected > 0 Then
+                    m_blnObjectAlreadyPersisted = True
+                    Return True
+                Else
+                    Return False
+                End If
+            End If
+        Catch e As SqlClient.SqlException
+            MessageBox.Show(e.Message)
+            Return False
+        Catch
+            Return False
+        End Try
+
+    End Function
+
+    Public Property BookID() As Guid
+        Get
+            Return mguidBookID
+        End Get
+        Set(ByVal Value As Guid)
+            mguidBookID = Value
+        End Set
+    End Property
+
+    Public Property Composer() As clsComposer
+        Get
+            Return m_objComposer
+        End Get
+        Set(ByVal Value As clsComposer)
+            m_objComposer = Value
+        End Set
+    End Property
+
+    Public Property Instrumentation() As clsInstrumentation
+        Get
+            Return m_objInstrumentation
+        End Get
+        Set(ByVal Value As clsInstrumentation)
+            m_objInstrumentation = Value
+        End Set
+    End Property
+
+    Public Property BookTitle() As String
+        Get
+            Return m_strBookTitle
+        End Get
+        Set(ByVal Value As String)
+            m_strBookTitle = Value.Trim
+        End Set
+    End Property
+
+    Public Property Publisher() As clsPublisher
+        Get
+            Return m_objPublisher
+        End Get
+        Set(ByVal Value As clsPublisher)
+            m_objPublisher = Value
+        End Set
+    End Property
+
+    Public Property ItemAlreadyPersisted() As Boolean
+        Get
+            Return m_blnObjectAlreadyPersisted
+        End Get
+        Set(ByVal Value As Boolean)
+            m_blnObjectAlreadyPersisted = Value
+        End Set
+    End Property
+
+    Public Function Clone() As Object Implements ICloneable.Clone
+        Dim lobjReturnValue As New clsBook
+        lobjReturnValue.BookID = Me.BookID
+        lobjReturnValue.Composer = Me.Composer
+        lobjReturnValue.Instrumentation = Me.Instrumentation
+        lobjReturnValue.BookTitle = Me.BookTitle
+        lobjReturnValue.Publisher = Me.Publisher
+        lobjReturnValue.ItemAlreadyPersisted = Me.ItemAlreadyPersisted
+
+        Return lobjReturnValue
+    End Function
+
+    Public Function StateIsIdentical(ByVal lobjOtherBook As clsBook) As Boolean
+        Dim blnResult As Boolean
+
+        If Me.BookID.Equals(lobjOtherBook.BookID) _
+        AndAlso Me.BookTitle = lobjOtherBook.BookTitle Then
+            blnResult = True
+
+            If Me.Composer Is Nothing Then
+                If lobjOtherBook.Composer Is Nothing Then
+                    'OK
+                Else
+                    Return False
+                End If
+            Else
+                If lobjOtherBook.Composer Is Nothing Then
+                    Return False
+                Else
+                    blnResult = Me.Composer.ComposerID.Equals(lobjOtherBook.Composer.ComposerID)
+                End If
+            End If
+
+            If Not blnResult Then
+                Return False
+            End If
+
+            If Me.Instrumentation Is Nothing Then
+                If lobjOtherBook.Instrumentation Is Nothing Then
+                    'OK
+                Else
+                    Return False
+                End If
+            Else
+                If lobjOtherBook.Instrumentation Is Nothing Then
+                    Return False
+                Else
+                    blnResult = Me.Instrumentation.InstrumentationID.Equals(lobjOtherBook.Instrumentation.InstrumentationID)
+                End If
+            End If
+
+            If Not blnResult Then
+                Return False
+            End If
+
+            If Me.Publisher Is Nothing Then
+                If lobjOtherBook.Publisher Is Nothing Then
+                    'OK
+                Else
+                    Return False
+                End If
+            Else
+                If lobjOtherBook.Publisher Is Nothing Then
+                    Return False
+                Else
+                    blnResult = Me.Publisher.PublisherID.Equals(lobjOtherBook.Publisher.PublisherID)
+                End If
+            End If
+        Else
+            Return False
+        End If
+
+        Return blnResult
+
+    End Function
+
+    Public Function Validate(ByRef lstrErrorString As String) As Boolean
+        lstrErrorString = ""
+        If Me.BookTitle.Length = 0 Then
+            lstrErrorString = "Book Title is required"
+            Return False
+        End If
+
+        If Me.Publisher Is Nothing Then
+            lstrErrorString = "Publisher is required"
+            Return False
+        End If
+
+        Return True
+    End Function
+
+    Public Function OKToDelete(ByRef lstrReferencedByString As String) As Boolean
+        Dim lblnReturnValue As Boolean
+
+        lblnReturnValue = True
+
+        lstrReferencedByString = ""
+
+
+        Dim ldbcmdCommand As New SqlClient.SqlCommand
+        ldbcmdCommand.CommandText = "sel_book_isreferenced"
+
+        ldbcmdCommand.CommandType = CommandType.StoredProcedure
+        ' Set up parameter for stored procedure 
+        Dim prmBookID As New SqlClient.SqlParameter
+        prmBookID.ParameterName = "@book_id"
+        prmBookID.SqlDbType = SqlDbType.UniqueIdentifier
+        'prmBookID.Size = 5
+        prmBookID.Value = mguidBookID
+        ldbcmdCommand.Parameters.Add(prmBookID)
+
+        Dim ldbdsBooks As DataSet = MyGlobals.g_objDatabaseLayer.ExecuteDataSet(ldbcmdCommand)
+
+        If ldbdsBooks.Tables(0).Rows.Count > 0 Then
+            lblnReturnValue = False
+
+            Dim ldbrwRow As DataRow
+            For Each ldbrwRow In ldbdsBooks.Tables(0).Rows
+                If Not ldbrwRow.IsNull("table_referencing_instance") Then
+                    If lstrReferencedByString.Length = 0 Then
+                        lstrReferencedByString = CType(ldbrwRow.Item("table_referencing_instance"), String) + "(s)"
+                    Else
+                        lstrReferencedByString = lstrReferencedByString + " and " + CType(ldbrwRow.Item("table_referencing_instance"), String) + "(s)"
+                    End If
+                End If
+            Next
+
+        End If
+        ldbdsBooks.Clear()
+
+        Return lblnReturnValue
+
+    End Function
+
+    Public Overrides Function ToString() As String
+        Dim strReturnString As New StringBuilder
+
+        If m_objComposer Is Nothing Then
+            strReturnString.Append(MyGlobals.COLLECTION_STRING)
+        Else
+            strReturnString.Append(m_objComposer.ComposerName)
+        End If
+
+        strReturnString.Append(" - ")
+        strReturnString.Append(m_strBookTitle)
+
+        Return strReturnString.ToString
+    End Function
+
+    Public Sub WriteXML(ByRef objXMLWriter As XmlTextWriter)
+        objXMLWriter.WriteStartElement("Book")
+
+        objXMLWriter.WriteElementString("BookID", Me.BookID.ToString)
+        objXMLWriter.WriteElementString("BookTitle", Me.BookTitle)
+        If Me.Composer Is Nothing Then
+            objXMLWriter.WriteElementString("ComposerID", "")
+        Else
+            objXMLWriter.WriteElementString("ComposerID", Me.Composer.ComposerID.ToString)
+            Me.Composer.WriteXML(objXMLWriter)
+        End If
+        If Me.Instrumentation Is Nothing Then
+            objXMLWriter.WriteElementString("InstrumentationID", "")
+        Else
+            objXMLWriter.WriteElementString("InstrumentationID", Me.Instrumentation.InstrumentationID.ToString)
+            Me.Instrumentation.WriteXML(objXMLWriter)
+        End If
+        objXMLWriter.WriteElementString("BookPublisherID", Me.Publisher.PublisherID.ToString)
+        Me.Publisher.WriteXML(objXMLWriter)
+
+        objXMLWriter.WriteEndElement()
+    End Sub
+
+    Public Shared Function GetAllBooks() As System.Collections.Generic.List(Of clsBook)
+
+        'Preload to cache
+        clsComposer.AddAllComposersToCache()
+        clsInstrumentation.AddAllInstrumentationsToCache()
+        clsPublisher.AddAllPublishersToCache()
+
+        Dim lguidBookID As Guid
+        Dim ldbcmdCommand As New SqlClient.SqlCommand
+        Dim lobjBook As clsBook
+        Dim lcolBooks As New System.Collections.Generic.List(Of clsBook)
+
+        ldbcmdCommand.CommandText = "sel_book_all"
+
+        ldbcmdCommand.CommandType = CommandType.StoredProcedure
+
+        Dim ldbdsBooks As DataSet = MyGlobals.g_objDatabaseLayer.ExecuteDataSet(ldbcmdCommand)
+
+        If ldbdsBooks.Tables(0).Rows.Count > 0 Then
+            Dim ldbrwRow As DataRow
+            For Each ldbrwRow In ldbdsBooks.Tables(0).Rows
+                lguidBookID = CType(ldbrwRow.Item("book_id"), Guid)
+
+                If MyGlobals.CachedObjectExists(lguidBookID.ToString) Then
+                    lobjBook = CType(MyGlobals.CachedObjectRetrieve(lguidBookID.ToString), clsBook)
+                Else
+                    'lobjBook = New clsBook(lguidBookID)
+                    lobjBook = New clsBook(ldbrwRow)
+                End If
+                lcolBooks.Add(lobjBook)
+            Next
+        End If
+        ldbdsBooks.Clear()
+
+        Return lcolBooks
+    End Function
+
+    Public Shared Sub AddAllBooksToCache()
+        If MyGlobals.g_objObjectTypesCached.Contains("Books") = False Then
+            GetAllBooks()
+            MyGlobals.g_objObjectTypesCached.Add("Books")
+        End If
+    End Sub
+End Class