frmmain.frm

用vb实现的图书管理系统

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