frmmain.frm

图书馆管理系统的详细设计 功能齐全

VERSION 5.00
Begin VB.MDIForm FrmMain 
   BackColor       =   &H8000000C&
   Caption         =   "图书馆管理信息系统"
   ClientHeight    =   5655
   ClientLeft      =   165
   ClientTop       =   750
   ClientWidth     =   8235
   LinkMode        =   1  'Source
   LinkTopic       =   "MDIForm1"
   StartUpPosition =   2  'CenterScreen
   Begin VB.Menu menuSysMan 
      Caption         =   "系统管理"
      Begin VB.Menu menuAdminMan 
         Caption         =   "管理员信息"
      End
      Begin VB.Menu menuChangePwd 
         Caption         =   "个人密码修改"
      End
      Begin VB.Menu SPACE1 
         Caption         =   "-"
      End
      Begin VB.Menu menuExit 
         Caption         =   "退出"
      End
   End
   Begin VB.Menu menuBorrowMan 
      Caption         =   "借书卡业务"
      Begin VB.Menu menuBorrower 
         Caption         =   "借书卡信息"
      End
      Begin VB.Menu SPACE2 
         Caption         =   "-"
      End
      Begin VB.Menu menuAddBorrower 
         Caption         =   "办理借书卡"
      End
      Begin VB.Menu menuDelBorrower 
         Caption         =   "注销借书卡"
      End
   End
   Begin VB.Menu menuBandRMan 
      Caption         =   "借/还书业务"
      Begin VB.Menu menuBookBorrow 
         Caption         =   "借书登记"
         Index           =   4
      End
      Begin VB.Menu menuBookReturn 
         Caption         =   "还书登记"
         Index           =   5
      End
   End
   Begin VB.Menu menuStoreMan 
      Caption         =   "库存管理"
      Begin VB.Menu menuBookStore 
         Caption         =   "库存信息"
         Index           =   6
      End
      Begin VB.Menu menuBookSearch 
         Caption         =   "书刊查询"
         Index           =   7
      End
   End
   Begin VB.Menu menuHelpMan 
      Caption         =   "帮助"
      Begin VB.Menu menuAbout 
         Caption         =   "About"
      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 menuAbout_Click()
   frmAbout.Show 1
End Sub

Private Sub menuAddBorrower_Click()
   FrmOperBorrower.Show 1
End Sub

Private Sub menuAdminMan_Click()
   FrmAdminMan.Show 0
End Sub

Private Sub menuBookBorrow_Click(Index As Integer)
   FrmBookBorrow.Show 0
End Sub

Private Sub menuBookReturn_Click(Index As Integer)
   FrmBookReturn.Show 0
End Sub

Private Sub menuBookSearch_Click(Index As Integer)
   FrmBookSearch.Show 0
End Sub

Private Sub menuBookStore_Click(Index As Integer)
   FrmBookStore.Show 0
End Sub

Private Sub menuBorrower_Click()
   FrmBorrowerMan.Show 0
End Sub

Private Sub menuChangePwd_Click()

End Sub

Private Sub menuDelBorrower_Click()
   FrmDelBorrower.Show 0
End Sub

Private Sub menuExit_Click()
   End
End Sub