main.frm

中小型图书馆管理系统开发

VERSION 5.00
Begin VB.Form frmMain 
   Caption         =   "图书管理系统"
   ClientHeight    =   4530
   ClientLeft      =   165
   ClientTop       =   735
   ClientWidth     =   7395
   LinkTopic       =   "Form1"
   ScaleHeight     =   4530
   ScaleWidth      =   7395
   StartUpPosition =   3  'Windows Default
   Begin VB.Menu sysManagement 
      Caption         =   "系统管理(&S)"
      Begin VB.Menu sysExit 
         Caption         =   "退出系统(&X)"
      End
   End
   Begin VB.Menu bookManager 
      Caption         =   "图书管理(&B)"
      Begin VB.Menu addBook 
         Caption         =   "图书添加(&A)"
      End
      Begin VB.Menu deleteBook 
         Caption         =   "图书删除(&D)"
      End
      Begin VB.Menu modifyBook 
         Caption         =   "图书修改(&M)"
      End
      Begin VB.Menu queryBook 
         Caption         =   "图书查询(&Q)"
      End
   End
   Begin VB.Menu bookLendBorrow 
      Caption         =   "图书借阅(&L)"
      Begin VB.Menu bookBorrow 
         Caption         =   "图书借阅(&H)"
      End
      Begin VB.Menu bookReturn 
         Caption         =   "图书归还(&R)"
      End
      Begin VB.Menu lendQuery 
         Caption         =   "借阅查询(&Q)"
      End
   End
   Begin VB.Menu reader 
      Caption         =   "读者管理(&R)"
      Begin VB.Menu addReader 
         Caption         =   "添加读者(&A)"
      End
      Begin VB.Menu ListReader 
         Caption         =   "读者查询(&Q)"
      End
   End
End
Attribute VB_Name = "frmMain"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub addBook_Click()
frmAddBook.Show

End Sub



Private Sub addReader_Click()
frmAddReader.Show
End Sub

Private Sub bookBorrow_Click()
frmBorrowBook.Show

End Sub

Private Sub bookReturn_Click()
frmReturnBook.Show
End Sub

Private Sub deleteBook_Click()
frmDeleteBook.Show
End Sub

Private Sub Form_Load()

'主窗体居中显示

Me.Top = (Screen.Height - Me.Height) \ 2
Me.Left = (Screen.Width - Me.Width) \ 2

End Sub

Private Sub lendQuery_Click()
frmLendInfoQuery.Show

End Sub

Private Sub ListReader_Click()
frmQueryReader.Show

End Sub

Private Sub modifyBook_Click()
frmUpdateBook.Show

End Sub

Private Sub queryBook_Click()
frmQueryBook.Show
End Sub

Private Sub queryReader_Click()

End Sub

Private Sub sysExit_Click()
End
End Sub