mdiform1.frm

本程序是vb+access做的图书管管理系统

VERSION 5.00
Begin VB.MDIForm MDIForm1 
   BackColor       =   &H8000000C&
   Caption         =   "图书管理系统"
   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