main.vb

图书借阅系统

        ElseIf e.Button Is tbrMain.Buttons.Item(5) Then     '修改密码
            Dim frm2 As New frmModifyPassword
            frm2.ShowDialog()
        ElseIf e.Button Is tbrMain.Buttons.Item(6) Then     '退出
            Me.Close()
        End If
    End Sub

    Private Sub mniSetup_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles mniSetup.Click
       
    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 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 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 mniReturnBook_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles mniReturnBook.Click
        Dim frm As New frmReturnBook
        frm.ShowDialog()
    End Sub

    Private Sub MenuItem1_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles mniBookManage.Click
        Dim frm As New frmBookManage
        frm.ShowDialog()
    End Sub

    Private Sub mniReaderManage_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles mniReaderManage.Click
        Dim frm As New frmReaderManage
        frm.ShowDialog()
    End Sub
    Private Sub btnQueryBook_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnQueryBook.Click
        If txtQueryBookContent.Text = "" Then
            txtQueryBookContent.Focus()
            MsgBox("请输入查询内容")
        ElseIf cmbQueryBookType.SelectedIndex < 0 Then
            cmbQueryBookType.Focus()
            MsgBox("请选择查询类型")
        Else
            Try
                bookstr = "select * from 图书 where " & cmbQueryBookType.SelectedItem & _
                    "='" & Trim(txtQueryBookContent.Text) & "'"
                bookDataSet.Clear()
                If OleConn.SelectQuery(bookstr, bookDataSet) Then
                    grdBook.SetDataBinding(bookDataSet, "Table")
                Else
                    MsgBox("查询图书表失败")
                End If
            Catch ex As Exception
                OleConn.DisplayError(ex)
            End Try
        End If
    End Sub

    Private Sub btnRefreshBook_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnRefreshBook.Click
        Try
            If txtQueryBookContent.Text = "" Then
                bookstr = "select * from 图书"
            Else
                bookstr = "select * from 图书 where " & cmbQueryBookType.SelectedItem & _
                         "='" & Trim(txtQueryBookContent.Text) & "'"
            End If

            bookDataSet.Clear()
            If OleConn.SelectQuery(bookstr, bookDataSet) Then
                grdBook.SetDataBinding(bookDataSet, "Table")
            Else
                MsgBox("查询图书表失败")
            End If
        Catch ex As Exception
            OleConn.DisplayError(ex)
        End Try
    End Sub
    Private Sub btnQueryReader_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnQueryReader.Click
        If txtQueryReaderContent.Text = "" Then
            txtQueryReaderContent.Focus()
            MsgBox("请输入查询内容")
        ElseIf cmbQueryReaderType.SelectedIndex < 0 Then
            cmbQueryReaderType.Focus()
            MsgBox("请选择查询类型")
        Else
            Try
                readerstr = "select * from 读者 where " & cmbQueryReaderType.SelectedItem & _
                    "='" & Trim(txtQueryReaderContent.Text) & "'"
                readerDataSet.Clear()
                If OleConn.SelectQuery(readerstr, readerDataSet) Then
                    grdReader.SetDataBinding(readerDataSet, "Table")
                Else
                    MsgBox("查询读者表失败")
                End If
            Catch ex As Exception
                OleConn.DisplayError(ex)
            End Try
        End If
    End Sub

    Private Sub tabMain_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles tabMain.SelectedIndexChanged
        If tabMain.SelectedIndex = 0 Then
            Me.AcceptButton = btnQueryBook
        ElseIf tabMain.SelectedIndex = 1 Then
            Me.AcceptButton = btnQueryReader
        End If
    End Sub
    Private Sub btnRefreshReader_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnRefreshReader.Click
        Try
            If txtQueryReaderContent.Text = "" Then
                readerstr = "select * from 读者"
            Else
                readerstr = "select * from 读者 where " & cmbQueryReaderType.SelectedItem & _
                        "='" & Trim(txtQueryReaderContent.Text) & "'"
            End If

            readerDataSet.Clear()
            If OleConn.SelectQuery(readerstr, readerDataSet) Then
                grdReader.SetDataBinding(readerDataSet, "Table")
            Else
                MsgBox("查询读者表失败")
            End If
        Catch ex As Exception
            OleConn.DisplayError(ex)
        End Try
    End Sub
    Private Sub grdReader_DoubleClick(ByVal sender As Object, ByVal e As System.EventArgs) Handles grdReader.DoubleClick
        Dim i As Integer
        Dim hti As DataGrid.HitTestInfo
        Dim pt As New Point
        pt = grdReader.PointToClient(grdReader.MousePosition)
        hti = grdReader.HitTest(pt)
        If hti.Type = DataGrid.HitTestType.RowHeader = True Or hti.Type = DataGrid.HitTestType.Cell = True Then
            Dim frm As New frmReaderManage
            For i = 0 To readerDataSet.Tables(0).Rows.Count - 1
                If readerDataSet.Tables(0).Rows(i).Item("学号") = grdReader.Item(hti.Row, 0) Then
                    frm.linenum = i
                    frm.str = readerstr
                    Exit For
                End If
            Next
            frm.ShowDialog()
        End If
    End Sub

    Private Sub grdBook_DoubleClick(ByVal sender As Object, ByVal e As System.EventArgs) Handles grdBook.DoubleClick
        Dim i As Integer
        Dim hti As DataGrid.HitTestInfo
        Dim pt As New Point
        pt = grdBook.PointToClient(grdBook.MousePosition)
        hti = grdBook.HitTest(pt)
        If hti.Type = DataGrid.HitTestType.RowHeader = True Or hti.Type = DataGrid.HitTestType.Cell = True Then
            Dim frm As New frmBookManage
            For i = 0 To bookDataSet.Tables(0).Rows.Count - 1
                If bookDataSet.Tables(0).Rows(i).Item("图书编号") = grdBook.Item(hti.Row, 0) Then
                    frm.linenum = i
                    frm.str = bookstr
                    Exit For
                End If
            Next
            frm.ShowDialog()
        End If
    End Sub

    Private Sub btnClearBook_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnClearBook.Click
        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 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 应还日期 <还书日期"
            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 mniExit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles mniExit.Click
        Me.Close()
    End Sub

    Private Sub MenuItem1_Click_2(ByVal sender As System.Object, ByVal e As System.EventArgs)
       
    End Sub

    Private Sub MenuItem2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)

    End Sub

    Private Sub MenuItem2_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem2.Click

    End Sub
End Class