mdimain.frm

学生信息管理系统

VERSION 5.00
Object = "{831FDD16-0C5C-11D2-A9FC-0000F8754DA1}#2.0#0"; "MSCOMCTL.OCX"
Begin VB.MDIForm MDIMain 
   BackColor       =   &H00C0C0C0&
   Caption         =   "学生信息管理系统"
   ClientHeight    =   7440
   ClientLeft      =   165
   ClientTop       =   855
   ClientWidth     =   9930
   LinkTopic       =   "MDIForm1"
   StartUpPosition =   3  '窗口缺省
   WindowState     =   2  'Maximized
   Begin MSComctlLib.StatusBar sbrStatus 
      Align           =   2  'Align Bottom
      Height          =   300
      Left            =   0
      TabIndex        =   0
      Top             =   7140
      Width           =   9930
      _ExtentX        =   17515
      _ExtentY        =   529
      _Version        =   393216
      BeginProperty Panels {8E3867A5-8586-11D1-B16A-00C0F0283628} 
         NumPanels       =   4
         BeginProperty Panel1 {8E3867AB-8586-11D1-B16A-00C0F0283628} 
            Alignment       =   1
            Object.Width           =   7056
            MinWidth        =   7056
            Text            =   "学生信息管理系统"
            TextSave        =   "学生信息管理系统"
         EndProperty
         BeginProperty Panel2 {8E3867AB-8586-11D1-B16A-00C0F0283628} 
            Alignment       =   1
            Object.Width           =   4304
            MinWidth        =   4304
         EndProperty
         BeginProperty Panel3 {8E3867AB-8586-11D1-B16A-00C0F0283628} 
            Alignment       =   1
            Object.Width           =   5292
            MinWidth        =   5292
         EndProperty
         BeginProperty Panel4 {8E3867AB-8586-11D1-B16A-00C0F0283628} 
            Object.Width           =   5293
            MinWidth        =   5293
         EndProperty
      EndProperty
      OLEDropMode     =   1
   End
   Begin VB.Menu mnuSysManage 
      Caption         =   "系统管理"
      NegotiatePosition=   3  'Right
      Begin VB.Menu mnuSysAddUser 
         Caption         =   "添加用户"
      End
      Begin VB.Menu mnuSysModifyPassword 
         Caption         =   "修改密码"
      End
      Begin VB.Menu mnuSysReLogin 
         Caption         =   "重新登陆"
      End
   End
   Begin VB.Menu mnuClassManage 
      Caption         =   "班级管理"
      NegotiatePosition=   2  'Middle
      Begin VB.Menu mnuClassBrowse 
         Caption         =   "班级浏览"
      End
      Begin VB.Menu mnuClassAdd 
         Caption         =   "添加班级"
      End
      Begin VB.Menu mnuClassFind 
         Caption         =   "班级查询"
      End
   End
   Begin VB.Menu mnuDocMansge 
      Caption         =   "档案管理"
      Begin VB.Menu mnuDocAdd 
         Caption         =   "档案添加"
      End
      Begin VB.Menu mnuDocBrowse 
         Caption         =   "档案浏览"
      End
      Begin VB.Menu mnuDocFind 
         Caption         =   "档案查询"
      End
   End
   Begin VB.Menu mnuCourseManage 
      Caption         =   "课程管理"
      Begin VB.Menu mnuCourseBasic 
         Caption         =   "基本课程设置"
      End
      Begin VB.Menu qw 
         Caption         =   "-"
      End
      Begin VB.Menu mnuCourseClass 
         Caption         =   "班级课程设置"
      End
   End
   Begin VB.Menu mnuScoreManage 
      Caption         =   "成绩管理"
      Begin VB.Menu mnuScoreType 
         Caption         =   "考试类型"
      End
      Begin VB.Menu mnuScoreAdd 
         Caption         =   "成绩添加"
      End
      Begin VB.Menu mnuScoreBrowse 
         Caption         =   "成绩浏览"
      End
   End
End
Attribute VB_Name = "mdiMain"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
'----------------------------------MDIMain.frm----------------------------------
Option Explicit

Private Declare Function SetWindowPos Lib "user32" (ByVal hwnd As Long, ByVal hWndInsertAfter As Long, ByVal X As Long, ByVal Y As Long, ByVal cx As Long, ByVal cy As Long, ByVal wFlags As Long) As Long

'设置基本课程
Private Sub mnuCourseBasic_Click()
    strUserManage = UserManage(4)
    If strUserManage = "False" Then
        MsgBox "对不起，你没有管理本功能的权限，请与管理员联系！", vbInformation + vbOKOnly, " 警告"
        Exit Sub
    End If
    '显示基本课程设置界面
    frmBasicCourse.Show
    frmBasicCourse.ZOrder 0
End Sub

'班级课程设置
Private Sub mnuCourseClass_Click()
    strUserManage = UserManage(4)
    If strUserManage = "False" Then
        MsgBox "对不起，你没有管理本功能的权限，请与管理员联系！", vbInformation + vbOKOnly, " 警告"
        Exit Sub
    End If
    '显示班级课程设置界面
    frmClassCourse.Show
    frmClassCourse.ZOrder
End Sub

'设置考试类型
Private Sub mnuScoreType_Click()
    strUserManage = UserManage(4)
    If strUserManage = "False" Then
        MsgBox "对不起，你没有管理本功能的权限，请与管理员联系！", vbInformation + vbOKOnly, " 警告"
        Exit Sub
    End If
    '显示考试类型设置界面
    frmTestType.Show
    frmTestType.ZOrder 0
End Sub

'添加成绩
Private Sub mnuScoreAdd_Click()
    strUserManage = UserManage(4)
    If strUserManage = "False" Or strUserManage = "ReadOnly" Then
        MsgBox "对不起，你没有管理本功能的权限，请与管理员联系！", vbInformation + vbOKOnly, " 警告"
        Exit Sub
    End If
    frmScoreAdd.Show
    frmScoreAdd.ZOrder 0
End Sub

'浏览成绩
Private Sub mnuScoreBrowse_Click()
    strUserManage = UserManage(4)
    If strUserManage = "False" Then
        MsgBox "对不起，你没有管理本功能的权限，请与管理员联系！", vbInformation + vbOKOnly, " 警告"
        Exit Sub
    End If
    frmScoreBrowse.Show
    frmScoreBrowse.ZOrder 0
End Sub

'添加档案
Private Sub mnuDocAdd_Click()
    strUserManage = UserManage(2)
    If strUserManage = "False" Or strUserManage = "readonly" Then
        MsgBox "对不起，你没有管理本功能的权限，请与管理员联系！", vbInformation + vbOKOnly, " 警告"
        Exit Sub
    End If
    
    frmDocModify.Show
    blnModifyDoc = False
    frmDocModify.ZOrder (0)
End Sub

'档案浏览
Private Sub mnuDocBrowse_Click()
    strUserManage = UserManage(2)
    If strUserManage = "False" Then
        MsgBox "对不起，你没有管理本功能的权限，请与管理员联系！", vbInformation + vbOKOnly, " 警告"
        Exit Sub
    End If
    
    blnFindDoc = False
    frmDocBrowse.Show
End Sub

'档案查询
Private Sub mnuDocFind_Click()
    strUserManage = UserManage(2)
    If strUserManage = "False" Then
        MsgBox "对不起，你没有管理本功能的权限，请与管理员联系！", vbInformation + vbOKOnly, " 警告"
        Exit Sub
    End If
    frmDocFind.Show
    frmDocFind.ZOrder (0)
    SetWindowPos frmDocFind.hwnd, -1, 0, 0, 0, 0, 3
End Sub

Private Sub MDIForm_Load()
    '初始化控件等
    sbrStatus.Panels(2).Text = Now
    sbrStatus.Panels(3).Text = "当前操作员：    " & UserName
    
    Select Case UserManage(1)
        Case "Administration"
            sbrStatus.Panels(4).Text = "状态：   " & "高级管理员"
        Case "ReadOnly"
            sbrStatus.Panels(4).Text = "状态：   " & "只读管理员"
        Case Else
            sbrStatus.Panels(4).Text = "状态：   " & "普通管理员"
    End Select
End Sub

'班级浏览
Private Sub mnuClassBrowse_Click()
    strUserManage = UserManage(2)
    If strUserManage = "False" Then
        MsgBox "对不起，你没有管理本功能的权限，请与管理员联系！", vbInformation + vbOKOnly, " 警告"
        Exit Sub
    End If
    '显示班级浏览
    frmClassBrower.Show
End Sub

'添加班级
Private Sub mnuClassAdd_Click()
    strUserManage = UserManage(2)
    '用户权限判断
    If strUserManage = "False" Or strUserManage = "ReadOnly" Then
        MsgBox "对不起，你没有管理本功能的权限，请与管理员联系！", vbInformation + vbOKOnly, " 警告"
        Exit Sub
    End If
    
    frmClassModify.Show
    blnModifyClass = False
    frmClassModify.ClassLoad
    frmClassModify.ZOrder 0
End Sub

'班级查询
Private Sub mnuClassFind_Click()
    strUserManage = UserManage(2)
    '用户权限判断
    If strUserManage = "False" Or strUserManage = "ReadOnly" Then
        MsgBox "对不起，你没有管理本功能的权限，请与管理员联系！", vbInformation + vbOKOnly, " 警告"
        Exit Sub
    End If
    
    frmClassFind.Show
    frmClassFind.ZOrder 0
End Sub

'添加新用户
Private Sub mnuSysAddUser_Click()
    strUserManage = UserManage(1)
    If strUserManage = "False" Or strUserManage = "ReadOnly" Then
        MsgBox "对不起，你没有管理本功能的权限，请与管理员联系！", vbInformation + vbOKOnly, " 警告"
        Exit Sub
    End If
    '显示添加新用户界面
    frmAddNewUser.Show
    frmAddNewUser.ZOrder 0
End Sub

'修改密码
Private Sub mnuSysModifyPassword_Click()
    strUserManage = UserManage(1)
    If strUserManage = "False" Then
        MsgBox "对不起，你没有管理本功能的权限，请与管理员联系！", vbInformation + vbOKOnly, " 警告"
        Exit Sub
    End If
    '显示修改密码界面
    frmModifyPassword.Show
    frmModifyPassword.ZOrder 0
End Sub

'重新登陆
Private Sub mnuSysReLogin_Click()
    '显示重新登陆界面
    frmLogin.Show
    Unload Me
End Sub