An Haufen Zeug

2019-08-07 10:45:49 +02:00
parent f2d5c20559
commit d67e84486a
35 changed files with 4382 additions and 658 deletions
--- a/Dokumentation/Classes/cBerechtigungen.vb
+++ b/Dokumentation/Classes/cBerechtigungen.vb
@@ -0,0 +1,124 @@
+Imports System.Reflection
+
+Public Class cBerechtigungen
+
+
+    Property Benutzeranmeldename As String = ""
+    Property Standort As String = ""
+    Property Zugriff As String = ""
+    Property MeExist As Boolean = False
+    Property ID As String = ""
+    Property StandardZugriff = "0"
+
+
+    Function getparameterlist() As List(Of SQLVariable)
+        Dim list As New List(Of SQLVariable)
+        list.Add(New SQLVariable("Benutzeranmeldename", Benutzeranmeldename))
+        list.Add(New SQLVariable("Standort", Standort))
+        list.Add(New SQLVariable("Zugriff", Zugriff))
+        list.Add(New SQLVariable("ID", ID))
+        Return list
+    End Function
+
+    Public Function getFromSQL() '(ip As String)
+        Dim ds As New DataSet
+        Dim test As String = ""
+        SQL.SQL2DS("SELECT * FROM TbL_Berechtigungen WHERE BENUTZERANMELDENAME = '" & Benutzeranmeldename & "' AND Standort = '" & Standort & "'", ds)
+        If ds.Tables(0).Rows.Count > 0 Then
+            For Each c As DataColumn In ds.Tables(0).Columns
+                Dim propInfo As PropertyInfo = Me.GetType.GetProperty(c.ColumnName)
+                If propInfo IsNot Nothing Then
+                    If Not IsDBNull(c.Table.Rows(0).Item(c)) Then
+                        propInfo.SetValue(Me, c.Table.Rows(0).Item(c))
+                    End If
+                End If
+            Next
+        Else
+            Me.Zugriff = StandardZugriff
+        End If
+
+        '   MsgBox("hier")
+    End Function
+
+    Function checkExist() '(ByVal ip As String)
+        Dim ds As New DataSet
+        SQL.SQL2DS("SELECT * FROM TbL_Berechtigungen WHERE BENUTZERANMELDENAME = '" & Benutzeranmeldename & "' AND Standort = '" & Standort & "'", ds)
+        If ds.Tables(0).Rows.Count > 0 Then
+            MeExist = True
+            Return True
+        Else
+            MeExist = False
+            Return False
+        End If
+    End Function
+
+    Function SaveToSQL()
+        checkExist()
+        If MeExist = True Then
+            Dim update As String = ""
+            Dim where As String = ""
+            Dim list As List(Of SQLVariable) = getparameterlist()
+
+            For Each i In list  ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''dieser Host
+                If Not i.SQLText = "ID" Then
+                    update &= "[" & i.SQLText & "]='" & i.SQLValue & "',"
+                Else
+                    where &= "ID = '" & i.SQLValue & "'"
+                End If
+            Next
+            update = update.Substring(0, update.Length - 1)
+            SQL.UpdateSQL("TbL_Berechtigungen", update, where)
+        Else
+            Me.ID = Guid.NewGuid().ToString("N")
+            Dim Spalten As String = ""
+            Dim Werte As String = ""
+            Dim InsertString As String = ""
+            Dim List As List(Of SQLVariable) = getparameterlist()
+            For Each i In List
+                ' If Not i.SQLText = "Erstelldatum" Then
+                Spalten &= i.SQLText & ","
+                Werte &= "'" & i.SQLValue & "',"
+                ' End If
+            Next
+            Spalten = Spalten.Substring(0, Spalten.Length - 1)
+            Werte = Werte.Substring(0, Werte.Length - 1)
+
+            SQL.InsertSQL("TbL_Berechtigungen", "(" & Spalten & ") VALUES (" & Werte & ")")
+            MeExist = True
+        End If
+    End Function
+
+    Public Shared Function ReadAll(ByVal Benutzeranmeldename As String) As List(Of cBerechtigungen)
+        Try
+            Dim ToR As New List(Of cBerechtigungen) ' ToR -> Table of Rights *Badum Tss*
+            Dim ds As New DataSet
+            SQL.SQL2DS("SELECT * FROM TbL_Berechtigungen WHERE BENUTZERANMELDENAME = '" & Benutzeranmeldename & "'", ds)
+            If ds.Tables(0).Rows.Count > 0 Then
+                For Each row As DataRow In ds.Tables(0).Rows
+                    Dim R As New cBerechtigungen
+                    R.Benutzeranmeldename = Benutzeranmeldename
+                    R.Standort = row.Item("Standort").ToString
+                    R.Zugriff = row.Item("Zugriff").ToString
+                    R.ID = row.Item("ID").ToString
+                    ToR.Add(R)
+                Next
+            End If
+            Return ToR
+        Catch ex As Exception
+            MsgBox(ex.Message)
+        End Try
+    End Function
+
+    Public Shared Function BenutzerBerechtigungfuerStandort(ByVal Benutzer As String, ByVal Standort As String)
+        Dim ds As New DataSet
+        SQL.SQL2DS("SELECT ZUGRIFF FROM TbL_Berechtigungen WHERE BENUTZERANMELDENAME = '" & Benutzer & "' AND Standort = '" & Standort & "'", 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