VERSION 5.00
Begin VB.Form frmMain 
   Caption         =   "歡迎使用圖書館管理系統"
   ClientHeight    =   5025
   ClientLeft      =   165
   ClientTop       =   735
   ClientWidth     =   8100
   LinkTopic       =   "Form1"
   ScaleHeight     =   5025
   ScaleWidth      =   8100
   StartUpPosition =   3  '窗口缺省
   Begin VB.Label Label1 
      Caption         =   "歡迎進入圖書館管理系統 "
      BeginProperty Font 
         Name            =   "宋體"
         Size            =   27.75
         Charset         =   134
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   1215
      Left            =   480
      TabIndex        =   0
      Top             =   1440
      Width           =   6615
   End
   Begin VB.Menu MenuSystem 
      Caption         =   "系統管理"
      Begin VB.Menu MenuItemLogin 
         Caption         =   "用戶登陸"
      End
      Begin VB.Menu MenuUserManager 
         Caption         =   "用戶管理"
         Begin VB.Menu MenuItemuseradd 
            Caption         =   "添加用戶"
         End
         Begin VB.Menu MenuItemuserupdate 
            Caption         =   "修改用戶"
         End
         Begin VB.Menu MenuItemuserdelete 
            Caption         =   "刪除用戶"
         End
      End
      Begin VB.Menu MenuFileExit 
         Caption         =   "退出"
      End
   End
   Begin VB.Menu MenuBookManager 
      Caption         =   "書籍管理"
      Begin VB.Menu MenuItemBookAdd 
         Caption         =   "添加書籍信息"
      End
      Begin VB.Menu MenuItemBookUpdate 
         Caption         =   "修改書籍信息"
      End
      Begin VB.Menu MenuItemBookDelete 
         Caption         =   "刪除書籍信息"
      End
   End
   Begin VB.Menu MenuBorrowBook 
      Caption         =   "借書管理"
      Begin VB.Menu MenuItemBookBorrow 
         Caption         =   "書籍出借"
      End
      Begin VB.Menu MenuItemBookBorrowUpdate 
         Caption         =   "出錯信息刪除"
      End
   End
   Begin VB.Menu MenuReturnBook 
      Caption         =   "還書管理"
      Begin VB.Menu MenuItemBookReturn 
         Caption         =   "書籍還入"
      End
      Begin VB.Menu MenuItemBookReturnUpdate 
         Caption         =   "書籍還入信息刪除"
      End
   End
   Begin VB.Menu MenuAllInfo 
      Caption         =   "信息一覽"
      Begin VB.Menu MenuItemAllBook 
         Caption         =   "書籍信息查詢"
      End
      Begin VB.Menu MenuItemAllReader 
         Caption         =   "借閱者查詢"
      End
      Begin VB.Menu AllInfo 
         Caption         =   "瀏覽所有書籍信息"
      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 AllInfo_Click()
frmViewAll.Show
End Sub

Private Sub MenuFileExit_Click()
Unload Me
End Sub

Private Sub MenuItemAllBook_Click()
frmBookInfo.Show

End Sub

Private Sub MenuItemAllReader_Click()
frmBookReader.Show
End Sub

Private Sub MenuItemBookAdd_Click()
frmBookAdd.Show

End Sub

Private Sub MenuItemBookBorrow_Click()
frmBookBorrow.Show
End Sub

Private Sub MenuItemBookBorrowUpdate_Click()
frmBookBorrowUpdate.Show
End Sub

Private Sub MenuItemBookDelete_Click()
frmBookDelete.Show
End Sub

Private Sub MenuItemBookReturn_Click()
frmBookReturn.Show

End Sub

Private Sub MenuItemBookReturnUpdate_Click()
frmBookReturnUpdate.Show
End Sub

Private Sub MenuItemBookUpdate_Click()
frmBookUpdate.Show
End Sub

Private Sub MenuItemLogin_Click()
Unload Me
frmLogin.Show

End Sub

Private Sub MenuItemuseradd_Click()
frmUserAdd.Show
End Sub

Private Sub MenuItemuserdelete_Click()
frmUserDelete.Show


End Sub

Private Sub MenuItemuserupdate_Click()
frmUserUpdate.Show
End Sub

Private Sub ViewEdit_Click()
frmViewEdit.Show
End Sub