mdiform1.frm

来自「School Library system to manage students」· FRM 代码 · 共 116 行

VERSION 5.00
Begin VB.MDIForm MDIForm1 
   BackColor       =   &H8000000C&
   Caption         =   "LIBRARY SYSTEM"
   ClientHeight    =   3195
   ClientLeft      =   165
   ClientTop       =   855
   ClientWidth     =   4680
   LinkTopic       =   "MDIForm1"
   StartUpPosition =   3  'Windows Default
   WindowState     =   2  'Maximized
   Begin VB.Menu mnufile 
      Caption         =   "&File"
      Begin VB.Menu mnuhome 
         Caption         =   "Home"
      End
      Begin VB.Menu mnudumm 
         Caption         =   "-"
      End
      Begin VB.Menu mnuexit 
         Caption         =   "Exit"
      End
   End
   Begin VB.Menu mnulibrary 
      Caption         =   "&Library"
      Begin VB.Menu munborrow 
         Caption         =   "Borrow Book"
      End
      Begin VB.Menu mnuborrowed 
         Caption         =   "Borrowed Books"
      End
      Begin VB.Menu mnureturningbooks 
         Caption         =   "Returning Books"
      End
      Begin VB.Menu mnud 
         Caption         =   "-"
      End
      Begin VB.Menu mnubookinfo 
         Caption         =   "Book Info/Add"
      End
      Begin VB.Menu mnuuserparticulars 
         Caption         =   "Library Users/Add"
      End
      Begin VB.Menu mnudummy 
         Caption         =   "-"
      End
      Begin VB.Menu mnuuserdetails 
         Caption         =   "Admin User"
      End
   End
   Begin VB.Menu mnureports 
      Caption         =   "&Reports"
      Begin VB.Menu mnumembers 
         Caption         =   "Members"
      End
      Begin VB.Menu mnubooks 
         Caption         =   "Books"
      End
   End
End
Attribute VB_Name = "MDIForm1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub mnuabout_Click()
frmabout.Show
End Sub

Private Sub mnubookinfo_Click()
frmBookinfo.Show
End Sub

Private Sub mnuborrowed_Click()
frmbookborrowing_return.Show
End Sub
Private Sub mnuexit_Click()
Unload Me
End Sub

Private Sub mnuReturn_Click()
frmreturning.Show
End Sub

Private Sub mnuhelp_Click()
frmhelp.Show
End Sub

Private Sub mnuhome_Click()
frmDefault.Show
End Sub

Private Sub mnumembers_Click()
rptMembers.Show
End Sub

Private Sub mnureturningbooks_Click()
frmreturning.Show
End Sub

Private Sub mnusettings_Click()
frmsettings.Show
End Sub

Private Sub mnuuserdetails_Click()
frmUsers.Show
End Sub

Private Sub mnuuserparticulars_Click()
frmuserparticulars.Show
End Sub

Private Sub munborrow_Click()
frmborrowing.Show
End Sub