حفظ أعدادات الأولان والخط فى sql

PHP كود :
Imports System.Data.SqlClient

Public Class Form1

    Private connString As String = "Data Source=myServerAddress;Initial Catalog=myDataBase;User ID=myUsername;Password=myPassword;"

    Private Sub SaveUserSettings(userID As Integer, fontName As String, fontSize As Integer, fontColor As String, bgColor As String)
        Using conn As New SqlConnection(connString)
            conn.Open()
            Dim query As String = "INSERT INTO UserSettings (UserID, FontName, FontSize, FontColor, BackgroundColor) VALUES (@UserID, @FontName, @FontSize, @FontColor, @BgColor)"
            Using cmd As New SqlCommand(query, conn)
                cmd.Parameters.AddWithValue("@UserID", userID)
                cmd.Parameters.AddWithValue("@FontName", fontName)
                cmd.Parameters.AddWithValue("@FontSize", fontSize)
                cmd.Parameters.AddWithValue("@FontColor", fontColor)
                cmd.Parameters.AddWithValue("@BgColor", bgColor)
                cmd.ExecuteNonQuery()
            End Using
        End Using
    End Sub

    Private Function GetUserSettings(userID As Integer) As Dictionary(Of String, String)
        Dim settings As New Dictionary(Of String, String)()
        Using conn As New SqlConnection(connString)
            conn.Open()
            Dim query As String = "SELECT FontName, FontSize, FontColor, BackgroundColor FROM UserSettings WHERE UserID = @UserID"
            Using cmd As New SqlCommand(query, conn)
                cmd.Parameters.AddWithValue("@UserID", userID)
                Using reader As SqlDataReader = cmd.ExecuteReader()
                    If reader.Read() Then
                        settings.Add("FontName", reader("FontName").ToString())
                        settings.Add("FontSize", reader("FontSize").ToString())
                        settings.Add("FontColor", reader("FontColor").ToString())
                        settings.Add("BgColor", reader("BackgroundColor").ToString())
                    End If
                End Using
            End Using
        End Using
        Return settings
    End Function

    ' استخدم هذه الوظيفة لحفظ إعدادات المستخدم
    ' يمكنك استدعائها عند تغيير الإعدادات في تطبيقك
    Private Sub btnSaveSettings_Click(sender As Object, e As EventArgs) Handles btnSaveSettings.Click
        Dim userID As Integer = 1 ' استبدل بمعرف المستخدم الفعلي
        Dim fontName As String = "Arial" ' استبدل بالخط المختار
        Dim fontSize As Integer = 12 ' استبدل بحجم الخط المختار
        Dim fontColor As String = "Black" ' استبدل بلون الخط المختار
        Dim bgColor As String = "White" ' استبدل بلون الخلفية المختار
        SaveUserSettings(userID, fontName, fontSize, fontColor, bgColor)
    End Sub

    ' استخدم هذه الوظيفة لاسترجاع إعدادات المستخدم
    ' يمكنك استدعائها عند بدء تشغيل التطبيق أو عند تحميل صفحة المستخدم
    Private Sub LoadUserSettings(userID As Integer)
        Dim settings As Dictionary(Of String, String) = GetUserSettings(userID)
        If settings.ContainsKey("FontName") Then
            Dim fontName As String = settings("FontName")
            Dim fontSize As Integer = Integer.Parse(settings("FontSize"))
            Dim fontColor As String = settings("FontColor")
            Dim bgColor As String = settings("BgColor")

            ' استخدم الإعدادات لتغيير الواجهة
            Me.Font = New Font(fontName, fontSize)
            Me.ForeColor = Color.FromName(fontColor)
            Me.BackColor = Color.FromName(bgColor)
        End If
    End Sub

    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        Dim userID As Integer = 1 ' استبدل بمعرف المستخدم الفعلي
        LoadUserSettings(userID)
    End Sub
End Class