menu.frm

一个基于SQL的教师管理系统 数据库文件在教师信息管理系统文件夹下的“db”文件夹中。

VERSION 5.00
Begin VB.Form menu 
   Caption         =   "主菜单"
   ClientHeight    =   6660
   ClientLeft      =   165
   ClientTop       =   735
   ClientWidth     =   10185
   LinkTopic       =   "Form1"
   ScaleHeight     =   6660
   ScaleWidth      =   10185
   StartUpPosition =   3  '窗口缺省
   Begin VB.Menu menu1 
      Caption         =   "教师信息"
      Begin VB.Menu menu11 
         Caption         =   "个人资料"
      End
      Begin VB.Menu menu13 
         Caption         =   "授课课程"
      End
   End
   Begin VB.Menu menu2 
      Caption         =   "职称信息"
      Begin VB.Menu menu21 
         Caption         =   "特殊补助"
      End
      Begin VB.Menu menu22 
         Caption         =   "收入总汇"
      End
   End
   Begin VB.Menu menu3 
      Caption         =   "帐号管理"
      Begin VB.Menu menu31 
         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 Form_Load()
 If Not userlevel = "系统管理员" Then  '假如不是系统管理员，就禁用除收入总汇以外的模块
 menu11.Enabled = False
 menu13.Enabled = False
 menu21.Enabled = False
 menu31.Enabled = False
 End If
End Sub

Private Sub menu11_Click()
person.Show '打开个人模块
End Sub

Private Sub menu12_Click()

End Sub

Private Sub menu13_Click()
course.Show '同理
End Sub

Private Sub menu21_Click()
subsidy.Show '同理
End Sub

Private Sub menu22_Click()
earning.Show '同理
End Sub

Private Sub menu31_Click()
setuser.Show '同理
End Sub