Doku/Dokumentation/uscntr_Firewalleinstellungen.vb

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()
        cFirewallEntry.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 cFirewallEntry
        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 cSQL.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