TSSittzungen

2019-10-25 11:48:37 +02:00
parent ce28d0bcce
commit 2197c92cba
35 changed files with 1397 additions and 133 deletions
--- a/Dokumentation/uscntr_TSSitzungen.vb
+++ b/Dokumentation/uscntr_TSSitzungen.vb
@@ -0,0 +1,104 @@
+Public Class uscntr_TSSitzungen
+
+    Private Sub uscntr_TSSitzungen_Load(sender As Object, e As EventArgs) Handles Me.Load
+        Load2DGV()
+    End Sub
+
+    Function Load2DGV(Optional ByVal WhereString As String = "")
+        Dim ds As New DataSet
+        cSQL.SQL2DS("SELECT * FROM TbL_TSSitzungen WHERE Name LIKE '" & ReturnOfTheWhere() & "' OR TSServer LIKE '" & ReturnOfTheWhere() & "' ORDER BY NAME", ds)
+
+        With dgvTSSitzungen
+            .RowHeadersVisible = False
+            .DataSource = ds.Tables(0)
+            .AutoSizeColumnsMode = DataGridViewAutoSizeColumnsMode.DisplayedCells
+            .Columns("BenutzerAnmeldeName").Visible = False
+            '.Columns("BenutzerAnmeldeName").AutoSizeMode = DataGridViewAutoSizeColumnMode.Fill
+            .Columns("LastLogon").Visible = False
+            .Columns("LastLogon").AutoSizeMode = DataGridViewAutoSizeColumnMode.Fill
+            '.Columns("LastReport").Width = 85
+            '.Columns("TeamviewerID").Width = 80
+            '.Columns("TSServer").Width = 60
+        End With
+        lblAnzahl.Text = dgvTSSitzungen.Rows.Count
+        LoadTSServer()
+    End Function
+
+    Private Sub dgvTSSitzungen_CellContentClick(sender As Object, e As DataGridViewCellEventArgs) Handles dgvTSSitzungen.CellContentDoubleClick
+
+        Dim sitzung As String = Class1.DBNull2emptyString(dgvTSSitzungen.CurrentRow.Cells("TeamviewerID").Value)
+        StartTeamviewer(sitzung)
+
+    End Sub
+
+    Public Function StartTeamviewer(ID As String)
+        Dim teamviewer As New Process
+        With teamviewer.StartInfo
+            .FileName = "Teamviewer.exe"
+            .WorkingDirectory = "C:\Program Files (x86)\TeamViewer"
+            .Arguments = "-i " & ID & " -P BmWr501956"
+        End With
+
+        teamviewer.Start()
+
+    End Function
+
+    Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick
+        Load2DGV()
+    End Sub
+
+    Private Sub RefreshToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles CmdUpdate.Click, UpdateToolStripMenuItem.Click
+        Load2DGV()
+    End Sub
+
+    Private Sub chkAutoUpdate_CheckedChanged(sender As Object, e As EventArgs) Handles chkAutoUpdate.CheckedChanged
+        If chkAutoUpdate.Checked Then
+            Timer1.Enabled = True
+        Else
+            Timer1.Enabled = False
+        End If
+    End Sub
+
+    Private Function LoadTSServer()
+        Dim ds As New DataSet
+        cSQL.SQL2DS("SELECT DISTINCT TSServer FROM TbL_TSSitzungen", ds)
+
+        For Each r As DataRow In ds.Tables(0).Rows
+            Class1.TerminalServerList.Add(r.Item(0).ToString)
+        Next
+
+
+    End Function
+
+    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles cmdNachricht.Click
+        Dim send As New frmLeer
+        send.Text = "Nachricht senden"
+        Dim usrcntrl As New uscntr_SendMSG
+        usrcntrl.Dock = DockStyle.Fill : send.PanMain.Controls.Add(usrcntrl)
+        send.Show()
+    End Sub
+
+    Private Sub NachrichtSendenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles NachrichtSendenToolStripMenuItem.Click
+        Dim send As New frmLeer
+        send.Text = "Nachricht senden"
+        Dim usrcntrl As New uscntr_SendMSG
+        usrcntrl.recuser.Name = dgvTSSitzungen.CurrentRow.Cells("Name").Value.ToString
+        usrcntrl.recuser.BenutzerAnmeldeName = dgvTSSitzungen.CurrentRow.Cells("BenutzerAnmeldeName").Value.ToString
+        usrcntrl.recuser.TSServer = dgvTSSitzungen.CurrentRow.Cells("TSServer").Value.ToString
+        usrcntrl.Dock = DockStyle.Fill : send.PanMain.Controls.Add(usrcntrl)
+        send.Show()
+    End Sub
+
+    Private Sub TextBox1_TextChanged(sender As Object, e As EventArgs) Handles TextBox1.TextChanged
+        Load2DGV(TextBox1.Text)
+    End Sub
+
+    Function ReturnOfTheWhere()
+        Dim ding As String = "%{0}%"
+        Return String.Format(ding, TextBox1.Text)
+    End Function
+
+    Private Sub btnReset_Click(sender As Object, e As EventArgs) Handles btnReset.Click
+        TextBox1.Text = ""
+    End Sub
+End Class