lzxmenu.frm

学生管理系统 很不错的一个课程设计 适合大学生毕业设计用

VERSION 5.00
Begin VB.Form 主窗体 
   BackColor       =   &H00FF8080&
   Caption         =   "学生学籍管理"
   ClientHeight    =   3375
   ClientLeft      =   165
   ClientTop       =   735
   ClientWidth     =   7335
   LinkTopic       =   "Form1"
   ScaleHeight     =   3375
   ScaleWidth      =   7335
   StartUpPosition =   3  '窗口缺省
   Begin VB.Menu xtgl 
      Caption         =   "系统管理"
      Index           =   0
      NegotiatePosition=   2  'Middle
      Begin VB.Menu tjyh 
         Caption         =   "添加用户"
         Index           =   0
      End
      Begin VB.Menu scyh 
         Caption         =   "删除用户"
         HelpContextID   =   19
         Index           =   0
      End
      Begin VB.Menu xgmm 
         Caption         =   "修改密码"
         Index           =   0
      End
      Begin VB.Menu cxdl 
         Caption         =   "重新登录"
         Index           =   0
      End
   End
   Begin VB.Menu yxzygl 
      Caption         =   "院系、专业管理"
      Index           =   0
      Begin VB.Menu yxsz 
         Caption         =   "院系设置"
         Index           =   0
      End
      Begin VB.Menu zysz 
         Caption         =   "专业设置"
         Index           =   0
      End
   End
   Begin VB.Menu bjgl 
      Caption         =   "班级管理"
      Index           =   0
      Begin VB.Menu bjll 
         Caption         =   "班级浏览"
         Index           =   0
      End
      Begin VB.Menu bjtj 
         Caption         =   "班级添加"
         Index           =   0
      End
      Begin VB.Menu bjsc 
         Caption         =   "班级删除"
         Index           =   0
      End
      Begin VB.Menu bjcx 
         Caption         =   "班级查询"
         Index           =   0
      End
   End
   Begin VB.Menu xjgl 
      Caption         =   "学籍管理"
      Index           =   0
      Begin VB.Menu dall 
         Caption         =   "档案浏览"
         Index           =   0
      End
      Begin VB.Menu datj 
         Caption         =   "档案添加"
         Index           =   0
      End
      Begin VB.Menu dasc 
         Caption         =   "档案删除"
         Index           =   0
      End
      Begin VB.Menu dacx 
         Caption         =   "档案查询"
         Index           =   0
      End
      Begin VB.Menu daxg 
         Caption         =   "档案修改"
         Index           =   0
      End
   End
   Begin VB.Menu kcgl 
      Caption         =   "课程管理"
      Index           =   0
      Begin VB.Menu kcsz 
         Caption         =   "课程设置"
         Index           =   0
      End
      Begin VB.Menu xqsz 
         Caption         =   "学期设置"
         Index           =   0
      End
      Begin VB.Menu xksz 
         Caption         =   "选课设置"
      End
   End
   Begin VB.Menu cjgl 
      Caption         =   "成绩管理"
      Index           =   0
      Begin VB.Menu cjtj 
         Caption         =   "成绩添加"
         Index           =   0
      End
      Begin VB.Menu cjxg 
         Caption         =   "成绩修改"
         HelpContextID   =   23
         Index           =   0
      End
      Begin VB.Menu cjsc 
         Caption         =   "成绩删除"
         Index           =   0
      End
      Begin VB.Menu cjll 
         Caption         =   "成绩浏览"
         Index           =   0
      End
   End
   Begin VB.Menu tc 
      Caption         =   "退出"
      Index           =   0
   End
End
Attribute VB_Name = "主窗体"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub bjcx_Click(Index As Integer)
If qxstra = "0" Then
MsgBox " 你没有权限进行操作！", vbExclamation + vbOKOnly, "警告"
Exit Sub
End If
班级查询.Show
End Sub

Private Sub bjkcsz_Click(Index As Integer)
If qxstra = "0" Then
MsgBox " 你没有权限进行操作！", vbExclamation + vbOKOnly, "警告"
Exit Sub
End If
课程设置.Show
End Sub

Private Sub bjll_Click(Index As Integer)
班级浏览.Show
End Sub

Private Sub bjsc_Click(Index As Integer)
If qxstra = "0" Then
MsgBox " 你没有权限进行操作！", vbExclamation + vbOKOnly, "警告"
Exit Sub
End If
班级删除.Show
End Sub

Private Sub bjtj_Click(Index As Integer)
If qxstra = "0" Then
MsgBox " 你没有权限进行操作！", vbExclamation + vbOKOnly, "警告"
Exit Sub
End If
班级添加.Show
End Sub
Private Sub cjll_Click(Index As Integer)
成绩浏览.Show
End Sub

Private Sub cjsc_Click(Index As Integer)
If qxstra = "0" Then
MsgBox " 你没有权限进行操作！", vbExclamation + vbOKOnly, "警告"
Exit Sub
End If
成绩删除.Show
End Sub

Private Sub cjtj_Click(Index As Integer)
If qxstra = "0" Then
MsgBox " 你没有权限进行操作！", vbExclamation + vbOKOnly, "警告"
Exit Sub
End If
成绩添加.Show
End Sub

Private Sub cjxg_Click(Index As Integer)
If qxstra = "0" Then
MsgBox " 你没有权限进行操作！", vbExclamation + vbOKOnly, "警告"
Exit Sub
End If
成绩修改.Show
End Sub

Private Sub cxdl_Click(Index As Integer)
登录窗口.Show
Unload Me
End Sub

Private Sub dacx_Click(Index As Integer)
If qxstra = "0" Then
MsgBox " 你没有权限进行操作！", vbExclamation + vbOKOnly, "警告"
Exit Sub
End If
档案查询.Show
End Sub

Private Sub dall_Click(Index As Integer)
档案浏览.Show
End Sub

Private Sub dasc_Click(Index As Integer)
If qxstra = "0" Then
MsgBox " 你没有权限进行操作！", vbExclamation + vbOKOnly, "警告"
Exit Sub
End If
档案删除.Show
End Sub

Private Sub datj_Click(Index As Integer)
If qxstra = "0" Then
MsgBox " 你没有权限进行操作！", vbExclamation + vbOKOnly, "警告"
Exit Sub
End If
档案添加.Show
End Sub

Private Sub daxg_Click(Index As Integer)
If qxstra = "0" Then
MsgBox " 你没有权限进行操作！", vbExclamation + vbOKOnly, "警告"
Exit Sub
End If
档案修改.Show
End Sub

Private Sub kcsz_Click(Index As Integer)
If qxstra = "0" Then
MsgBox " 你没有权限进行操作！", vbExclamation + vbOKOnly, "警告"
Exit Sub
End If
课程设置.Show
End Sub

Private Sub scyh_Click(Index As Integer)
If qxstra = "0" Then
MsgBox " 你没有权限进行操作！", vbExclamation + vbOKOnly, "警告"
Exit Sub
End If
删除用户.Show
End Sub

Private Sub tc_Click(Index As Integer)
Unload Me
End Sub

Private Sub tjyh_Click(Index As Integer)
If qxstra = "0" Then
MsgBox " 你没有权限进行操作！", vbExclamation + vbOKOnly, "警告"
Exit Sub
End If
添加用户.Show
End Sub

Private Sub xgmm_Click(Index As Integer)
修改密码.Show
End Sub

Private Sub xksz_Click()
If qxstra = "0" Then
MsgBox " 你没有权限进行操作！", vbExclamation + vbOKOnly, "警告"
Exit Sub
End If
选课设置.Show
End Sub

Private Sub xqsz_Click(Index As Integer)
If qxstra = "0" Then
MsgBox " 你没有权限进行操作！", vbExclamation + vbOKOnly, "警告"
Exit Sub
End If
学期设置.Show
End Sub

Private Sub yxsz_Click(Index As Integer)
If qxstra = "0" Then
MsgBox " 你没有权限进行操作！", vbExclamation + vbOKOnly, "警告"
Exit Sub
End If
院系设置.Show
End Sub

Private Sub zysz_Click(Index As Integer)
If qxstra = "0" Then
MsgBox " 你没有权限进行操作！", vbExclamation + vbOKOnly, "警告"
Exit Sub
End If
专业设置.Show
End Sub