个人信息.vb

初学者的练习一个简单的图书管理系统简单的查询和添加删除

'导入相关命名空间
Imports System.Data
Imports System.Data.SqlClient
Imports System.Xml


Public Class 个人信息
    '声明相关变量
    Dim m_Con As New SqlConnection
    Dim m_Ada As New SqlDataAdapter
    Dim m_Ds As New DataSet
    Dim m_Cmd As New SqlCommand
    Dim str As String

    Private Sub 个人信息_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        m_Con.ConnectionString = "Data Source=LANCE-NOTEBOOK\WYVERN;Initial Catalog = Users;User ID=sa;Password=980665"

        RewriteXMLFile()

    End Sub

    Private Sub Button_Insert_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button_Insert.Click
        m_Con.Open()

        Try
            str = "insert into Users values('" & TextBox_Name.Text & "'," & TextBox_Age.Text & ", '" & TextBox_Faverity.Text & "')"
            m_Cmd.CommandText = str
            m_Cmd.Connection = m_Con

            m_Cmd.ExecuteNonQuery()
            ListBox1.Items.Add("添加成功！")
        Catch ex As Exception
            ListBox1.Items.Add("添加失败！  " + ex.Message)

        End Try

        m_Con.Close()

        RewriteXMLFile()


    End Sub

    Private Sub Button_Select_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button_Select.Click
        m_Con.Open()

        Try
            str = "select * from Users where name = '" & TextBox_Select.Text & "'"
            m_Cmd.CommandText = str
            m_Cmd.Connection = m_Con

            m_Ada.SelectCommand = m_Cmd
            m_Ada.Fill(m_Ds, "Users")

            ListBox1.Items.Add("共有" & m_Ds.Tables("Users").Rows.Count & "条匹配的记录")
            ListBox1.Items.Add("--------------------------------------------------------")
            For i = 0 To m_Ds.Tables("Users").Columns.Count - 1
                ListBox1.Items.Add(m_Ds.Tables("Users").Rows(0)(i))
            Next
            ListBox1.Items.Add("--------------------------------------------------------")

        Catch ex As Exception
            ListBox1.Items.Add("查询失败！  " + ex.Message)
        End Try

        m_Ds.Clear()
        m_Con.Close()
    End Sub

    Private Sub Button_XML_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button_XML.Click
        Dim reader As XmlTextReader = New XmlTextReader(Environment.CurrentDirectory & "\individual.xml")
        While (reader.Read())
            If (reader.NodeType = XmlNodeType.XmlDeclaration) Then
                ListBox1.Items.Add("<?" & reader.Name & " " & reader.Value & "?>")
            ElseIf (reader.NodeType = XmlNodeType.Element) Then
                ListBox1.Items.Add("<" & reader.Name & ">")
            ElseIf (reader.NodeType = XmlNodeType.EndElement) Then
                ListBox1.Items.Add("</" & reader.Name & ">")
            ElseIf (reader.NodeType = XmlNodeType.Text) Then
                ListBox1.Items.Add(reader.Value)
            End If
        End While
        reader.Close()
    End Sub

    Private Sub Button_SelectAll_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button_SelectAll.Click
        m_Ds.ReadXml(Environment.CurrentDirectory & "\individual.xml")

        For i = 0 To m_Ds.Tables(0).Rows.Count - 1
            ListBox1.Items.Add(m_Ds.Tables(0).Columns(0).ColumnName + ": " + m_Ds.Tables(0).Rows(i)(0) + "; " + m_Ds.Tables(0).Columns(1).ColumnName + ": " + CStr(m_Ds.Tables(0).Rows(i)(1)) + "; " + m_Ds.Tables(0).Columns(2).ColumnName + ": " + m_Ds.Tables(0).Rows(i)(2))
        Next

        m_Ds.Clear()
    End Sub

    Private Sub Button_Delete_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button_Delete.Click
        m_Con.Open()

        Try
            str = "delete from  users where name='" & TextBox_Select.Text & "'"
            m_Cmd.CommandText = str
            m_Cmd.Connection = m_Con

            m_Cmd.ExecuteNonQuery()
            ListBox1.Items.Add("删除成功！")
        Catch ex As Exception
            ListBox1.Items.Add("删除失败！  " + ex.Message)
        End Try

        m_Ds.Clear()
        m_Con.Close()

        RewriteXMLFile()

    End Sub

    Private Sub Button_Reset_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button_Reset.Click
        ListBox1.Items.Clear()
    End Sub

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

    Sub RewriteXMLFile()
        m_Con.Open()

        str = "select * from Users"
        m_Cmd.CommandText = str
        m_Cmd.Connection = m_Con

        m_Ada.SelectCommand = m_Cmd
        m_Ada.Fill(m_Ds, "Users")

        m_Ds.WriteXml(Environment.CurrentDirectory & "\individual.xml")
        m_Ds.Clear()

        m_Con.Close()
    End Sub

   
End Class