editshophelpcategorycontrol.ascx.vb

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

Imports NetShopForge.Library.ShopHelp

Partial Class Admin_Management_Controls_EditShopHelpCategoryControl
    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 action As String = Request("action")
            hfAction.Value = action
            hfShopHelpCatID.Value = ShopHelpCategoryID
            If Not action.ToLower = "addnew" Then
                BindData(ShopHelpCategoryID)
            End If

        End If
    End Sub


#Region "---Private Method---"

    Private Sub BindData(ByVal ShopHelpCategoryID As Integer)

        Dim objNC As New ShopHelpController
        Dim objShopHelpCategory As ShopHelpCategoryInfo
        objShopHelpCategory = objNC.GetShopHelpCategory(ShopHelpCategoryID)

        txtName.Text = objShopHelpCategory.Name
        txtItemOrder.Text = objShopHelpCategory.ItemOrder

    End Sub

#End Region
#Region "---Event Method----"

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

        Dim itemOrder As Integer
        If txtItemOrder.Text.Length = 0 OrElse (Not IsNumeric(txtItemOrder.Text)) Then
            itemOrder = 0
        Else
            itemOrder = txtItemOrder.Text
        End If

        If hfAction.Value.ToLower = "addnew" Then
            'add new

            Try
                ShopHelpController.Instance.AddShopHelpCategory(txtName.Text, itemOrder)
                ResultMessageControl1.ShowSuccess("Add Shop Help success！")
            Catch ex As Exception
                ResultMessageControl1.ShowFail("Add shop help Fail! ")
            End Try

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

        End If


    End Sub

#End Region

End Class