manager.vb

一个很不错的学生管理系统

        '
        'MenuItem19
        '
        Me.MenuItem19.Index = 3
        Me.MenuItem19.MenuItemIcon = CType(resources.GetObject("MenuItem19.MenuItemIcon"), System.Drawing.Image)
        Me.MenuItem19.OwnerDraw = True
        Me.MenuItem19.Text = "查询学生成绩"
        '
        'MenuItem20
        '
        Me.MenuItem20.Index = 4
        Me.MenuItem20.MenuItemIcon = Nothing
        Me.MenuItem20.MenuItems.AddRange(New System.Windows.Forms.MenuItem() {Me.MenuItem21, Me.MenuItem22, Me.MenuItem23, Me.MenuItem24, Me.MenuItem25})
        Me.MenuItem20.OwnerDraw = True
        Me.MenuItem20.Text = "课程管理"
        '
        'MenuItem21
        '
        Me.MenuItem21.Index = 0
        Me.MenuItem21.MenuItemIcon = CType(resources.GetObject("MenuItem21.MenuItemIcon"), System.Drawing.Image)
        Me.MenuItem21.OwnerDraw = True
        Me.MenuItem21.Text = "添加课程"
        '
        'MenuItem22
        '
        Me.MenuItem22.Index = 1
        Me.MenuItem22.MenuItemIcon = CType(resources.GetObject("MenuItem22.MenuItemIcon"), System.Drawing.Image)
        Me.MenuItem22.OwnerDraw = True
        Me.MenuItem22.Text = "修改课程"
        '
        'MenuItem23
        '
        Me.MenuItem23.Index = 2
        Me.MenuItem23.MenuItemIcon = CType(resources.GetObject("MenuItem23.MenuItemIcon"), System.Drawing.Image)
        Me.MenuItem23.OwnerDraw = True
        Me.MenuItem23.Text = "删除课程"
        '
        'MenuItem24
        '
        Me.MenuItem24.Index = 3
        Me.MenuItem24.MenuItemIcon = CType(resources.GetObject("MenuItem24.MenuItemIcon"), System.Drawing.Image)
        Me.MenuItem24.OwnerDraw = True
        Me.MenuItem24.Text = "查询课程"
        '
        'MenuItem25
        '
        Me.MenuItem25.Index = 4
        Me.MenuItem25.MenuItemIcon = CType(resources.GetObject("MenuItem25.MenuItemIcon"), System.Drawing.Image)
        Me.MenuItem25.OwnerDraw = True
        Me.MenuItem25.Text = "设置课程"
        '
        'MenuItem26
        '
        Me.MenuItem26.Index = 5
        Me.MenuItem26.MenuItemIcon = Nothing
        Me.MenuItem26.MenuItems.AddRange(New System.Windows.Forms.MenuItem() {Me.MenuItem27, Me.MenuItem28})
        Me.MenuItem26.OwnerDraw = True
        Me.MenuItem26.Text = "帮助"
        '
        'MenuItem27
        '
        Me.MenuItem27.Index = 0
        Me.MenuItem27.MenuItemIcon = CType(resources.GetObject("MenuItem27.MenuItemIcon"), System.Drawing.Image)
        Me.MenuItem27.OwnerDraw = True
        Me.MenuItem27.Text = "帮助主题"
        '
        'MenuItem28
        '
        Me.MenuItem28.Index = 1
        Me.MenuItem28.MenuItemIcon = CType(resources.GetObject("MenuItem28.MenuItemIcon"), System.Drawing.Image)
        Me.MenuItem28.OwnerDraw = True
        Me.MenuItem28.Text = "关于"
        '
        'StatusBar1
        '
        Me.StatusBar1.Location = New System.Drawing.Point(0, 339)
        Me.StatusBar1.Name = "StatusBar1"
        Me.StatusBar1.Panels.AddRange(New System.Windows.Forms.StatusBarPanel() {Me.StatusBarPanel1, Me.StatusBarPanel2})
        Me.StatusBar1.ShowPanels = True
        Me.StatusBar1.Size = New System.Drawing.Size(568, 22)
        Me.StatusBar1.TabIndex = 1
        '
        'StatusBarPanel1
        '
        Me.StatusBarPanel1.Width = 280
        '
        'StatusBarPanel2
        '
        Me.StatusBarPanel2.Width = 280
        '
        'Manager
        '
        Me.AutoScaleBaseSize = New System.Drawing.Size(6, 14)
        Me.ClientSize = New System.Drawing.Size(568, 361)
        Me.Controls.Add(Me.StatusBar1)
        Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.Fixed3D
        Me.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon)
        Me.IsMdiContainer = True
        Me.Menu = Me.MainMenu1
        Me.Name = "Manager"
        Me.Text = "学生信息管理"
        CType(Me.StatusBarPanel1, System.ComponentModel.ISupportInitialize).EndInit()
        CType(Me.StatusBarPanel2, System.ComponentModel.ISupportInitialize).EndInit()
        Me.ResumeLayout(False)

    End Sub

#End Region

   
    Private Sub MenuItem3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem3.Click
        Dim ModUserpass As New ModifyUserpass
        ModUserpass.MdiParent = Me
        ModUserpass.Show()

    End Sub

    Private Sub MenuItem4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem4.Click
        Me.Hide()
        UserInfo.Log.Show()
    End Sub

    Private Sub MenuItem6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem6.Click
        Dim AddStu As New AddStuInfo
        AddStu.MdiParent = Me
        AddStu.Show()

    End Sub

    Private Sub Manager_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        StatusBarPanel1.Text = "当前用户：" & UserInfo.UserName
        StatusBarPanel2.Text = "当前用户类型：" & UserInfo.UserStyle
        If UserInfo.UserStyle = "user" Then
            MenuItem2.Enabled = False
            MenuItem6.Enabled = False
            MenuItem7.Enabled = False
            MenuItem8.Enabled = False
            MenuItem11.Enabled = False
            MenuItem12.Enabled = False
            MenuItem13.Enabled = False
            MenuItem16.Enabled = False
            MenuItem17.Enabled = False
            MenuItem18.Enabled = False
            MenuItem21.Enabled = False
            MenuItem22.Enabled = False
            MenuItem23.Enabled = False


        End If


    End Sub

    Private Sub MenuItem9_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem9.Click
        Dim InquireStu As New InquireStuInfo
        InquireStu.Show()

    End Sub

    Private Sub MenuItem2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem2.Click
        Dim Deluser As New DelUser
        Deluser.Show()

    End Sub


    Private Sub Manager_Closing(ByVal sender As Object, ByVal e As System.ComponentModel.CancelEventArgs) Handles MyBase.Closing
        If MsgBox("确定完全退出学生信息管理管理系统吗？将返回登陆界面！", _
       MsgBoxStyle.YesNo + MsgBoxStyle.Question, "退出系统") _
       = MsgBoxResult.Yes Then
            e.Cancel = False
            UserInfo.Log.Show()

        Else
            e.Cancel = True
        End If
    End Sub

    Private Sub MenuItem11_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem11.Click
        Dim AddClass As New AddClassInfo
        AddClass.Show()

    End Sub

    Private Sub MenuItem8_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem8.Click
        Dim DelStu As New DelStuInfo
        DelStu.Show()

    End Sub

    Private Sub MenuItem7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem7.Click
        Dim ModStu As New ModifyStuInfo
        ModStu.Show()

    End Sub

    Private Sub MenuItem12_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem12.Click
        Dim ModClass As New ModifyClassInfo
        ModClass.Show()

    End Sub

    Private Sub MenuItem14_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem14.Click
        Dim Inquireclass As New InquireClass
        Inquireclass.Show()

    End Sub

    Private Sub MenuItem16_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem16.Click
        Dim addmark As New AddMark
        addmark.Show()

    End Sub

    Private Sub MenuItem28_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem28.Click
        Dim About As New About
        About.Show()

    End Sub

    Private Sub MenuItem13_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem13.Click
        Dim DelClass As New DelClass
        DelClass.Show()

    End Sub

    Private Sub MenuItem21_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem21.Click
        Dim Addcourse As New AddCourse
        Addcourse.Show()

    End Sub
End Class