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

fndd_check_USer_MODule eingebaut

Browse Source
This commit is contained in:
Digital Data - Marlon Schreiber 2018-06-20 15:29:26 +02:00
parent 5843797a52
commit f87bc98be7
2 changed files with 16 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
DDUserManager/DDUserManager/ModuleRuntime.vb
View File

@ -7,6 +7,8 @@ Module ModuleRuntime
Public ConfigPath As String = Path.Combine(Application.UserAppDataPath, "UserConfig.xml") Public ConfigPath As String = Path.Combine(Application.UserAppDataPath, "UserConfig.xml")
Public rowresult Public rowresult
Public USER_ID As Integer
Public Function SaveMySettingsValue(name As String, value As String, type As String) Public Function SaveMySettingsValue(name As String, value As String, type As String)
Try Try
Dim DT As DataTable Dim DT As DataTable

16
DDUserManager/DDUserManager/frmMain.vb
View File

@ -35,9 +35,14 @@ Public Class frmMain
TBDD_USER_MODULESTableAdapter.Connection.ConnectionString = MyConnectionString TBDD_USER_MODULESTableAdapter.Connection.ConnectionString = MyConnectionString
If TBDD_USERTableAdapter.IsUserManagerAdmin(Environment.UserName) = 1 Then Dim sql = String.Format("SELECT * FROM [dbo].[FNDD_CHECK_USER_MODULE] ('{0}','UM',{1})", Environment.UserName, 1)
Dim DT_CHECKUSER_MODULE As DataTable = clsDatabase.Return_Datatable(sql)
If DT_CHECKUSER_MODULE.Rows.Count = 1 Then
USER_ID = DT_CHECKUSER_MODULE.Rows(0).Item("USER_ID")
Dim userRow As TBDD_USERRow = GetCurrentUserRow(Environment.UserName) Dim userRow As TBDD_USERRow = GetCurrentUserRow(Environment.UserName)
tsLabelUser.Text = $"Angemeldeter Benutzer: {userRow.USERNAME}" tsLabelUser.Text = $"Angemeldeter Benutzer: {Environment.UserName}"
CurrentUser = userRow CurrentUser = userRow
' Grunddaten aus Tabellen laden ' Grunddaten aus Tabellen laden
@ -61,6 +66,13 @@ Public Class frmMain
DragDropManager.AddGridView(viewClientsGroups_AvailableGroups) DragDropManager.AddGridView(viewClientsGroups_AvailableGroups)
DragDropManager.AddGridView(viewModulesGroups_AssignedGroups) DragDropManager.AddGridView(viewModulesGroups_AssignedGroups)
DragDropManager.AddGridView(viewModulesGroups_AvailableGroups) DragDropManager.AddGridView(viewModulesGroups_AvailableGroups)
Else
MsgBox($"Der Benutzer '{Environment.UserName}' ist nicht zur Benutzerverwaltung berechtigt. {vbCrLf & vbCrLf}Bitte kontaktieren Sie den Administrator, wenn dies ein Fehler ist.", MsgBoxStyle.Critical, "UserManager")
Application.Exit()
End If
If TBDD_USERTableAdapter.IsUserManagerAdmin(Environment.UserName) = 1 Then
Else Else
MsgBox($"Der Benutzer '{Environment.UserName}' ist nicht zur Benutzerverwaltung berechtigt. {vbCrLf & vbCrLf}Bitte kontaktieren Sie den Administrator, wenn dies ein Fehler ist.", MsgBoxStyle.Critical, "UserManager") MsgBox($"Der Benutzer '{Environment.UserName}' ist nicht zur Benutzerverwaltung berechtigt. {vbCrLf & vbCrLf}Bitte kontaktieren Sie den Administrator, wenn dies ein Fehler ist.", MsgBoxStyle.Critical, "UserManager")