123

Dokumentation/uscntr_Firewalleinstellungen.vb

@@ -0,0 +1,155 @@
+Public Class uscntr_Firewalleinstellungen
+    Property Host As String = ""
+    Public ds As New DataSet
+    Public fwr_ID As String
+    Public Neu As Boolean = False
+
+    Private Sub uscntr_Firewalleinstellungen_Load(sender As Object, e As EventArgs) Handles Me.Load
+        Neu = True
+        fwr_ID = Host & Now.ToString("yyyyMMddhhmmss")
+        Class1.EnableDoubleBuffered(dgvFirewallEinstellungen)
+        Laden()
+        '        MsgBox(ds.Tables(0).Rows(0).Item("fwr_info").ToString)
+    End Sub
+
+    Public Function Laden()
+        ds.Clear()
+        FirewallEntry.getFirewallEntrys(ds, Host)
+        FillDGV(ds)
+    End Function
+
+    Private Sub CmdBearbeiten_Click(sender As Object, e As EventArgs) Handles CmdBearbeiten.Click
+        SplitContainer1.Panel1Collapsed = Not SplitContainer1.Panel1Collapsed
+
+        If SplitContainer1.Panel1Collapsed = True Then
+            CmdBearbeiten.Text = "Bearbeiten"
+        Else
+            CmdBearbeiten.Text = "Ausblenden"
+        End If
+
+    End Sub
+
+
+    Public Function FillDGV(ds As DataSet)
+        With dgvFirewallEinstellungen
+            ' .DefaultCellStyle.BackColor = Color.Olive
+            .DataSource = ds.Tables(0)
+            .AutoSize = False
+            '.AutoSizeRowsMode = 0
+
+            .Columns("fwr_in").DisplayIndex = 0
+            .Columns("fwr_in").HeaderText = "IP In"
+
+            .Columns("fwr_out").DisplayIndex = 1
+            .Columns("fwr_out").HeaderText = "IP Out"
+
+            .Columns("fwr_portsin").DisplayIndex = 2
+            .Columns("fwr_portsin").HeaderText = "Ports In"
+
+            .Columns("fwr_portsout").DisplayIndex = 3
+            .Columns("fwr_portsout").HeaderText = "Ports Out"
+
+            .Columns("fwr_dienste").DisplayIndex = 4
+            .Columns("fwr_dienste").HeaderText = "Dienste"
+
+            .Columns("fwr_FQDN").DisplayIndex = 5
+            .Columns("fwr_FQDN").HeaderText = "FQDN"
+
+            .Columns("fwr_info").DisplayIndex = 6
+            .Columns("fwr_info").HeaderText = "Info"
+            '.Columns("fwr_info").AutoSizeMode = DataGridViewAutoSizeColumnMode.AllCells
+
+            '.Columns("fwr_allowdeny").Visible = False
+            .Columns("fwr_direct").Visible = False
+            .Columns("fwr_ID").Visible = False
+
+        End With
+
+    End Function
+
+    Private Sub chkDirekt_CheckedChanged(sender As Object, e As EventArgs) Handles chkDirekt.CheckedChanged
+        If chkDirekt.Checked Then
+            TxtPortsIn.Text = "*"
+            TxtPortsOut.Text = "*"
+            TxtPortsIn.Enabled = False
+            TxtPortsOut.Enabled = False
+        Else
+            TxtPortsIn.Enabled = True
+            TxtPortsOut.Enabled = True
+        End If
+    End Sub
+
+    Private Sub dgvFirewallEinstellungen_CellClick(sender As Object, e As DataGridViewCellEventArgs) Handles dgvFirewallEinstellungen.CellClick
+        Neu = False
+        With dgvFirewallEinstellungen
+            If .CurrentRow.Cells("fwr_direct").Value = True Then
+                chkDirekt.Checked = True
+            Else
+                chkDirekt.Checked = False
+                TxtPortsIn.Text = Class1.DBNull2emptyString(.CurrentRow.Cells("fwr_portsin").Value)
+                TxtPortsOut.Text = Class1.DBNull2emptyString(.CurrentRow.Cells("fwr_portsout").Value)
+            End If
+
+            TxtIpIn.Text = .CurrentRow.Cells("fwr_in").Value
+            TxtIpOut.Text = .CurrentRow.Cells("fwr_out").Value
+            TxtDienste.Text = Class1.DBNull2emptyString(.CurrentRow.Cells("fwr_dienste").Value)
+            TxtInfo.Text = Class1.DBNull2emptyString(.CurrentRow.Cells("fwr_info").Value)
+            txtFQDN.Text = Class1.DBNull2emptyString(.CurrentRow.Cells("fwr_FQDN").Value)
+            fwr_ID = .CurrentRow.Cells("fwr_ID").Value
+        End With
+
+        'MsgBox(dgvFirewallEinstellungen.CurrentRow.Cells("fwr_direct").Value)
+
+
+    End Sub
+
+    Private Sub btnNeu_Click(sender As Object, e As EventArgs) Handles btnNeu.Click
+        Neu = True
+        clear()
+        fwr_ID = Host & Now.ToString("yyyyMMddhhmmss")
+        'MsgBox(fwr_ID)
+    End Sub
+
+    Private Sub CmdSpeichern_Click(sender As Object, e As EventArgs) Handles CmdSpeichern.Click
+        Dim eintrag As New FirewallEntry
+        eintrag.fwr_ID = fwr_ID
+        eintrag.fwr_hostip = Host
+        eintrag.fwr_in = TxtIpIn.Text.Replace("'", "")
+        eintrag.fwr_out = TxtIpOut.Text.Replace("'", "")
+        eintrag.fwr_portsin = TxtPortsIn.Text.Replace("'", "")
+        eintrag.fwr_portsout = TxtPortsOut.Text.Replace("'", "")
+        eintrag.fwr_FQDN = txtFQDN.Text.Replace("'", "")
+        eintrag.fwr_info = TxtInfo.Text.Replace("'", "")
+        eintrag.fwr_direct = chkDirekt.Checked
+        eintrag.fwr_dienste = TxtDienste.Text.Replace("'", "")
+
+        If Neu = False Then eintrag.updateFirewallEntry(eintrag)
+        If Neu = True Then eintrag.insertFirewallEntry(eintrag)
+        Neu = False
+        Laden()
+    End Sub
+
+    Private Sub btnLoeschen_Click(sender As Object, e As EventArgs) Handles btnLoeschen.Click
+        If MsgBox("Eintrag wirklich löschen?", MessageBoxButtons.OKCancel, "Löschen?") = MsgBoxResult.Ok Then SQL.DeleteSQL("TbL_FirewallRules", "fwr_ID = '" & fwr_ID & "'") : clear() : Laden()
+    End Sub
+
+    Private Function clear()
+        TxtIpIn.Text = ""
+        TxtIpOut.Text = ""
+        txtFQDN.Text = ""
+        TxtDienste.Text = ""
+        TxtInfo.Text = ""
+        chkDirekt.Checked = False
+        TxtPortsIn.Text = ""
+        TxtPortsOut.Text = ""
+    End Function
+
+    Private Sub cmdRefresh_Click(sender As Object, e As EventArgs) Handles cmdRefresh.Click
+        Laden()
+    End Sub
+
+    Private Sub dgvFirewallEinstellungen_CellContentClick(sender As Object, e As DataGridViewCellEventArgs) Handles dgvFirewallEinstellungen.CellContentDoubleClick
+        SplitContainer1.Panel1Collapsed = False
+        CmdBearbeiten.Text = "Ausblenden"
+    End Sub
+End Class