VERSION 5.00
Begin VB.MDIForm MDIForm1 
   BackColor       =   &H8000000C&
   Caption         =   "圖書管理系統(tǒng)"
   ClientHeight    =   4815
   ClientLeft      =   165
   ClientTop       =   855
   ClientWidth     =   6975
   LinkTopic       =   "MDIForm1"
   StartUpPosition =   3  '窗口缺省
   WindowState     =   2  'Maximized
   Begin VB.Menu book 
      Caption         =   "書目信息"
      Begin VB.Menu findbook 
         Caption         =   "查詢"
      End
      Begin VB.Menu bookadd 
         Caption         =   "添加"
      End
      Begin VB.Menu bookmodify 
         Caption         =   "修改"
      End
      Begin VB.Menu bookdelete 
         Caption         =   "刪除"
      End
   End
   Begin VB.Menu borrow 
      Caption         =   "借書信息"
      Begin VB.Menu borrowfind 
         Caption         =   "查詢"
      End
      Begin VB.Menu borrowadd 
         Caption         =   "添加"
      End
      Begin VB.Menu borrowmodify 
         Caption         =   "修改"
      End
      Begin VB.Menu borrowdelete 
         Caption         =   "刪除"
      End
   End
   Begin VB.Menu paybook 
      Caption         =   "還書信息"
      Begin VB.Menu returnfind 
         Caption         =   "查詢"
      End
      Begin VB.Menu returnadd 
         Caption         =   "添加"
      End
      Begin VB.Menu returnmodify 
         Caption         =   "修改"
      End
      Begin VB.Menu returndelete 
         Caption         =   "刪除"
      End
   End
   Begin VB.Menu reader 
      Caption         =   "讀者信息"
      Begin VB.Menu readerfind 
         Caption         =   "查詢"
      End
      Begin VB.Menu readeradd 
         Caption         =   "添加"
      End
      Begin VB.Menu readermodify 
         Caption         =   "修改"
      End
      Begin VB.Menu readerdelete 
         Caption         =   "刪除"
      End
   End
   Begin VB.Menu exit 
      Caption         =   "退出"
   End
End
Attribute VB_Name = "MDIForm1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub addbook_Click()
Fbookcheck.cmdadd_Click
End Sub

Private Sub addreader_Click()
Freadercheck.cmdadd_Click
End Sub

Private Sub bookadd_Click()
Fbookcheck.cmdadd_Click
End Sub

Private Sub bookdelete_Click()
Fbookcheck.Show
End Sub

Private Sub bookmodify_Click()
Fbookcheck.Show

End Sub

Private Sub borrowadd_Click()
fborrowcheck.cmdadd_Click
End Sub

Private Sub checkpay_Click()
freturncheck.Show
End Sub

Private Sub deleteborrow_Click()
fborrowcheck.Show
End Sub

Private Sub deletepay_Click()
freturncheck.Show
End Sub

Private Sub deletereader_Click()
Freadercheck.Show
End Sub

Private Sub borrowdelete_Click()
fborrowcheck.Show

End Sub

Private Sub borrowfind_Click()
fborrowcheck.Show
End Sub

Private Sub borrowmodify_Click()
fborrowcheck.Show

End Sub

Private Sub exit_Click()
Unload Me
End
End Sub

Private Sub findbook_Click()
Fbookcheck.Show
End Sub

Private Sub findborrow_Click()
fborrowcheck.Show
End Sub

Private Sub findreader_Click()
Freadercheck.Show
End Sub

Private Sub MDIForm_Load()

If grade = 2 Then
 bookadd.Enabled = False
 bookmodify.Enabled = False
 bookdelete.Enabled = False
 borrowadd.Enabled = False
 borrowmodify.Enabled = False
 borrowdelete.Enabled = False
 returnadd.Enabled = False
 returnmodify.Enabled = False
 returndelete.Enabled = False
 readeradd.Enabled = False
 readermodify.Enabled = False
 readerdelete.Enabled = False
 


 
 
 

 

End If

   
End Sub

Private Sub modifybood_Click()
Fbookcheck.Show
End Sub

Private Sub modifyborrow_Click()
fborrowcheck.Show
End Sub

Private Sub modifypay_Click()
freturncheck.Show
End Sub

Private Sub readeradd_Click()
Freadercheck.cmdadd_Click
End Sub

Private Sub readerdelete_Click()
Freadercheck.Show

End Sub

Private Sub readerfind_Click()
Freadercheck.Show

End Sub

Private Sub readermodify_Click()
Freadercheck.Show
End Sub

Private Sub returnbook_Click()
freturncheck.cmdadd_Click
End Sub

Private Sub returnadd_Click()
freturncheck.cmdadd_Click
End Sub

Private Sub returndelete_Click()
freturncheck.Show

End Sub

Private Sub returnfind_Click()
freturncheck.Show

End Sub

Private Sub returnmodify_Click()
freturncheck.Show

End Sub