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

ThinClient TeamViewer

Browse Source
This commit is contained in:
ms
2019-12-05 08:39:46 +01:00
parent 8e7fc09e45
commit 5f24e2a9e1
8 changed files with 109 additions and 28 deletions
Download Patch File Download Diff File Expand all files Collapse all files

75
Dokumentation/uscntr_TSSitzungen.vb
View File

@@ -1,29 +1,57 @@
Public Class uscntr_TSSitzungen
Dim Client As Boolean = False
Private Sub uscntr_TSSitzungen_Load(sender As Object, e As EventArgs) Handles Me.Load
Class1.EnableDoubleBuffered(dgvTSSitzungen)
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)
Function Load2DGV() ' (Optional ByVal Client As Boolean = False)
If Client = False Then
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)
.Columns("Domain").Visible = False
.Columns("LastLogon").Visible = False
.Columns("BenutzerAnmeldeName").Visible = False
.Columns("Name").Width = 110 'AutoSizeMode = DataGridViewAutoSizeColumnMode.Fill
.Columns("TeamviewerID").Width = 80
.Columns("TSServer").Width = 55
.AutoResizeColumn(1)
End With
lblAnzahl.Text = dgvTSSitzungen.Rows.Count
LoadTSServer()
Else
Dim ds As New DataSet
'cSQL.SQLCommand("DELETE FROM TbL_ThinClients where LastReport < (dateadd(HOUR, -1, getdate()))")
cSQL.SQL2DS("SELECT * FROM TbL_ThinClients WHERE Name LIKE '" & ReturnOfTheWhere() & "' OR ClientName LIKE '" & ReturnOfTheWhere() & "' ORDER BY NAME", ds)
With dgvTSSitzungen
.RowHeadersVisible = False
.DataSource = ds.Tables(0)
'.Columns("Domain").Visible = False
'.Columns("LastLogon").Visible = False
'.Columns("BenutzerAnmeldeName").Visible = False
'.Columns("Name").Width = 110 'AutoSizeMode = DataGridViewAutoSizeColumnMode.Fill
'.Columns("TeamviewerID").Width = 80
'.Columns("TSServer").Width = 55
.AutoResizeColumn(1)
End With
lblAnzahl.Text = dgvTSSitzungen.Rows.Count
End If
With dgvTSSitzungen
.RowHeadersVisible = False
.DataSource = ds.Tables(0)
.Columns("Domain").Visible = False
.Columns("LastLogon").Visible = False
.Columns("BenutzerAnmeldeName").Visible = False
.Columns("Name").Width = 110 'AutoSizeMode = DataGridViewAutoSizeColumnMode.Fill
.Columns("TeamviewerID").Width = 80
.Columns("TSServer").Width = 55
.AutoResizeColumn(1)
End With
lblAnzahl.Text = dgvTSSitzungen.Rows.Count
LoadTSServer()
End Function
Private Sub dgvTSSitzungen_CellContentClick(sender As Object, e As DataGridViewCellEventArgs) Handles dgvTSSitzungen.CellDoubleClick 'dgvTSSitzungen.CellContentDoubleClick,
@@ -85,7 +113,7 @@
End Sub
Private Sub TextBox1_TextChanged(sender As Object, e As EventArgs) Handles TextBox1.TextChanged
Load2DGV(TextBox1.Text)
Load2DGV() '(TextBox1.Text)
End Sub
Function ReturnOfTheWhere()
@@ -101,4 +129,17 @@
Dim sitzung As String = Class1.DBNull2emptyString(dgvTSSitzungen.CurrentRow.Cells("TeamviewerID").Value)
Ext_Programme.StartTeamviewer(sitzung)
End Sub
Private Sub btnClick(sender As Object, e As EventArgs) Handles btnSitzung.Click, btnClient.Click
Select Case sender.name
Case "btnSitzung"
btnSitzung.BackColor = Color.Green : btnClient.BackColor = Color.DarkGray
Client = False
Case "btnClient"
btnClient.BackColor = Color.Red : btnSitzung.BackColor = Color.DarkGray
Client = True
End Select
cmdNachricht.Enabled = Not Client
Load2DGV()
End Sub
End Class