MS

app/DD-Record-Organiser/frmMain.vb

@@ -60,36 +60,40 @@ Public Class frmMain
         End Try
     End Sub
     Private Sub frmMain_Load(sender As Object, e As EventArgs) Handles Me.Load
-        Try
-            ' Referenz zu frmMain speichern
-            MAIN_FORM = Me
+        ' Referenz zu frmMain speichern
+        MAIN_FORM = Me
+        If ERROR_INIT <> "INVALID USER" Then
+            Try
+                ' Form Titel setzen
+                ClassWindowLocation.LoadFormLocationSize(Me, 1, CURRENT_SCREEN_ID, "frmMain")
+                Dim i = My.Application.UICulture.ToString()
 
-            ' Form Titel setzen
-            ClassWindowLocation.LoadFormLocationSize(Me, 1, CURRENT_SCREEN_ID, "frmMain")
-            Dim i = My.Application.UICulture.ToString()
+                'Dim splash As New frmSplash()
+                'splash.ShowDialog()
 
-            'Dim splash As New frmSplash()
-            'splash.ShowDialog()
+                ' MainForm Hintergrund laden
+                SetBackgroundImage()
 
-            ' MainForm Hintergrund laden
-            SetBackgroundImage()
+                Me.Text = Application.ProductName
+                LabelVersion.Caption = String.Format("Version {0}", My.Application.Info.Version.ToString)
+                LabelUser.Caption = Environment.UserName
+                LabelMachine.Caption = My.Computer.Name
+                LabelLanguage.Caption = "Language: " & USER_LANGUAGE
+                Load_Connection_Dep_Data()
+
+                'Wenn Argumente übergeben wurden, wird Formular geladen und zu record gesprungen
+                ClassJumpRecord.ParseArgs()
+                If Task_Popup_minutes <> 0 Then
+                    TimerTasks.Interval = Task_Popup_minutes * 60000
+                End If
+
+            Catch ex As Exception
+                MsgBox("Error in Load Form:" & vbNewLine & ex.Message, MsgBoxStyle.Critical)
+            End Try
+        End If
 
-            Me.Text = Application.ProductName
-            LabelVersion.Caption = String.Format("Version {0}", My.Application.Info.Version.ToString)
-            LabelUser.Caption = Environment.UserName
-            LabelMachine.Caption = My.Computer.Name
-            LabelLanguage.Caption = "Language: " & USER_LANGUAGE
-            Load_Connection_Dep_Data()
 
-            'Wenn Argumente übergeben wurden, wird Formular geladen und zu record gesprungen
-            ClassJumpRecord.ParseArgs()
-            If Task_Popup_minutes <> 0 Then
-                TimerTasks.Interval = Task_Popup_minutes * 60000
-            End If
 
-        Catch ex As Exception
-            MsgBox("Error in Load Form:" & vbNewLine & ex.Message, MsgBoxStyle.Critical)
-        End Try
     End Sub
     Sub Load_Connection_Dep_Data()
         SetBackground()
@@ -105,6 +109,8 @@ Public Class frmMain
             LoadQuickStartItems()
         ElseIf ERROR_INIT = "DATABASE" Then
             Load_ConfigBasic()
+        ElseIf ERROR_INIT = "INVALID USER" Then
+
         End If
         Load_TasksforUser()
     End Sub
@@ -118,6 +124,9 @@ Public Class frmMain
         End Try
     End Sub
     Private Sub frmMain_FormClosing(sender As Object, e As FormClosingEventArgs) Handles Me.FormClosing
+        If ERROR_INIT = "INVALID USER" Then
+            Exit Sub
+        End If
         Try
             Dim sql = "UPDATE TBDD_USER SET LOGGED_IN = @LogInOut, LOGGED_WHERE = '@ANGEMELDETWO' WHERE (LOWER(USERNAME) = LOWER('@user'))"
             sql = sql.Replace("@LogInOut", 0)
@@ -450,33 +459,38 @@ Public Class frmMain
     End Sub
 
     Private Sub frmMain_Shown(sender As Object, e As EventArgs) Handles Me.Shown
-        Refresh_TaskReminder()
-        If Task_Popup_minutes <> 0 Then
-            TimerTasks.Start()
-        End If
+        If ERROR_INIT <> "INVALID USER" Then
+            Refresh_TaskReminder()
+            If Task_Popup_minutes <> 0 Then
+                TimerTasks.Start()
+            End If
 
-        RUN_TIMER()
-        If Sett_ConstructorStart <> 0 Then
-            Cursor = Cursors.WaitCursor
-            OpenFormConstructor(Sett_ConstructorStart)
-            Cursor = Cursors.Default
-        End If
-        'Lizenz abgellaufen, überprüfen ob User Admin ist
-        If LICENSE_COUNT < USERS_LOGGED_IN Then
-            If USER_IS_ADMIN = True Then
-                ClassLogger.Add(">> User is Admin - Timer will be started", False)
-                'If USER_LANGUAGE = "de-DE" Then
-                MsgBox("Sie haben nun 3 Minuten Zeit eine neue Lizenz zu vergeben!", MsgBoxStyle.Information)
-                'Else
-                '    MsgBox("You now got 3 minutes to update the license!", MsgBoxStyle.Information)
-                'End If
+            RUN_TIMER()
+            If Sett_ConstructorStart <> 0 Then
+                Cursor = Cursors.WaitCursor
+                OpenFormConstructor(Sett_ConstructorStart)
+                Cursor = Cursors.Default
+            End If
+            'Lizenz abgellaufen, überprüfen ob User Admin ist
+            If LICENSE_COUNT < USERS_LOGGED_IN Then
+                If USER_IS_ADMIN = True Then
+                    ClassLogger.Add(">> User is Admin - Timer will be started", False)
+                    'If USER_LANGUAGE = "de-DE" Then
+                    MsgBox("You now got 3 minutes for creating a new license", MsgBoxStyle.Information)
+                    'Else
+                    '    MsgBox("You now got 3 minutes to update the license!", MsgBoxStyle.Information)
+                    'End If
 
-                'Timer starten
-                If TimerClose3Minutes.Enabled = False Then
-                    TimerClose3Minutes.Start()
+                    'Timer starten
+                    If TimerClose3Minutes.Enabled = False Then
+                        TimerClose3Minutes.Start()
+                    End If
                 End If
             End If
+        Else
+            Me.Close()
         End If
+       
         'If DOCTYPE_COUNT_ACTUAL > LICENSE_DOCTYPE_COUNT Then
         '    If CURRENT_USER_IS_ADMIN = True Then
         '        ClassLogger.Add(">> User is Admin - Timer will be started", False)