Разработка модулей для DotNetNuke в Visual Studio 2005

Imports System
Imports DotNetNuke
Imports System.Data
Imports DotNetNuke.Framework

Namespace YourCompany.Modules.GuestBook

  Public MustInherit Class DataProvider
    ' singleton reference to the instantiated object
    Private Shared objProvider As DataProvider = Nothing

    ' constructor
    Shared Sub New()
      CreateProvider()

    End Sub

    ' dynamically create provider
    Private Shared Sub CreateProvider()
      objProvider = CType(Reflection.CreateObject("data", "YourCompany.Modules.GuestBook", ""), DataProvider)
    End Sub

    ' return the provider
    Public Shared Function Instance() As DataProvider
      Return objProvider
    End Function

    Public MustOverride Sub YourCompany_GuestBook_Insert(ByVal ModuleId As Integer, _ 
            ByVal Name As String, ByVal Email As String, ByVal Message As String)
    Public MustOverride Function YourCompany_GuestBook_GetAll(ByVal ModuleId As Integer) As IDataReader
    Public MustOverride Sub YourCompany_GuestBook_Update(ByVal ID As Integer, ByVal Name As String, _ 
            ByVal Email As String, ByVal Message As String, ByVal DateEntered As DateTime)
    Public MustOverride Sub YourCompany_GuestBook_Delete(ByVal ID As Integer)

  End Class

End Namespace

Imports System
Imports System.Configuration
Imports System.Data

Namespace YourCompany.Modules.GuestBook

  Public Class GuestBookInfo

    Private _ModuleId As Integer
    Private _ID As Integer
    Private _Name As String
    Private _Email As String
    Private _Message As String
    Private _DateEntered As DateTime

    ' initialization

    Public Sub New()
      MyBase.New()
    End Sub

    ' <summary>
    ' Gets and sets the Module Id
    ' </summary>

    Public Property ModuleId() As Integer
      Get
        Return _ModuleId
      End Get
      Set(ByVal value As Integer)
        _ModuleId = value
      End Set
    End Property


    ' <summary>
    ' Gets and sets the Item ID
    ' </summary>
    Public Property ID() As Integer
      Get
        Return _ID
      End Get
      Set(ByVal value As Integer)
        _ID = value
      End Set
    End Property


    ' <summary>
    ' gets and sets the Name
    ' </summary>
    Public Property Name() As String
      Get
        Return _Name
      End Get
      Set(ByVal value As String)
        _Name = value
      End Set
    End Property


    ' <summary>
    ' Gets and sets the Email
    ' </summary>
    Public Property Email() As String
      Get
        Return _Email
      End Get
      Set(ByVal value As String)
        _Email = value
      End Set
    End Property


    ' <summary>
    ' Gets and sets the Message
    ' </summary>
    Public Property Message() As String
      Get
        Return _Message
      End Get
      Set(ByVal value As String)
        _Message = value
      End Set
    End Property


    ' <summary>
    ' Gets and sets the DateEntered
    ' </summary>
    Public Property DateEntered() As DateTime
      Get
        Return _DateEntered
      End Get
      Set(ByVal value As DateTime)
        _DateEntered = value
      End Set
    End Property


  End Class
End Namespace

Imports System
Imports System.Collections.Generic
Imports System.Configuration
Imports System.ComponentModel
Imports System.Data
Imports System.Xml
Imports System.Web
Imports DotNetNuke
Imports DotNetNuke.Common
Imports DotNetNuke.Common.Utilities
Imports DotNetNuke.Entities.Modules
Imports DotNetNuke.Services.Search


Namespace YourCompany.Modules.GuestBook

  Public Class GuestBookController

    <DataObjectMethod(DataObjectMethodType.Insert)> _
    Public Shared Sub GuestBook_Insert(ByVal objTest As GuestBookInfo)
      DataProvider.Instance.YourCompany_GuestBook_Insert(objTest.ModuleId, objTest.Name, 
                objTest.Email, objTest.Message)
    End Sub

    <DataObjectMethod(DataObjectMethodType.Delete)> _
    Public Shared Sub GuestBook_Delete(ByVal objTest As GuestBookInfo)
      DataProvider.Instance.YourCompany_GuestBook_Delete(objTest.ID)
    End Sub

    <DataObjectMethod(DataObjectMethodType.Select)> _
    Public Shared Function GuestBook_GetAll(ByVal ModuleId As Integer) As List(Of GuestBookInfo)
      Return CBO.FillCollection(Of GuestBookInfo)(DataProvider.Instance().YourCompany_GuestBook_GetAll(ModuleId))
    End Function

    <DataObjectMethod(DataObjectMethodType.Update)> _
    Public Shared Sub GuestBook_Update(ByVal objTest As GuestBookInfo)
      DataProvider.Instance.YourCompany_GuestBook_Update(objTest.ID, objTest.Name, 
                                                  objTest.Email, objTest.Message, objTest.DateEntered)
    End Sub

  End Class


End Namespace