OASISAdmin/SecurityModuleSettings.aspx.vb at master · iMMAP/OASISAdmin · 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
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
Imports Ext.Net
Imports System.Data.SqlClient
Imports System.Data
Imports Immap.Service
Partial Class SecurityModuleSettings
    Inherits System.Web.UI.Page
    Protected Sub Page_Load(sender As Object, e As System.EventArgs) Handles Me.Load
        Dim database As String = Convert.ToString(Session("database"))
        ImmapService.GetInstance().CheckDatabaseIsExitIfNotRedirectTologin()
        btnSave.Attributes.Add("onclick", "if(confirm('Are you sure you want to perform this action?')== false) return false;")
        If Not (Page.IsPostBack) Then
            Session("TITLE") = "Security"
            LoadUserGroups()
            If Not (Session("cboUserGroupsIndex") Is Nothing) AndAlso (cboUserGroups.Items.Count > 0) Then
                cboUserGroups.SelectedIndex = Convert.ToInt32(Session("cboUserGroupsIndex"))
                cboUserGroups.DataBind()
            End If
            LoadAllSetting()
        End If
    End Sub

    Public Sub LoadUserGroups()
        Dim database As String = Session("database")
        Dim dt As DataTable
        Try
            dt = UserGroupService.GetInstance().LoadForComboboxUserGroupDatable(database)
            If dt.Rows.Count > 0 Then
                cboUserGroups.DataSource = dt
                cboUserGroups.DataTextField = "Name"
                cboUserGroups.DataValueField = "ID"
                cboUserGroups.SelectedIndex = 0
            Else
                cboUserGroups.DataSource = Nothing
            End If
            cboUserGroups.DataBind()
        Catch ex As Exception
        End Try
    End Sub

    Protected Sub btnSave_Click(sender As Object, e As System.EventArgs) Handles btnSave.Click
        SaveAllSetting()
        cboUserGroups_SelectedIndexChanged(sender, e)
    End Sub

    Protected Sub SaveAllSetting()
        Dim database As String = Session("database")
        ImmapUtil.GetInstance().SaveData(database, cboUserGroups.SelectedItem.Text, "OASIS_Incident_Layer_Name", "SettingValue1", txtIncidentLayerName.Text)
        '  ImmapUtil.GetInstance().SaveData(database, cboUserGroups.SelectedItem.Text,"SecurityTools", "SettingValue2", If(chkSecurityGraphs.Value = True, "1", "0"))
        ImmapUtil.GetInstance().SaveData(database, cboUserGroups.SelectedItem.Text, "SecurityTools", "SettingValue3", If(chkSecurityTrends.Value = True, "1", "0"))
        ImmapUtil.GetInstance().SaveData(database, cboUserGroups.SelectedItem.Text, "SecurityTools", "SettingValue4", If(chkAddIncident.Value = True, "1", "0"))

        ImmapUtil.GetInstance().SaveData(database, cboUserGroups.SelectedItem.Text, "ShowSecurityTab", "SettingValue2", txtLegendSymbolSize.Text)

        ImmapUtil.GetInstance().IncreseSetting(database, cboUserGroups.SelectedItem.Text, "ProfileSettings", "SettingValue1")

        Session("cboUserGroupsIndex") = cboUserGroups.SelectedIndex
    End Sub


    Protected Sub cboUserGroups_SelectedIndexChanged(sender As Object, e As System.EventArgs) Handles cboUserGroups.SelectedIndexChanged
        LoadAllSetting()
    End Sub

    Protected Sub LoadAllSetting()
        ClearControl()
        Dim database As String = Session("database")
        Dim dtConfig As DataTable
        If (IsNothing(cboUserGroups.SelectedItem) = False) Then
            Dim commandText = "SELECT [SettingName],[SettingValue1],[SettingValue2],[SettingValue3],[SettingValue4],[SettingValue5] FROM " & _
              cboUserGroups.SelectedItem.Text & "AppSettings"
            Session("cboUserGroupsIndex") = cboUserGroups.SelectedIndex

            Try
                dtConfig = SQLHelper.ExecuteDataTable(ImmapUtil.getConnectionStringByDatabase(database), commandText)
                If dtConfig.Rows.Count > 0 Then
                    For i As Integer = 0 To dtConfig.Rows.Count - 1
                        Dim SettingName As String = Convert.ToString(dtConfig.Rows(i)(0))
                        Dim SettingValue1 = Convert.ToString(dtConfig.Rows(i)(1))
                        If SettingName.Equals("OASIS_Incident_Layer_Name") = True Then
                            txtIncidentLayerName.Text = CheckIfNull(SettingValue1)
                        End If

                        If SettingName.Equals("SecurityGridZoomLevels") = True Then
                            Dim SettingValue2 = Convert.ToString(dtConfig.Rows(i)(2))
                            Dim SettingValue3 = Convert.ToString(dtConfig.Rows(i)(3))
                        End If

                        If SettingName.Equals("ShowSecurityTab") = True Then
                            Dim SettingValue2 = Convert.ToString(dtConfig.Rows(i)(2))
                            txtLegendSymbolSize.Text = SettingValue2
                        End If

                        If SettingName.Equals("SecurityTools") = True Then
                            Dim SettingValue2 = Convert.ToString(dtConfig.Rows(i)(2))
                            Dim SettingValue3 = Convert.ToString(dtConfig.Rows(i)(3))
                            Dim SettingValue4 = Convert.ToString(dtConfig.Rows(i)(4))


                            'If SettingValue2.Equals("1") Then
                            '    chkSecurityGraphs.Value = True
                            'Else
                            '    chkSecurityGraphs.Value = False
                            'End If

                            If SettingValue3.Equals("1") Then
                                chkSecurityTrends.Value = True
                            Else
                                chkSecurityTrends.Value = False
                            End If

                            If SettingValue4.Equals("1") Then
                                chkAddIncident.Value = True
                            Else
                                chkAddIncident.Value = False
                            End If
                        End If

                        If SettingName.Equals("AdmProvSec") = True Then
                            Dim SettingValue3 = Convert.ToString(dtConfig.Rows(i)(3))
                        End If

                        If SettingName.Equals("AdmDistSec") = True Then
                            Dim SettingValue3 = Convert.ToString(dtConfig.Rows(i)(3))
                        End If

                        If SettingName.Equals("AdmLocalSec") = True Then
                            Dim SettingValue3 = Convert.ToString(dtConfig.Rows(i)(3))
                        End If
                    Next
                Else
                    Exit Sub
                End If
            Catch ex As Exception

            End Try
        End If
    End Sub

    Protected Sub ClearControl()
        txtIncidentLayerName.Text = "Oincidents1"
        txtLegendSymbolSize.Text = ""
        ' chkSecurityGraphs.Value = False
        chkSecurityTrends.Value = False
        chkAddIncident.Value = False
    End Sub

    Private Function CheckIfNull(sString As Object) As String
        If String.IsNullOrWhiteSpace(sString) Then
            CheckIfNull = ""
        Else
            CheckIfNull = sString
        End If
    End Function
End Class