frm_maininterface.vb

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

Imports System.Data.OleDb
Public Class frm_MainInterface

  

    Dim myfrm

    Private Sub AddBookDetailsToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles AddBookDetailsToolStripMenuItem.Click
        myfrm = New AddBookInfo
        myfrm.Show()
    End Sub

    Private Sub AddBookTypeToolStripMenuItem1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles AddBookTypeToolStripMenuItem1.Click
        myfrm = New frm_AddBookType
        myfrm.show()
    End Sub


    Private Sub UserManageToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles addReaderInfoToolStripMenuItem.Click
        myfrm = New AddUser
        myfrm.Show()
    End Sub


    Private Sub EditReaderInfoToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles EditReaderInfoToolStripMenuItem.Click

        frm_FindEditUser.editOperation = True
        frm_FindEditUser.Show()

    End Sub

    Private Sub DeleteReaderInfoToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles DeleteReaderInfoToolStripMenuItem.Click
        frm_FindEditUser.delOperation = True
        frm_FindEditUser.Show()

    End Sub

    Private Sub RentBookToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RentBookToolStripMenuItem.Click
        myfrm = New frm_RentBook
        myfrm.Show()
    End Sub

    Private Sub RenewalBookToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RenewalBookToolStripMenuItem.Click
        myfrm = New frm_renewalBook
        myfrm.show()
    End Sub

    Private Sub RToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RToolStripMenuItem.Click
        myfrm = New frm_ReturnBook
        myfrm.Show()

    End Sub

    


    

   

    Private Sub LoseBookToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles LoseBookToolStripMenuItem.Click
        myfrm = New frm_LoseBook
        myfrm.Show()
    End Sub

   

    Private Sub DoTodayFineToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles DoTodayFineToolStripMenuItem.Click
        myfrm = New frm_checkAdm
        myfrm.show()
    End Sub

    Private Sub PredictFineToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PredictFineToolStripMenuItem.Click
        myfrm = New PredictFine
        myfrm.show()
    End Sub

  
    Private Sub SearchToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles SearchToolStripMenuItem.Click
        myfrm = New frm_Search
        myfrm.show()
    End Sub

    Private Sub ChangePasswordToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ChangePasswordToolStripMenuItem.Click
        myfrm = New frm_changeReaderPass
        myfrm.show()
    End Sub

    Private Sub ChangePasswordToolStripMenuItem1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ChangePasswordToolStripMenuItem1.Click
        myfrm = New frm_ChangeAdmPass
        myfrm.show()
    End Sub

    Private Sub AboutUsToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles AboutUsToolStripMenuItem.Click
        myfrm = New AboutBox1
        myfrm.show()
    End Sub

    Private Sub ReserveBookToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ReserveBookToolStripMenuItem.Click
        myfrm = New frm_ReserveBook
        myfrm.show()
    End Sub

    Private Sub ShowAvailableReserveToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ShowAvailableReserveToolStripMenuItem.Click
        myfrm = New frm_AvailableReserve
        myfrm.show()
    End Sub

    Private Sub CancleReserveToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CancleReserveToolStripMenuItem.Click
        myfrm = New CancelReserve
        myfrm.cancle()
    End Sub

    Private Sub UpdateLostBookDetailsToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles UpdateLostBookDetailsToolStripMenuItem.Click
        myfrm = New frm_UpdateLostBook
        myfrm.show()
    End Sub

    Private Sub DeleteBookDetailsToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles DeleteBookDetailsToolStripMenuItem.Click
        myfrm = New frm_DeleteBook
        myfrm.show()
    End Sub
End Class