frmsystemmain.frm

图书管理系统

VERSION 5.00
Begin VB.MDIForm SystemMain 
   BackColor       =   &H8000000C&
   Caption         =   "高校图书管理系统"
   ClientHeight    =   3120
   ClientLeft      =   165
   ClientTop       =   735
   ClientWidth     =   5760
   LinkTopic       =   "MDIForm1"
   StartUpPosition =   3  '窗口缺省
   WindowState     =   2  'Maximized
   Begin VB.Menu mnuFile 
      Caption         =   "文件"
      Begin VB.Menu mnuExit 
         Caption         =   "退出"
      End
   End
   Begin VB.Menu mnuSys 
      Caption         =   "系统管理"
      Begin VB.Menu mnuUsers 
         Caption         =   "用户管理"
      End
      Begin VB.Menu mnuReader 
         Caption         =   "读者管理"
      End
      Begin VB.Menu mnuPassWord 
         Caption         =   "修改口令"
      End
   End
   Begin VB.Menu mnuNewBook 
      Caption         =   "采编"
      Begin VB.Menu mnuBiBli 
         Caption         =   "编目"
      End
      Begin VB.Menu mnuStore 
         Caption         =   "典藏"
      End
      Begin VB.Menu mnuBook 
         Caption         =   "征订"
      End
   End
   Begin VB.Menu mnuLendManage 
      Caption         =   "借阅管理"
      Begin VB.Menu mnuLendData 
         Caption         =   "借阅数据管理"
      End
      Begin VB.Menu mnuLendReturn 
         Caption         =   "借还书"
      End
   End
End
Attribute VB_Name = "SystemMain"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit

Private Sub MDIForm_Load()
    If CurrentUserStatus <> "0" Then
        '隐藏系统菜单
        mnuUsers.Visible = False
        mnuReader.Visible = False
        mnuNewBook.Visible = False
        mnuLendData.Visible = False
    End If

End Sub

Private Sub mnuExit_Click()
    Unload Me       '关闭系统主窗体
End Sub
Private Sub MDIForm_QueryUnload(Cancel As Integer, UnloadMode As Integer)
    If MsgBox("你选择了关闭图书管理系统，是否继续？", _
        vbYesNo + vbInformation, "高校图书管理系统") = vbYes Then
        '判断在所有子窗体关闭之后才关闭系统主窗体
        If Not Me.ActiveForm Is Nothing Then
            MsgBox "请先关闭打开的子窗体！", vbCritical, "高校图书管理系统"
            Cancel = 1
        End If
    Else
        Cancel = 1
    End If
End Sub

Private Sub mnuLendData_Click()
    LendedDataManage.Show: LendedDataManage.SetFocus
End Sub

Private Sub mnuLendReturn_Click()
    LendReturn.Show: LendReturn.SetFocus
End Sub

Private Sub mnuPassWord_Click()
    ChangePassword.Show: ChangePassword.SetFocus
End Sub

Private Sub mnuReader_Click()
    ReaderManage.Show: ReaderManage.SetFocus
End Sub
Private Sub mnuBibli_Click()
    BibliManage.Show: BibliManage.SetFocus
End Sub

Private Sub mnuStore_Click()
    BooksToStore.Show: BooksToStore.SetFocus
End Sub
Private Sub mnuBook_Click()
    BooksOrder.Show: BooksOrder.SetFocus
End Sub

Private Sub mnuUsers_Click()
    SysUserManage.Show: SysUserManage.SetFocus
End Sub