frm_search.vb

来自「是关于图书管理系统的用vb.net 和access开发的」· VB 代码 · 共 131 行

Imports System.Data.OleDb
Public Class frm_Search

    Dim myConnection As New OleDbConnection("provider=Microsoft.Jet.OLEDB.4.0; Data source=D:\library.mdb")
    Dim myCommand As OleDbCommand


    Dim dataset1 As DataSet
    Dim dataAd As OleDbDataAdapter


    Private Sub readerbt_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles readerbt.Click

        myConnection.Open()

        dataset1 = New DataSet("dataset1")
        dataAd = New OleDbDataAdapter()


        myCommand = New OleDbCommand("select * from ReaderDetails where ReaderNo='" & readerNotxt.Text & "'", myConnection)

        dataAd.SelectCommand = myCommand
        dataAd.Fill(dataset1, " ReaderDetails")

        DataGridView1.DataSource = dataset1

        DataGridView1.DataMember = " ReaderDetails"

        myConnection.Close()
        myCommand.Dispose()

    End Sub

    Private Sub administratorbt_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles administratorbt.Click
        myConnection.Open()

        dataset1 = New DataSet("dataset1")
        dataAd = New OleDbDataAdapter()


        myCommand = New OleDbCommand("select * from Administrator where admNo='" & admNotxt.Text & "'", myConnection)

        dataAd.SelectCommand = myCommand
        dataAd.Fill(dataset1, " Administrator")

        DataGridView2.DataSource = dataset1

        DataGridView2.DataMember = " Administrator"

     
        myConnection.Close()
        myCommand.Dispose()

    End Sub

    Private Sub bookbt_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bookbt.Click
        If keytxt.Text = "" Then
            MsgBox("Input search information first")
        Else

            If namerd.Checked Then
                searchByName()
            ElseIf isbnrd.Checked Then
                searchByISBN()
            ElseIf authorrd.Checked Then
                searchByAuthor()
            End If
        End If
    End Sub

    Sub searchByName()
        myConnection.Open()

        dataset1 = New DataSet("dataset1")
        dataAd = New OleDbDataAdapter()


        myCommand = New OleDbCommand("select * from BookDetails where BookName='" & keytxt.Text & "'", myConnection)

        dataAd.SelectCommand = myCommand
        dataAd.Fill(dataset1, " BookDetails")

        DataGridView3.DataSource = dataset1

        DataGridView3.DataMember = " BookDetails"


        myConnection.Close()
        myCommand.Dispose()
    End Sub
    Sub searchByISBN()
        myConnection.Open()

        dataset1 = New DataSet("dataset1")
        dataAd = New OleDbDataAdapter()


        myCommand = New OleDbCommand("select * from BookDetails where ISBN='" & keytxt.Text & "'", myConnection)

        dataAd.SelectCommand = myCommand
        dataAd.Fill(dataset1, " BookDetails")

        DataGridView3.DataSource = dataset1

        DataGridView3.DataMember = " BookDetails"


        myConnection.Close()
        myCommand.Dispose()
    End Sub
    Sub searchByAuthor()
        myConnection.Open()

        dataset1 = New DataSet("dataset1")
        dataAd = New OleDbDataAdapter()


        myCommand = New OleDbCommand("select * from BookDetails where Author='" & keytxt.Text & "'", myConnection)

        dataAd.SelectCommand = myCommand
        dataAd.Fill(dataset1, " BookDetails")

        DataGridView3.DataSource = dataset1

        DataGridView3.DataMember = " BookDetails"


        myConnection.Close()
        myCommand.Dispose()
    End Sub
End Class