formmain.frm

本源代码为学生图书管管理系统

VERSION 5.00
Begin VB.Form frmBookManagement 
   BackColor       =   &H00C0C0C0&
   Caption         =   "图书馆信息管理"
   ClientHeight    =   11490
   ClientLeft      =   165
   ClientTop       =   855
   ClientWidth     =   14445
   FillColor       =   &H00FFFFFF&
   LinkTopic       =   "Form1"
   Picture         =   "FormMain.frx":0000
   ScaleHeight     =   11490
   ScaleWidth      =   14445
   StartUpPosition =   3  '窗口缺省
   WindowState     =   2  'Maximized
   Begin VB.Menu mnu_SysSet 
      Caption         =   "系统设置"
      Begin VB.Menu mnu_Users 
         Caption         =   "设置用户"
      End
      Begin VB.Menu mnu_login 
         Caption         =   "用户登录"
      End
      Begin VB.Menu mnu_ModifyPSW 
         Caption         =   "密码修改"
      End
      Begin VB.Menu mnu_info 
         Caption         =   "退出"
      End
   End
   Begin VB.Menu mnu_Books 
      Caption         =   "图书管理"
      Begin VB.Menu mnu_ADD 
         Caption         =   "新书登记"
      End
      Begin VB.Menu mnu_Search 
         Caption         =   "图书查询"
      End
      Begin VB.Menu mnu_Borrow 
         Caption         =   "图书借阅"
      End
      Begin VB.Menu mnu_Modify 
         Caption         =   "图书修改"
      End
      Begin VB.Menu mnu_Delete 
         Caption         =   "图书删除"
      End
   End
   Begin VB.Menu mnu_Student 
      Caption         =   "学生管理"
      Begin VB.Menu mnu_StudentADD 
         Caption         =   "登记"
      End
      Begin VB.Menu mnu_StudentSearch 
         Caption         =   "查询"
      End
   End
   Begin VB.Menu mnu_BSearch 
      Caption         =   "借书查询"
      WindowList      =   -1  'True
      Begin VB.Menu mnu_SIDSearch 
         Caption         =   "按学号查询"
      End
      Begin VB.Menu mnu_BIDSearch 
         Caption         =   "按书号查询"
      End
      Begin VB.Menu mnu_Statistic 
         Caption         =   "借书汇总"
      End
      Begin VB.Menu mnu_DueDate 
         Caption         =   "过期汇总"
      End
      Begin VB.Menu mnu_Inform 
         Caption         =   "还书通知"
      End
   End
   Begin VB.Menu mnu_Return 
      Caption         =   "还书"
      Begin VB.Menu mnu_ReturnBook 
         Caption         =   "还书"
      End
      Begin VB.Menu mnu_History 
         Caption         =   "借还历史"
      End
   End
   Begin VB.Menu help 
      Caption         =   "帮助"
      Begin VB.Menu about 
         Caption         =   "关于"
      End
   End
End
Attribute VB_Name = "frmBookManagement"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub about_Click()
    frmAbout.Show
End Sub

Private Sub Command3_Click()

End Sub

Private Sub Command4_Click()

End Sub

Private Sub Command5_Click()

End Sub

Private Sub Form_Load()
''open the connection
'    DBConnection

If strLoginName <> "administrator" Then
    mnu_Users.Enabled = False
Else
    mnu_Users.Enabled = True
End If
End Sub

Private Sub mnu_ADD_Click()
    frmBooks.Show
    
End Sub

Private Sub mnu_BIDSearch_Click()
    frmBIDSearch.Show
    
End Sub

Private Sub mnu_Borrow_Click()
    frmBorrowBook.Show
    
End Sub

Private Sub mnu_Delete_Click()
    frmDelete.Show
    
End Sub

Private Sub mnu_DueDate_Click()
    frmDueDate.Show
End Sub

Private Sub mnu_History_Click()
    frmHistory.Show
    
End Sub

Private Sub mnu_info_Click()
Unload Me
End Sub

Private Sub mnu_Inform_Click()
    frmInform.Show
    
End Sub

Private Sub mnu_login_Click()
    frmLogin.Show
    
End Sub

Private Sub mnu_Modify_Click()
    frmModify.Show
End Sub

Private Sub mnu_ModifyPSW_Click()
    frmPSW.Show
End Sub

Private Sub mnu_ReturnBook_Click()
    frmReturn.Show
    
End Sub

Private Sub mnu_Search_Click()
    frmBookSearch.Show
    
End Sub

Private Sub mnu_SIDSearch_Click()
    frmSIDSearch.Show
    
End Sub

Private Sub mnu_Statistic_Click()
    frmBorrowStatic.Show
End Sub

Private Sub mnu_StudentADD_Click()
    frmStudentADD.Show
    
End Sub

Private Sub mnu_StudentSearch_Click()
    frmSearch.Show
End Sub

Private Sub mnu_Users_Click()
    frmUsers.Show
    
End Sub