frm_availablereserve.vb

是关于图书管理系统的用vb.net 和access开发的

Imports System.Data.OleDb
Public Class frm_AvailableReserve

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

    Dim selectedResNo As Integer

    Private Sub frm_AvailableReserve_Activated(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Activated

        DataGridView1.AllowUserToAddRows = False

        Dim dataset1 As DataSet
        Dim dataAd As OleDbDataAdapter

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

        myConnection.Open()

        myCommand = New OleDbCommand("select rsB.ReserveNo,bd.BookName,bd.ISBN,rd.Name as ReaderName,rd.Phone,rd.Email from " & _
                          "ReserveBook rsB, ReaderDetails rd,BookDetails bd where rsB.ReaderNo=rd.ReaderNo and rsB.ISBN=bd.ISBN and " & _
                          " bd.Status='InLib' and rsB.Status='Ncalled'", myConnection)



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

        DataGridView1.DataSource = dataset1

        DataGridView1.DataMember = "ReserveBook "

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

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

    Private Sub callbt_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles callbt.Click
        Try
            Dim i As Integer
            i = DataGridView1.CurrentCell.RowIndex


            DataGridView1.CurrentCell = DataGridView1(0, i)


            selectedResNo = Integer.Parse(DataGridView1.CurrentCell.Value.ToString)

            DataGridView1.Rows.RemoveAt(i)

            changeReserveStatus()
        Catch ex As Exception
            MsgBox("No record!")
        End Try
       
    End Sub
    Sub changeReserveStatus()
        myConnection.Open()

        myCommand = New OleDbCommand("Update ReserveBook set Status= 'called',CallDate='" & Date.Today.ToShortDateString & _
        "'where ReserveNo=" & selectedResNo, myConnection)

        myCommand.ExecuteNonQuery()

        myConnection.Close()
        myCommand.Dispose()

    End Sub

End Class