youraccount.aspx.vb

Visual Basic.NET控件时尚编程百例

Public Class YourAccount
    Inherits System.Web.UI.Page

    Protected lblStatus As System.Web.UI.WebControls.Label
    Protected WithEvents pnlOrdersSection As System.Web.UI.WebControls.Panel
    Protected WithEvents drpOrders As System.Web.UI.WebControls.Repeater

#Region " Web Form Designer Generated Code "

    'This call is required by the Web Form Designer.
    <System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()

    End Sub

    Private Sub Page_Init(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Init
        'CODEGEN: This method call is required by the Web Form Designer
        'Do not modify it using the code editor.
        InitializeComponent()
    End Sub

#End Region

    '实例化一个订单处理器
    Private myOrder As New StoreCommon.Services.OrderProcessor()
    Private strCustomerID As String

    Private Sub Page_Load(ByVal sender As System.Object, _
    ByVal e As System.EventArgs) Handles MyBase.Load
        '获取用户的所引号
        strCustomerID = User.Identity.Name
        If (Page.IsPostBack = False) Then
            '刷新页面
            PopulateDataFields()
        End If
    End Sub

    Private Sub PopulateDataFields()
        '获取改用户的历史订单
        drpOrders.DataSource = myOrder.CustomerOrderDetails(strCustomerID)
        drpOrders.DataBind()
        '如果没有历史订单则显示出来并隐藏历史纪录
        If drpOrders.Items.Count = 0 Then
            lblStatus.Text = "您没有历史订单记录。"
            drpOrders.Visible = False
        End If
    End Sub


End Class