formmain.frm

基于Visual Basic 6.0 与Access 2003的学籍管理系统,可以实现许多功能

VERSION 5.00
Begin VB.Form frmMain 
   BorderStyle     =   1  'Fixed Single
   Caption         =   "学籍管理系统"
   ClientHeight    =   6690
   ClientLeft      =   150
   ClientTop       =   540
   ClientWidth     =   9675
   LinkTopic       =   "Form1"
   MaxButton       =   0   'False
   MinButton       =   0   'False
   Picture         =   "FormMain.frx":0000
   ScaleHeight     =   6690
   ScaleWidth      =   9675
   StartUpPosition =   1  '所有者中心
   Begin VB.Menu mntSystem 
      Caption         =   "学校系统"
      Index           =   1
      Begin VB.Menu mntSysDepart 
         Caption         =   "院系设置"
         Index           =   2
      End
      Begin VB.Menu mntSysClass 
         Caption         =   "班级管理"
         Index           =   3
      End
      Begin VB.Menu mntSysSP 
         Caption         =   "-"
         Index           =   4
      End
      Begin VB.Menu mntSysQuit 
         Caption         =   "退出系统"
         Index           =   5
      End
   End
   Begin VB.Menu mntStudent 
      Caption         =   "学生管理"
      Index           =   6
      Begin VB.Menu mntStuManage 
         Caption         =   "学生管理"
         Index           =   7
      End
      Begin VB.Menu mntStuSP 
         Caption         =   "-"
         Index           =   8
      End
      Begin VB.Menu mntStuQuery 
         Caption         =   "学生信息查询"
         Index           =   9
      End
   End
   Begin VB.Menu mntEduAdmin 
      Caption         =   "教务管理"
      Index           =   10
      Begin VB.Menu mntEduChange 
         Caption         =   "学籍变更"
         Index           =   11
      End
      Begin VB.Menu mntEduReward 
         Caption         =   "奖励情况"
         Index           =   12
      End
      Begin VB.Menu mntEduPunish 
         Caption         =   "处罚情况"
         Index           =   13
      End
   End
   Begin VB.Menu mntCourse 
      Caption         =   "课程管理"
      Index           =   14
      Begin VB.Menu mntCourseMaint 
         Caption         =   "课程库"
         Index           =   15
      End
      Begin VB.Menu mntCourseArrange 
         Caption         =   "课程安排"
         Index           =   16
      End
      Begin VB.Menu mntCourseQeury 
         Caption         =   "查询课程安排"
         Index           =   17
      End
      Begin VB.Menu mntCourseClass 
         Caption         =   "课程表"
         Index           =   18
      End
   End
   Begin VB.Menu mntScore 
      Caption         =   "成绩管理"
      Index           =   19
      Begin VB.Menu mntScoreManage 
         Caption         =   "成绩库"
         Index           =   20
      End
      Begin VB.Menu mntScoreSP 
         Caption         =   "-"
         Index           =   21
      End
      Begin VB.Menu mntScoreStudent 
         Caption         =   "成绩查询分析"
         Index           =   22
      End
   End
   Begin VB.Menu mntSystem1 
      Caption         =   "系统维护"
      Index           =   24
      Begin VB.Menu mntSysUsers 
         Caption         =   "用户管理"
         Index           =   25
      End
      Begin VB.Menu mntHelp 
         Caption         =   "关于"
         Index           =   26
      End
      Begin VB.Menu mntSysQuit1 
         Caption         =   "退出系统"
         Index           =   27
      End
   End
End
Attribute VB_Name = "frmMain"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
'Public Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long




Private Sub mntCourseArrange_Click(Index As Integer)

frmCourseArrange.Show vbModal

End Sub

Private Sub mntCourseClass_Click(Index As Integer)

frmCourseTab.Show vbModal

End Sub

Private Sub mntCourseMaint_Click(Index As Integer)

frmCourseManage.Show vbModal

End Sub

Private Sub mntCourseQeury_Click(Index As Integer)

frmCourseQuery.Show vbModal

End Sub

Private Sub mntEduChange_Click(Index As Integer)

frmChange.Show vbModal

End Sub

Private Sub mntEduPunish_Click(Index As Integer)

frmPunish.Show vbModal

End Sub

Private Sub mntEduReward_Click(Index As Integer)

frmReward.Show vbModal

End Sub

Private Sub mntHelp_Click(Index As Integer)

frmAbout.Show vbModal

End Sub

Private Sub mntScoreManage_Click(Index As Integer)

frmScoreManage.Show vbModal

End Sub

Private Sub mntScoreStudent_Click(Index As Integer)

frmScoreAnalys.Show vbModal

End Sub

Private Sub mntStuManage_Click(Index As Integer)

frmStudent.Show vbModal

End Sub

Private Sub mntStuQuery_Click(Index As Integer)

frmQuery.Show vbModal

End Sub

Private Sub mntSysClass_Click(Index As Integer)

frmClass.Show vbModal

End Sub

Private Sub mntSysDepart_Click(Index As Integer)

frmDepartment.Show vbModal

End Sub

Private Sub mntSysQuit_Click(Index As Integer)

End

End Sub

Private Sub mntSysQuit1_Click(Index As Integer)

End

End Sub

Private Sub mntSysUsers_Click(Index As Integer)

frmUsers.Show vbModal

End Sub