Содержимое файла 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⇒