86 lines
3 KiB
VB.net
86 lines
3 KiB
VB.net
' This is a "safe" class, meaning that it is created once
|
|
' and never overwritten. Any custom code you add to this class
|
|
' will be preserved when you regenerate your application.
|
|
'
|
|
' Typical customizations that may be done in this class include
|
|
' - adding custom event handlers
|
|
' - overriding base class methods
|
|
|
|
Imports System.Data.SqlTypes
|
|
Imports BaseClasses
|
|
Imports BaseClasses.Data
|
|
Imports BaseClasses.Data.SqlProvider
|
|
|
|
Namespace Persons.Business
|
|
|
|
''' <summary>
|
|
''' Provides access to the schema information and record data of a database table (or view).
|
|
''' See <see cref="BaseView_PersonsView"></see> for additional information.
|
|
''' </summary>
|
|
''' <remarks>
|
|
''' See <see cref="BaseView_PersonsView"></see> for additional information.
|
|
''' <para>
|
|
''' This class is implemented using the Singleton design pattern.
|
|
''' </para>
|
|
''' </remarks>
|
|
''' <seealso cref="BaseView_PersonsView"></seealso>
|
|
''' <seealso cref="BaseView_PersonsSqlView"></seealso>
|
|
''' <seealso cref="View_PersonsSqlView"></seealso>
|
|
''' <seealso cref="View_PersonsDefinition"></seealso>
|
|
''' <seealso cref="View_PersonsRecord"></seealso>
|
|
''' <seealso cref="BaseView_PersonsRecord"></seealso>
|
|
|
|
<Serializable()> Public Class View_PersonsView
|
|
Inherits BaseView_PersonsView
|
|
Implements System.Runtime.Serialization.ISerializable, ISingleton
|
|
|
|
|
|
#Region "ISerializable Members"
|
|
|
|
''' <summary>
|
|
''' Overridden to use the <see cref="View_PersonsView_SerializationHelper"></see> class
|
|
''' for deserialization of <see cref="View_PersonsView"></see> data.
|
|
''' </summary>
|
|
''' <remarks>
|
|
''' Since the <see cref="View_PersonsView"></see> class is implemented using the Singleton design pattern,
|
|
''' this method must be overridden to prevent additional instances from being created during deserialization.
|
|
''' </remarks>
|
|
Protected Overridable Sub GetObjectData( _
|
|
ByVal info As System.Runtime.Serialization.SerializationInfo, _
|
|
ByVal context As System.Runtime.Serialization.StreamingContext _
|
|
) Implements System.Runtime.Serialization.ISerializable.GetObjectData
|
|
info.SetType(GetType(View_PersonsView_SerializationHelper)) 'No other values need to be added
|
|
End Sub
|
|
|
|
#Region "Class View_PersonsView_SerializationHelper"
|
|
|
|
<Serializable()> Private Class View_PersonsView_SerializationHelper
|
|
Implements System.Runtime.Serialization.IObjectReference
|
|
|
|
'Method called after this object is deserialized
|
|
Public Function GetRealObject(ByVal context As System.Runtime.Serialization.StreamingContext) As Object _
|
|
Implements System.Runtime.Serialization.IObjectReference.GetRealObject
|
|
Return View_PersonsView.Instance
|
|
End Function
|
|
End Class
|
|
|
|
#End Region
|
|
|
|
#End Region
|
|
|
|
''' <summary>
|
|
''' References the only instance of the <see cref="View_PersonsView"></see> class.
|
|
''' </summary>
|
|
''' <remarks>
|
|
''' Since the <see cref="View_PersonsView"></see> class is implemented using the Singleton design pattern,
|
|
''' this field is the only way to access an instance of the class.
|
|
''' </remarks>
|
|
Public Shared ReadOnly Instance As New View_PersonsView()
|
|
|
|
Private Sub New()
|
|
MyBase.New()
|
|
End Sub
|
|
|
|
|
|
End Class
|
|
End Namespace
|