AppStd/ClipboardWatcher
8
1
Fork 0
Code Issues Pull Requests Releases Wiki Activity

Find control Name

Browse Source
This commit is contained in:
Jonathan Jenne
2019-08-07 16:05:53 +02:00
parent 43d3ba5ef2
commit aa84e977b9
22 changed files with 2556 additions and 179 deletions
Download Patch File Download Diff File Expand all files Collapse all files

22
app/DD_Clipboard_Searcher/ClassInit.vb
View File

@@ -94,7 +94,7 @@ Public Class ClassInit
USER_USERNAME = _User
End If
Try
DT_CLIENT_USER = Database.GetDatatable(String.Format("SELECT * FROM VWDD_USER_CLIENT WHERE UPPER(USERNAME) = UPPER('{0}')", Environment.UserName), False)
DT_CLIENT_USER = Database.GetDatatable(String.Format("SELECT * FROM VWDD_USER_CLIENT WHERE UPPER(USERNAME) = UPPER('{0}')", Environment.UserName))
If DT_CLIENT_USER.Rows.Count > 1 Then
frmClientLogin.ShowDialog()
ElseIf DT_CLIENT_USER.Rows.Count = 1 Then
@@ -164,7 +164,7 @@ Public Class ClassInit
' sql = String.Format("UPDATE TBDD_USER SET LOGGED_IN = 1, LOGGED_WHERE = '{0}' WHERE GUID = {1}", Environment.MachineName, USER_ID)
'Database.GetDatatable(sql)
sql = "DELETE FROM TBDD_USER_MODULE_LOG_IN WHERE USER_ID = " & USER_ID & " AND MODULE = 'Clipboard-Watcher'"
Database.ExecuteNonQuery(sql, True)
Database.ExecuteNonQuery(sql)
sql = String.Format("INSERT INTO TBDD_USER_MODULE_LOG_IN (USER_ID,CLIENT_ID,MODULE,VERSION_CLIENT,MACHINE_NAME) VALUES ({0},{1},'Clipboard-Watcher','{2}','{3}')", USER_ID, 0, My.Application.Info.Version.ToString, Environment.MachineName)
Database.ExecuteNonQuery(sql)
@@ -198,7 +198,7 @@ Public Class ClassInit
If USER_IS_ADMIN = False Then
'Anmeldung wieder herausnehmen
sql = "DELETE FROM TBDD_USER_MODULE_LOG_IN WHERE USER_ID = " & USER_ID & " AND MODULE= 'Clipboard-Watcher'"
Database.ExecuteNonQuery(sql, True)
Database.ExecuteNonQuery(sql)
Logger.Info(" - logged out the user", False)
Return False
End If
@@ -214,6 +214,21 @@ Public Class ClassInit
End Function
Public Shared Sub Refresh_Connections()
Try
Dim oSql = String.Format("SELECT * FROM TBDD_CONNECTION")
Dim oDatatable As New MyDataset.TBDD_CONNECTIONDataTable()
Dim oResult = Database.GetDatatable(oSql)
oDatatable.Merge(oResult)
DT_CONNECTIONS = oDatatable
Catch ex As Exception
Logger.Error(ex)
MsgBox("Unexpected Error in Refresh_Connections: " & ex.Message, MsgBoxStyle.Critical)
End Try
End Sub
Public Shared Sub Refresh_Profile_Links()
Try
Dim oSql = String.Format("SELECT * FROM VWCW_USER_PROFILE WHERE USER_ID = {0} OR GROUP_ID IN (SELECT DISTINCT GUID FROM TBDD_GROUPS WHERE GUID IN (SELECT GROUP_ID FROM TBDD_GROUPS_USER WHERE USER_ID = {0}))", USER_ID)
@@ -225,6 +240,7 @@ Public Class ClassInit
DTPROFILE_REL_WINDOW = Database.GetDatatable(oSql)
End If
Catch ex As Exception
Logger.Error(ex)
MsgBox("Unexpected Error in Refresh_Profile_Links: " & ex.Message, MsgBoxStyle.Critical)
End Try
End Sub