edv/Doku
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

TSSittzungen

Browse Source
This commit is contained in:
ms
2019-10-25 11:48:37 +02:00
parent ce28d0bcce
commit 2197c92cba
35 changed files with 1397 additions and 133 deletions
Download Patch File Download Diff File Expand all files Collapse all files

26
Dokumentation/Classes/cHost.vb
View File

@@ -119,14 +119,14 @@ Public Class cHost
From [Doku].[dbo].[TbL_FirewallRules] where [fwr_hostip] = '" & HostIP & "'
ORDER BY [fwr_in]"
SQL.SQL2DS(selector, ds)
cSQL.SQL2DS(selector, ds)
End Function
Public Function gethost(ip As String)
Dim ds As New DataSet
Dim test As String = ""
SQL.SQL2DS("select * from TbL_Netzwerkclients where IPAdresse = '" & ip & "'", ds)
cSQL.SQL2DS("select * from TbL_Netzwerkclients where IPAdresse = '" & ip & "'", ds)
For Each c As DataColumn In ds.Tables(0).Columns
Dim propInfo As PropertyInfo = Me.GetType.GetProperty(c.ColumnName)
If propInfo IsNot Nothing Then
@@ -194,15 +194,15 @@ ORDER BY [fwr_in]"
Public Function updateHostEntry(ByRef entry As cHost)
Dim update, where, slaveupdate, slavewhere As String
getUpdateCmd(update, where, slaveupdate, slavewhere, Me.Linked)
SQL.UpdateSQL("TbL_Netzwerkclients", update, where)
SQL.UpdateSQL("TbL_Netzwerkclients", slaveupdate, slavewhere)
cSQL.UpdateSQL("TbL_Netzwerkclients", update, where)
cSQL.UpdateSQL("TbL_Netzwerkclients", slaveupdate, slavewhere)
'MsgBox(update & where)
End Function
Function checkIfIPExist(ByVal ip As String)
Dim ds As New DataSet
SQL.SQL2DS("SELECT * FROM TbL_Netzwerkclients WHERE IPADRESSE = '" & ip & "'", ds)
cSQL.SQL2DS("SELECT * FROM TbL_Netzwerkclients WHERE IPADRESSE = '" & ip & "'", ds)
If ds.Tables(0).Rows.Count > 0 Then
Return True
Else
@@ -215,7 +215,7 @@ ORDER BY [fwr_in]"
If MessageBox.Show("Eintrag " & Me.FQDN & " wirklich löschen?", "Hosteintrag löschen", MessageBoxButtons.OKCancel) = DialogResult.OK Then
Dim ds As New DataSet
Dim Slaves As String = ""
SQL.SQL2DS("SELECT * FROM TbL_Netzwerkclients WHERE LinkedWith ='" & Me.IPAdresse & "'", ds)
cSQL.SQL2DS("SELECT * FROM TbL_Netzwerkclients WHERE LinkedWith ='" & Me.IPAdresse & "'", ds)
If ds.Tables(0).Rows.Count > 0 Then
For Each r As DataRow In ds.Tables(0).Rows
@@ -225,18 +225,18 @@ ORDER BY [fwr_in]"
If MessageBox.Show("
Achtung! " & vbCrLf & "Der Eintrag " & Me.FQDN & " ist ein MasterEintrag für die IP Adressen " & vbCrLf & Slaves & "
Diese Einträge werden ebenfalls gelöscht. Fortfahren?", "Hosteintrag löschen", MessageBoxButtons.OKCancel) = DialogResult.OK Then
SQL.DeleteSQL("TbL_Netzwerkclients", "LinkedWith = '" & Me.IPAdresse & "'")
cSQL.DeleteSQL("TbL_Netzwerkclients", "LinkedWith = '" & Me.IPAdresse & "'")
ElseIf DialogResult.Cancel Then
Exit Function
End If
End If
SQL.DeleteSQL("TbL_Netzwerkclients", "IPAdresse = '" & Me.IPAdresse & "'")
cSQL.DeleteSQL("TbL_Netzwerkclients", "IPAdresse = '" & Me.IPAdresse & "'")
Class1.RefillNW(Me.Netzwerk)
ElseIf DialogResult.Cancel Then
Exit Function
End If
Else
SQL.DeleteSQL("TbL_Netzwerkclients", "IPAdresse = '" & Me.IPAdresse & "'")
cSQL.DeleteSQL("TbL_Netzwerkclients", "IPAdresse = '" & Me.IPAdresse & "'")
Class1.RefillNW(Me.Netzwerk)
End If
@@ -251,7 +251,7 @@ Diese Einträge werden ebenfalls gelöscht. Fortfahren?", "Hosteintrag löschen"
'Get Slaves of LinkedMaster
Dim ds As New DataSet
SQL.SQL2DS("SELECT * FROM TbL_Netzwerkclients WHERE LinkedWith = '" & Me.IPAdresse & "'", ds)
cSQL.SQL2DS("SELECT * FROM TbL_Netzwerkclients WHERE LinkedWith = '" & Me.IPAdresse & "'", ds)
'Ziel prüfen und gegebenenfalls anzeigen
If (
@@ -269,7 +269,7 @@ Diese Einträge werden ebenfalls gelöscht. Fortfahren?", "Hosteintrag löschen"
'If Host = LinkedMaster then Update Slaves
If ds.Tables(0).Rows.Count > 0 Then
SQL.UpdateSQL("TbL_Netzwerkclients", "LinkedWith = '" & newip & "'", "LinkedWith = '" & oldip & "'")
cSQL.UpdateSQL("TbL_Netzwerkclients", "LinkedWith = '" & newip & "'", "LinkedWith = '" & oldip & "'")
End If
newhost.FQDN = Me.FQDN
@@ -291,7 +291,7 @@ Diese Einträge werden ebenfalls gelöscht. Fortfahren?", "Hosteintrag löschen"
Dim update, where As String
getUpdateCmd(update, where, "", "", newhost.Linked, newhost)
SQL.UpdateSQL("TbL_Netzwerkclients", update, where)
cSQL.UpdateSQL("TbL_Netzwerkclients", update, where)
cFolder.FolderMove(Me.NWSTANDORT & "_" & Me.NETNAME, Me.HOST, newhost.NWSTANDORT & "_" & newhost.NETNAME, newhost.HOST)
@@ -302,7 +302,7 @@ Diese Einträge werden ebenfalls gelöscht. Fortfahren?", "Hosteintrag löschen"
Public Shared Function getSlaves(ByVal ip As String, ByRef ds As DataSet)
SQL.SQL2DS("SELECT IPAdresse , (NWSTANDORT + ' ' + NETNAME) as Netzwerk FROM TbL_Netzwerkclients WHERE LinkedWith = '" & ip & "'", ds)
cSQL.SQL2DS("SELECT IPAdresse , (NWSTANDORT + ' ' + NETNAME) as Netzwerk FROM TbL_Netzwerkclients WHERE LinkedWith = '" & ip & "'", ds)
End Function