main.vb

这是一个完善的图书馆管理系统.后台数据库采用ACCESS.

        bookDataSet.Clear()
    End Sub

    Private Sub btnClearReader_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnClearReader.Click
        readerDataSet.Clear()
    End Sub

    Private Sub tbrMain_ButtonClick(ByVal sender As System.Object, ByVal e As System.Windows.Forms.ToolBarButtonClickEventArgs) Handles tbrMain.ButtonClick
        If e.Button Is tbrMain.Buttons.Item(0) Then         '借书
            Dim frm3 As New frmBorrowBook
            frm3.ShowDialog()
        ElseIf e.Button Is tbrMain.Buttons.Item(1) Then     '还书
            Dim frm4 As New frmReturnBook
            frm4.ShowDialog()
        ElseIf e.Button Is tbrMain.Buttons.Item(2) Then     '图书管理
            Dim frm As New frmBookManage
            frm.linenum = 0
            frm.str = bookstr
            frm.ShowDialog()
        ElseIf e.Button Is tbrMain.Buttons.Item(3) Then     '读者管理
            Dim frm1 As New frmReaderManage
            frm1.linenum = 0
            frm1.str = readerstr
            frm1.ShowDialog()
        ElseIf e.Button Is tbrMain.Buttons.Item(4) Then     '查询
        ElseIf e.Button Is tbrMain.Buttons.Item(5) Then     '统计排名
            Dim frm5 As New frmCount
            frm5.ShowDialog()
        ElseIf e.Button Is tbrMain.Buttons.Item(6) Then     '修改密码
            Dim frm2 As New frmModifyPassword
            frm2.ShowDialog()
        ElseIf e.Button Is tbrMain.Buttons.Item(7) Then     '关于
            Dim comm As String

            comm = Application.StartupPath & "/help.chm"
            System.Windows.Forms.Help.ShowHelp(Me, comm)
        ElseIf e.Button Is tbrMain.Buttons.Item(8) Then     '退出
            Me.Close()
        End If
    End Sub

    Private Sub btnExportExcelBook_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnExportExcelBook.Click
        OutputAsExcel(bookDataSet)
    End Sub

    Private Sub btnExportExcelReader_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnExportExcelReader.Click
        OutputAsExcel(readerDataSet)
    End Sub

    Private Sub btnPrintViewBook_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnPrintViewBook.Click
        Dim frm As New frmBookPreview
        frm.SetDataSet(bookDataSet)
        frm.ShowDialog()
    End Sub

    Private Sub btnPrintViewReader_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnPrintViewReader.Click
        Dim frm As New frmReaderPreview
        frm.SetDataSet(readerDataSet)
        frm.ShowDialog()
    End Sub

    Private Sub mniBorrowBook_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles mniBorrowBook.Click
        Dim frm As New frmBorrowBook
        frm.ShowDialog()
    End Sub

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

    Private Sub mniReturnBook_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles mniReturnBook.Click
        Dim frm As New frmReturnBook
        frm.ShowDialog()
    End Sub

    Private Sub mniAddReader_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles mniAddReader.Click
        Dim frm As New frmAddReader
        frm.ShowDialog()
    End Sub

    Private Sub mniAddBook_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles mniAddBook.Click
        Dim frm As New frmAddBook
        frm.ShowDialog()
    End Sub

    Private Sub mniSetupBookType_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles mniSetupBookType.Click
        Dim frm As New frmBookType
        frm.ShowDialog()
    End Sub

    Private Sub mniSetupReaderType_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles mniSetupReaderType.Click
        Dim frm As New frmReaderType
        frm.ShowDialog()
    End Sub

    Private Sub mniBookPlace_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles mniBookPlace.Click
        Dim frm As New frmLocation
        frm.ShowDialog()
    End Sub

    Private Sub mniPrintAllBooks_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles mniPrintAllBooks.Click
        Dim bookds As New DataSet
        Try
            OleConn.SelectQuery("select * from 图书", bookds)
            Dim frm As New frmBookPreview
            frm.SetDataSet(bookds)
            frm.ShowDialog()
        Catch ex As Exception
            OleConn.DisplayError(ex)
        End Try
    End Sub

    Private Sub mniPrintAllReaders_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles mniPrintAllReaders.Click
        Dim readerds As New DataSet
        Try
            OleConn.SelectQuery("select * from 图书", readerds)
            Dim frm As New frmReaderPreview
            frm.SetDataSet(readerds)
            frm.ShowDialog()
        Catch ex As Exception
            OleConn.DisplayError(ex)
        End Try
    End Sub

    Private Sub mniPrintLendedBook_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles mniPrintLendedBook.Click
        Dim lendds As New DataSet
        Try
            OleConn.SelectQuery("select 图书编号,书名, 出版社,类别,图书价格, 借书日期 from 借出图书", lendds)
            Dim frm As New frmLendedBookPreview
            frm.SetDataSet(lendds)
            frm.ShowDialog()
        Catch ex As Exception
            OleConn.DisplayError(ex)
        End Try
    End Sub

    Private Sub mniAllBooks_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles mniAllBooks.Click
        Dim ds As New DataSet
        Try
            OleConn.SelectQuery("select * from 图书", ds)
            Dim frm As New frmQueryResult
            frm.SetDataSet(ds)
            frm.ShowDialog()
        Catch ex As Exception
            OleConn.DisplayError(ex)
        End Try
    End Sub

    Private Sub mniLendedBook_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles mniLendedBook.Click
        Dim ds As New DataSet
        Try
            OleConn.SelectQuery("select * from 借出图书", ds)
            Dim frm As New frmQueryResult
            frm.SetDataSet(ds)
            frm.ShowDialog()
        Catch ex As Exception
            OleConn.DisplayError(ex)
        End Try
    End Sub

    Private Sub mniLendBookToday_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles mniLendBookToday.Click
        Dim ds As New DataSet
        Try
            Dim str As String = "select * from 借出图书 where 借书日期=CDate('" & Date.Now.ToShortDateString & "')"
            OleConn.SelectQuery(str, ds)
            Dim frm As New frmQueryResult
            frm.SetDataSet(ds)
            frm.ShowDialog()
        Catch ex As Exception
            OleConn.DisplayError(ex)
        End Try
    End Sub

    Private Sub mniReturnedBookToday_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles mniReturnedBookToday.Click
        Dim ds As New DataSet
        Try
            Dim str As String = "select * from 借出图书 where 还书日期=CDate('" & Date.Now.ToShortDateString & "')"
            OleConn.SelectQuery(str, ds)
            Dim frm As New frmQueryResult
            frm.SetDataSet(ds)
            frm.ShowDialog()
        Catch ex As Exception
            OleConn.DisplayError(ex)
        End Try
    End Sub

    Private Sub mniAddedBookToday_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles mniAddedBookToday.Click
        Dim ds As New DataSet
        Try
            Dim str As String = "select * from 图书 where 入馆时间=CDate('" & Date.Now.ToShortDateString & "')"
            OleConn.SelectQuery(str, ds)
            Dim frm As New frmQueryResult
            frm.SetDataSet(ds)
            frm.ShowDialog()
        Catch ex As Exception
            OleConn.DisplayError(ex)
        End Try
    End Sub

    Private Sub mniAllReaders_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles mniAllReaders.Click
        Dim ds As New DataSet
        Try
            Dim str As String = "select * from 读者"
            OleConn.SelectQuery(str, ds)
            Dim frm As New frmQueryResult
            frm.SetDataSet(ds)
            frm.ShowDialog()
        Catch ex As Exception
            OleConn.DisplayError(ex)
        End Try
    End Sub

    Private Sub mniBorrowedReaderToday_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles mniBorrowedReaderToday.Click
        Dim ds As New DataSet
        Try
            Dim str As String = "select * from 读者 where 借书日期=CDate('" & Date.Now.ToShortDateString & "')"
            OleConn.SelectQuery(str, ds)
            Dim frm As New frmQueryResult
            frm.SetDataSet(ds)
            frm.ShowDialog()
        Catch ex As Exception
            OleConn.DisplayError(ex)
        End Try
    End Sub

    Private Sub mniReturnedReaderToday_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles mniReturnedReaderToday.Click
        Dim ds As New DataSet
        Try
            Dim str As String = "select * from 读者 where 还书日期=CDate('" & Date.Now.ToShortDateString & "')"
            OleConn.SelectQuery(str, ds)
            Dim frm As New frmQueryResult
            frm.SetDataSet(ds)
            frm.ShowDialog()
        Catch ex As Exception
            OleConn.DisplayError(ex)
        End Try
    End Sub

    Private Sub mniAddedReaderToday_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles mniAddedReaderToday.Click
        Dim ds As New DataSet
        Try
            Dim str As String = "select * from 读者 where 登记日期=CDate('" & Date.Now.ToShortDateString & "')"
            OleConn.SelectQuery(str, ds)
            Dim frm As New frmQueryResult
            frm.SetDataSet(ds)
            frm.ShowDialog()
        Catch ex As Exception
            OleConn.DisplayError(ex)
        End Try
    End Sub

    Private Sub mniDelayedReader_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles mniDelayedReader.Click
        Dim ds As New DataSet
        Try
            Dim str As String = "select 借书者,借书者编号,借书日期,图书编号,书名" & _
                " from 借出图书 where 应还日期 < CDate('" & Date.Now.ToShortDateString & "')"
            OleConn.SelectQuery(str, ds)
            Dim frm As New frmQueryResult
            frm.SetDataSet(ds)
            frm.ShowDialog()
        Catch ex As Exception
            OleConn.DisplayError(ex)
        End Try
    End Sub

    Private Sub mniModifyPassword_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles mniModifyPassword.Click
        Dim frm As New frmModifyPassword
        frm.ShowDialog()
    End Sub

    Private Sub mniInsturction_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles mniInsturction.Click
        Dim comm As String

        comm = Application.StartupPath & "/help.chm"
        'System.Windows.Forms.Help.ShowHelp(Me, comm)

        Shell("d:\winnt\hh.exe " & comm)

    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim bookds As New DataSet
        Try
            OleConn.SelectQuery("select * from 管理员", bookds)
            Dim frm As New Form1
            frm.SetDataSet(bookds)
            frm.ShowDialog()
        Catch ex As Exception
            OleConn.DisplayError(ex)
        End Try

    End Sub
End Class