bookdata.vb

编程之道VB.NETt程序设计入门-589M.zip

Imports System
Imports System.Data

Namespace Nozama.General

    Public Class BookData
        Inherits DataSet

        Public Const BOOKS_TABLE As String = "Books"

        Public Const UID As String = "UID"
        Public Const IMAGE_FILE As String = "ImageFile"
        Public Const NAME As String = "Name"
        Public Const SUBJECT As String = "Subject"
        Public Const PRICE As String = "Price"
        Public Const AUTHORS As String = "Authors"

        Public Enum SearchTypeEnum
            Name = 0
            Author = 2
            Subject = 3
            UID = 4
            UIDList = 5
        End Enum

        Public Sub New()
            MyBase.New()
            Dim table As DataTable = New DataTable(BOOKS_TABLE)

            With table.Columns
                .Add(UID, GetType(System.Int32))
                .Add(IMAGE_FILE, GetType(System.String))
                .Add(NAME, GetType(System.String))
                .Add(SUBJECT, GetType(System.String))
                .Add(PRICE, GetType(System.Decimal))
                .Add(AUTHORS, GetType(System.String))
            End With

            Me.Tables.Add(table)
        End Sub

    End Class

End Namespace