shippingregioncontrol.ascx.vb

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

Imports NetShopForge.Library.Shipping
Partial Class Admin_Administration_Controls_ShippingRegionControl
    Inherits System.Web.UI.UserControl

#Region "---EventArg Method---"

    Protected Sub btn_Shipping_AddNewRegion_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btn_Shipping_AddNewRegion.Click
        Dim redirectURL As String = "~/Admin/Administration/Shipping.aspx?mode=editshippingregion&action=addnew&shippingregionid=-1"
        My.Response.Redirect(redirectURL)
    End Sub

    Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        If Not IsPostBack Then
            BindData()
        End If
    End Sub

    Protected Sub btn_Shipping_DeleteShippingRegion_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btn_Shipping_DeleteShippingRegion.Click
        Dim objSC As New ShippingController

        For i As Integer = 0 To gvShippingRegion.Rows.Count - 1
            Dim cbSelect As CheckBox = CType(gvShippingRegion.Rows(i).FindControl("cbSelect"), CheckBox)
            If cbSelect.Checked Then objSC.DeleteShippingRegion((CInt(gvShippingRegion.DataKeys(i).Value)))
        Next i
        BindData()
        ResultMessageControl1.ShowSuccess("删除成功！")
    End Sub

    Protected Sub btn_Shipping_UpdateShippingRegion_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btn_Shipping_UpdateShippingRegion.Click
        Dim objSC As New ShippingController

        For i As Integer = 0 To gvShippingRegion.Rows.Count - 1
            Dim ddlIsValid As DropDownList = CType(gvShippingRegion.Rows(i).FindControl("ddlIsValid"), DropDownList)
            objSC.UpdateShippingRegionQuick(CInt(gvShippingRegion.DataKeys(i).Value), CBool(ddlIsValid.SelectedValue))
        Next i
        BindData()
        ResultMessageControl1.ShowSuccess("更新成功！")
    End Sub
#End Region

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

    Private Sub BindData()
        Dim objSC As New ShippingController
        Dim srList As New Generic.List(Of ShippingRegionInfo)

        srList = objSC.GetShippingRegionList()
        gvShippingRegion.DataSource = srList
        gvShippingRegion.DataBind()

        Dim b As Boolean = (srList.Count > 0)

        btn_Shipping_DeleteShippingRegion.Visible = b
        btn_Shipping_UpdateShippingRegion.Visible = b

    End Sub


#End Region

End Class