TSSittzungen
This commit is contained in:
@@ -72,6 +72,8 @@ Public Class Main
|
||||
TypeFilter()
|
||||
|
||||
ChkTools.Checked = Class1.DebugMode
|
||||
chkTSSitzungen.Checked = True
|
||||
|
||||
End Sub
|
||||
|
||||
''LISTEN
|
||||
@@ -170,7 +172,7 @@ Public Class Main
|
||||
|
||||
LstStandort.Items.Clear() : Class1.Standorte.Clear() : Class1.AlleStandorte.Clear()
|
||||
|
||||
SQL.SQL2DS("SELECT NWSTANDORT from TbL_Netzwerke where main='True' order by NWSTANDORT", ds)
|
||||
cSQL.SQL2DS("SELECT NWSTANDORT from TbL_Netzwerke where main='True' order by NWSTANDORT", ds)
|
||||
Try
|
||||
For Each dr As DataRow In ds.Tables(0).Rows
|
||||
Dim b As New cBerechtigungen
|
||||
@@ -200,7 +202,7 @@ Public Class Main
|
||||
|
||||
|
||||
Dim dsa As New DataSet()
|
||||
SQL.SQL2DS("select distinct Rubrik from tbl_allgemein", dsa)
|
||||
cSQL.SQL2DS("select distinct Rubrik from tbl_allgemein", dsa)
|
||||
LstAllgemein.Items.Clear()
|
||||
|
||||
Try
|
||||
@@ -249,7 +251,7 @@ Public Class Main
|
||||
Dim ds As New DataSet()
|
||||
Dim Standort As String = LstStandort.SelectedItem
|
||||
|
||||
SQL.SQL2DS("select NETNAME from TbL_Netzwerke where NWSTANDORT='" & Standort & "' ORDER BY NETNAME", ds)
|
||||
cSQL.SQL2DS("select NETNAME from TbL_Netzwerke where NWSTANDORT='" & Standort & "' ORDER BY NETNAME", ds)
|
||||
|
||||
LstNetzwerk.Items.Clear()
|
||||
Try
|
||||
@@ -312,16 +314,16 @@ Public Class Main
|
||||
|
||||
If tabelle = "TbL_Netzwerkclients" Then
|
||||
If ChkFreieHosts.Checked Then
|
||||
SQL.SQL2DS("select * from " & tabelle & " where NWSTANDORT='" & Standort & "' AND NETNAME='" & Netzwerk & "' order by host", ds)
|
||||
cSQL.SQL2DS("select * from " & tabelle & " where NWSTANDORT='" & Standort & "' AND NETNAME='" & Netzwerk & "' order by host", ds)
|
||||
dgvfill(ds, "Netzwerk")
|
||||
Else
|
||||
SQL.SQL2DS("select * from " & tabelle & " where NWSTANDORT='" & Standort & "' AND NETNAME='" & Netzwerk & "' AND FQDN is not NUll order by host", ds)
|
||||
cSQL.SQL2DS("select * from " & tabelle & " where NWSTANDORT='" & Standort & "' AND NETNAME='" & Netzwerk & "' AND FQDN is not NUll order by host", ds)
|
||||
dgvfill(ds, "Netzwerk")
|
||||
End If
|
||||
|
||||
ElseIf tabelle = "TbL_Allgemein" Then
|
||||
'SQL.SQL2DS("select * from " & tabelle & " WHERE Rubrik = '" & LstAllgemein.SelectedItem & "'", ds)
|
||||
SQL.SQL2DS("select * from TbL_Allgemein left join TbL_Berechtigungen on TbL_Allgemein.ID = TbL_Berechtigungen.Standort where ((Benutzeranmeldename = '" & Class1.LoggedOnUser.BenutzeranmeldeName & "' AND not Zugriff = '0') OR (Zugriff is null )) AND (Rubrik = '" & LstAllgemein.SelectedItem & "')", ds)
|
||||
cSQL.SQL2DS("select * from TbL_Allgemein left join TbL_Berechtigungen on TbL_Allgemein.ID = TbL_Berechtigungen.Standort where ((Benutzeranmeldename = '" & Class1.LoggedOnUser.BenutzeranmeldeName & "' AND not Zugriff = '0') OR (Zugriff is null )) AND (Rubrik = '" & LstAllgemein.SelectedItem & "')", ds)
|
||||
dgvfill(ds, "Allgemein")
|
||||
End If
|
||||
|
||||
@@ -390,13 +392,13 @@ Public Class Main
|
||||
'''ABFRAGE RADIOBUTTONS + SUCHPARAMETER'''
|
||||
|
||||
If RadGlobal.Checked Then
|
||||
SQL.SQL2DS("select " & SelSQL4DGV & " from TbL_Netzwerkclients where " & Suchparameter & " order by host", ds)
|
||||
cSQL.SQL2DS("select " & SelSQL4DGV & " from TbL_Netzwerkclients where " & Suchparameter & " order by host", ds)
|
||||
ElseIf RadNurNetzwerk.Checked Then
|
||||
SQL.SQL2DS("select " & SelSQL4DGV & " from TbL_Netzwerkclients where NWSTANDORT = '" & Standort & "' AND NETNAME ='" & Netzwerk & "' AND " & Suchparameter & " order by host", ds)
|
||||
cSQL.SQL2DS("select " & SelSQL4DGV & " from TbL_Netzwerkclients where NWSTANDORT = '" & Standort & "' AND NETNAME ='" & Netzwerk & "' AND " & Suchparameter & " order by host", ds)
|
||||
ElseIf RadStandort.Checked Then
|
||||
SQL.SQL2DS("select " & SelSQL4DGV & " from TbL_Netzwerkclients where NWSTANDORT = '" & Standort & "' AND " & Suchparameter & " order by host", ds)
|
||||
cSQL.SQL2DS("select " & SelSQL4DGV & " from TbL_Netzwerkclients where NWSTANDORT = '" & Standort & "' AND " & Suchparameter & " order by host", ds)
|
||||
ElseIf suchbegriff = "" Then
|
||||
SQL.SQL2DS("select " & SelSQL4DGV & " from TbL_Netzwerkclients order by host", ds)
|
||||
cSQL.SQL2DS("select " & SelSQL4DGV & " from TbL_Netzwerkclients order by host", ds)
|
||||
End If
|
||||
|
||||
|
||||
@@ -447,7 +449,7 @@ Public Class Main
|
||||
'con.Open()
|
||||
'dataadapter.Fill(ds)
|
||||
'con.Close()
|
||||
SQL.SQL2DS("select * from TbL_Allgemein left join TbL_Berechtigungen on TbL_Allgemein.ID = TbL_Berechtigungen.Standort where ((Benutzeranmeldename = '" & Class1.LoggedOnUser.BenutzeranmeldeName & "' AND not Zugriff = '0') OR (Zugriff is null )) AND (Rubrik = '" & LstAllgemein.SelectedItem & "') AND " & Suchparameter & "", ds)
|
||||
cSQL.SQL2DS("select * from TbL_Allgemein left join TbL_Berechtigungen on TbL_Allgemein.ID = TbL_Berechtigungen.Standort where ((Benutzeranmeldename = '" & Class1.LoggedOnUser.BenutzeranmeldeName & "' AND not Zugriff = '0') OR (Zugriff is null )) AND (Rubrik = '" & LstAllgemein.SelectedItem & "') AND " & Suchparameter & "", ds)
|
||||
|
||||
|
||||
dgvfill(ds, "Allgemein")
|
||||
@@ -907,7 +909,7 @@ Public Class Main
|
||||
'Dim sda As New SqlDataAdapter("SELECT * FROM Tbl_NetzwerkClients WHERE IPAdresse='" & SenderIP & "'", con)
|
||||
'sda.Fill(ds)
|
||||
'con.Close()
|
||||
SQL.SQL2DS("SELECT * FROM Tbl_NetzwerkClients WHERE IPAdresse='" & SenderIP & "'", ds)
|
||||
cSQL.SQL2DS("SELECT * FROM Tbl_NetzwerkClients WHERE IPAdresse='" & SenderIP & "'", ds)
|
||||
|
||||
If IsDBNull(ds.Tables(0).Rows(0).Item("Linked")) Then
|
||||
islinked = "0"
|
||||
@@ -932,7 +934,7 @@ Public Class Main
|
||||
'da.Fill(dslinked)
|
||||
|
||||
'con.Close()
|
||||
SQL.SQL2DS("SELECT * FROM Tbl_NetzwerkClients WHERE IPAdresse='" & LinkedWith & "'", dslinked)
|
||||
cSQL.SQL2DS("SELECT * FROM Tbl_NetzwerkClients WHERE IPAdresse='" & LinkedWith & "'", dslinked)
|
||||
Select Case art
|
||||
Case "Dateien"
|
||||
Path = Class1.FilePath & "\" & dslinked.Tables(0).Rows(0).Item("NWStandort") & "_" & dslinked.Tables(0).Rows(0).Item("NetName") & "\" & dslinked.Tables(0).Rows(0).Item("Host")
|
||||
@@ -1115,7 +1117,7 @@ Public Class Main
|
||||
LblVersion.Text = "Version: " & Version
|
||||
Try
|
||||
Dim ds As New DataSet
|
||||
SQL.SQL2DS("SELECT prog_aktuelleVersion FROM ADMIN.dbo.tblProgramme WHERE prog_codename= '" & My.Resources.Programmcode & "'", ds)
|
||||
cSQL.SQL2DS("SELECT prog_aktuelleVersion FROM ADMIN.dbo.tblProgramme WHERE prog_codename= '" & My.Resources.Programmcode & "'", ds)
|
||||
If ds.Tables(0).Rows.Count Then
|
||||
RemoteVersion = ds.Tables(0).Rows(0).Item(0).ToString
|
||||
End If
|
||||
@@ -1212,7 +1214,11 @@ Public Class Main
|
||||
End Sub
|
||||
|
||||
Private Sub btnTest3_Click(sender As Object, e As EventArgs) Handles btnTest3.Click
|
||||
cFolder.netuse("Verag", "1VerSub9#", "\\10.4.3.17")
|
||||
panTSSitzungen.Controls.Clear()
|
||||
Dim dingsi As New uscntr_TSSitzungen
|
||||
panTSSitzungen.Controls.Add(dingsi)
|
||||
|
||||
|
||||
End Sub
|
||||
|
||||
Private Sub ToolStripMenuItemINFO_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItemINFO.Click
|
||||
@@ -1239,6 +1245,36 @@ Public Class Main
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Private Sub PingtToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles PingtToolStripMenuItem.Click, CmdPintT.Click
|
||||
Ext_Programme.pingip(DgVMain.CurrentRow.Cells("IPAdresse").Value, " -t")
|
||||
End Sub
|
||||
|
||||
Private Sub AllesSichernCSVToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles AllesSichernCSVToolStripMenuItem.Click
|
||||
Dim dgvtemp As New DataGridView
|
||||
Dim dstemp As New DataSet
|
||||
|
||||
cSQL.SQL2DS("select * from TbL_Netzwerkclients where FQDN is not null order by NWSTANDORT, NETNAME, host", dstemp)
|
||||
|
||||
dgvtemp.DataSource = dstemp.Tables(0)
|
||||
|
||||
Class1.datatable_2_csv_export(dstemp.Tables(0))
|
||||
End Sub
|
||||
|
||||
Private Sub chkTSSitzungen_CheckedChanged(sender As Object, e As EventArgs) Handles chkTSSitzungen.CheckedChanged
|
||||
If chkTSSitzungen.Checked Then
|
||||
panTSSitzungen.Controls.Clear()
|
||||
Dim dingsi As New uscntr_TSSitzungen
|
||||
dingsi.AutoSize = AutoSizeMode.GrowAndShrink
|
||||
dingsi.Dock = Dock.Fill
|
||||
|
||||
panTSSitzungen.Controls.Add(dingsi)
|
||||
panTSSitzungen.Visible = True
|
||||
Else
|
||||
panTSSitzungen.Controls.Clear()
|
||||
panTSSitzungen.Visible = False
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Private Sub ObjektLöschenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles ObjektLöschenToolStripMenuItem.Click
|
||||
If Tabelle = "TbL_Netzwerkclients" Then
|
||||
Dim ds As New DataSet
|
||||
|
||||
Reference in New Issue
Block a user