booklogic.vb

来自「编程之道VB.NETt程序设计入门-589M.zip」· VB 代码 · 共 48 行

Imports System
Imports System.Data
Imports Microsoft.VisualBasic

Imports Nozama.DataAccess
Imports Nozama.General

Namespace Nozama.BusinessLogic

    Public Class BookLogic
        Inherits MarshalByRefObject

        Public Function GetClasses() As ClassData
            Dim daClasses As New Classes()

            Return daClasses.GetClasses()
        End Function

        Public Function GetBooksByClassID(ByVal classID As Int32) As BookData
            Dim daBooks As New Books()

            Return daBooks.GetBooksByClassID(classID)
        End Function

        Public Function GetBooksByID(ByVal bookID As Int32) As BookData
            Dim daBooks As New Books()

            Return daBooks.GetBookByID(bookID)
        End Function

        Public Function GetSearchBooks(ByVal searchType As Integer, ByVal searchText As String) As BookData
            Dim daBooks As New Books()

            searchText = Replace(searchText, """", """""")
            Select Case searchType
                Case BookData.SearchTypeEnum.Author
                    Return daBooks.GetBooksByAuthor(searchText)
                Case BookData.SearchTypeEnum.Name
                    Return daBooks.GetBooksByName(searchText)
                Case BookData.SearchTypeEnum.Subject
                    Return daBooks.GetBooksBySubject(searchText)
            End Select

            Return Nothing
        End Function
    End Class
End Namespace