mdimain.frm

学生信息管理系统

VERSION 5.00
Begin VB.MDIForm MDIMain 
   BackColor       =   &H8000000C&
   Caption         =   "学生信息管理系统"
   ClientHeight    =   4935
   ClientLeft      =   165
   ClientTop       =   855
   ClientWidth     =   6270
   LinkTopic       =   "MDIForm1"
   Picture         =   "MDIMain.frx":0000
   StartUpPosition =   3  '窗口缺省
   WindowState     =   2  'Maximized
   Begin VB.Menu sysmanage 
      Caption         =   "系统管理"
      Begin VB.Menu addsystemuser 
         Caption         =   "添加系统用户"
      End
      Begin VB.Menu modifysypwd 
         Caption         =   "修改系统密码"
      End
      Begin VB.Menu addstudent 
         Caption         =   "添加|修改学生"
      End
      Begin VB.Menu modifystupwd 
         Caption         =   "修改学生密码"
      End
      Begin VB.Menu exitsystem 
         Caption         =   "退出"
      End
   End
   Begin VB.Menu stuinfomanage 
      Caption         =   "学生信息管理"
      Begin VB.Menu zsstuinfo 
         Caption         =   "增删基本信息"
      End
      Begin VB.Menu updatestuinfo 
         Caption         =   "更新基本信息"
      End
      Begin VB.Menu inquerystuinfo 
         Caption         =   "查询基本信息"
      End
      Begin VB.Menu studareport 
         Caption         =   "学生信息报表"
      End
   End
   Begin VB.Menu classmanage 
      Caption         =   "班级信息管理"
      Begin VB.Menu zsgclassinfo 
         Caption         =   "增删改班级信息"
      End
      Begin VB.Menu inquerycalinfo 
         Caption         =   "查询班级信息"
      End
   End
   Begin VB.Menu coursemanage 
      Caption         =   "课程管理"
      Begin VB.Menu zsgcourinfo 
         Caption         =   "增删改课程信息"
      End
      Begin VB.Menu inquerycourinfo 
         Caption         =   "查询课程信息"
      End
   End
   Begin VB.Menu cjmanage 
      Caption         =   "成绩管理"
      Begin VB.Menu zsgcjinfo 
         Caption         =   "增删改成绩"
      End
      Begin VB.Menu gradecjcx 
         Caption         =   "年级成绩查询"
      End
      Begin VB.Menu termcj 
         Caption         =   "学期成绩查询"
      End
   End
   Begin VB.Menu reportdesign 
      Caption         =   "报表设计"
      Begin VB.Menu rptstuinfo 
         Caption         =   "学生基本信息报表"
      End
      Begin VB.Menu rptgrade 
         Caption         =   "年级成绩报表"
      End
      Begin VB.Menu rptclass 
         Caption         =   "班级成绩报表"
      End
   End
End
Attribute VB_Name = "MDIMain"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit

'表示当前的用户类型
'0---管理员类型的用户; 1---学生类型的用户
Public mnUserType As Integer
'表示当前登录的用户名
Public msUserName As String




Private Sub addstudent_Click()
frmstu.Show
End Sub

Private Sub addsystemuser_Click()
frmaddsystemuser.Show
End Sub

Private Sub exitsystem_Click()
'请求用户确认是否真的退出系统登录
    If MsgBox("你选择了退出系统登录，退出将不能启动管理系统！" & vbCrLf _
              & "是否真的退出？", vbYesNo, "登录验证") = vbYes Then
        Unload Me               '卸载登录窗体
    End If
End Sub

Private Sub gradecjcx_Click()
frminquerygradecj.Show
End Sub

Private Sub inquerycalinfo_Click()
frminqueryclass.Show
End Sub

Private Sub inquerycourinfo_Click()
frminquerycourse.Show
End Sub



Private Sub inquerystuinfo_Click()
frminquerystu.Show
End Sub

Private Sub MDIForm_Activate()
'根据不同的用户类型，使相应的菜单项可见
  Select Case mnUserType
    Case 0:   '以管理员身份登录
        addsystemuser.Enabled = True
        modifysypwd.Enabled = True
        addstudent.Enabled = True
        zsstuinfo.Enabled = True
        updatestuinfo.Enabled = True
        
        zsgclassinfo.Enabled = True
        zsgcourinfo.Enabled = True
        zsgcjinfo.Enabled = True
    Case 1:                       '以学生身份登录， 只能查询自己的信息
          addsystemuser.Enabled = False
        modifysypwd.Enabled = False
        addstudent.Enabled = False
        zsstuinfo.Enabled = False
       updatestuinfo.Enabled = False
        zsgclassinfo.Enabled = False
        zsgcourinfo.Enabled = False
        zsgcjinfo.Enabled = False
  End Select
End Sub


Private Sub modifypwd_Click()
frmstupwd.Show
End Sub

Private Sub modifystupwd_Click()
frmstupwd.Show
End Sub

Private Sub modifysypwd_Click()
frmsypwd.Show
End Sub

Private Sub rptclass_Click()
DataReportclass.Show
End Sub

Private Sub rptgrade_Click()
DataReportgrade.Show
End Sub

Private Sub rptstuinfo_Click()
DataReportstu.Show
End Sub

Private Sub studareport_Click()
DataReport1.Show
End Sub

Private Sub termcj_Click()
frminquerytermcj.Show
End Sub


Private Sub updatestuinfo_Click()
frmupdateinfo.Show
End Sub

Private Sub zsgcjinfo_Click()
frmcj.Show
End Sub

Private Sub zsgclassinfo_Click()
frmclass.Show
End Sub

Private Sub zsgcourinfo_Click()
frmcourse.Show
End Sub



Private Sub zsstuinfo_Click()
frmstuinfo.Show
End Sub