predictfine.vb

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

Imports System.Data.OleDb
Public Class PredictFine

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


    Dim dataset1 As DataSet
    Dim dataAd As OleDbDataAdapter

    Dim dueD As Date

    Private Sub daytxt_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles daystxt.KeyPress

        If e.KeyChar = ChrW(System.Windows.Forms.Keys.Enter) Then


           


            Dim predictDays = Integer.Parse(daystxt.Text)
            Dim nowD As Date = Now
            Dim dueD As Date

            dueD = (nowD.AddDays(predictDays)).ToShortDateString
            '  MsgBox("DueDate" & dueD)


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

           

            myCommand = New OleDbCommand("select RentBook.rentNo,RentBook.readerNo, RentBook.isbn ,BookDetails.BookName, ReaderDetails.Email from " & _
                      "RentBook, ReaderDetails,BookDetails where RentBook.ReaderNo=ReaderDetails.ReaderNo and RentBook.ISBN=BookDetails.ISBN and " & _
                      "RentBook.Status='Nreturned'and [DueDate]= #" & dueD & "#", myConnection)




            dataAd.SelectCommand = myCommand

            dataAd.Fill(dataset1, " RentBook ")

            DataGridView1.DataSource = dataset1

            DataGridView1.DataMember = " RentBook "



        End If


    End Sub

 
End Class