82 lines
3.7 KiB
VB.net
82 lines
3.7 KiB
VB.net
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
|