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

jj: fix admin check

Browse Source
This commit is contained in:
Jonathan Jenne 2018-06-11 15:40:39 +02:00
parent 778a519ab1
commit 2ca9c7e29d
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
DDUserManager/DDUserManager/frmMain.vb
View File

@ -12,7 +12,7 @@ Public Class frmMain
Private DragDropManager As ClassDragDrop = Nothing Private DragDropManager As ClassDragDrop = Nothing
Private Sub frmMain_Load(sender As Object, e As EventArgs) Handles MyBase.Load Private Sub frmMain_Load(sender As Object, e As EventArgs) Handles MyBase.Load
If TBDD_USERTableAdapter.IsUserManagerAdmin(Environment.UserName) > 0 Then If TBDD_USERTableAdapter.IsUserManagerAdmin(Environment.UserName) = 1 Then
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: {userRow.USERNAME}"
CurrentUser = userRow CurrentUser = userRow