write.vb

windows mobile下的一个东西

Public Class write

    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


    Private Sub write_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        YearBox.Text = DateTime.Now.Year.ToString
        MonthBox.Text = DateTime.Now.Month.ToString
        DayBox.Text = DateTime.Now.Day.ToString
        WeekBox.Text = week
        Button1.Enabled = True
        MenuItem5.Enabled = True
    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim year, month, day As Integer
        year = Val(YearBox.Text.ToString)
        month = Val(MonthBox.Text.ToString)
        day = Val(DayBox.Text.ToString)
        db_cmd.CommandText = "INSERT INTO Daily(W_year,W_month,W_day,Weather,R_time,M_daily,M_mood)" & "VALUES ('" & year & " ','" & month & " ',' " & day & " ',' " & Me.weather1.Text.ToString & " ',getdate(),' " & Me.TextBox1.Text.ToString & " ',' " & Me.MoodBox.Text.ToString & " ')"
        db_cmd.Connection = db_c
        db_cmd.Connection.Open()
        db_cmd.ExecuteNonQuery()
        db_cmd.Connection.Close()
        MsgBox("保存成功")
        MenuItem5.Enabled = False
        Button2.Enabled = False
        Button1.Visible = False
        Button3.Visible = True
    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        TextBox1.Text = ""
        weather1.Text = ""
        YearBox.Text = DateTime.Now.Year.ToString
        MonthBox.Text = DateTime.Now.Month.ToString
        DayBox.Text = DateTime.Now.Day.ToString
        WeekBox.Text = week
    End Sub

    Private Sub MenuItem6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem6.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
        look.Show()
        Me.Hide()
    End Sub

    Private Sub MenuItem5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem5.Click
        Dim year, month, day As Integer

        year = Val(YearBox.Text.ToString)
        month = Val(MonthBox.Text.ToString)
        day = Val(DayBox.Text.ToString)
        db_cmd.CommandText = "INSERT INTO Daily(W_year,W_month,W_day,Weather,R_time,M_daily，M_mood)" & "VALUES ('" & year & " ','" & month & " ',' " & day & " ',' " & Me.weather1.Text.ToString & " ',getdate(),' " & Me.TextBox1.Text.ToString & " ',' " & Me.MoodBox.Text.ToString & " ')"

        db_cmd.Connection = db_c
        db_cmd.Connection.Open()
        db_cmd.ExecuteNonQuery()
        db_cmd.Connection.Close()
        MsgBox("保存成功")
        Button1.Enabled = False
        Button2.Enabled = False
        Button3.Visible = True
    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

    Public Sub New()

        ' 此调用是 Windows 窗体设计器所必需的。
        InitializeComponent()

        ' 在 InitializeComponent() 调用之后添加任何初始化。
        YearBox.Text = DateTime.Now.Year.ToString
        MonthBox.Text = DateTime.Now.Month.ToString
        DayBox.Text = DateTime.Now.Day.ToString
        Button1.Enabled = True
        MenuItem5.Enabled = True

    End Sub

    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
        Dim D_ID As Integer
        db_cmd.CommandText = "select M_ID from Daily Where ( M_ID >= 1) 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)
        D_ID = DT_daily.Rows(0)("M_ID")
        db_cmd.CommandText = "UPDATE Daily set Weather = '" & Me.weather1.Text.ToString & "' ,M_daily = ' " & Me.TextBox1.Text.ToString & " ',M_mood = '" & Me.MoodBox.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("更新成功")
    End Sub

End Class