ordercontroller.vb

C#语言制作asp.net网上商店的

                    s = "交易已创建,等待确认"
                Case OrderStatus.OrderCancelledPriorToShipping
                    s = "订单已取消"
                Case OrderStatus.OrderComplete
                    s = "订单完成"
                Case OrderStatus.OrderRefunded
                    s = "退款"
                Case OrderStatus.ReceivedPaymentProcessingOrder
                    s = "收到付款,处理订单"
                Case OrderStatus.ReceivedAwaitingPayment
                    s = "订单确认,等待付款"
                Case OrderStatus.ShippedToCustomer
                    s = "已发货"
            End Select
            Return s
        End Function

        Public Shared Function GetChineseOrderAction(ByVal action As OrderAction) As String
            Dim a As String = ""
            Select Case action
                Case OrderAction.B_Pay
                    a = "付款"
                Case OrderAction.B_Received
                    a = "收货"
                Case OrderAction.B_Refund
                    a = "退款"
                Case OrderAction.B_Cancel, OrderAction.S_Cancel
                    a = "取消"
                Case OrderAction.B_Modify, OrderAction.S_Modify
                    a = "修改"
                Case OrderAction.S_Review
                    a = "管理员留言"
                Case OrderAction.B_Review
                    a = "顾客留言"
                Case OrderAction.S_Received
                    a = "确认"
                Case OrderAction.S_ReceivedPay
                    a = "到款"
                Case OrderAction.S_Refund
                    a = "退款"
                Case OrderAction.S_Shipped
                    a = "发货"
                Case OrderAction.ViewDetail
                    a = "查看"
                Case OrderAction.S_Complete
                    a = "归档"
            End Select
            Return a
        End Function
#End Region


#End Region

#Region "---Private Method---"


        Private Shared Function FillOrderInfo(ByVal dr As IDataReader) As OrderInfo

            Dim objOrder As New OrderInfo
            objOrder.BillingArea = dr.Item("BillingArea")
            objOrder.BillingAddress = dr.Item("BillingAddress")
            objOrder.BillingCity = dr.Item("BillingCity")
            objOrder.BillingCounTry = dr.Item("BillingCountry")
            objOrder.BillingName = dr.Item("BillingName")
            objOrder.BillingPhone = dr.Item("BillingPhone")
            objOrder.BillingPostalCode = dr.Item("BillingPostalCode")
            objOrder.BillingState = dr.Item("BillingState")
            objOrder.CouponFee = dr.Item("CouponFee")
            objOrder.CustomerNote = dr.Item("CustomerNote")
            objOrder.DiscountFee = dr.Item("DiscountFee")
            objOrder.InvoiceTitle = dr.Item("InvoiceTitle")
            objOrder.IsCancel = dr.Item("IsCancel")
            objOrder.NeedInvoice = dr.Item("NeedInvoice")
            objOrder.OrderDate = dr.Item("OrderDate")
            objOrder.OrderID = dr.Item("OrderID")
            objOrder.OrderNumber = dr.Item("OrderNumber")
            objOrder.PaymentMethodID = dr.Item("PaymentMethodID")
            objOrder.ProductSubtotalFee = dr.Item("ProductSubtotalFee")
            If Not IsDBNull(dr.Item("SendDate")) Then
                objOrder.SendDate = dr.Item("SendDate")
            End If

            objOrder.ShipAddress = dr.Item("ShipAddress")
            objOrder.ShipAddress2 = dr.Item("ShipAddress2")
            objOrder.ShipArea = dr.Item("ShipArea")
            objOrder.ShipAreaID = dr.Item("ShipAreaID")
            objOrder.ShipCity = dr.Item("ShipCity")
            objOrder.ShipCountry = dr.Item("ShipCounTry")
            objOrder.ShipName = dr.Item("ShipName")
            objOrder.ShippingFee = dr.Item("ShippingFee")
            objOrder.ShippingMethodID = dr.Item("ShippingMethodID")
            objOrder.ShipState = dr.Item("ShipState")
            objOrder.ShipPhone = dr.Item("ShipPhone")
            objOrder.OrderStatus = CInt(dr.Item("OrderStatus"))
            'objOrder.PayStatus = CInt(dr.Item("PayStatus"))
            objOrder.TotalFee = dr.Item("TotalFee")
            objOrder.UserName = dr.Item("UserName")
            '    objOrder.UserID = dr.Item("UserID")

            Return objOrder

        End Function
        Private Shared Function FillOrderDetailInfo(ByVal dr As IDataReader) As OrderDetailInfo

            Dim objOrderDetail As New OrderDetailInfo

            objOrderDetail.Discount = dr.Item("Discount")
            objOrderDetail.OrderDetailID = dr.Item("OrderDetailID")
            objOrderDetail.OrderID = dr.Item("OrderID")
            objOrderDetail.ProductID = dr.Item("ProductID")
            objOrderDetail.ProductOptions = dr.Item("ProductOptions")
            objOrderDetail.Quantity = dr.Item("Quantity")
            objOrderDetail.UnitCost = dr.Item("UnitCost")
            objOrderDetail.ProductName = dr.Item("ProductName")

            Return objOrderDetail

        End Function

        Private Shared Function FillOrderNoteInfo(ByVal dr As IDataReader) As OrderNoteInfo

            Dim objOrderNote As New OrderNoteInfo

            objOrderNote.Action = CInt(dr.Item("Action"))
            objOrderNote.Note = dr.Item("Note")
            objOrderNote.NoteDate = CDate(dr.Item("Date"))
            objOrderNote.NoteID = dr.Item("NoteID")
            objOrderNote.OrderID = dr.Item("OrderID")
            objOrderNote.OrderStatus = CInt(dr.Item("OrderStatus"))


            Return objOrderNote

        End Function





        Private Shared Function AddOrder(ByVal O As OrderInfo) As Integer

            Dim db As Database = DatabaseFactory.CreateDatabase
            Dim dbCommand As DbCommand = db.GetStoredProcCommand("nsf_Order_AddOrder")
            O.OrderID = Common.GetKeys("OrderID")
            O.OrderNumber = GetCurrentTimeOrder()
            db.AddInParameter(dbCommand, "@OrderID", DbType.Int32, O.OrderID)
            db.AddInParameter(dbCommand, "@OrderNumber", DbType.String, O.OrderNumber)
            db.AddInParameter(dbCommand, "@UserName", DbType.String, O.UserName)
            db.AddInParameter(dbCommand, "@ProductSubtotalFee", DbType.Decimal, O.ProductSubtotalFee)
            db.AddInParameter(dbCommand, "@DiscountFee", DbType.Decimal, O.DiscountFee)
            db.AddInParameter(dbCommand, "@CouponFee", DbType.Decimal, O.CouponFee)
            db.AddInParameter(dbCommand, "@ShippingFee", DbType.Decimal, O.ShippingFee)
            db.AddInParameter(dbCommand, "@TotalFee", DbType.Decimal, O.TotalFee)
            db.AddInParameter(dbCommand, "@OrderStatus", DbType.Int32, O.OrderStatus)
            db.AddInParameter(dbCommand, "@NeedInvoice", DbType.Boolean, O.NeedInvoice)
            db.AddInParameter(dbCommand, "@InvoiceTitle", DbType.String, O.InvoiceTitle)
            db.AddInParameter(dbCommand, "@ShippingMethodID", DbType.Int32, O.ShippingMethodID)
            db.AddInParameter(dbCommand, "@PaymentMethodID", DbType.Int32, O.PaymentMethodID)
            db.AddInParameter(dbCommand, "@OrderDate", DbType.DateTime, O.OrderDate)
            db.AddInParameter(dbCommand, "@SendDate", DbType.DateTime, O.SendDate)
            db.AddInParameter(dbCommand, "@CustomerNote", DbType.String, O.CustomerNote)
            db.AddInParameter(dbCommand, "@ShipName", DbType.String, O.ShipName)
            db.AddInParameter(dbCommand, "@ShipAddress", DbType.String, O.ShipAddress)
            db.AddInParameter(dbCommand, "@ShipAddress2", DbType.String, O.ShipAddress2)
            db.AddInParameter(dbCommand, "@ShipAreaID", DbType.String, O.ShipAreaID)
            db.AddInParameter(dbCommand, "@ShipArea", DbType.String, O.ShipArea)
            db.AddInParameter(dbCommand, "@ShipCity", DbType.String, O.ShipCity)
            db.AddInParameter(dbCommand, "@ShipState", DbType.String, O.ShipState)
            db.AddInParameter(dbCommand, "@ShipPostalCode", DbType.String, O.ShipPostalCode)
            db.AddInParameter(dbCommand, "@ShipCountry", DbType.String, O.ShipCountry)
            db.AddInParameter(dbCommand, "@ShipPhone", DbType.String, O.ShipPhone)
            db.AddInParameter(dbCommand, "@BillingName", DbType.String, O.BillingName)
            db.AddInParameter(dbCommand, "@BillingCountry", DbType.String, O.BillingCounTry)
            db.AddInParameter(dbCommand, "@BillingState", DbType.String, O.BillingState)
            db.AddInParameter(dbCommand, "@BillingCity", DbType.String, O.BillingCity)
            db.AddInParameter(dbCommand, "@BillingArea", DbType.String, O.BillingArea)
            db.AddInParameter(dbCommand, "@BillingAddress", DbType.String, O.BillingAddress)
            db.AddInParameter(dbCommand, "@BillingPostalCode", DbType.String, O.BillingPostalCode)
            db.AddInParameter(dbCommand, "@BillingPhone", DbType.String, O.BillingPhone)
            db.AddInParameter(dbCommand, "@IsCancel", DbType.Boolean, O.IsCancel)

            db.ExecuteNonQuery(dbCommand)
            Return O.OrderID
        End Function
        Private Shared Sub AddOrderDetail(ByVal oItem As OrderDetailInfo, ByVal orederID As Integer)

            Dim db As Database = DatabaseFactory.CreateDatabase
            Dim dbCommand As DbCommand = db.GetStoredProcCommand("nsf_Order_AddOrderDetail")
            oItem.OrderDetailID = Common.GetKeys("OrderDetailID")
            oItem.OrderID = orederID
            db.AddInParameter(dbCommand, "@OrderDetailID", DbType.Int32, oItem.OrderDetailID)
            db.AddInParameter(dbCommand, "@OrderID", DbType.String, oItem.OrderID)
            db.AddInParameter(dbCommand, "@ProductID", DbType.String, oItem.ProductID)
            db.AddInParameter(dbCommand, "@Quantity", DbType.Decimal, oItem.Quantity)
            db.AddInParameter(dbCommand, "@UnitCost", DbType.Decimal, oItem.UnitCost)
            db.AddInParameter(dbCommand, "@Discount", DbType.Decimal, oItem.Discount)
            db.AddInParameter(dbCommand, "@ProductOptions", DbType.String, oItem.ProductOptions)
            db.ExecuteNonQuery(dbCommand)
        End Sub

        Public Shared Sub AddOrderNote(ByVal note As OrderNoteInfo)

            Dim db As Database = DatabaseFactory.CreateDatabase
            Dim dbCommand As DbCommand = db.GetStoredProcCommand("nsf_Order_AddOrderNote")
            note.NoteID = Common.GetKeys("OrderNoteID")
            db.AddInParameter(dbCommand, "@NoteID", DbType.Int32, note.NoteID)
            db.AddInParameter(dbCommand, "@OrderID", DbType.Int32, note.OrderID)
            db.AddInParameter(dbCommand, "@Note", DbType.String, note.Note)
            db.AddInParameter(dbCommand, "@OrderStatus", DbType.Int32, CInt(note.OrderStatus))
            db.AddInParameter(dbCommand, "@Date", DbType.Date, note.NoteDate)
            db.AddInParameter(dbCommand, "@Action", DbType.Int32, CInt(note.Action))
            db.ExecuteNonQuery(dbCommand)
        End Sub

        Public Shared Sub UpdateOrderStatus(ByVal orderID As Integer, ByVal orderStatus As OrderStatus)
            Dim db As Database = DatabaseFactory.CreateDatabase
            Dim dbCommand As DbCommand = db.GetStoredProcCommand("nsf_Order_UpdateOrderStatus")

            db.AddInParameter(dbCommand, "@OrderID", DbType.Int32, orderID)
            db.AddInParameter(dbCommand, "@OrderStatus", DbType.Int32, CInt(orderStatus))

            db.ExecuteNonQuery(dbCommand)

        End Sub





#End Region

    End Class

End Namespace