form2.vb

windows mobile下的一个东西

Public Class Form2

    Dim db_cmd As New System.Data.SqlServerCe.SqlCeCommand
    Dim db_adp As System.Data.SqlServerCe.SqlCeDataAdapter
    Dim DT_daily As System.Data.DataTable = New System.Data.DataTable("Daily")
    Dim DT_Config As System.Data.DataTable = New System.Data.DataTable("Look_Config")
    Dim DT_row As System.Data.DataRow

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        write.Button1.Enabled = True
        write.Button2.Enabled = True
        write.Button2.Visible = True
        write.Button3.Visible = False
        write.MenuItem5.Enabled = True
        write.Show()
        Me.Hide()
    End Sub

    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
        look.Button1.Enabled = True
        look.Button2.Enabled = True
        look.Button3.Enabled = False
        look.Show()
        Me.Hide()

    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        look.Button1.Enabled = True
        look.Button2.Enabled = True
        look.Button3.Enabled = True
        look.Show()
        Me.Hide()

    End Sub

    Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
        look.Button1.Enabled = True
        look.Button3.Enabled = True
        look.Button2.Enabled = False
        look.Show()
        Me.Hide()
    End Sub

    Private Sub PictureBox1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PictureBox1.Click
        write.Button1.Enabled = True
        write.Button2.Enabled = True
        write.Button3.Visible = False
        write.Button2.Visible = True
        write.MenuItem5.Enabled = True
        write.Show()
        Me.Hide()
    End Sub

    Private Sub MenuItem3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem3.Click
        write.Button1.Enabled = True
        write.Button2.Enabled = True
        write.MenuItem5.Enabled = True
        write.Show()
        Me.Hide()
    End Sub

    Private Sub MenuItem4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem4.Click
        look.Button1.Enabled = True
        look.Button2.Enabled = True
        look.Button3.Enabled = False
        look.Show()
        Me.Hide()
    End Sub

    Private Sub MenuItem5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem5.Click
        look.Button1.Enabled = True
        look.Button2.Enabled = True
        look.Button3.Enabled = True
        look.Show()
        Me.Hide()
    End Sub

    Private Sub MenuItem6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem6.Click
        look.Button1.Enabled = True
        look.Button3.Enabled = True
        look.Button2.Enabled = False
        look.Show()
        Me.Hide()
    End Sub

    Private Sub MenuItem2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem2.Click
        Process.GetCurrentProcess().Kill()
    End Sub

    Private Sub PictureBox2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PictureBox2.Click
        look.Button1.Enabled = True
        look.Button2.Enabled = True
        look.Button3.Enabled = False
        look.Show()
        Me.Hide()

    End Sub

    Private Sub PictureBox4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PictureBox4.Click
        look.Button1.Enabled = True
        look.Button3.Enabled = True
        look.Button2.Enabled = False
        look.Show()
        Me.Hide()
    End Sub

    Private Sub PictureBox3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PictureBox3.Click
        look.Button1.Enabled = True
        look.Button2.Enabled = True
        look.Button3.Enabled = True
        look.Show()
        Me.Hide()

    End Sub

    Private Sub PictureBox5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PictureBox5.Click
        History.TreeView1.Nodes.Clear()
        '结点1
        Dim i As Integer
        Dim tree_root As New TreeNode()
        tree_root.Tag = 0
        tree_root.Text = "最近修改"
        History.TreeView1.Nodes.Add(tree_root)
        db_cmd.CommandText = "select * from Daily where R_time IS NOT NULL ORDER BY R_time DESC"
        db_cmd.Connection = db_c
        db_adp = New System.Data.SqlServerCe.SqlCeDataAdapter(db_cmd)
        DT_daily.Clear()
        db_adp.Fill(DT_daily)
        i = 0
        For Each DT_row In DT_daily.Rows
            i += 1
        Next
        Dim j As Integer
        For j = 0 To i - 1 Step 1
            Dim tree_leaf As New TreeNode()
            tree_leaf.Tag = j
            tree_leaf.Text = DT_daily.Rows(j)("R_time").ToString
            tree_root.Nodes.Add(tree_leaf)
            If j = 4 Then
                Exit For
            End If
        Next


        '结点2
        Dim tree_root2 As New TreeNode()
        tree_root2.Tag = 1
        tree_root2.Text = "最新加入"
        History.TreeView1.Nodes.Add(tree_root2)
        db_cmd.CommandText = "select * from Daily ORDER BY M_ID DESC"
        db_cmd.Connection = db_c
        db_adp = New System.Data.SqlServerCe.SqlCeDataAdapter(db_cmd)
        DT_daily.Clear()
        db_adp.Fill(DT_daily)
        i = 0
        For Each DT_row In DT_daily.Rows
            i += 1
        Next
        For j = 0 To i - 1 Step 1
            Dim tree_leaf As New TreeNode()
            tree_leaf.Tag = j
            tree_leaf.Text = DT_daily.Rows(j)("W_year").ToString + "-" + DT_daily.Rows(j)("W_month").ToString + "-" + DT_daily.Rows(j)("W_day").ToString
            tree_root2.Nodes.Add(tree_leaf)
            If j = 4 Then
                Exit For
            End If
        Next
        History.TreeView1.Refresh()
        History.Show()
        Me.Hide()
    End Sub

    Private Sub Form2_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Dim time As DateTime

        week = "星期"
        time = DateTime.Now
        Select Case time.DayOfWeek
            Case DayOfWeek.Monday
                week = "星期一"
            Case DayOfWeek.Tuesday
                week = "星期二"
            Case DayOfWeek.Wednesday
                week = "星期三"
            Case DayOfWeek.Thursday
                week = "星期四"
            Case DayOfWeek.Friday
                week = "星期五"
            Case DayOfWeek.Saturday
                week = "星期六"
            Case DayOfWeek.Sunday
                week = "星期日"
            Case Else
        End Select
        MenuItem7.Text = DateTime.Now.Month.ToString + "/" + DateTime.Now.Day.ToString + "/" + DateTime.Now.Year.ToString + " " + week


        Dim flag As Integer = -1

        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)
        For Each DT_row In DT_Config.Rows
            flag += 1
            If flag >= 0 Then
                Exit For
            End If
        Next
        If flag <> -1 Then
            Dim F_name As String
            Dim F_size As Single
            Dim Fs As New FontStyle
            Fs = FontStyle.Regular
            F_name = DT_Config.Rows(0)("Font").ToString
            F_size = DT_Config.Rows(0)("F_Size")
            Config.Fname = F_name
            Config.Fs = Fs
            write.TextBox1.Font = New Font(F_name, F_size, Fs)
            rewrite.TextBox1.Font = New Font(F_name, F_size, Fs)
            See.DBrowsew.Font = New Font(F_name, F_size, Fs)
        End If
    End Sub


    Private Sub MenuItem7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem7.Click
        calendar.Show()
        Me.Hide()
    End Sub

    Private Sub MenuItem8_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem8.Click
        Config.FillConfig()
        Config.Button1.Enabled = False
        Config.Button2.Enabled = False
        Config.Show()
        Me.Hide()
    End Sub
End Class