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