speedbarcontrol.ascx.vb

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

Imports NetShopForge.Library.SpeedBar
Partial Class Admin_Administration_Controls_SpeedBarControl
    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
            BindData()
        End If
    End Sub

    Private Sub BindData()


        gvSpeedBar.DataSource = SpeedBarController.GetSpeedBarList()
        gvSpeedBar.DataBind()

        Dim b As Boolean = (gvSpeedBar.Rows.Count > 0)
        btnSpeedbarDelete.Visible = b
        btnSpeedbarUpdate.Visible = b

    End Sub

    Protected Sub btnSpeedbarDelete_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnSpeedbarDelete.Click
        For i As Integer = 0 To gvSpeedBar.Rows.Count - 1
            If gvSpeedBar.Rows(i).RowType = DataControlRowType.DataRow Then
                Dim cbSelect As CheckBox = CType(gvSpeedBar.Rows(i).FindControl("cbSelect"), CheckBox)
                Dim barID As String = gvSpeedBar.DataKeys(i).Value

                If cbSelect.Checked Then SpeedBarController.Instance.DeleteSpeedBar(barID)
            End If
        Next i
        SpeedBarController.Instance.ClearSpeedbarCache()
        BindData()
    End Sub

    Protected Sub btnSpeedbarUpdate_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnSpeedbarUpdate.Click
        For i As Integer = 0 To gvSpeedBar.Rows.Count - 1
            If gvSpeedBar.Rows(i).RowType = DataControlRowType.DataRow Then
                Dim txtItemOrder As TextBox = CType(gvSpeedBar.Rows(i).FindControl("txtItemOrder"), TextBox)
                Dim ddlIsValid As DropDownList = CType(gvSpeedBar.Rows(i).FindControl("ddlIsValid"), DropDownList)
                Dim barID As Integer = CInt(gvSpeedBar.DataKeys(i).Value)
                SpeedBarController.Instance.UpdateSpeedBarQuick(barID, txtItemOrder.Text, CInt(ddlIsValid.SelectedValue))
            End If
        Next i
        SpeedBarController.Instance.ClearSpeedbarCache()
        BindData()
    End Sub

    Protected Sub btnSpeedbarAddNew_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnSpeedbarAddNew.Click
        Response.Redirect("~/Admin/Administration/SpeedBar.aspx?mode=editspeedbar")
    End Sub
End Class