Содержимое файла DataProvider.vb следует заменить следующим кодом:
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)
Для построения уровня бизнес-логики буду произведены следующие действия: • модифицирован файл GuestBookInfo.vb;
• модифицирован файл GuestBookController.vb.
Сие8іВоокІпіЬ.уЬ
В данном файле будет создан класс, предназначенный для хранения данных, диаграмма которого приведена нарис. 15.25.
. 15.25. Диаграмма класса GuestBookInfo Для его реализации замените содержимое файла на следующее:
Imports System
Imports System.Configuration
Imports System.Data
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
End Class End Namespace
⇐Dnn asp.net 2.0 | Введение в технологии создания Интернет-узлов | Guestbookcontroller.vb⇒