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 rowresult
Public USER_ID As Integer
Public Function SaveMySettingsValue(name As String, value As String, type As String)
Try
Dim DT As DataTable

16
DDUserManager/DDUserManager/frmMain.vb
View File

@ -35,9 +35,14 @@ Public Class frmMain
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)
tsLabelUser.Text = $"Angemeldeter Benutzer: {userRow.USERNAME}"
tsLabelUser.Text = $"Angemeldeter Benutzer: {Environment.UserName}"
CurrentUser = userRow
' Grunddaten aus Tabellen laden
@ -61,6 +66,13 @@ Public Class frmMain
DragDropManager.AddGridView(viewClientsGroups_AvailableGroups)
DragDropManager.AddGridView(viewModulesGroups_AssignedGroups)
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
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")