admin_order_particular.aspx.vb

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

Imports System
Imports System.Web
Imports System.Web.UI
Imports System.Web.UI.WebControls
Imports Microsoft.VisualBasic								'因为用到了FormatCurrency函数

Imports nsShop

Public Class admin_Order_particular: Inherits Page
	Public lblOrder,lblUser As Label
	Public myDataGrid As DataGrid

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

	Sub Page_Load(Sender As Object, E As EventArgs)
		'下面建立订单对象
		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

	'该过程用于添加合计值
	Sub MyDataGrid_ItemDataBound(sender As Object, e As DataGridItemEventArgs) 
		'这个判断语句表示，只有对于脚注行才执行
		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