frmmain.frm

一些对图书馆的基本管理

VERSION 5.00
Begin VB.MDIForm frmMain 
   BackColor       =   &H8000000C&
   Caption         =   "图书馆管理系统"
   ClientHeight    =   5670
   ClientLeft      =   165
   ClientTop       =   855
   ClientWidth     =   7620
   Icon            =   "frmMain.frx":0000
   LinkTopic       =   "Form1"
   StartUpPosition =   3  '窗口缺省
   Begin VB.Menu mnReader 
      Caption         =   "读者管理(&W)"
      Begin VB.Menu mnReaderType 
         Caption         =   "读者类别设置(&Y)"
      End
      Begin VB.Menu mnReaderDoc 
         Caption         =   "读者档案管理(&Z)"
      End
   End
   Begin VB.Menu mnBook 
      Caption         =   "图书管理(&X)"
      Begin VB.Menu mnBookType 
         Caption         =   "图书类别设置(&Y)"
      End
      Begin VB.Menu mnBookDoc 
         Caption         =   "图书档案管理(&Z)"
      End
   End
   Begin VB.Menu mnManage 
      Caption         =   "流通管理(&Y)"
      Begin VB.Menu mnBuy 
         Caption         =   "图书征订(&V)"
      End
      Begin VB.Menu mnBorrow 
         Caption         =   "图书借阅(&W)"
      End
      Begin VB.Menu mnReturn 
         Caption         =   "图书归还(&X)"
      End
      Begin VB.Menu mnList 
         Caption         =   "逾期清单(&Y)"
      End
      Begin VB.Menu mnMoney 
         Caption         =   "图书罚款(&Z)"
      End
   End
   Begin VB.Menu mnExit 
      Caption         =   "退出系统(&Z)"
   End
End
Attribute VB_Name = "frmMain"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub mnBookDoc_Click()
    Set formBookDoc = New frmBookDoc
    formBookDoc.Show
End Sub

Private Sub mnBookType_Click()
    Set formBookType = New frmBookType
    formBookType.Show
End Sub

Private Sub mnBorrow_Click()
    Set formBorrow = New frmBorrow
    formBorrow.Show
End Sub

Private Sub mnBuy_Click()
    Set formBuyBook = New frmBuyBook
    formBuyBook.Show
End Sub

Private Sub mnExit_Click()
    End
End Sub

Private Sub mnList_Click()
    Set formList = New frmList
    formList.Show
End Sub

Private Sub mnMoney_Click()
    Set formMoney = New frmMoney
    formMoney.Show
End Sub

Private Sub mnReaderDoc_Click()
    Set formReaderDoc = New frmReaderDoc
    formReaderDoc.Show
End Sub

Private Sub mnReaderType_Click()
    Set formReaderType = frmReaderType
    formReaderType.Show
End Sub

Private Sub mnReturn_Click()
    Set formReturn = New frmReturn
    formReturn.Show
End Sub