rewrite.vb

windows mobile下的一个东西

Public Class rewrite

    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_row As System.Data.DataRow

    Public year As Integer
    Public month As Integer
    Public day As Integer
    Public weather As String
    Public D_ID As Integer
    Public main As String


    Private Sub Button2_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click '放弃
        Form2.Show()
        Me.Hide()

    End Sub

    Private Sub MenuItem2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem2.Click
        look.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.Button3.Visible = False
        write.Button2.Visible = True
        write.MenuItem5.Enabled = True
        write.Show()
        Me.Hide()
    End Sub

    Private Sub MenuItem6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem6.Click
        Me.Hide()
    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        db_cmd.CommandText = "UPDATE Daily set Weather = '" & Me.Weather1.Text.ToString & "' ,M_mood = '" & Me.moodBox.Text.ToString & "' ,M_daily = ' " & Me.TextBox1.Text.ToString & " ',R_time = getdate() where (M_ID = '" & D_ID & " ')"
        db_cmd.Connection = db_c
        db_cmd.Connection.Open()
        db_cmd.ExecuteNonQuery()
        db_cmd.Connection.Close()
        MsgBox("保存成功")
        Button2.Enabled = False
    End Sub
    Private Sub MenuItem4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem4.Click
        Dim str As String
        If TextBox1.SelectedText <> "" Then
            str = TextBox1.SelectedText.ToString
            Clipboard.SetDataObject(str)
        End If
    End Sub

    Private Sub MenuItem7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem7.Click
        Dim str As String
        If TextBox1.SelectedText <> "" Then
            str = TextBox1.SelectedText.ToString
            Clipboard.SetDataObject(str)
            TextBox1.SelectedText = ""
        End If

    End Sub

    Private Sub MenuItem8_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem8.Click
        Dim str, i1, i2 As String
        Dim i As Integer
        i = TextBox1.SelectionStart
        TextBox1.Select(0, i)
        i1 = TextBox1.SelectedText()
        TextBox1.Select(i, TextBox1.TextLength)
        i2 = TextBox1.SelectedText()
        str = Clipboard.GetDataObject().GetData(DataFormats.StringFormat)
        ' TextBox1.Text.Insert(i, str)
        TextBox1.Text = i1 + str + i2
        TextBox1.Select(i, str.Length)
    End Sub

    Private Sub MenuItem10_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem10.Click
        TextBox1.SelectAll()
    End Sub

    Private Sub MenuItem9_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem9.Click
        TextBox1.Text = ""
    End Sub

End Class