Benutzerberechtigungen eingebaut

Dokumentation/Classes/cBerechtigungen.vb

@@ -120,5 +120,16 @@ Public Class cBerechtigungen
         End If
     End Function
 
+    Public Shared Function BenutzerBerechtigungfuerID(ByVal Benutzer As String, ByVal ID As String)
+        Dim ds As New DataSet
+        SQL.SQL2DS("SELECT ZUGRIFF FROM TbL_Berechtigungen WHERE BENUTZERANMELDENAME = '" & Benutzer & "' AND ID = '" & ID & "'", ds)
+        If ds.Tables(0).Rows.Count > 0 Then
+            Return ds.Tables(0).Rows(0).Item(0).ToString
+        Else
+            ' MsgBox("Keine Berechtigung gefunden")
+            Return "0"
+        End If
+    End Function
+
 
 End Class