editshophelpcontrol.ascx.vb

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

Imports NetShopForge.Library.ShopHelp

Partial Class Admin_Management_Controls_EditShopHelpControl
    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")
            hfShopHelpCatID.Value = ShopHelpCategoryID
            lbBackShopHelpList.NavigateUrl = "~/Admin/Management/ShopHelp.aspx?mode=ShopHelp&ShopHelpCategoryID=" & ShopHelpCategoryID
            Dim ShopHelpID As Integer = Request("ShopHelpID")
            Dim action As String = Request("action")
            hfAction.Value = action
            hfShopHelpID.Value = ShopHelpID
            If Not hfAction.Value.ToLower = "addnew" Then
                BindData(hfShopHelpID.Value)
            End If

        End If

    End Sub

#Region "---Private Method---"
    Private Sub BindData(ByVal ShopHelpID As Integer)

        Dim objNC As New ShopHelpController
        Dim objShopHelp As ShopHelpInfo
        objShopHelp = objNC.GetShopHelp(ShopHelpID)

        txtDescription.Text = objShopHelp.Description
        txtName.Text = objShopHelp.Name

    End Sub

#End Region


    Protected Sub btnSave_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnSave.Click


        If hfAction.Value.ToLower = "addnew" Then
            'add new
            Try
                ShopHelpController.Instance.AddShopHelp(hfShopHelpCatID.Value, txtName.Text, txtDescription.Text)
                ResultMessageControl1.ShowSuccess("Add Shop Help success！")
            Catch ex As Exception
                ResultMessageControl1.ShowFail("Add shop help Fail! ")
            End Try

        Else
            'update
            Try
                ShopHelpController.Instance.UpdateShopHelp(hfShopHelpID.Value, txtName.Text, txtDescription.Text)
                ResultMessageControl1.ShowSuccess("Ipdate Shop Help success！")
            Catch ex As Exception
                ResultMessageControl1.ShowFail("Update shop help Fail! ")
            End Try

        End If

    End Sub
End Class