AppStd/FileFlow
8
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

MS12.02.2016

Browse Source
This commit is contained in:
SchreiberM
2016-02-12 09:45:43 +01:00
parent 2a36cc2a79
commit e1f073d69f
64 changed files with 25315 additions and 5580 deletions
Download Patch File Download Diff File Expand all files Collapse all files

27
Global_Indexer/ClassInit.vb
View File

@@ -23,13 +23,15 @@ Public Class ClassInit
If MyConnectionString <> String.Empty Then
dbResult = ClassDatabase.Init()
Else
MsgBox("No Databaseconnection configured. (First Start or Appdata not accessible)" & vbNewLine & "Basic-Config will be loaded.", MsgBoxStyle.Information)
ERROR_STATE = "NO DB-CONNECTION"
frmConfig_Basic.ShowDialog()
dbResult = ClassDatabase.Init()
End If
If dbResult = False Then
ERROR_STATE = "FAILED DBCONNECTION"
MsgBox("Fehler beim Initialisieren der Datenbank. Weitere Informationen finden Sie in der Logdatei.", MsgBoxStyle.Critical)
MsgBox("Error in init database. (Connection failed) More information in the logfile.", MsgBoxStyle.Critical)
Return False
Else
Return True
@@ -81,24 +83,29 @@ Public Class ClassInit
CURRENT_USERID = ClassDatabase.Execute_Scalar(sql, MyConnectionString, True)
If IsDBNull(CURRENT_USERID) Then
ClassLogger.Add(" - User: " & Environment.UserName & " nicht in der Userverwaltung hinterlegt! (DBNull)", False)
ClassLogger.Add("User '" & Environment.UserName & "' not configured in Useradministration! (DBNull)", True)
'MsgBox("Achtung: Sie sind nicht in der Userverwaltung hinterlegt." & vbNewLine & "Bitte setzen Sie sich mit dem Systembetreuer in Verbindung!", MsgBoxStyle.Critical, "Achtung:")
'Me.Close()
START_INCOMPLETE = True
Throw New Exception("Sie sind nicht in der Userverwaltung hinterlegt." & vbNewLine & "Bitte setzen Sie sich mit dem Systembetreuer in Verbindung oder konfigurieren Ihren Usernamen für dieses Modul!")
Throw New Exception("You are not configured in the Useradministration." & vbNewLine & "Please contact the system administrator!")
Else
If IsNothing(CURRENT_USERID) Then
ClassLogger.Add(" - User: " & Environment.UserName & " nicht in der Userverwaltung hinterlegt! (nothing)", False)
ClassLogger.Add(" - User: " & Environment.UserName & " ' not configured in Useradministration! (nothing)", False)
START_INCOMPLETE = True
Throw New Exception("Sie sind nicht in der Userverwaltung hinterlegt." & vbNewLine & "Bitte setzen Sie sich mit dem Systembetreuer in Verbindung oder konfigurieren Ihren Usernamen für dieses Modul!")
Throw New Exception("You are not configured in the Useradministration." & vbNewLine & "Please contact the system administrator!")
Else
sql = "SELECT MODULE_GI FROM TBDD_USER WHERE (LOWER(USERNAME) = LOWER('@user'))"
sql = sql.Replace("@user", Environment.UserName)
sql = "SELECT SHORTNAME FROM TBDD_USER WHERE GUID = " & CURRENT_USERID
CURRENT_USER_SHORT = ClassDatabase.Execute_Scalar(sql, MyConnectionString)
If IsNothing(CURRENT_USER_SHORT) Or IsDBNull(CURRENT_USER_SHORT) Then
CURRENT_USER_SHORT = ""
End If
sql = String.Format("SELECT MODULE_GI FROM TBDD_USER WHERE GUID = {0}", CURRENT_USERID)
If ClassDatabase.Execute_Scalar(sql, MyConnectionString, True) = False Then
ClassLogger.Add(" - User: " & Environment.UserName & " nicht für Modul freigegben!", False)
START_INCOMPLETE = True
'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!")
Throw New Exception("Your user is not allowed to use this module." & vbNewLine & "Please contact the system administrator!")
'Me.Close()
Else
'Am System anmelden
@@ -126,9 +133,7 @@ Public Class ClassInit
sql = sql.Replace("@user", Environment.UserName)
ClassDatabase.Execute_non_Query(sql)
sql = "DELETE FROM TBDD_USER_MODULE_LOG_IN WHERE USER_ID = " & CURRENT_USERID & " AND UPPER(MODULE) = UPPER('Global-Indexer')"
If ClassDatabase.Execute_non_Query(sql, True) = True Then
End If
ClassDatabase.Execute_non_Query(sql, True)
sql = "INSERT INTO TBDD_USER_MODULE_LOG_IN (USER_ID,MODULE) VALUES (" & CURRENT_USERID & ",'Global-Indexer')"
ClassDatabase.Execute_non_Query(sql)