menu.frm

系统实现了图书的添加

VERSION 5.00
Begin VB.Form menu 
   Caption         =   "图书管理系统"
   ClientHeight    =   8160
   ClientLeft      =   165
   ClientTop       =   825
   ClientWidth     =   10365
   LinkTopic       =   "Form1"
   ScaleHeight     =   8160
   ScaleWidth      =   10365
   StartUpPosition =   3  '窗口缺省
   WindowState     =   2  'Maximized
   Begin VB.Menu menu1 
      Caption         =   "图书借还管理"
      Begin VB.Menu menu11 
         Caption         =   "图书借阅处理"
      End
      Begin VB.Menu spc1 
         Caption         =   "-"
      End
      Begin VB.Menu menu12 
         Caption         =   "图书归还处理"
      End
      Begin VB.Menu spc2 
         Caption         =   "-"
      End
      Begin VB.Menu menu13 
         Caption         =   "退出"
      End
   End
   Begin VB.Menu menu2 
      Caption         =   "图书管理"
      Begin VB.Menu meun21 
         Caption         =   "图书入库处理"
      End
      Begin VB.Menu spc3 
         Caption         =   "-"
      End
      Begin VB.Menu menu22 
         Caption         =   "图书查找处理"
      End
   End
   Begin VB.Menu menu3 
      Caption         =   "读者管理"
      Begin VB.Menu menu31 
         Caption         =   "读者登记处理"
      End
      Begin VB.Menu spc4 
         Caption         =   "-"
      End
      Begin VB.Menu menu32 
         Caption         =   "读者查找处理"
      End
   End
   Begin VB.Menu menu4 
      Caption         =   "系统维护管理"
      Begin VB.Menu menu41 
         Caption         =   "设置系统用户"
      End
      Begin VB.Menu spc5 
         Caption         =   "-"
      End
      Begin VB.Menu menu42 
         Caption         =   "系统初始化"
      End
   End
End
Attribute VB_Name = "menu"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub MDIForm_Load()
    If Not userlevel = "系统管理员" Then
        menu21.Enabled = False
        menu31.Enabled = False
        menu41.Enabled = False
        menu41.Enabled = False
    End If
End Sub

Private Sub menu11_Click()
    borbook.Show vbModal
End Sub

Private Sub menu12_Click()
    retbook.Show vbModal
End Sub

Private Sub menu13_Click()
  End
End Sub

Private Sub menu22_Click()
    qubook.Show vbModal
End Sub

Private Sub menu31_Click()
    edreader.Show vbModal
End Sub

Private Sub menu32_Click()
    qureader.Show vbModal
End Sub

Private Sub menu41_Click()
    setuser.Show vbModal
End Sub

Private Sub menu42_Click()
    If MsgBox("本功能要清除系统中所有的数据，真的要初始化吗？", vbYesNo, _
              "确认初始化操作") = vbYes Then
        Call deldata("book")
        Call deldata("reader")
        Call deldata("borrow")
        Call deldata("rlevel")
        Call deldata("depart")
        Call deldata("press")
        Call deldata("oper")
        MsgBox "系统初始化完毕，下次只能用admin,admin(用户名,口令)进入本系统", _
        vbOKOnly, "信息提示"
    End If
End Sub

Private Sub meun21_Click()
    edbook.Show vbModal
End Sub