ThinClients Wartungs-Meldung eingebaut

Dokumentation/uscntr_TSSitzungen.vb

@@ -13,8 +13,22 @@
         Load2DGV()
     End Sub
 
+    Function checkwartung() As Boolean
+        Dim ds As New DataSet
+        cSQL.SQL2DS("select * from TbL_Dienste where Name = 'Wartung' ", ds)
+        If Not ds.Tables(0).Rows.Count = 0 Then
+            Dim row As DataRow = ds.Tables(0).Rows(0)
+            If Convert.ToBoolean(row("Aktiv")) = True Then
+                Return True
+            Else
+                Return False
+            End If
+        End If
+    End Function
 
     Function Load2DGV() ' (Optional ByVal Client As Boolean = False)
+        chkWartung.Checked = checkwartung()
+
         If Client = False Then
             Dim ds As New DataSet
             cSQL.SQL2DS("SELECT * FROM TbL_TSSitzungen WHERE Name LIKE '" & ReturnOfTheWhere() & "' OR TSServer LIKE '" & ReturnOfTheWhere() & "' OR Company LIKE '" & ReturnOfTheWhere() & "' ORDER BY NAME", ds)
@@ -255,4 +269,31 @@
         Dim sitzung As String = Class1.DBNull2emptyString(dgvTSSitzungen.CurrentRow.Cells("TSServer").Value) & "\" & Name
         cExtProgramme.RunAnyDeskWithPassword(sitzung)
     End Sub
+
+    Private Sub HostnameKopierenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles HostnameKopierenToolStripMenuItem.Click
+        Dim host As String = ""
+        If Client Then
+            host = Class1.DBNull2emptyString(dgvTSSitzungen.CurrentRow.Cells("ClientName").Value)
+        Else
+            host = Class1.DBNull2emptyString(dgvTSSitzungen.CurrentRow.Cells("TSServer").Value)
+        End If
+        Clipboard.SetText(host)
+    End Sub
+
+    Private Sub chkWartung_CheckedChanged(sender As Object, e As EventArgs) Handles chkWartung.CheckedChanged
+        Dim result As MsgBoxResult
+        If chkWartung.Checked Then
+            result = MsgBox("Hiermit werden alle Anmeldungen von ThinClients unterbunden. Sicher? ", MsgBoxStyle.YesNo Or MsgBoxStyle.Exclamation, "Warnung")
+        End If
+
+        If result = MsgBoxResult.No Then
+            chkWartung.Checked = False
+            Exit Sub
+        End If
+
+        Dim werte As New Dictionary(Of String, Object)
+        werte.Add("Aktiv", chkWartung.Checked)
+        cSQL.UpdateSQL_("TbL_Dienste", werte, "Name = 'Wartung'")
+        Load2DGV()
+    End Sub
 End Class