ordercompletecontrol.ascx.vb

来自「C#语言制作asp.net网上商店的」· VB 代码 · 共 34 行

Imports NetShopForge.Library.Order
Imports NetShopForge.Library.Payment
Partial Class Shop_Checkout_OrderCompleteControl
    Inherits System.Web.UI.UserControl

    Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        If Not IsPostBack Then
            hfOrderID.Value = Request("OrderID")
            BindData(CInt(hfOrderID.Value))
            hlEditeOrder.NavigateUrl = "~/User.aspx?mode=editeorder&orderid=" & hfOrderID.Value
        End If
    End Sub

    Private Sub BindData(ByVal orderID As Integer)
        'Dim OC As New OrderController
        Dim O As OrderInfo = OrderController.GetOrder(orderID)
        Dim PC As New PaymentController
        Dim P As PaymentMethodInfo = PC.GetPaymentMethodInfo(CInt(O.PaymentMethodID))

        OrderNumber.Text = O.OrderNumber
        Payment.Text = P.PaymentMethodName
    End Sub

    Protected Sub btnSend_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnSend.Click
        btnSend.Enabled = False
        My.Response.Redirect("~/IhttpHandler/PaymentSendHandler.ashx?OrderID=" & hfOrderID.Value)
    End Sub
End Class