Imports MicroFour.StrataFrame.Business

Imports System.ComponentModel

Imports System.Runtime.Serialization

Public Class ApplicationBaseBusinessClass

Inherits MicroFour.StrataFrame.Business.BusinessLayer

#Region " Private Fields "

Private _PrimaryKeyIsAutoIncremented As Boolean = False

Private _PrimaryKeyIsUpdatable As Boolean = True

#End Region

#Region " Public Properties "

''' <summary>

''' Gets or sets a value that determines whether the primary key for this business object is

''' auto-incremented within the data source (assigned by the database rather than by the

''' client).

''' </summary>

DefaultValue(False)> _

Public Overrides Property PrimaryKeyIsAutoIncremented() As Boolean

Get

Return _PrimaryKeyIsAutoIncremented

End Get

Set(ByVal value As Boolean)

_PrimaryKeyIsAutoIncremented = value

End Set

End Property

''' <summary>

''' Determines if the primary key field is updatable. This property allows primary key fields that are not auto-incrementing to be used while

''' preventing an update error if the field is not updatable (i.e. Guid Primary Keys).

''' </summary>

DefaultValue(True)> _

Public Overrides Property PrimaryKeyIsUpdatable() As Boolean

Get

Return _PrimaryKeyIsUpdatable

End Get

Set(ByVal value As Boolean)

_PrimaryKeyIsUpdatable = value

End Set

End Property

#End Region

#Region " Overridable Subs "

Protected Overrides Sub OnSetDefaultValues()

MyBase.OnSetDefaultValues()

If Me.PrimaryKeyIsUpdatable = True AndAlso Me.PrimaryKeyIsAutoIncremented = False Then

'-- Set Value for GUID PK

'-- Get a reference to the property descriptor (which doesn't use reflection)

Dim loFieldPropDescriptor As FieldPropertyDescriptor = Me.GetPropertyDescriptor(Me.PrimaryKeyField)

'-- If the PK type is a Guid then Generate a Sequential GUID to prevent Index fragmentation

If loFieldPropDescriptor.PropertyType Is GetType(Guid) Then

loFieldPropDescriptor.SetValue(Me, ezCallTrack.Basics.NewSequentialID)

End If

End If

End Sub

#End Region

End Class

Inherits MicroFour.StrataFrame.Business.BusinessLayer

Inherits ezCallTrack.Business.ApplicationBaseBusinessClass

''' <summary>

''' Initializes a new instance of the bizCustomers class.

''' </summary>

''' <param name="info">The SerializationInfo for the object.</param>

''' <param name="context">The StreamingContext for the source stream.</param>

''' <remarks></remarks>

Protected Sub New(ByVal info As SerializationInfo, ByVal context As StreamingContext)

MyBase.New(info, context)

'This call is required by the Component Designer.

Me.InitializeComponent()

'-- Add the necessary handlers

Me.AddHandlers()

End Sub

Imports System.Data

Imports System.Data.SqlClient

Imports System.Runtime.Serialization

<Serializable()> _

Public Class bizCustomers

Inherits ezCallTrack.Business.ApplicationBaseBusinessClass

#Region " Constructors "

''' <summary>

''' Initializes a new instance of the bizCustomers class.

''' </summary>

''' <remarks></remarks>

Public Sub New()

MyBase.New()

'This call is required by the Component Designer.

Me.InitializeComponent()

'-- Add the necessary handlers

Me.AddHandlers()

End Sub

''' <summary>

''' Initializes a new instance of the bizCustomers class.

''' </summary>

''' <param name="Container">The IContainer to which this object will be added.</param>

''' <remarks></remarks>

Public Sub New(ByVal Container As System.ComponentModel.IContainer)

MyBase.New()

'This call adds the component to the given container.

Container.Add(Me)

'This call is required by the Component Designer.

Me.InitializeComponent()

'-- Add the necessary handlers

Me.AddHandlers()

End Sub

''' <summary>

''' Initializes a new instance of the bizCustomers class.

''' </summary>

''' <param name="info">The SerializationInfo for the object.</param>

''' <param name="context">The StreamingContext for the source stream.</param>

''' <remarks></remarks>

Protected Sub New(ByVal info As SerializationInfo, ByVal context As StreamingContext)

MyBase.New(info, context)

'This call is required by the Component Designer.

Me.InitializeComponent()

'-- Add the necessary handlers

Me.AddHandlers()

End Sub

''' <summary>

''' Adds the necessary handlers for the bizCustomers class.

''' </summary>

''' <remarks></remarks>

Private Sub AddHandlers()

AddHandler Me.CheckRulesOnCurrentRow, AddressOf bizCustomers_CheckRulesOnCurrentRow

AddHandler Me.SetDefaultValues, AddressOf bizCustomers_SetDefaultValues

End Sub

#End Region

#Region " Data Retrieval Methods "

#End Region

#Region " Event Handlers "

''' <summary>

''' Checks the business rules on the current row

''' </summary>

''' <param name="e"></param>

''' <remarks></remarks>

Private Sub bizCustomers_CheckRulesOnCurrentRow(ByVal e As MicroFour.StrataFrame.Business.CheckRulesEventArgs)

End Sub

''' <summary>

''' Sets the default values for a new row

''' </summary>

''' <remarks></remarks>

Private Sub bizCustomers_SetDefaultValues()

End Sub

#End Region

End Class