mdifrmlms.frm

实现某班级的图书信息管理

VERSION 5.00
Begin VB.MDIForm MDILibrary 
   BackColor       =   &H8000000C&
   Caption         =   "MDIForm1"
   ClientHeight    =   3285
   ClientLeft      =   165
   ClientTop       =   735
   ClientWidth     =   5805
   LinkTopic       =   "MDIForm1"
   StartUpPosition =   3  '窗口缺省
   WindowState     =   2  'Maximized
   Begin VB.Menu menuBMS 
      Caption         =   "图书管理(&B)"
      Begin VB.Menu bmenuBookRegister 
         Caption         =   "图书资料登记(&I)"
         Shortcut        =   ^I
      End
      Begin VB.Menu bmenuBookView 
         Caption         =   "图书浏览(&W)"
         Shortcut        =   ^W
      End
      Begin VB.Menu bmenuExit 
         Caption         =   "退出(&X)"
         Shortcut        =   ^X
      End
   End
   Begin VB.Menu menuRM 
      Caption         =   "读者管理(&R)"
      Begin VB.Menu bMenuRederRegister 
         Caption         =   "读者信息登记(&M)"
         Shortcut        =   ^M
      End
      Begin VB.Menu menuReaderView 
         Caption         =   "读者浏览(&U)"
         Shortcut        =   ^U
      End
      Begin VB.Menu cMenuRBQuery 
         Caption         =   "读者借阅查询(&Q)"
         Shortcut        =   ^Q
      End
   End
   Begin VB.Menu menuBM 
      Caption         =   "借阅管理(&L)"
      Begin VB.Menu bMenuBorrowRegister 
         Caption         =   "借阅登记(&B)"
         Shortcut        =   ^B
      End
      Begin VB.Menu cmenuReturnRegister 
         Caption         =   "返还登记(&R)"
         Shortcut        =   ^R
      End
      Begin VB.Menu cMenuBMQuery 
         Caption         =   "借阅信息查询(&V)"
         Shortcut        =   ^V
      End
   End
   Begin VB.Menu AmenuArrange 
      Caption         =   "用户管理(&U)"
      Begin VB.Menu bmenuAddUser 
         Caption         =   "添加用户(&A)"
         Shortcut        =   ^A
      End
      Begin VB.Menu BmenuChangepassword 
         Caption         =   "修改密码(&E)"
         Shortcut        =   ^E
      End
   End
End
Attribute VB_Name = "MDILibrary"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
 '************************************************************************
     '本窗本用于引导各窗体
 '*************************************************************************
Option Explicit

Private Sub bmenuAddUser_Click()

    Load FrmAddUser
    FrmAddUser.Show
    
End Sub

Private Sub bmenuBookRegister_Click()

    Load FrmBookmessage
    FrmBookmessage.Show
    
End Sub

Private Sub bmenuBookView_Click()

    FrmAllBooks.Show
    
End Sub

Private Sub bMenuBorrowRegister_Click()

    Load FrmRegister
    FrmRegister.Show
    
End Sub

Private Sub BmenuChangepassword_Click()

   Load FrmChangPassword
   FrmChangPassword.Show
   
End Sub

Private Sub bmenuExit_Click()
    
    Unload Me
    
End Sub


Private Sub bMenuRederRegister_Click()

    Load FrmReaderMessage
    FrmReaderMessage.Show
    
End Sub

Private Sub cMenuBMQuery_Click()

    Load FrmTop10
    FrmTop10.Show
    
End Sub

Private Sub cMenuRBQuery_Click()

    Load FrmReaderQuery
    FrmReaderQuery.Show
    
End Sub

Private Sub cmenuReturnRegister_Click()

    Load FrmReturn
    FrmReturn.Show
    
End Sub

Private Sub menuReaderView_Click()

    FrmAllReaders.Show
    
End Sub