config.vb

windows mobile下的一个东西

Public Class Config

    Dim db_cmd As New System.Data.SqlServerCe.SqlCeCommand
    Dim db_adp As System.Data.SqlServerCe.SqlCeDataAdapter
    Dim DT_Config As System.Data.DataTable = New System.Data.DataTable("Look_Config")
    Dim DT_row As System.Data.DataRow
    Public Fname As String
    Public Fs As FontStyle



    Private Sub MenuItem1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem1.Click
        Form2.Show()
        Me.Hide()
    End Sub

    Public Sub FillConfig()
        Fsize.Items.Clear()

        db_cmd.CommandText = "select * from Look_Config"
        db_cmd.Connection = db_c
        db_adp = New System.Data.SqlServerCe.SqlCeDataAdapter(db_cmd)
        DT_Config.Clear()
        db_adp.Fill(DT_Config)
        Fsize.Items.Add(DT_Config.Rows(0)("F_Size"))
        Dim i As Integer

        For i = 2 To 36 Step 1
            Fsize.Items.Add(i)
        Next

        Fsize.SelectedItem = DT_Config.Rows(0)("F_Size")
        Me.Button1.Enabled = False
        Me.Button2.Enabled = False

    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim F_s As Single
        F_s = Val(Fsize.Text.ToString)
        db_cmd.CommandText = "UPDATE Look_Config set F_size = '" & F_s & "'"
        db_cmd.Connection = db_c
        db_cmd.Connection.Open()
        db_cmd.ExecuteNonQuery()
        db_cmd.Connection.Close()
        Me.Button1.Enabled = False
        rewrite.TextBox1.Font = New Font(Fname, F_s, Fs)
        See.DBrowsew.Font = New Font(Fname, F_s, Fs)
        write.TextBox1.Font = New Font(Fname, F_s, Fs)

    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        Dim F_s As Single
        F_s = Val(Fsize.Text.ToString)
        db_cmd.CommandText = "UPDATE Look_Config set F_size = '" & F_s & "'"
        db_cmd.Connection = db_c
        db_cmd.Connection.Open()
        db_cmd.ExecuteNonQuery()
        db_cmd.Connection.Close()
        Me.Button1.Enabled = False
        rewrite.TextBox1.Font = New Font(Fname, F_s, Fs)
        See.DBrowsew.Font = New Font(Fname, F_s, Fs)
        write.TextBox1.Font = New Font(Fname, F_s, Fs)
        Form2.Show()
        Me.Hide()
    End Sub

    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
        FillConfig()

    End Sub

    Private Sub Fsize_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Fsize.SelectedIndexChanged
        Me.Button1.Enabled = True
        Me.Button2.Enabled = True
    End Sub
End Class