Anpassung Auswertung aus Ansicht

UID/cUsersettings.vb

@@ -0,0 +1,45 @@
+Imports System.Reflection
+Public Class cUsersettings
+
+    Property ChatEnabled As Boolean = True
+    Property Username As String = VERAG_PROG_ALLGEMEIN.cAllgemein.USRKURZNAME
+
+
+    Function GetParaMeterList() As List(Of SQLVariable)
+        Dim List As New List(Of SQLVariable)
+        List.Add(New SQLVariable("Username", Username))
+        List.Add(New SQLVariable("ChatEnabled", ChatEnabled))
+
+        Return List
+    End Function
+
+    Function save()
+        Dim ds As New DataSet
+        cSQL.SQL2DS("select * from tblUsersettings where Username = '" & Username & "'", ds)
+        If ds.Tables(0).Rows.Count > 0 Then
+            Dim update, where As String
+            cSQL.getUpdateCmd(GetParaMeterList(), "Username", update, where)
+            cSQL.UpdateSQL("dbo.tblusersettings", update, where)
+        Else
+            Dim insert As String
+            cSQL.getInsertCmd(GetParaMeterList(), insert)
+            cSQL.InsertSQL("dbo.tblusersettings", insert)
+        End If
+    End Function
+
+    Function load()
+        Dim ds As New DataSet
+        cSQL.SQL2DS("select * from tblUsersettings where Username = '" & Username & "'", 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
+        End If
+    End Function
+
+End Class