form1.vb

小小通讯录程序 用Access作为数据库

    Private Sub ComboBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs)

    End Sub

    Private Sub RichTextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RichTextBox1.TextChanged

    End Sub

    Private Sub Button2_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        Me.Height = 328
    End Sub

    Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
        DataSet11.Clear()
        If TextBox1.ReadOnly = False Then
            DataSet11.RejectChanges()
            Me.BindingContext(DataSet11, "ad_book").CancelCurrentEdit()
            TextBox1.ReadOnly = True
            TextBox2.ReadOnly = True
            TextBox3.ReadOnly = True
            TextBox4.ReadOnly = True
            TextBox5.ReadOnly = True
            TextBox6.ReadOnly = True
            TextBox7.ReadOnly = True
            TextBox8.ReadOnly = True
            TextBox9.ReadOnly = True
            TextBox10.ReadOnly = True
        End If

    End Sub

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

    Private Sub MenuItem4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem4.Click
        TextBox1.ReadOnly = False
        TextBox2.ReadOnly = False
        TextBox3.ReadOnly = False
        TextBox4.ReadOnly = False
        TextBox5.ReadOnly = False
        TextBox6.ReadOnly = False
        TextBox7.ReadOnly = False
        TextBox8.ReadOnly = False
        TextBox9.ReadOnly = False
        TextBox10.ReadOnly = False
        Me.BindingContext(DataSet11, "Ad_book").AddNew()
    End Sub

    Private Sub MenuItem5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem5.Click
        If TextBox1.Text <> "" Then
            TextBox1.ReadOnly = False
            TextBox2.ReadOnly = False
            TextBox3.ReadOnly = False
            TextBox4.ReadOnly = False
            TextBox5.ReadOnly = False
            TextBox6.ReadOnly = False
            TextBox7.ReadOnly = False
            TextBox8.ReadOnly = False
            TextBox9.ReadOnly = False
            TextBox10.ReadOnly = False
            i = 1
        End If
    End Sub

    Private Sub MenuItem6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem6.Click
        If TextBox1.ReadOnly = False Then
            Select Case i
                Case 0
                    If TextBox1.Text = "" Then
                        MsgBox("姓名不能为空")
                        Exit Sub
                    Else
                        Me.OleDbConnection1.Open()
                        Me.OleDbCommand2.CommandText = String.Format("INSERT INTO Ad_book(姓名,年龄,生日,性别,联系电话,email,工作单位,地址,手机,QQ) VALUES('{0}','{1}','{2}','{3}','{4}','{5}','{6}','{7}','{8}','{9}')", TextBox1.Text, TextBox2.Text, TextBox3.Text, TextBox4.Text, TextBox5.Text, TextBox8.Text, TextBox9.Text, TextBox10.Text, TextBox6.Text, TextBox7.Text)
                        Try
                            Me.OleDbCommand2.ExecuteNonQuery()
                            MsgBox("保存成功")
                        Catch ex As Exception
                            MsgBox(ex.Message)
                        Catch ex As Exception

                        End Try
                        Me.OleDbConnection1.Close()
                        TextBox1.ReadOnly = True
                        TextBox2.ReadOnly = True
                        TextBox3.ReadOnly = True
                        TextBox4.ReadOnly = True
                        TextBox5.ReadOnly = True
                        TextBox6.ReadOnly = True
                        TextBox7.ReadOnly = True
                        TextBox8.ReadOnly = True
                        TextBox9.ReadOnly = True
                        TextBox10.ReadOnly = True
                    End If
                Case 1
                    Me.OleDbConnection1.Open()
                    Try
                        Me.OleDbCommand2.CommandText = String.Format("UPDATE Ad_book SET 姓名= ('{0}')", TextBox1.Text)
                        Me.OleDbCommand2.ExecuteNonQuery()
                        Me.OleDbCommand2.CommandText = String.Format("UPDATE Ad_book SET 年龄= ('{0}')", TextBox2.Text)
                        Me.OleDbCommand2.ExecuteNonQuery()
                        Me.OleDbCommand2.CommandText = String.Format("UPDATE Ad_book SET 生日= ('{0}')", TextBox3.Text)
                        Me.OleDbCommand2.ExecuteNonQuery()
                        Me.OleDbCommand2.CommandText = String.Format("UPDATE Ad_book SET 性别= ('{0}')", TextBox4.Text)
                        Me.OleDbCommand2.ExecuteNonQuery()
                        Me.OleDbCommand2.CommandText = String.Format("UPDATE Ad_book SET 联系电话= ('{0}')", TextBox5.Text)
                        Me.OleDbCommand2.ExecuteNonQuery()
                        Me.OleDbCommand2.CommandText = String.Format("UPDATE Ad_book SET email= ('{0}')", TextBox8.Text)
                        Me.OleDbCommand2.ExecuteNonQuery()
                        Me.OleDbCommand2.CommandText = String.Format("UPDATE Ad_book SET 工作单位= ('{0}')", TextBox9.Text)
                        Me.OleDbCommand2.ExecuteNonQuery()
                        Me.OleDbCommand2.CommandText = String.Format("UPDATE Ad_book SET 地址= ('{0}')", TextBox10.Text)
                        Me.OleDbCommand2.ExecuteNonQuery()
                        Me.OleDbCommand2.CommandText = String.Format("UPDATE Ad_book SET 手机= ('{0}')", TextBox6.Text)
                        Me.OleDbCommand2.ExecuteNonQuery()
                        Me.OleDbCommand2.CommandText = String.Format("UPDATE Ad_book SET QQ= ('{0}')", TextBox7.Text)
                        Me.OleDbCommand2.ExecuteNonQuery()
                
                    Catch ex As Exception
                    End Try
                    Me.OleDbConnection1.Close()
                    MsgBox("保存成功")
                    TextBox1.ReadOnly = True
                    TextBox2.ReadOnly = True
                    TextBox3.ReadOnly = True
                    TextBox4.ReadOnly = True
                    TextBox5.ReadOnly = True
                    TextBox6.ReadOnly = True
                    TextBox7.ReadOnly = True
                    TextBox8.ReadOnly = True
                    TextBox9.ReadOnly = True
                    TextBox10.ReadOnly = True

            End Select
        End If
    End Sub

    Private Sub MenuItem7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem7.Click
        If TextBox1.ReadOnly = False Then
            DataSet11.RejectChanges()
            Me.BindingContext(DataSet11, "ad_book").CancelCurrentEdit()
            TextBox1.ReadOnly = True
            TextBox2.ReadOnly = True
            TextBox3.ReadOnly = True
            TextBox4.ReadOnly = True
            TextBox5.ReadOnly = True
            TextBox6.ReadOnly = True
            TextBox7.ReadOnly = True
            TextBox8.ReadOnly = True
            TextBox9.ReadOnly = True
            TextBox10.ReadOnly = True
        End If
    End Sub

    Private Sub MenuItem12_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem12.Click
        Me.Close()
    End Sub

    Private Sub MenuItem8_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem8.Click
        If TextBox1.ReadOnly = True Then
            Me.BindingContext(DataSet11, "Ad_book").Position = 0
        End If
    End Sub

    Private Sub MenuItem9_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem9.Click
        If TextBox1.ReadOnly = True Then
            Me.BindingContext(DataSet11, "Ad_book").Position = Me.BindingContext(DataSet11, "Ad_book").Count - 1
        End If
    End Sub

    Private Sub MenuItem10_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem10.Click
        If TextBox1.ReadOnly = True Then
            Try
                Me.BindingContext(DataSet11, "Ad_book").Position -= 1
            Catch a As Exception
            End Try
        End If
    End Sub

    Private Sub MenuItem11_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem11.Click
        If TextBox1.ReadOnly = True Then
            Try
                Me.BindingContext(DataSet11, "Ad_book").Position += 1
            Catch a As Exception
            End Try
        End If
    End Sub

    Private Sub MenuItem3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem3.Click
        shar.TopMost = True
        shar.Show()
    End Sub

    Private Sub TextBox3_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox3.TextChanged

    End Sub

    Private Sub TextBox7_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox7.TextChanged

    End Sub
    Private Sub TextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox1.TextChanged

    End Sub

    Private Sub TextBox2_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox2.TextChanged

    End Sub

    Private Sub TextBox2_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TextBox2.KeyPress
        If (e.KeyChar < "0" Or e.KeyChar > "9") And e.KeyChar <> Chr(8) Then
            e.Handled = True

        End If
    End Sub

    Private Sub TextBox7_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TextBox7.KeyPress
        If (e.KeyChar < "0" Or e.KeyChar > "9") And e.KeyChar <> Chr(8) Then
            e.Handled = True

        End If
    End Sub

    Private Sub TextBox6_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox6.TextChanged

    End Sub

    Private Sub TextBox6_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TextBox6.KeyPress
        If (e.KeyChar < "0" Or e.KeyChar > "9") And e.KeyChar <> Chr(8) Then
            e.Handled = True

        End If
    End Sub

    Private Sub TextBox5_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox5.TextChanged

    End Sub

  

    Private Sub MenuItem14_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem14.Click
        If Me.BindingContext(DataSet11, "Ad_book").Count <> 0 Then
            If MsgBox("是否删除该记录", MsgBoxStyle.OKCancel, "删除") = MsgBoxResult.OK Then

                Me.OleDbConnection1.Open()
                Try
                    Me.OleDbCommand2.CommandText = String.Format("DELETE FROM Ad_book WHERE 姓名= ('{0}')", TextBox1.Text)
                    Me.OleDbCommand2.ExecuteNonQuery()
                Catch ex As Exception
                    MsgBox(ex.Message)
                Catch ex As Exception
                End Try
                Me.OleDbConnection1.Close()
                DataSet11.Clear()
                OleDbDataAdapter1.Fill(DataSet11)
            End If
        End If
    End Sub

    Private Sub MenuItem15_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem15.Click
        If Me.BindingContext(DataSet11, "Ad_book").Count = 0 Then
            MsgBox("没有任何数据可删除!")
        Else
            If MsgBox("是否删除所有通讯记录!", MsgBoxStyle.OKCancel, "清空所有数据") = MsgBoxResult.OK Then

                Me.OleDbConnection1.Open()
                Try
                    Me.OleDbCommand2.CommandText = "DELETE FROM Ad_book"
                    Me.OleDbCommand2.ExecuteNonQuery()
                Catch ex As Exception
                    MsgBox(ex.Message)
                Catch ex As Exception
                End Try
                Me.OleDbConnection1.Close()
                DataSet11.Clear()
                OleDbDataAdapter1.Fill(DataSet11)
            End If
        End If
    End Sub
End Class