LMS/sidebar.ascx.vb at master · junrikson/LMS · GitHub

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
Imports System.Data
Imports System.Data.SqlClient
Public Class sidebar
    Inherits System.Web.UI.UserControl
    Private dt As DataTable
    Private ds As DataSet
    Private sqlstring As String
    Private con As SqlConnection
    Private sdr As SqlDataReader

    Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        sqlstring = "SELECT D.[menuID], D.[name], D.[order], D.[level], D.[parent], D.[icon], D.[cssClass], D.[url] " & _
                    "FROM roles A INNER JOIN rolesDetail B " & _
                    "ON A.[roleID] = B.[RoleID] " & _
                    "INNER JOIN masterMenu C " & _
                    "ON C.[menuID] = B.[menuID] " & _
                    "INNER JOIN masterMenu D " & _
                    "ON D.[parent] = C.[menuID] " & _
                    "WHERE A.[roleID] = '" & Session("roleID") & "' " & _
                    "AND A.[status] = 1 " & _
                    "AND B.[active] = 1 " & _
                    "AND D.[status] = 1 " & _
                    "ORDER BY D.[order]"

        ds = SQLExecuteQuery(sqlstring)
        dt = ds.Tables(0)

        Dim hasil As String = ""
        Dim i As Integer = 0
        Dim ul As Boolean = 0
        Dim j As Integer = dt.Rows.Count
        If j > 0 Then
            For Each row As DataRow In dt.Rows
                If i > 0 Then
                    If dt.Rows(i).Item("level").ToString > dt.Rows(i - 1).Item("level").ToString Then
                        hasil = hasil & "<ul class=""nav child_menu""><li><a href=""" & dt.Rows(i).Item("url").ToString & """>" & dt.Rows(i).Item("name").ToString & "</a>"
                    ElseIf dt.Rows(i).Item("level").ToString = dt.Rows(i - 1).Item("level").ToString Then
                        If dt.Rows(i).Item("level").ToString = "1" Then
                            hasil = hasil & "</li>"
                        Else
                            hasil = hasil & "</li><li><a href=""" & dt.Rows(i).Item("url").ToString & """>" & dt.Rows(i).Item("name").ToString & "</a>"
                        End If
                    ElseIf dt.Rows(i).Item("level").ToString < dt.Rows(i - 1).Item("level").ToString Then
                        If dt.Rows(i).Item("level").ToString = "1" Then
                            hasil = hasil & "</li></ul></li><li><a><i class=""" & dt.Rows(i).Item("icon").ToString & """></i> " & dt.Rows(i).Item("name").ToString & "<span class=""" & dt.Rows(i).Item("cssClass").ToString & """></span></a>"
                        Else
                            hasil = hasil & "</li></ul></li><li><a href=""" & dt.Rows(i).Item("url").ToString & """>" & dt.Rows(i).Item("name").ToString & "</a>"
                        End If
                    End If
                Else
                    If dt.Rows(i).Item("level").ToString = "1" Then
                        hasil = hasil & "<li><a><i class=""" & dt.Rows(i).Item("icon").ToString & """></i> " & dt.Rows(i).Item("name").ToString & "<span class=""" & dt.Rows(i).Item("cssClass").ToString & """></span></a>"
                    Else
                        hasil = hasil & "<li><a href=""" & dt.Rows(i).Item("url").ToString & """>" & dt.Rows(i).Item("name").ToString & "</a>"
                    End If
                End If

                i = i + 1

                If i = j Then
                    If dt.Rows(i - 1).Item("level").ToString = 1 Then
                        hasil = hasil & "</li>"
                    ElseIf dt.Rows(i - 1).Item("level").ToString = 2 Then
                        hasil = hasil & "</li></ul></li>"
                    ElseIf dt.Rows(i - 1).Item("level").ToString = 3 Then
                        hasil = hasil & "</li></ul></li></ul></li>"
                    ElseIf dt.Rows(i - 1).Item("level").ToString = 4 Then
                        hasil = hasil & "</li></ul></li></ul></li></ul></li>"
                    ElseIf dt.Rows(i - 1).Item("level").ToString = 5 Then
                        hasil = hasil & "</li></ul></li></ul></li></ul></li></ul></li>"
                    End If
                End If
            Next
        End If

        ltrSidebar.Text = hasil
    End Sub

End Class