JJ 21.09.15 Splashscreen

app/DD-Record-Organiser/ClassInit.vb

@@ -0,0 +1,81 @@
+Imports System.ComponentModel
+
+Public Class ClassInit
+    Public Sub New()
+    End Sub
+
+    Public Sub InitLogger()
+        ClassLogger.Init("", Environment.UserName)
+        'Throw New Exception("Dummy Fehler!")
+    End Sub
+
+    Public Sub InitDatabase()
+        Dim dbResult As Boolean
+
+        MySettings_Load()
+        If MyConnectionString <> String.Empty Then
+            dbResult = ClassDatabase.Init()
+        Else
+            frmConfig_Basic.ShowDialog()
+            dbResult = ClassDatabase.Init()
+        End If
+
+        If dbResult = False Then
+            Throw New Exception("Fehler beim Initialisieren der Datenbank. Weitere Informationen finden Sie in der Logdatei.")
+        End If
+    End Sub
+
+    Public Sub InitWindream()
+        Dim configResult As Boolean
+        configResult = Settings_LoadBasicConfig()
+
+        If configResult = False Then
+            Throw New Exception("Fehler beim Initialisieren der Windream-Einstellungen. Weitere Informationen finden Sie in der Logdatei.")
+        End If
+    End Sub
+
+    Public Sub InitUserLogin()
+        Dim sql = sql_UserID
+        sql = sql.Replace("@user", Environment.UserName)
+        ClassLogger.Add(">> Username: " & Environment.UserName, False)
+
+        USER_GUID = ClassDatabase.Execute_Scalar(sql)
+        If USER_GUID Is Nothing Then
+            ClassLogger.Add(" - User: " & Environment.UserName & " nicht in der Userverwaltung hinterlegt!", False)
+            'MsgBox("Achtung: Sie sind nicht in der Userverwaltung hinterlegt." & vbNewLine & "Bitte setzen Sie sich mit dem Systembetreuer in Verbindung!", MsgBoxStyle.Critical, "Achtung:")
+            'Me.Close()
+            Throw New Exception("Sie sind nicht in der Userverwaltung hinterlegt." & vbNewLine & "Bitte setzen Sie sich mit dem Systembetreuer in Verbindung!")
+        Else
+            sql = "SELECT MODULE_RECORD_ORG FROM TBDD_USER WHERE (LOWER(USERNAME) = LOWER('@user'))"
+            sql = sql.Replace("@user", Environment.UserName)
+            If ClassDatabase.Execute_Scalar(sql) = False Then
+                ClassLogger.Add(" - User: " & Environment.UserName & " nicht für Modul freigegben!", False)
+                'MsgBox("Achtung: Sie sind nicht für die Nutzung dieses Moduls freigeschaltet." & vbNewLine & "Bitte setzen Sie sich mit dem Systembetreuer in Verbindung!", MsgBoxStyle.Critical, "Achtung:")
+                Throw New Exception("Sie sind nicht für die Nutzung dieses Moduls freigeschaltet." & vbNewLine & "Bitte setzen Sie sich mit dem Systembetreuer in Verbindung!")
+                'Me.Close()
+            Else
+                'Am System anmelden
+                sql = sql_User_Login
+                sql = sql.Replace("@LogInOut", 1)
+                sql = sql.Replace("@ANGEMELDETWO", Environment.MachineName)
+                sql = sql.Replace("@user", Environment.UserName)
+                ClassDatabase.Execute_non_Query(sql)
+                sql = "INSERT INTO TBDD_USER_MODULE_LOG_IN (USER_ID,MODULE) VALUES (" & USER_GUID & ",'RECORD_ORGANIZER')"
+                ClassDatabase.Execute_non_Query(sql)
+                sql = "SELECT RECORD_ADMIN FROM TBDD_USER WHERE (LOWER(USERNAME) = LOWER('@user'))"
+                sql = sql.Replace("@user", Environment.UserName)
+                USER_IS_ADMIN = ClassDatabase.Execute_Scalar(sql)
+                'If USER_IS_ADMIN = True Then
+                '    'Admin
+                '    pageAdmin.Visible = True
+                'End If
+
+                sql = "SELECT COUNT(*) AS Expr1 FROM TBDD_USER_MODULE_LOG_IN WHERE MODULE = 'RECORD_ORGANIZER'"
+                Dim anzahl = ClassDatabase.Execute_Scalar(sql)
+                USERS_LOGGED_IN = CInt(anzahl)
+                'LabelLoggedIn.Caption = "Anzahl Angemeldete User: " & anzahl.ToString
+            End If
+        End If
+    End Sub
+
+End Class