RecordOrganizer/app/DD-Record-Organiser/ClassInit.vb

Imports System.ComponentModel

Public Class ClassInit
    Public Sub New()
    End Sub

    Public Sub InitLogger()
        ClassLogger.Init("", Environment.UserName)
    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 InitInterface(mainForm As frmMain)

        Dim SQL As String = "SELECT BACKGROUND_IMAGE, PRODUCT_NAME1 FROM TBDD_MODULES WHERE NAME = 'Record-Organizer'"
        Dim dt As DataTable = ClassDatabase.Return_Datatable(SQL)

        If dt.Rows.Count > 0 Then

            Dim row As DataRow = dt.Rows(0)

            If Not IsDBNull(row.Item("BACKGROUND_IMAGE")) Then
                Dim bimage() As Byte = CType(row.Item("BACKGROUND_IMAGE"), Byte())
                Dim image As Bitmap = ByteArrayToBitmap(bimage)

                mainForm.SetWindowBackground(image)
            End If

            If Not IsDBNull(row.Item("PRODUCT_NAME1")) Then
                Dim title As String = row.Item("PRODUCT_NAME1")

                mainForm.SetWindowTitle(title)
            End If

        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
                ClassLicence.Refresh_Licence()
                'Am System anmelden
                sql = "UPDATE TBDD_USER SET LOGGED_IN = @LogInOut, LOGGED_WHERE = '@ANGEMELDETWO' WHERE (LOWER(USERNAME) = LOWER('@user'))"
                sql = sql.Replace("@LogInOut", 1)
                sql = sql.Replace("@ANGEMELDETWO", Environment.MachineName)
                sql = sql.Replace("@user", Environment.UserName)
                ClassDatabase.Execute_non_Query(sql)
                sql = "DELETE FROM TBDD_USER_MODULE_LOG_IN WHERE USER_ID = " & USER_GUID & " AND MODULE= 'RECORD_ORGANIZER'"
                If ClassDatabase.Execute_non_Query(sql, True) = True Then

                End If

                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)
                If LogErrorsOnly = False Then ClassLogger.Add(" >> Anzahl Angemeldete User: " & anzahl.ToString, False)
                '####
                
                If LICENSE_COUNT < USERS_LOGGED_IN And LICENSE_EXPIRED = False Then
                    MsgBox("Die Anzahl der aktuell angemeldeten User (" & USERS_LOGGED_IN.ToString & ") überschreitet die Anzahl der aktuellen Lizenzen!" & vbNewLine & "Anzahl der Lizenzen: " & LICENSE_COUNT.ToString & vbNewLine & "Bitte setzen Sie sich mit dem Systembetreuer in Verbindung!", MsgBoxStyle.Critical, "Achtung:")
                    ClassLogger.Add(" >> Die Anzahl der aktuell angemeldeten User (" & USERS_LOGGED_IN.ToString & ") überschreitet die Anzahl der Lizenzen (" & LICENSE_COUNT & ") für Record-Organizer!", False)
                    If USER_IS_ADMIN = False Then
                        'Anmeldung wieder herausnehmen
                        sql = "DELETE FROM TBDD_USER_MODULE_LOG_IN WHERE USER_ID = " & USER_GUID & " AND MODULE= 'RECORD_ORGANIZER'"
                        ClassDatabase.Execute_non_Query(sql, True)
                        ClassLogger.Add(" - Wieder abgemeldet", False)
                    End If
                End If


                'LabelLoggedIn.Caption = "Anzahl Angemeldete User: " & anzahl.ToString
            End If
        End If
    End Sub

End Class