shippingexpressionscontrol.ascx.vb

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

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


#Region "---EventArg Method---"
    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_AddNewExpressions_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btn_Shipping_AddNewExpressions.Click
        Dim redirectURL As String = "~/Admin/Administration/Shipping.aspx?mode=editshippingexpressions&action=addnew&shippingexpressionsid=-1"
        My.Response.Redirect(redirectURL)
    End Sub

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

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

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

        For i As Integer = 0 To gvShippingExpressions.Rows.Count - 1
            Dim ddlIsValid As DropDownList = CType(gvShippingExpressions.Rows(i).FindControl("ddlIsValid"), DropDownList)
            objSC.UpdateShippingExpressionsQuick(CInt(gvShippingExpressions.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 seList As New Generic.List(Of ShippingExpressionsInfo)

        seList = objSC.GetShippingExpressionsList()
        gvShippingExpressions.DataSource = seList
        gvShippingExpressions.DataBind()

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

        btn_Shipping_DeleteExpressions.Visible = b
        btn_Shipping_UpdateExpressions.Visible = b

    End Sub


#End Region


End Class