71 lines
2.6 KiB
VB.net
71 lines
2.6 KiB
VB.net
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"
|
|
Dim nwe As New NWEdit
|
|
nwe.NW.getNetzwerk(Standortname, NeuerNetzwerkname)
|
|
nwe.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 |