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

MS: Login-Procedure

Browse Source
This commit is contained in:
Digital Data - Marlon Schreiber
2018-05-11 10:36:14 +02:00
parent 420d9fedf7
commit afd5186e62
18 changed files with 927 additions and 908 deletions
Download Patch File Download Diff File Expand all files Collapse all files

14
app/DD_Clipboard_Searcher/frmMain.vb
View File

@@ -100,7 +100,7 @@ Public Class frmMain
Try
'Dim sql = String.Format("UPDATE TBDD_USER SET LOGGED_IN = 0, LOGGED_WHERE = '{0}' WHERE (LOWER(USERNAME) = LOWER('{1}'))", "", USER_USERNAME)
'clsDatabase.Execute_non_Query(sql, True)
Dim sql = "DELETE FROM TBDD_USER_MODULE_LOG_IN WHERE USER_ID = " & USER_GUID & " AND UPPER(MODULE) = UPPER('Clipboard-Searcher')"
Dim sql = "DELETE FROM TBDD_USER_MODULE_LOG_IN WHERE USER_ID = " & USER_GUID & " AND UPPER(MODULE) = UPPER('Clipboard-Watcher')"
clsDatabase.Execute_non_Query(sql, True)
ClassWindowLocation.SaveFormLocationSize(Me, "")
My.Settings.Save()
@@ -134,6 +134,11 @@ Public Class frmMain
Private Sub frmMain_Load(sender As Object, e As EventArgs) Handles Me.Load
ClassWindowLocation.LoadFormLocationSize(Me)
If ERROR_INIT = "FAILED DBCONNECTION" Or ERROR_INIT = "DATABASE" Then
frmConfig_Basic.ShowDialog()
End If
If clsDatabase.DB_DEFAULT_INITIALIZED = True Then
Me.NotifyIconMain.Visible = True
clsHotkey.Refresh_Profile_Links()
@@ -180,8 +185,11 @@ Public Class frmMain
If USER_IS_ADMIN = True And ERROR_INIT = "NO LICENSE" Then
MsgBox("As an admin You have exit! Please inform Digital Data to add a valid license!", MsgBoxStyle.Exclamation, "")
Else
MsgBox("Application will close now!", MsgBoxStyle.Critical, "")
Me.Close()
If Not USER_IS_ADMIN Then
MsgBox("Application will close now!", MsgBoxStyle.Critical, "")
Me.Close()
End If
End If
End If
If USER_IS_ADMIN = True Then