formmain.vb

学生信息管理系统

        '
        'miAbout
        '
        Me.miAbout.Index = 0
        Me.miAbout.Text = "关于..."
        '
        'miExit
        '
        Me.miExit.Index = 5
        Me.miExit.Text = "!退出"
        '
        'ToolBar1
        '
        Me.ToolBar1.Buttons.AddRange(New System.Windows.Forms.ToolBarButton() {Me.tbbEnroll, Me.tbbEditStudent, Me.tbbChangeProfession, Me.tbbLeaveSchool, Me.tbbSp1, Me.tbbGiveCourse, Me.tbbCancelCourse, Me.tbbEditCourse, Me.tbbTeacher, Me.tbbClassroom, Me.tbbSelectCourse, Me.tbbQuitCourse, Me.tbbQueryCourse, Me.tbbSp2, Me.tbbAcheivement, Me.tbbCourseOrder, Me.tbbProfessionOrder, Me.tbbQueryAchievement, Me.tbbSp3, Me.tbbReLogin, Me.tbbLogout, Me.tbbSp4, Me.tbbAbout, Me.tbbExit})
        Me.ToolBar1.DropDownArrows = True
        Me.ToolBar1.ImageList = Me.ImageList1
        Me.ToolBar1.Location = New System.Drawing.Point(0, 0)
        Me.ToolBar1.Name = "ToolBar1"
        Me.ToolBar1.ShowToolTips = True
        Me.ToolBar1.Size = New System.Drawing.Size(536, 42)
        Me.ToolBar1.TabIndex = 1
        '
        'tbbEnroll
        '
        Me.tbbEnroll.ImageIndex = 0
        Me.tbbEnroll.Text = "注"
        Me.tbbEnroll.ToolTipText = "学生注册"
        '
        'tbbEditStudent
        '
        Me.tbbEditStudent.ImageIndex = 1
        Me.tbbEditStudent.Text = "改 "
        Me.tbbEditStudent.ToolTipText = "修改学生"
        '
        'tbbChangeProfession
        '
        Me.tbbChangeProfession.ImageIndex = 2
        Me.tbbChangeProfession.Text = "更"
        Me.tbbChangeProfession.ToolTipText = "更改专业"
        '
        'tbbLeaveSchool
        '
        Me.tbbLeaveSchool.ImageIndex = 3
        Me.tbbLeaveSchool.Text = "离"
        Me.tbbLeaveSchool.ToolTipText = "学生离校"
        '
        'tbbSp1
        '
        Me.tbbSp1.Style = System.Windows.Forms.ToolBarButtonStyle.Separator
        '
        'tbbGiveCourse
        '
        Me.tbbGiveCourse.ImageIndex = 4
        Me.tbbGiveCourse.Text = "开"
        Me.tbbGiveCourse.ToolTipText = "专业开课"
        '
        'tbbCancelCourse
        '
        Me.tbbCancelCourse.ImageIndex = 5
        Me.tbbCancelCourse.Text = "消"
        Me.tbbCancelCourse.ToolTipText = "专业消课"
        '
        'tbbEditCourse
        '
        Me.tbbEditCourse.ImageIndex = 6
        Me.tbbEditCourse.Text = "改"
        Me.tbbEditCourse.ToolTipText = "修改课程"
        '
        'tbbTeacher
        '
        Me.tbbTeacher.ImageIndex = 7
        Me.tbbTeacher.Text = "师"
        Me.tbbTeacher.ToolTipText = "教师管理"
        '
        'tbbClassroom
        '
        Me.tbbClassroom.ImageIndex = 8
        Me.tbbClassroom.Text = "室"
        Me.tbbClassroom.ToolTipText = "教室管理"
        '
        'tbbSelectCourse
        '
        Me.tbbSelectCourse.ImageIndex = 9
        Me.tbbSelectCourse.Text = "选"
        Me.tbbSelectCourse.ToolTipText = "学生选课"
        '
        'tbbQuitCourse
        '
        Me.tbbQuitCourse.ImageIndex = 10
        Me.tbbQuitCourse.Text = "退"
        Me.tbbQuitCourse.ToolTipText = "学生退课"
        '
        'tbbQueryCourse
        '
        Me.tbbQueryCourse.ImageIndex = 11
        Me.tbbQueryCourse.Text = "查"
        Me.tbbQueryCourse.ToolTipText = "查询课表"
        '
        'tbbSp2
        '
        Me.tbbSp2.Style = System.Windows.Forms.ToolBarButtonStyle.Separator
        '
        'tbbAcheivement
        '
        Me.tbbAcheivement.ImageIndex = 12
        Me.tbbAcheivement.Text = "录"
        Me.tbbAcheivement.ToolTipText = "成绩录入"
        '
        'tbbCourseOrder
        '
        Me.tbbCourseOrder.ImageIndex = 13
        Me.tbbCourseOrder.Text = "课"
        Me.tbbCourseOrder.ToolTipText = "课程排名"
        '
        'tbbProfessionOrder
        '
        Me.tbbProfessionOrder.ImageIndex = 14
        Me.tbbProfessionOrder.Text = "专"
        Me.tbbProfessionOrder.ToolTipText = "专业排名"
        '
        'tbbQueryAchievement
        '
        Me.tbbQueryAchievement.ImageIndex = 15
        Me.tbbQueryAchievement.Text = "查"
        Me.tbbQueryAchievement.ToolTipText = "成绩查询"
        '
        'tbbSp3
        '
        Me.tbbSp3.Style = System.Windows.Forms.ToolBarButtonStyle.Separator
        '
        'tbbReLogin
        '
        Me.tbbReLogin.ImageIndex = 16
        Me.tbbReLogin.Text = "重"
        Me.tbbReLogin.ToolTipText = "重新登录"
        '
        'tbbLogout
        '
        Me.tbbLogout.ImageIndex = 17
        Me.tbbLogout.Text = "销"
        Me.tbbLogout.ToolTipText = "注销登录"
        '
        'tbbSp4
        '
        Me.tbbSp4.Style = System.Windows.Forms.ToolBarButtonStyle.Separator
        '
        'tbbAbout
        '
        Me.tbbAbout.ImageIndex = 18
        Me.tbbAbout.Text = "关"
        Me.tbbAbout.ToolTipText = "关于..."
        '
        'tbbExit
        '
        Me.tbbExit.ImageIndex = 19
        Me.tbbExit.Text = "X"
        Me.tbbExit.ToolTipText = "退出系统"
        '
        'ImageList1
        '
        Me.ImageList1.ImageSize = New System.Drawing.Size(16, 16)
        Me.ImageList1.ImageStream = CType(resources.GetObject("ImageList1.ImageStream"), System.Windows.Forms.ImageListStreamer)
        Me.ImageList1.TransparentColor = System.Drawing.Color.Transparent
        '
        'FormMain
        '
        Me.AutoScaleBaseSize = New System.Drawing.Size(5, 13)
        Me.ClientSize = New System.Drawing.Size(536, 387)
        Me.Controls.Add(Me.ToolBar1)
        Me.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon)
        Me.IsMdiContainer = True
        Me.Menu = Me.MainMenu1
        Me.Name = "FormMain"
        Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen
        Me.Text = "学生管理系统"
        Me.WindowState = System.Windows.Forms.FormWindowState.Maximized
        Me.ResumeLayout(False)

    End Sub

#End Region


    Private Sub ShowMDIForm(ByVal oForm As Form)
        oForm.MdiParent = Me
        oForm.Show()
    End Sub

    Private Sub miExit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles miExit.Click
        Application.Exit()
    End Sub

    Private Sub ToolBar1_ButtonClick(ByVal sender As System.Object, ByVal e As System.Windows.Forms.ToolBarButtonClickEventArgs) Handles ToolBar1.ButtonClick
        Select Case Me.ToolBar1.Buttons.IndexOf(e.Button)
            Case 0 To 1
                '学生注册、修改学生
                Me.miEnroll_Click(Nothing, Nothing)
            Case 2
                '学生调整专业
                Me.miStudentChangeProfession_Click(Nothing, Nothing)
            Case 3
                '学生离校
                Me.miStudentLeaveScholl_Click(Nothing, Nothing)
            Case 5 To 7
                '专业开课、消课
                Me.miGiveCourse_Click(Nothing, Nothing)
            Case 8
                '教师管理
                Me.miTeacher_Click(Nothing, Nothing)
            Case 9
                '教室管理
                Me.miClassroom_Click(Nothing, Nothing)
            Case 10 To 11
                '学生选课、退课
                Me.miSelectCourse_Click(Nothing, Nothing)
            Case 12
                '课程表查询
                Me.miQueryCourse_Click(Nothing, Nothing)
            Case 14
                '成绩录入
                Me.miEnterAchievement_Click(Nothing, Nothing)
            Case 15
                '课程成绩排名
                Me.miCourseOrder_Click(Nothing, Nothing)
            Case 16
                '学生平均成绩专业排名
                Me.miProfessionOrder_Click(Nothing, Nothing)
            Case 17
                '查询学生所有课程成绩
                Me.miQueryAchievement_Click(Nothing, Nothing)
            Case 19
                '用户重新登录
                Me.miReLogin_Click(Nothing, Nothing)
            Case 20
                '注销登录
                Me.miLogout_Click(Nothing, Nothing)
            Case 22
                '关于...
                miAbout_Click(Nothing, Nothing)
            Case 23
                '退出
                miExit_Click(Nothing, Nothing)
        End Select
    End Sub

    Private Sub miEnroll_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles miEnroll.Click
        Me.ShowMDIForm(New FormEnroll)
    End Sub

    Private Sub miStudentChangeProfession_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles miStudentChangeProfession.Click
        Me.ShowMDIForm(New FormStudentChangeProfession)
    End Sub

    Private Sub miStudentLeaveScholl_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles miStudentLeaveScholl.Click
        Me.ShowMDIForm(New FormStudentLeaveSchool)
    End Sub

    Private Sub miCollege_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles miCollege.Click
        Me.ShowMDIForm(New FormCollege)
    End Sub

    Private Sub miProfession_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles miProfession.Click
        Me.ShowMDIForm(New FormProfession)
    End Sub

    Private Sub miGiveCourse_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles miGiveCourse.Click
        Me.ShowMDIForm(New FormCurriculum)
    End Sub

    Private Sub miManageCourse_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles miManageCourse.Click
        Me.ShowMDIForm(New FormCourse)
    End Sub

    Private Sub miTeacher_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles miTeacher.Click
        Me.ShowMDIForm(New FormTeacher)
    End Sub

    Private Sub miClassroom_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles miClassroom.Click
        Me.ShowMDIForm(New FormClassroom)
    End Sub

    Private Sub miSelectCourse_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles miSelectCourse.Click
        Me.ShowMDIForm(New FormSelectCourse)
    End Sub

    Private Sub miQueryCourse_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles miQueryCourse.Click
        Me.ShowMDIForm(New FormCurriculumSchedule)
    End Sub

    Private Sub miEnterAchievement_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles miEnterAchievement.Click
        Me.ShowMDIForm(New FormAchievement)
    End Sub

    Private Sub miCourseOrder_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles miCourseOrder.Click
        Me.ShowMDIForm(New FormCourseOrder)
    End Sub

    Private Sub miProfessionOrder_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles miProfessionOrder.Click
        Me.ShowMDIForm(New FormProfessionOrder)
    End Sub

    Private Sub miQueryAchievement_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles miQueryAchievement.Click
        Me.ShowMDIForm(New FormStudentQueryAchievent)
    End Sub

    Private Sub miEditStudent_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles miEditStudent.Click
        Me.ShowMDIForm(New FormEnroll)
    End Sub

    Private Sub miCancelCourse_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles miCancelCourse.Click
        Me.ShowMDIForm(New FormCurriculum)
    End Sub

    Private Sub miEditCourse_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles miEditCourse.Click
        Me.ShowMDIForm(New FormCurriculum)
    End Sub

    Private Sub miQuitCourse_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles miQuitCourse.Click
        Me.ShowMDIForm(New FormSelectCourse)
    End Sub

    Private Sub MenuItem30_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem30.Click
        Me.ShowMDIForm(New FormUser)
    End Sub

    Private Sub miReLogin_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles miReLogin.Click
        Me.ShowMDIForm(New FormLogin)
    End Sub

    Private Sub miAbout_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles miAbout.Click
        Me.ShowMDIForm(New FormAbout)
    End Sub

    Private Sub miLogout_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles miLogout.Click
        '以模式对话框形式显示登录对话框
        Dim oFormLogout As Form = New FormLogout
        oFormLogout.ShowDialog()
    End Sub
End Class