This commit is contained in:
SchreiberM 2017-01-25 13:22:58 +01:00
parent a30112bc0e
commit 747ec9ce14

View File

@ -12,7 +12,6 @@ Public Class frmMain
If MONITORING_ACTIVE = False Then Exit Sub
Dim Data As IDataObject = Clipboard.GetDataObject
Me.TextBox1.Clear()
Dim RelevantWindow = clsWINDOWSApi.IsRelevantWindow("jonathan")
'With Me.TextBox1
@ -95,7 +94,7 @@ Public Class frmMain
Private Sub frmMain_Load(sender As Object, e As EventArgs) Handles Me.Load
ClassWindowLocation.LoadFormLocationSize(Me)
If clsDatabase.DB_Connected = True Then
If clsDatabase.DB_DEFAULT_INITIALIZED = True Then
Me.NotifyIcon1.Visible = True
Dim sql = String.Format("SELECT T.* FROM TBCBS_PROFILES T, TBCBS_USER_PROFILE T1 WHERE T.GUID = T1.PROFILE_ID AND T1.USER_ID = {0}", USER_GUID)
DT_USER_PROFILES = clsDatabase.Return_Datatable(sql)