checkout.aspx.vb

电子商务买书的网站

Imports Microsoft.VisualBasic                               '因为用到了FormatCurrency函数


Public Class CheckOut
    Inherits System.Web.UI.Page

#Region " Web 窗体设计器生成的代码 "

    '该调用是 Web 窗体设计器所必需的。
    <System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()

    End Sub
    Protected WithEvents lblOrder As System.Web.UI.WebControls.Label
    Protected WithEvents lblUser As System.Web.UI.WebControls.Label
    Protected WithEvents myDataGrid As System.Web.UI.WebControls.DataGrid

    '注意: 以下占位符声明是 Web 窗体设计器所必需的。
    '不要删除或移动它。
    Private designerPlaceholderDeclaration As System.Object

    Private Sub Page_Init(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Init
        'CODEGEN: 此方法调用是 Web 窗体设计器所必需的
        '不要使用代码编辑器修改它。
        InitializeComponent()
    End Sub

#End Region
    '这里定义了两个私有变量，用来保存总数量和总金额，以备后面使用
    Private TotalNum As Integer
    Private TotalMoney As Single

    Private Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        '在此处放置初始化页的用户代码
        '首先建立ShoppingCart对象
        Dim sc As New ShoppingCart
        If sc.HasBooks = True Then
            '首先结账，并返回订单编号
            Dim intOrderId As Integer = sc.CheckOut()

            '下面建立订单对象
            Dim doo As New DataOrder(intOrderId)
            TotalNum = doo.TotalNum
            TotalMoney = doo.TotalMoney
            '下面输出订单信息
            lblOrder.Text = "订单号码: " & doo.OrderId
            lblOrder.Text &= "<br>购买数量: " & doo.TotalNum
            lblOrder.Text &= "<br>购买金额: " & doo.TotalMoney
            lblOrder.Text &= "<br>订货时间: " & doo.SubmitDate.ToString()
            '下面输出客户信息
            Dim du As New DataUser(doo.UserId)
            lblUser.Text = "客户姓名: " & du.UserName
            lblUser.Text &= "<br>通讯地址: " & du.PostalAddress
            lblUser.Text &= "<br>邮政编码: " & du.PostalCode
            lblUser.Text &= "<br>联系电话: " & du.Tel
            lblUser.Text &= "<br>电子信箱: " & du.Email
            '下面输出订单明细信息
            myDataGrid.DataSource = doo.GetParticular()
            myDataGrid.DataBind()
        Else
            Response.Write("购物车中没有商品，请先去选择书籍")
            Response.End()
        End If
    End Sub

    '该过程用于添加合计值
    Private Sub myDataGrid_ItemDataBound(ByVal sender As Object, ByVal e As System.Web.UI.WebControls.DataGridItemEventArgs) Handles myDataGrid.ItemDataBound
        '这个判断语句表示，只有对于脚注行才执行
        If e.Item.ItemType = ListItemType.Footer Then
            '下面找到两个Label控件
            Dim objBookNum, objSubTotal As Label  '定义一个LinkButton控件
            objBookNum = e.Item.FindControl("lblBookNum")
            objSubTotal = e.Item.FindControl("lblSubTotal")
            '这里调用上面的私有变量TotalNum和TotalMoney
            objBookNum.Text = TotalNum
            objSubTotal.Text = FormatCurrency(TotalMoney)
        End If
    End Sub
End Class