jj: fix admin check

This commit is contained in:
Jonathan Jenne 2018-06-11 15:40:39 +02:00
parent 778a519ab1
commit 2ca9c7e29d

View File

@ -12,7 +12,7 @@ Public Class frmMain
Private DragDropManager As ClassDragDrop = Nothing
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)
tsLabelUser.Text = $"Angemeldeter Benutzer: {userRow.USERNAME}"
CurrentUser = userRow