databusiness.vb

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

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

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

    '该过程用来插入记录
    Public Function InsertGuest(ByVal strTitle As String, ByVal strBody As String, ByVal strName As String, ByVal strEmail As String, ByVal 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(ByVal intId As Integer, ByVal strReback As String, ByVal 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(ByVal intId As Integer, ByVal 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

    '下面返回所有记录
    Public Function GetGuest(ByVal strSortField As String, ByVal 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
End Class