admin_order_particular.aspx.vb

《ASP.NET C#程序设计案例教程》

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


Public Class admin_order_particular
    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
        '在此处放置初始化页的用户代码
        '下面建立订单对象
        Dim doo As New DataOrder(Request.QueryString("OrderId"))
        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()
        lblOrder.Text &= "<br>发货时间: " & doo.ConsignDate.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()
    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")
            '下面调用上面返回的总数量和总金额
            objBookNum.Text = TotalNum
            objSubTotal.Text = FormatCurrency(TotalMoney)
        End If
    End Sub
End Class