order.vb

来自「Visual Basic.NET控件时尚编程百例」· VB 代码 · 共 79 行

Imports System.Data
Imports System.Data.SqlClient

Namespace Common

    Public Class Order

        Public ConnString As String = "Data Source=localhost;Initial Catalog=Shop;user id=sa;pwd=sa"

        Public Enum OrderStatusEnum
            OrderStatus_已接收 = 1
            OrderStatus_正处理 = 2
            OrderStatus_已发送 = 3
        End Enum

        Public Enum PaymentTypesEnum
            PaymentType_信用卡 = 1
            PaymentType_帐户 = 2
        End Enum

        Public OrderID As String
        Public CustomerID As String
        Public CustomerName As String
        Public OrderStatus As OrderStatusEnum
        Public ShippedDate As DateTime
        Public OrderDate As DateTime
        Public ShipToName As String
        Public ShipToAddressID As String
        Public SubTotal As Double
        Public ShippingTotal As Double
        Public HandingTotal As Double
        Public TaxTotal As Double
        Public GrandTotal As Double
        Public PaymentType As PaymentTypesEnum

        Public objItem As Item
        Public objAddress As Address
        Public objCreditCardPayment As CreditCardPayment

        Public Function Add(ByVal OrderID As String, _
                            ByVal CustomerID As String, _
                            ByVal CustomerName As String, _
                            ByVal OrderStatus As OrderStatusEnum, _
                            ByVal ShipToName As String, _
                            ByVal ShipToAddressID As String, _
                            ByVal SubTotal As Double, _
                            ByVal ShippingTotal As Double, _
                            ByVal OrderDate As DateTime, _
                            ByVal HandingTotal As Double, _
                            ByVal ShippedDate As DateTime, _
                            ByVal TaxTotal As Double, _
                            ByVal GrandTotal As Double, _
                            ByVal PaymentType As PaymentTypesEnum _
                            ) As Order
            Dim objOrder As New Order()
            objOrder.OrderID = OrderID
            objOrder.CustomerID = CustomerID
            objOrder.CustomerName = CustomerName
            objOrder.OrderStatus = OrderStatusEnum.OrderStatus_已接收
            objOrder.ShippedDate = ShippedDate
            objOrder.ShippingTotal = ShippingTotal
            objOrder.ShipToName = ShipToName
            objOrder.TaxTotal = TaxTotal
            objOrder.SubTotal = SubTotal
            objOrder.ShipToAddressID = ShipToAddressID
            objOrder.PaymentType = PaymentTypesEnum.PaymentType_信用卡
            Return objOrder
        End Function

       

     

    End Class


End Namespace