46 lines
1.6 KiB
VB.net
46 lines
1.6 KiB
VB.net
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
|