orderdata.vb

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

Imports System
Imports System.Data

Namespace Nozama.General

    Public Class OrderData
        Inherits DataSet

        Public Const ORDER_BOOK_TABLE As String = "OrderBook"
        Public Const ORDER_ID As String = "OrderID"
        Public Const BOOK_ID As String = "BookID"
        Public Const PRICE As String = "Price"
        Public Const DESCRIPTION As String = "Description"
        Public Const QUANTITY As String = "Quantity"

        Public Const ORDERS_TABLE As String = "Orders"
        Public Const UID As String = "UID"
        Public Const ORDER_DATE As String = "OrderDate"
        Public Const CUSTOMER_NAME As String = "CustomerName"
        Public Const ADDRESS As String = "Address"
        Public Const TOTAL_PRICE As String = "TotalPrice"
        Public Const CREDIT_CARD_NUMBER As String = "CreditCardNumber"

        Public Sub New()
            MyBase.New()

            Dim table As DataTable = New DataTable(ORDER_BOOK_TABLE)

            With table.Columns
                .Add(ORDER_ID, GetType(System.Int32))
                .Add(BOOK_ID, GetType(System.Int32))
                .Add(PRICE, GetType(System.Decimal))
                .Add(QUANTITY, GetType(System.Int32))
                .Add(DESCRIPTION, GetType(System.String))
            End With

            Me.Tables.Add(table)

            table = New DataTable(ORDERS_TABLE)

            With table.Columns
                .Add(UID, GetType(System.Int32))
                .Add(ORDER_DATE, GetType(System.DateTime))
                .Add(CUSTOMER_NAME, GetType(String))
                .Add(ADDRESS, GetType(String))
                .Add(TOTAL_PRICE, GetType(System.Decimal))
                .Add(CREDIT_CARD_NUMBER, GetType(System.String))
            End With

            Me.Tables.Add(table)
        End Sub

    End Class

End Namespace