83 lines
4.8 KiB
VB.net
83 lines
4.8 KiB
VB.net
Imports DD_Rights
|
|
Public Class frmStart
|
|
|
|
Private Sub frmStart_Load(sender As Object, e As EventArgs) Handles Me.Load
|
|
Try
|
|
Try
|
|
DD_Rights.ClassLogger.Init(Application.UserAppDataPath() & "\Log", Environment.UserName)
|
|
If DD_Rights.ClassDatabase.Init(My.Settings.MyConnectionString) = False Then
|
|
MsgBox("Error in Initializing Database. Please check log.", MsgBoxStyle.Critical)
|
|
Me.Close()
|
|
End If
|
|
Dim sql = String.Format("SELECT * FROM TBDD_USER WHERE (LOWER(USERNAME) = LOWER('{0}'))", Environment.UserName)
|
|
ClassLogger.Add(">> Login at: " & Now.ToString, False)
|
|
ClassLogger.Add(">> Username: " & Environment.UserName, False)
|
|
Dim USER_DT As DataTable = ClassDatabase.Return_Datatable(sql)
|
|
If USER_DT.Rows.Count = 0 Then
|
|
ClassLogger.Add(" - User '" & Environment.UserName & "' not listed in Useradminsitration!", 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()
|
|
Dim msg = String.Format("You are not listed in the Useradministration." & vbNewLine & "Please contact the admin.")
|
|
MsgBox(msg, MsgBoxStyle.Exclamation)
|
|
Me.Close()
|
|
Else
|
|
USER_GUID = USER_DT.Rows(0).Item("GUID")
|
|
USERID_FK_INT_ECM = USER_DT.Rows(0).Item("USERID_FK_INT_ECM")
|
|
USER_WAN = USER_DT.Rows(0).Item("WAN_ENVIRONMENT") 'ClassDatabase.Execute_Scalar("SELECT WAN_ENVIRONMENT FROM TBDD_USER WHERE GUID = " & USER_GUID, False)
|
|
USER_LANGUAGE = USER_DT.Rows(0).Item("LANGUAGE")
|
|
USER_DATE_FORMAT = USER_DT.Rows(0).Item("DATE_FORMAT")
|
|
|
|
'USER_LANGUAGE = ClassDatabase.Execute_Scalar("SELECT LANGUAGE FROM TBDD_USER WHERE GUID = " & USER_GUID, False)
|
|
Dim DT_CLIENT_USER As DataTable = ClassDatabase.Return_Datatable("SELECT CLIENT_ID FROM TBDD_CLIENT_USER WHERE USER_ID = " & USER_GUID)
|
|
'Dim i As Integer = 0
|
|
'For Each row As DataRow In DT_CLIENT_USER.Rows
|
|
' If i = 0 Then
|
|
' USER_CLIENTS_COMMA_SEPERATED = row.Item(0).ToString
|
|
' Else
|
|
' USER_CLIENTS_COMMA_SEPERATED = USER_CLIENTS_COMMA_SEPERATED & "," & row.Item(0).ToString
|
|
' End If
|
|
' i += 1
|
|
|
|
'Next
|
|
|
|
Dim Right_RO As Boolean = USER_DT.Rows(0).Item("MODULE_RECORD_ORG")
|
|
If Right_RO = 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:")
|
|
Dim msg = String.Format("Sie sind nicht für die Nutzung dieses Moduls freigeschaltet." & vbNewLine & "Bitte setzen Sie sich mit dem Systembetreuer in Verbindung!")
|
|
|
|
If USER_LANGUAGE <> "de-DE" Then
|
|
msg = String.Format("You are not authorized for using this module." & vbNewLine & "Please contact the admin.")
|
|
End If
|
|
MsgBox(msg, MsgBoxStyle.Exclamation)
|
|
Me.Close()
|
|
Else
|
|
sql = String.Format("SELECT RECORD_ADMIN FROM TBDD_USER WHERE (LOWER(USERNAME) = LOWER('{0}'))", Environment.UserName)
|
|
USER_IS_ADMIN = ClassDatabase.Execute_Scalar(sql)
|
|
If USER_IS_ADMIN = False Then
|
|
Dim msg = String.Format("Sorry You are not an ADDI-Admin!")
|
|
MsgBox(msg, MsgBoxStyle.Exclamation)
|
|
Me.Close()
|
|
End If
|
|
End If
|
|
End If
|
|
Catch ex As Exception
|
|
ClassLogger.Add("Unexpected Error in InitUserLogin: " & ex.Message, True)
|
|
MsgBox("Unexpected Error in InitUserLogin: " & ex.Message, MsgBoxStyle.Critical)
|
|
End Try
|
|
Catch ex As Exception
|
|
|
|
End Try
|
|
End Sub
|
|
|
|
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
|
|
Me.Visible = False
|
|
frmCheckRightsEntity.ShowDialog()
|
|
Me.Visible = True
|
|
End Sub
|
|
|
|
Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
|
|
Process.Start(ClassLogger.DateiSpeicherort)
|
|
End Sub
|
|
End Class
|