form1.vb

个人图书管理系统 一个VB开发的很好的图书信息管理系统,在学校的毕业

        'DataSet11
        '
        Me.DataSet11.DataSetName = "DataSet1"
        Me.DataSet11.Locale = New System.Globalization.CultureInfo("zh-CN")
        Me.DataSet11.SchemaSerializationMode = System.Data.SchemaSerializationMode.IncludeSchema
        '
        'OleDbDataAdapter2
        '
        Me.OleDbDataAdapter2.InsertCommand = Me.OleDbInsertCommand2
        Me.OleDbDataAdapter2.SelectCommand = Me.OleDbSelectCommand2
        Me.OleDbDataAdapter2.TableMappings.AddRange(New System.Data.Common.DataTableMapping() {New System.Data.Common.DataTableMapping("Table", "booksheft", New System.Data.Common.DataColumnMapping() {New System.Data.Common.DataColumnMapping("SheftName", "SheftName"), New System.Data.Common.DataColumnMapping("编号", "编号")})})
        '
        'OleDbInsertCommand2
        '
        Me.OleDbInsertCommand2.CommandText = "INSERT INTO booksheft(SheftName) VALUES (?)"
        Me.OleDbInsertCommand2.Connection = Me.OleDbConnection1
        Me.OleDbInsertCommand2.Parameters.AddRange(New System.Data.OleDb.OleDbParameter() {New System.Data.OleDb.OleDbParameter("SheftName", System.Data.OleDb.OleDbType.VarChar, 50, "SheftName")})
        '
        'OleDbSelectCommand2
        '
        Me.OleDbSelectCommand2.CommandText = "SELECT SheftName, 编号 FROM booksheft"
        Me.OleDbSelectCommand2.Connection = Me.OleDbConnection1
        '
        'DataSet21
        '
        Me.DataSet21.DataSetName = "DataSet2"
        Me.DataSet21.Locale = New System.Globalization.CultureInfo("zh-CN")
        Me.DataSet21.SchemaSerializationMode = System.Data.SchemaSerializationMode.IncludeSchema
        '
        'Form1
        '
        Me.AutoScaleBaseSize = New System.Drawing.Size(6, 14)
        Me.ClientSize = New System.Drawing.Size(494, 271)
        Me.Controls.Add(Me.TreeView1)
        Me.Controls.Add(Me.Button4)
        Me.Controls.Add(Me.Button3)
        Me.Controls.Add(Me.Button2)
        Me.Controls.Add(Me.Button1)
        Me.Controls.Add(Me.TextBox5)
        Me.Controls.Add(Me.TextBox4)
        Me.Controls.Add(Me.TextBox3)
        Me.Controls.Add(Me.TextBox2)
        Me.Controls.Add(Me.TextBox1)
        Me.Controls.Add(Me.Label5)
        Me.Controls.Add(Me.Label4)
        Me.Controls.Add(Me.Label3)
        Me.Controls.Add(Me.Label2)
        Me.Controls.Add(Me.Label1)
        Me.Name = "Form1"
        Me.Text = "书架"
        CType(Me.DataSet11, System.ComponentModel.ISupportInitialize).EndInit()
        CType(Me.DataSet21, System.ComponentModel.ISupportInitialize).EndInit()
        Me.ResumeLayout(False)
        Me.PerformLayout()

    End Sub

#End Region
    Dim BookList, Node1, SelectedNode As TreeNode
    Dim i, j, k As Integer
    Dim NewSheft, All(), SheftName1 As String

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Dim dArray() As DataRow
        DataSet21.Clear()
        OleDbDataAdapter2.Fill(DataSet21, "booksheft")
        k = DataSet21.booksheft.Count

        BookList = TreeView1.Nodes.Add("书列表")

        dArray = DataSet21.booksheft.Select()

        Button2.Enabled = False
        Button3.Enabled = False
        Button4.Enabled = False

        For i = 0 To k - 1
            BookList.Nodes.Add(dArray(i)("sheftname").ToString)
        Next
    End Sub

    Private Sub TreeView1_AfterSelect(ByVal sender As System.Object, ByVal e As System.Windows.Forms.TreeViewEventArgs) Handles TreeView1.AfterSelect
        Dim dArray() As DataRow

        SelectedNode = TreeView1.SelectedNode

        DataSet11.Clear()
        OleDbDataAdapter1.Fill(DataSet11, "books")

        Dim str As String

        Try
            str = "sheftname=" & "'" & TreeView1.SelectedNode.Text & "'"

            dArray = DataSet11.books.Select(str)

            k = dArray.Length
            If k <> 0 Then
                SelectedNode.Nodes.Clear()
            End If

            ReDim All(0)
            For i = 0 To k - 1
                SelectedNode.Nodes.Add(dArray(i)("bookname").ToString)
                ReDim Preserve All(i)
                All(i) = dArray(i)("Bookname").ToString
            Next

            If SelectedNode.Text <> BookList.Text Then
                Button2.Enabled = True
                Button3.Enabled = False
                Button4.Enabled = False
            Else
                Button2.Enabled = False
                Button3.Enabled = False
                Button4.Enabled = False
            End If

            SheftName1 = TreeView1.SelectedNode.Text
            Node1 = SelectedNode

            TextBox1.Text = ""
            TextBox2.Text = ""
            TextBox3.Text = ""
            TextBox4.Text = ""
            TextBox5.Text = ""
        Catch ex As Exception

        End Try

        Try
            str = "bookname=" & "'" & TreeView1.SelectedNode.Text & "'"
            dArray = DataSet11.books.Select(str)

            TextBox1.Text = dArray(0)("Bookname")
            TextBox2.Text = dArray(0)("Author")
            TextBox3.Text = dArray(0)("Press")
            TextBox4.Text = dArray(0)("ISBN")
            TextBox5.Text = dArray(0)("Price")

            Button2.Enabled = False
            Button3.Enabled = True
            Button4.Enabled = True
        Catch ex As Exception

        End Try
    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim x As Integer

        NewSheft = InputBox("请输入书架名称")

        If NewSheft = "" Then
            Exit Sub
        Else

            OleDbDataAdapter2.InsertCommand.Parameters("sheftname").Value = NewSheft

            OleDbConnection1.Open()
            Try
                x = OleDbDataAdapter2.InsertCommand.ExecuteNonQuery

                BookList.Nodes.Add(NewSheft)
            Catch ex As Exception
                MsgBox("添加书架时出错，请重新添加")
            End Try

            OleDbConnection1.Close()

            OleDbDataAdapter2.Fill(DataSet21, "booksheft")
        End If
    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        Dim x As Integer
        For i = 0 To All.Length - 1
            If TextBox1.Text = All(i) Then
                MsgBox("此书已经存在！")
                Exit Sub
            End If
        Next

        OleDbDataAdapter1.InsertCommand.Parameters("sheftname").Value = SheftName1
        OleDbDataAdapter1.InsertCommand.Parameters("bookname").Value = TextBox1.Text
        OleDbDataAdapter1.InsertCommand.Parameters("Author").Value = TextBox2.Text
        OleDbDataAdapter1.InsertCommand.Parameters("Press").Value = TextBox3.Text
        OleDbDataAdapter1.InsertCommand.Parameters("ISBN").Value = TextBox4.Text
        OleDbDataAdapter1.InsertCommand.Parameters("Price").Value = TextBox5.Text

        OleDbConnection1.Open()
        Try
            x = OleDbDataAdapter1.InsertCommand.ExecuteNonQuery
            Node1.Nodes.Add(TextBox1.Text)
        Catch ex As Exception
            MsgBox("添加书时出错，请重新添加")
        End Try
        OleDbConnection1.Close()
        OleDbDataAdapter1.Fill(DataSet11, "books")
    End Sub

    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
        Dim x As Integer
        If MsgBox("真的要删除此书吗？", MsgBoxStyle.OKCancel) = MsgBoxResult.OK Then
            OleDbDataAdapter1.DeleteCommand.Parameters("bookname".ToString).Value = TextBox1.Text

            OleDbConnection1.Open()
            Try
                x = OleDbDataAdapter1.DeleteCommand.ExecuteNonQuery
                Try
                    Node1.Remove()
                Catch ex As Exception

                End Try
            Catch ex As Exception
                MsgBox("删除书时出错，请重新删除")
            End Try
            OleDbConnection1.Close()
            OleDbDataAdapter1.Fill(DataSet11, "books")
        End If
    End Sub

    Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
        Dim x As Integer
        OleDbDataAdapter1.UpdateCommand.Parameters("BookName").Value = TextBox1.Text
        OleDbDataAdapter1.UpdateCommand.Parameters("Author").Value = TextBox2.Text
        OleDbDataAdapter1.UpdateCommand.Parameters("Press").Value = TextBox3.Text
        OleDbDataAdapter1.UpdateCommand.Parameters("ISBN").Value = TextBox4.Text
        OleDbDataAdapter1.UpdateCommand.Parameters("Price").Value = TextBox5.Text

        OleDbConnection1.Open()
        Try
            x = OleDbDataAdapter1.UpdateCommand.ExecuteNonQuery
            MsgBox("该书的资料已经被修改！")
        Catch ex As Exception
            MsgBox("修改书的资料时出错，请重新修改！")
        End Try
        OleDbConnection1.Close()
        OleDbDataAdapter1.Fill(DataSet11, "books")
    End Sub
End Class