Start 2

Dokumentation/Administration/NetzwerkHinzu.vb

@@ -0,0 +1,69 @@
+Imports System.Data.SqlClient
+Public Class NetzwerkHinzu
+
+    Private con As New SqlConnection
+    Private cmd As New SqlCommand
+    Private reader As SqlDataReader
+    Public NeuerNetzwerkname As String
+    Public NeuerNetzwerkNameIntern As String
+    Public Standortname As String = NetzwerkAdmin.LstStandort.SelectedItem
+
+    Private Function dbload()
+        con.ConnectionString = Class1.DBConString
+        cmd.Connection = con
+    End Function
+
+    Private Sub CmdAdd_Click(sender As Object, e As EventArgs) Handles CmdAdd.Click
+        NetzwerkAdd()
+        NetzwerkAdmin.LstStandortLoad()
+        NetzwerkAdmin.LstNetzwerkLoad()
+    End Sub
+
+    Private Sub TxtIP_Enter(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles TxtIP.KeyDown
+        If e.KeyCode = Keys.Enter Then
+            NEtzwerkAdd()
+        End If
+
+    End Sub
+
+    Private Function NetzwerkAdd()
+        Dim ds As New DataSet()
+        Dim dt As New DataTable()
+        dbload()
+        NeuerNetzwerkname = TxtName.Text
+        NeuerNetzwerkNameIntern = Standortname & "_" & NeuerNetzwerkname
+        Try
+            con.Open()
+            cmd.CommandText = "SELECT * FROM Tbl_Netzwerke WHERE Netzwerkname='" & NeuerNetzwerkNameIntern & "'"
+            reader = cmd.ExecuteReader()
+            If reader.Read() Then
+                MsgBox("Netzwerk ist bereits vorhanden!")
+                reader.Close()
+            Else
+                MsgBox("Neues Netzwerk wird erstellt: " & NeuerNetzwerkNameIntern)
+                reader.Close()
+                cmd.CommandText = "INSERT INTO Tbl_Netzwerke (Netzwerkname, Netzwerk, NWSTANDORT, NETNAME, Subnetz) VALUES ('" & NeuerNetzwerkNameIntern & "', '" & TxtIP.Text & "', '" & Standortname & "', '" & NeuerNetzwerkname & "', '255.255.255.0')"
+                cmd.ExecuteNonQuery()
+                Class1.Absender = "Netzwerkhinzu"
+                NWEdit.Show()
+            End If
+
+        Catch ex As Exception
+            MsgBox(ex.Message)
+        End Try
+        con.Close()
+        Me.Close()
+    End Function
+
+    Private Sub NetzwerkHinzu_Load(sender As Object, e As EventArgs) Handles MyBase.Load
+        If Standortname = "" Then
+            MsgBox("Kein Standort ausgewählt")
+            Me.Close()
+        End If
+        LblHeader.Text = Standortname
+    End Sub
+
+    Private Sub TxtName_TextChanged(sender As Object, e As EventArgs) Handles TxtName.TextChanged
+        LblHeader.Text = "Netzwerk " & Standortname & "_" & TxtName.Text & " hinzufügen."
+    End Sub
+End Class