Imports StoreCommon.Services

Public MustInherit Class Categories
    Inherits System.Web.UI.UserControl
    Protected WithEvents dlistCategories As System.Web.UI.WebControls.DataList

#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 Sub Page_Load(ByVal sender As System.Object, _
    ByVal e As System.EventArgs) Handles MyBase.Load
        '實例化一個商品分類的公共組件服務
        Dim objCatalog As New StoreCommon.Services.Categories()
        Dim objCatalogDataset As New DataSet()
        objCatalogDataset.Clear()
        '填充數據集
        objCatalogDataset = objCatalog.GetProductCategories
        '數據綁定到DataList控件，從而顯示商品的類別
        dlistCategories.DataSource = _
        objCatalogDataset.Tables("Categories").DefaultView
        dlistCategories.DataBind()
    End Sub

End Class