jj: catch all exceptions in frmMain_Load

DDUserManager/DDUserManager/frmMain.vb

@@ -20,6 +20,7 @@ Public Class frmMain
     Private Shared logger As NLog.Logger = NLog.LogManager.GetCurrentClassLogger()
 
     Private Sub frmMain_Load(sender As Object, e As EventArgs) Handles MyBase.Load
+        Try
             NLog.LogManager.Configuration = ClassNLog.GetLoggerConfigFor(MODULE_NAME)
 
             logger.Info("Starting UserManager v" & Application.ProductVersion)
@@ -48,15 +49,31 @@ Public Class frmMain
             TBDD_USERTableAdapter.Connection.ConnectionString = MyConnectionString
             TBDD_USER_MODULESTableAdapter.Connection.ConnectionString = MyConnectionString
 
-
             Dim sql = String.Format("SELECT * FROM [dbo].[FNDD_CHECK_USER_MODULE] ('{0}','UM',{1})", Environment.UserName, 1)
             Dim DT_CHECKUSER_MODULE As DataTable = clsDatabase.Return_Datatable(sql)
 
+            If DT_CHECKUSER_MODULE.Rows.Count = 0 Then
+                MsgBox($"Der Benutzer '{Environment.UserName}' ist nicht zur Benutzerverwaltung berechtigt. {vbCrLf & vbCrLf}Bitte kontaktieren Sie den Administrator, wenn dies ein Fehler ist.", MsgBoxStyle.Critical, "UserManager")
+                logger.Warn($"Der Benutzer '{Environment.UserName}' ist nicht zur Benutzerverwaltung berechtigt.")
+                Application.ExitThread()
+            End If
+
+            Dim firstRow As DataRow = DT_CHECKUSER_MODULE.Rows.Item(0)
+            Dim userId As Integer = firstRow.Item("USER_ID")
+
+            If userId = 0 Then
+                MsgBox($"Der Benutzer '{Environment.UserName}' ist nicht in der Benutzerverwaltung vorhanden. {vbCrLf & vbCrLf}Bitte kontaktieren Sie den Administrator, wenn dies ein Fehler ist.", MsgBoxStyle.Critical, "UserManager")
+                logger.Warn($"Der Benutzer '{Environment.UserName}' ist nicht in der Benutzerverwaltung vorhanden.")
+                Application.ExitThread()
+            End If
+
             If DT_CHECKUSER_MODULE.Rows.Count = 1 Then
-
-
                 Dim userRow As TBDD_USERRow = GetCurrentUserRow(Environment.UserName)
 
+                If userRow Is Nothing Then
+
+                End If
+
                 tsLabelUser.Text = $"Angemeldeter Benutzer: {Environment.UserName}"
                 tsLabelVersion.Text = $"Version {Application.ProductVersion}"
 
@@ -90,14 +107,18 @@ Public Class frmMain
             Else
                 MsgBox($"Der Benutzer '{Environment.UserName}' ist nicht zur Benutzerverwaltung berechtigt. {vbCrLf & vbCrLf}Bitte kontaktieren Sie den Administrator, wenn dies ein Fehler ist.", MsgBoxStyle.Critical, "UserManager")
                 logger.Warn($"Der Benutzer '{Environment.UserName}' ist nicht zur Benutzerverwaltung berechtigt.")
-            Application.Exit()
+                Application.ExitThread()
             End If
 
             If TBDD_USERTableAdapter.IsUserManagerAdmin(Environment.UserName) <> 1 Then
                 MsgBox($"Der Benutzer '{Environment.UserName}' ist nicht zur Benutzerverwaltung berechtigt. {vbCrLf & vbCrLf}Bitte kontaktieren Sie den Administrator, wenn dies ein Fehler ist.", MsgBoxStyle.Critical, "UserManager")
                 logger.Warn($"Der Benutzer '{Environment.UserName}' ist nicht zur Benutzerverwaltung berechtigt.")
-            Application.Exit()
+                Application.ExitThread()
             End If
+        Catch ex As Exception
+            MsgBox("Unexpected Error while loading. Please check the log.", MsgBoxStyle.Critical, "User Manager")
+            logger.Fatal(ex, "Unexpected Error while loading.")
+        End Try
     End Sub
 
     Public Function InitDatabase()