shophelpcontrol.ascx.vb

来自「C#语言制作asp.net网上商店的」· VB 代码 · 共 46 行

Imports NetShopForge.Library.ShopHelp

Partial Class Admin_Management_Controls_ShopHelpControl
    Inherits System.Web.UI.UserControl

    Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load

        If Not IsPostBack Then
            Dim ShopHelpCategoryID As Integer = Request("ShopHelpCategoryID")
            Dim ncc As New ShopHelpController
            hfShopHelpCategoryID.Value = ShopHelpCategoryID
            ShopHelpCategory.Text = ncc.GetShopHelpCategory(ShopHelpCategoryID).Name
            BindData()
        End If

    End Sub

    Private Sub BindData()
        Dim objNC As New ShopHelpController
        gvShopHelp.DataSource = objNC.GetShopHelpList(hfShopHelpCategoryID.Value)
        gvShopHelp.DataBind()
    End Sub

    Protected Sub btnAddNew_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnAddNew.Click
        Dim url As String = String.Format("~/Admin/Management/ShopHelp.aspx?mode=editShopHelp&action=addnew&ShopHelpcategoryid={0}", hfShopHelpCategoryID.Value)
        Page.Response.Redirect(url)
    End Sub

    Protected Sub btnDelete_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnDelete.Click
        Try
            For i As Integer = 0 To gvShopHelp.Rows.Count - 1
                If gvShopHelp.Rows(i).RowType = DataControlRowType.DataRow Then
                    Dim cbSelect As CheckBox = CType(gvShopHelp.Rows(i).FindControl("cbSelect"), CheckBox)
                    Dim ShopHelpID As String = gvShopHelp.DataKeys(i).Value
                    If cbSelect.Checked Then ShopHelpController.Instance.DeleteShopHelp(ShopHelpID)
                End If
            Next i
            BindData()
            ResultMessageControl1.ShowSuccess("帮助删除成功！")
        Catch ex As Exception
            ResultMessageControl1.ShowFail("帮助删除失败！" & ex.Message)
        End Try
    End Sub
End Class