databusiness.vb

《ASP.NET C#程序设计案例教程》

Imports System
Imports System.Data
Imports System.Configuration										'因为用到了ConfigurationSettings类

NameSpace nsGuest													'nsGuest为自己定义的名称空间的名称

Public Class DataBusiness											'DataBusiness是自己定义的类的名称

	'该过程用来返回所有记录，传入参数为排序字段和排序方向
	Public Function GetGuest(strSortField As String, strDirection As String) As DataView
		'下面返回DataView对象
		Dim dgs As New DataGuests()
		Dim dv As DataView=dgs.GetGuest()
		dv.Sort=strSortField & " " & strDirection					'注意中间有一个空格
		'最后返回排序后的DataView
		Return(dv)
	End Function

	'该过程用来插入记录
	Public Function InsertGuest(strTitle As String,strBody As String,strName As String,strEmail As String,dtmSubmit_Date As Date) As Boolean
		'下面定义一个错误对象，以便捕获错误。
		Dim Exp As Exception
		Try
			'下面建立DataGuests对象，然后调用InsertGuest方法添加数据
			Dim dgs As New DataGuests()
			dgs.InsertGuest(strTitle,strBody,strName,strEmail,dtmSubmit_Date)
			Return(True)
		Catch Exp 
			'如果发生错误
			Return(False)
		End Try
	End Function

	'该过程用来更新记录
	Public Function UpdateGuest(intId As integer,strReback As String,strUserPWD As String) As Boolean
		'如果密码正确，则删除记录，否则不删除
		If strUserPWD=ConfigurationSettings.AppSettings("UserPWD") Then
			'下面建立DataGuests对象，然后调用Update方法更新数据
			Dim dgs As New DataGuests()
			dgs.UpdateGuest(intId,strReback)
			Return(True)
		Else
			Return(False)
		End If
	End Function

	'该过程用来删除记录
	Public Function DeleteGuest(intId As integer,strUserPWD As String) As Boolean
		'如果密码正确，则删除记录，否则不删除
		If strUserPWD=ConfigurationSettings.AppSettings("UserPWD") Then
			'下面建立DataGuests对象，然后调用Delete方法更新数据
			Dim dgs As New DataGuests()
			dgs.DeleteGuest(intId)
			Return(True)
		Else
			Return(False)
		End If
	End Function
	
End Class
End NameSpace