Imports System.EnterpriseServices

''' <summary>
''' Implements the transactional server-side DataPortal object as
''' discussed in Chapter 5.
''' </summary>
<Transaction(TransactionOption.Required), EventTrackingEnabled(True)> _
Public Class DataPortal
    Inherits ServicedComponent

    ''' <summary>
    ''' Invokes the server-side DataPortal Create method within
    ''' a COM+ transaction.
    ''' </summary>
    <AutoComplete(True)> _
    Public Function Create(ByVal Criteria As Object, ByVal Principal As Object) As Object
        Dim portal As New CSLA.Server.DataPortal()
        Return portal.Create(Criteria, Principal)
    End Function

    ''' <summary>
    ''' Invokes the server-side DataPortal Fetch method within
    ''' a COM+ transaction.
    ''' </summary>
    <AutoComplete(True)> _
    Public Function Fetch(ByVal Criteria As Object, ByVal Principal As Object) As Object
        Dim portal As New CSLA.Server.DataPortal()
        Return portal.Fetch(Criteria, Principal)
    End Function

    ''' <summary>
    ''' Invokes the server-side DataPortal Update method within
    ''' a COM+ transaction.
    ''' </summary>
    <AutoComplete(True)> _
    Public Function Update(ByVal obj As Object, ByVal Principal As Object) As Object
        Dim portal As New CSLA.Server.DataPortal()
        Return portal.Update(obj, Principal)
    End Function

    ''' <summary>
    ''' Invokes the server-side DataPortal Delete method within
    ''' a COM+ transaction.
    ''' </summary>
    <AutoComplete(True)> _
    Public Sub Delete(ByVal Criteria As Object, ByVal Principal As Object)
        Dim portal As New CSLA.Server.DataPortal()
        portal.Delete(Criteria, Principal)
    End Sub

End Class