Initial population
This commit is contained in:
398
clsPublisher.vb
Normal file
398
clsPublisher.vb
Normal file
@@ -0,0 +1,398 @@
|
||||
Imports System.Data
|
||||
Imports System.Xml
|
||||
|
||||
Public Class clsPublisher
|
||||
Implements ICloneable
|
||||
|
||||
Private mguidPublisherID As Guid
|
||||
Private mstrPublisherName As String
|
||||
Private mstrPublisherStreamingAllowed As String
|
||||
Private m_blnObjectAlreadyPersisted As Boolean
|
||||
|
||||
Public Sub New()
|
||||
mguidPublisherID = Guid.NewGuid
|
||||
mstrPublisherName = String.Empty
|
||||
mstrPublisherStreamingAllowed = "Unknown"
|
||||
m_blnObjectAlreadyPersisted = False
|
||||
End Sub
|
||||
|
||||
Public Sub New(ByVal lstrPublisherName As String, ByVal lstrPublisherStreamingAllowed As String)
|
||||
Dim ldbcmdCommand As New SqlClient.SqlCommand
|
||||
ldbcmdCommand.CommandText = "sel_publisher_by_name"
|
||||
|
||||
ldbcmdCommand.CommandType = CommandType.StoredProcedure
|
||||
' Set up parameter for stored procedure
|
||||
Dim prmPublisherName As New SqlClient.SqlParameter
|
||||
prmPublisherName.ParameterName = "@publisher_name"
|
||||
prmPublisherName.SqlDbType = SqlDbType.VarChar
|
||||
prmPublisherName.Size = MyGlobals.PUBLISHER_NAME_SIZE
|
||||
prmPublisherName.Value = lstrPublisherName
|
||||
ldbcmdCommand.Parameters.Add(prmPublisherName)
|
||||
|
||||
Dim ldbdsPublishers As DataSet = MyGlobals.g_objDatabaseLayer.ExecuteDataSet(ldbcmdCommand)
|
||||
|
||||
If ldbdsPublishers.Tables(0).Rows.Count > 0 Then
|
||||
Dim ldbrwRow As DataRow
|
||||
ldbrwRow = ldbdsPublishers.Tables(0).Rows(0)
|
||||
PopulateFromDBRow(ldbrwRow)
|
||||
|
||||
ldbdsPublishers.Clear()
|
||||
m_blnObjectAlreadyPersisted = True
|
||||
Else
|
||||
ldbdsPublishers.Clear()
|
||||
mguidPublisherID = Guid.NewGuid
|
||||
mstrPublisherName = lstrPublisherName
|
||||
mstrPublisherStreamingAllowed = lstrPublisherStreamingAllowed
|
||||
m_blnObjectAlreadyPersisted = False
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Public Sub New(ByVal lguidPublisherID As Guid)
|
||||
mguidPublisherID = lguidPublisherID
|
||||
|
||||
Dim ldbcmdCommand As New SqlClient.SqlCommand
|
||||
ldbcmdCommand.CommandText = "sel_publisher"
|
||||
|
||||
ldbcmdCommand.CommandType = CommandType.StoredProcedure
|
||||
' Set up parameter for stored procedure
|
||||
Dim prmPublisherID As New SqlClient.SqlParameter
|
||||
prmPublisherID.ParameterName = "@publisher_id"
|
||||
prmPublisherID.SqlDbType = SqlDbType.UniqueIdentifier
|
||||
'prmPublisherID.Size = 5
|
||||
prmPublisherID.Value = lguidPublisherID
|
||||
ldbcmdCommand.Parameters.Add(prmPublisherID)
|
||||
|
||||
Dim ldbdsPublishers As DataSet = MyGlobals.g_objDatabaseLayer.ExecuteDataSet(ldbcmdCommand)
|
||||
|
||||
If ldbdsPublishers.Tables(0).Rows.Count > 0 Then
|
||||
Dim ldbrwRow As DataRow
|
||||
ldbrwRow = ldbdsPublishers.Tables(0).Rows(0)
|
||||
PopulateFromDBRow(ldbrwRow)
|
||||
m_blnObjectAlreadyPersisted = True
|
||||
MyGlobals.AddCachedObject(Me, Me.PublisherID.ToString)
|
||||
End If
|
||||
ldbdsPublishers.Clear()
|
||||
End Sub
|
||||
|
||||
Public Sub New(ByVal ldbrwRow As DataRow)
|
||||
PopulateFromDBRow(ldbrwRow)
|
||||
m_blnObjectAlreadyPersisted = True
|
||||
MyGlobals.AddCachedObject(Me, Me.PublisherID.ToString)
|
||||
End Sub
|
||||
|
||||
Private Sub PopulateFromDBRow(ByVal ldbrwRow As DataRow)
|
||||
mguidPublisherID = CType(ldbrwRow.Item("publisher_id"), Guid)
|
||||
|
||||
mstrPublisherName = CType(ldbrwRow.Item("publisher_name"), String)
|
||||
mstrPublisherStreamingAllowed = CType(ldbrwRow.Item("publisher_streaming_allowed"), String)
|
||||
End Sub
|
||||
|
||||
Public Function Delete() As Boolean
|
||||
Try
|
||||
MyGlobals.RemoveCachedObject(Me.PublisherID.ToString)
|
||||
|
||||
Dim ldbcmdCommand As New SqlClient.SqlCommand
|
||||
ldbcmdCommand.CommandText = "del_publisher"
|
||||
|
||||
ldbcmdCommand.CommandType = CommandType.StoredProcedure
|
||||
' Set up parameter for stored procedure
|
||||
Dim prmPublisherID As New SqlClient.SqlParameter
|
||||
prmPublisherID.ParameterName = "@publisher_id"
|
||||
prmPublisherID.SqlDbType = SqlDbType.UniqueIdentifier
|
||||
'prmPublisherID.Size = 5
|
||||
prmPublisherID.Value = mguidPublisherID
|
||||
ldbcmdCommand.Parameters.Add(prmPublisherID)
|
||||
|
||||
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
|
||||
MyGlobals.AddCachedObject(Me, Me.PublisherID.ToString)
|
||||
|
||||
If m_blnObjectAlreadyPersisted Then
|
||||
Dim ldbcmdCommand As New SqlClient.SqlCommand
|
||||
ldbcmdCommand.CommandText = "upd_publisher"
|
||||
|
||||
ldbcmdCommand.CommandType = CommandType.StoredProcedure
|
||||
' Set up parameter for stored procedure
|
||||
Dim prmPublisherID As New SqlClient.SqlParameter
|
||||
prmPublisherID.ParameterName = "@publisher_id"
|
||||
prmPublisherID.SqlDbType = SqlDbType.UniqueIdentifier
|
||||
'prmPublisherID.Size = 5
|
||||
prmPublisherID.Value = mguidPublisherID
|
||||
ldbcmdCommand.Parameters.Add(prmPublisherID)
|
||||
' Set up parameter for stored procedure
|
||||
Dim prmPublisherName As New SqlClient.SqlParameter
|
||||
prmPublisherName.ParameterName = "@publisher_name"
|
||||
prmPublisherName.SqlDbType = SqlDbType.VarChar
|
||||
prmPublisherName.Size = MyGlobals.PUBLISHER_NAME_SIZE
|
||||
prmPublisherName.Value = mstrPublisherName
|
||||
ldbcmdCommand.Parameters.Add(prmPublisherName)
|
||||
|
||||
Dim prmPublisherStreamingAllowed As New SqlClient.SqlParameter
|
||||
prmPublisherStreamingAllowed.ParameterName = "@publisher_streaming_allowed"
|
||||
prmPublisherStreamingAllowed.SqlDbType = SqlDbType.VarChar
|
||||
prmPublisherStreamingAllowed.Size = MyGlobals.PUBLISHER_STREAMING_ALLOWED_SIZE
|
||||
prmPublisherStreamingAllowed.Value = mstrPublisherStreamingAllowed
|
||||
ldbcmdCommand.Parameters.Add(prmPublisherStreamingAllowed)
|
||||
|
||||
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_publisher"
|
||||
|
||||
ldbcmdCommand.CommandType = CommandType.StoredProcedure
|
||||
' Set up parameter for stored procedure
|
||||
Dim prmPublisherID As New SqlClient.SqlParameter
|
||||
prmPublisherID.ParameterName = "@publisher_id"
|
||||
prmPublisherID.SqlDbType = SqlDbType.UniqueIdentifier
|
||||
'prmPublisherID.Size = 5
|
||||
prmPublisherID.Value = mguidPublisherID
|
||||
ldbcmdCommand.Parameters.Add(prmPublisherID)
|
||||
' Set up parameter for stored procedure
|
||||
Dim prmPublisherName As New SqlClient.SqlParameter
|
||||
prmPublisherName.ParameterName = "@publisher_name"
|
||||
prmPublisherName.SqlDbType = SqlDbType.VarChar
|
||||
prmPublisherName.Size = MyGlobals.PUBLISHER_NAME_SIZE
|
||||
prmPublisherName.Value = mstrPublisherName
|
||||
ldbcmdCommand.Parameters.Add(prmPublisherName)
|
||||
|
||||
Dim prmPublisherStreamingAllowed As New SqlClient.SqlParameter
|
||||
prmPublisherStreamingAllowed.ParameterName = "@publisher_streaming_allowed"
|
||||
prmPublisherStreamingAllowed.SqlDbType = SqlDbType.VarChar
|
||||
prmPublisherStreamingAllowed.Size = MyGlobals.PUBLISHER_STREAMING_ALLOWED_SIZE
|
||||
prmPublisherStreamingAllowed.Value = mstrPublisherStreamingAllowed
|
||||
ldbcmdCommand.Parameters.Add(prmPublisherStreamingAllowed)
|
||||
|
||||
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
|
||||
Return False
|
||||
End Try
|
||||
|
||||
End Function
|
||||
|
||||
Public Function DuplicateExists(ByVal lstrPublisherNameToCheck As String) As Boolean
|
||||
Try
|
||||
Dim ldbcmdCommand As New SqlClient.SqlCommand
|
||||
ldbcmdCommand.CommandText = "sel_publisher_by_name"
|
||||
|
||||
ldbcmdCommand.CommandType = CommandType.StoredProcedure
|
||||
' Set up parameter for stored procedure
|
||||
Dim prmPublisherName As New SqlClient.SqlParameter
|
||||
prmPublisherName.ParameterName = "@publisher_name"
|
||||
prmPublisherName.SqlDbType = SqlDbType.VarChar
|
||||
prmPublisherName.Size = MyGlobals.PUBLISHER_NAME_SIZE
|
||||
prmPublisherName.Value = lstrPublisherNameToCheck
|
||||
ldbcmdCommand.Parameters.Add(prmPublisherName)
|
||||
|
||||
Dim ldbdsPublishers As DataSet = MyGlobals.g_objDatabaseLayer.ExecuteDataSet(ldbcmdCommand)
|
||||
|
||||
If ldbdsPublishers.Tables(0).Rows.Count > 0 Then
|
||||
Dim ldbrwRow As DataRow
|
||||
For Each ldbrwRow In ldbdsPublishers.Tables(0).Rows
|
||||
If mguidPublisherID.Equals(CType(ldbrwRow.Item("publisher_id"), Guid)) Then
|
||||
'OK
|
||||
Else
|
||||
ldbdsPublishers.Clear()
|
||||
Return True
|
||||
End If
|
||||
Next
|
||||
End If
|
||||
ldbdsPublishers.Clear()
|
||||
Return False
|
||||
Catch
|
||||
Return False
|
||||
End Try
|
||||
|
||||
End Function
|
||||
|
||||
Public Property PublisherID() As Guid
|
||||
Get
|
||||
Return mguidPublisherID
|
||||
End Get
|
||||
|
||||
Set(ByVal lguidValue As Guid)
|
||||
mguidPublisherID = lguidValue
|
||||
End Set
|
||||
End Property
|
||||
|
||||
Public Property PublisherName() As String
|
||||
Get
|
||||
Return mstrPublisherName
|
||||
End Get
|
||||
|
||||
Set(ByVal sValue As String)
|
||||
mstrPublisherName = sValue.Trim
|
||||
End Set
|
||||
End Property
|
||||
|
||||
Public Property PublisherStreamingAllowed() As String
|
||||
Get
|
||||
Return mstrPublisherStreamingAllowed
|
||||
End Get
|
||||
|
||||
Set(ByVal sValue As String)
|
||||
mstrPublisherStreamingAllowed = sValue.Trim
|
||||
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 clsPublisher
|
||||
lobjReturnValue.PublisherID = Me.PublisherID
|
||||
lobjReturnValue.PublisherName = Me.PublisherName
|
||||
lobjReturnValue.PublisherStreamingAllowed = Me.PublisherStreamingAllowed
|
||||
lobjReturnValue.ItemAlreadyPersisted = Me.ItemAlreadyPersisted
|
||||
|
||||
Return lobjReturnValue
|
||||
End Function
|
||||
|
||||
Public Function StateIsIdentical(ByVal lobjOtherPublisher As clsPublisher) As Boolean
|
||||
If Me.PublisherID.Equals(lobjOtherPublisher.PublisherID) _
|
||||
AndAlso Me.PublisherName = lobjOtherPublisher.PublisherName _
|
||||
AndAlso Me.PublisherStreamingAllowed = lobjOtherPublisher.PublisherStreamingAllowed Then
|
||||
Return True
|
||||
Else
|
||||
Return False
|
||||
End If
|
||||
End Function
|
||||
|
||||
Public Function Validate(ByRef lstrErrorString As String) As Boolean
|
||||
lstrErrorString = ""
|
||||
If Me.PublisherName.Length = 0 Then
|
||||
lstrErrorString = "Publisher Name is required"
|
||||
Return False
|
||||
End If
|
||||
|
||||
If Me.DuplicateExists(Me.PublisherName) Then
|
||||
lstrErrorString = "Given Publisher Name already exists"
|
||||
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_publisher_isreferenced"
|
||||
|
||||
ldbcmdCommand.CommandType = CommandType.StoredProcedure
|
||||
' Set up parameter for stored procedure
|
||||
Dim prmPublisherID As New SqlClient.SqlParameter
|
||||
prmPublisherID.ParameterName = "@publisher_id"
|
||||
prmPublisherID.SqlDbType = SqlDbType.UniqueIdentifier
|
||||
'prmPublisherID.Size = 5
|
||||
prmPublisherID.Value = mguidPublisherID
|
||||
ldbcmdCommand.Parameters.Add(prmPublisherID)
|
||||
|
||||
Dim ldbdsPublishers As DataSet = MyGlobals.g_objDatabaseLayer.ExecuteDataSet(ldbcmdCommand)
|
||||
|
||||
If ldbdsPublishers.Tables(0).Rows.Count > 0 Then
|
||||
lblnReturnValue = False
|
||||
|
||||
Dim ldbrwRow As DataRow
|
||||
For Each ldbrwRow In ldbdsPublishers.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
|
||||
ldbdsPublishers.Clear()
|
||||
|
||||
Return lblnReturnValue
|
||||
|
||||
End Function
|
||||
|
||||
Public Overrides Function ToString() As String
|
||||
Return mstrPublisherName
|
||||
End Function
|
||||
|
||||
Public Sub WriteXML(ByRef objXMLWriter As XmlTextWriter)
|
||||
objXMLWriter.WriteStartElement("Publisher")
|
||||
|
||||
objXMLWriter.WriteElementString("PublisherID", Me.PublisherID.ToString)
|
||||
objXMLWriter.WriteElementString("PublisherName", Me.PublisherName)
|
||||
objXMLWriter.WriteElementString("PublisherStreamingAllowed", Me.PublisherStreamingAllowed)
|
||||
objXMLWriter.WriteEndElement()
|
||||
End Sub
|
||||
|
||||
Public Shared Function GetAllPublishers() As System.Collections.Generic.List(Of clsPublisher)
|
||||
Dim lguidPublisherID As Guid
|
||||
Dim ldbcmdCommand As New SqlClient.SqlCommand
|
||||
Dim lobjPublisher As clsPublisher
|
||||
Dim lcolPublishers As New System.Collections.Generic.List(Of clsPublisher)
|
||||
|
||||
ldbcmdCommand.CommandText = "sel_publisher_all"
|
||||
|
||||
ldbcmdCommand.CommandType = CommandType.StoredProcedure
|
||||
Dim ldbdsPublishers As DataSet = MyGlobals.g_objDatabaseLayer.ExecuteDataSet(ldbcmdCommand)
|
||||
|
||||
If ldbdsPublishers.Tables(0).Rows.Count > 0 Then
|
||||
Dim ldbrwRow As DataRow
|
||||
For Each ldbrwRow In ldbdsPublishers.Tables(0).Rows
|
||||
lguidPublisherID = CType(ldbrwRow.Item("publisher_id"), Guid)
|
||||
|
||||
If MyGlobals.CachedObjectExists(lguidPublisherID.ToString) Then
|
||||
lobjPublisher = CType(MyGlobals.CachedObjectRetrieve(lguidPublisherID.ToString), clsPublisher)
|
||||
Else
|
||||
'lobjPublisher = New clsPublisher(lguidPublisherID)
|
||||
lobjPublisher = New clsPublisher(ldbrwRow)
|
||||
End If
|
||||
lcolPublishers.Add(lobjPublisher)
|
||||
Next
|
||||
End If
|
||||
ldbdsPublishers.Clear()
|
||||
|
||||
Return lcolPublishers
|
||||
End Function
|
||||
|
||||
Public Shared Sub AddAllPublishersToCache()
|
||||
If MyGlobals.g_objObjectTypesCached.Contains("Publishers") = False Then
|
||||
GetAllPublishers()
|
||||
MyGlobals.g_objObjectTypesCached.Add("Publishers")
|
||||
End If
|
||||
End Sub
|
||||
|
||||
End Class
|
||||
Reference in New Issue
Block a user