ModuleMaster/viewgraph.aspx.vb - main - ivan/ModMas

ModuleMaster/viewgraph.aspx.vb
67 строк3 KB
i.krivokon
Initial commit
13 мар 2026, 13:49
13 мар 2026, 13:4900d9fb6

Partial Class viewGraph
    Inherits System.Web.UI.Page

    Protected Sub Page_Load(sender As Object, e As System.EventArgs) Handles Me.Load
        If IsPostBack Then
            If Request.QueryString("mode") IsNot Nothing Then
                If Request.QueryString("mode").ToLower = "slideshow" Then
                    graphForTable.StartSlideShow = True
                End If
            End If
        End If
    End Sub

    Protected Sub viewGraph_PreRender(sender As Object, e As EventArgs) Handles Me.PreRender
        Dim tableId As String = Request.QueryString("tableid")
        Dim showHeader As String = Request.QueryString("showheader")
        If Not IsNothing(showHeader) Then
            Select Case showHeader.ToUpper
                Case "TRUE"
                    graphForTable.ShowHEader = True
                Case "FALSE"
                    graphForTable.ShowHEader = False
                    'dvHeader.Visible = False
            End Select
        End If

        If Not IsNothing(tableId) Then
            lblCaption.Text = (New sharedClasses.dbFunctions.SqlFunctions).GetScalar("select tablename from usermodules.dbo.moduletables where id=" & tableId)
            graphForTable.TableId = tableId
            graphForTable.DrawGraph()
        End If

        If Request.QueryString("backcolor") IsNot Nothing Then
            htmlbody.Style.Add("background-color", Request.QueryString("backcolor"))
        End If
        If Not IsPostBack Then
            If Request.QueryString("mode") IsNot Nothing Then
                If Request.QueryString("mode").ToLower = "slideshow" Then
                    graphForTable.StartSlideShow = True
                End If
            End If
        End If

    End Sub

    Protected Sub btnSelectVariant_Click(sender As Object, e As System.Web.UI.ImageClickEventArgs) Handles btnSelectVariant.Click
        graphForTable.SelectCondition = ddlVariants.SelectedValue
    End Sub

    Protected Sub ddlVariants_DataBound(sender As Object, e As System.EventArgs) Handles ddlVariants.DataBound
        If ddlVariants.Items.Count > 0 Then
            pnlControls.Visible = True
        Else
            pnlControls.Visible = False
        End If
    End Sub

    Protected Sub btnClear_Click(sender As Object, e As System.Web.UI.ImageClickEventArgs) Handles btnClear.Click
        graphForTable.SelectCondition = ""
    End Sub

    Protected Sub btnView_Click(sender As Object, e As System.Web.UI.ImageClickEventArgs) Handles btnView.Click
        pnlControls.Visible = False
        graphForTable.ShowHeader = False
        graphForTable.SelectCondition = ddlVariants.SelectedValue
    End Sub
End Class