formmain.frm

来自「数据库课程设计开发」· FRM 代码 · 共 69 行

VERSION 5.00
Begin VB.Form frmmain 
   Caption         =   "学生选课系统"
   ClientHeight    =   8205
   ClientLeft      =   165
   ClientTop       =   735
   ClientWidth     =   11880
   LinkTopic       =   "Form1"
   ScaleHeight     =   8205
   ScaleWidth      =   11880
   StartUpPosition =   3  '窗口缺省
   WindowState     =   2  'Maximized
   Begin VB.Menu mntbrwquery 
      Caption         =   "借阅查询"
   End
   Begin VB.Menu mntbook 
      Caption         =   "图书管理"
      Index           =   0
   End
   Begin VB.Menu mntreader 
      Caption         =   "读者管理"
      Index           =   3
   End
   Begin VB.Menu mntSystem 
      Caption         =   "系统维护"
      Index           =   6
      Begin VB.Menu mntSysUsers 
         Caption         =   "用户管理"
         Index           =   7
      End
      Begin VB.Menu mntSysSP1 
         Caption         =   "-"
         Index           =   10
      End
      Begin VB.Menu mntSysQuit 
         Caption         =   "退出系统"
         Index           =   8
      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 mntbook_Click(Index As Integer)
frmbookmanage.Show vbModal
End Sub

Private Sub mntbrwquery_Click()
frmbookquery.Show vbModal
End Sub

Private Sub mntreader_Click(Index As Integer)
frmreadermanage.Show vbModal
End Sub

Private Sub mntSysQuit_Click(Index As Integer)
End
End Sub

Private Sub mntSysUsers_Click(Index As Integer)
frmusers.Show vbModal
End Sub