main.vb

vb.net的学生信息管理系统,功能很强大,是一个比较好的系统.

        '
        Me.MenuItem22.Index = 0
        Me.MenuItem22.Text = "系部信息"
        '
        'MenuItem23
        '
        Me.MenuItem23.Index = 1
        Me.MenuItem23.Text = "添加信息"
        '
        'MenuItem26
        '
        Me.MenuItem26.Index = 2
        Me.MenuItem26.Text = "修改信息"
        '
        'MenuItem27
        '
        Me.MenuItem27.Index = 6
        Me.MenuItem27.MenuItems.AddRange(New System.Windows.Forms.MenuItem() {Me.MenuItem28, Me.MenuItem29})
        Me.MenuItem27.Text = "帮助"
        '
        'MenuItem28
        '
        Me.MenuItem28.Index = 0
        Me.MenuItem28.Text = "关于软件"
        '
        'MenuItem29
        '
        Me.MenuItem29.Index = 1
        Me.MenuItem29.Text = "联系我们"
        '
        'Label1
        '
        Me.Label1.Location = New System.Drawing.Point(48, 48)
        Me.Label1.Name = "Label1"
        Me.Label1.Size = New System.Drawing.Size(72, 23)
        Me.Label1.TabIndex = 0
        '
        'PictureBox1
        '
        Me.PictureBox1.Image = CType(resources.GetObject("PictureBox1.Image"), System.Drawing.Image)
        Me.PictureBox1.Location = New System.Drawing.Point(0, 0)
        Me.PictureBox1.Name = "PictureBox1"
        Me.PictureBox1.Size = New System.Drawing.Size(440, 304)
        Me.PictureBox1.TabIndex = 1
        Me.PictureBox1.TabStop = False
        '
        'Form2
        '
        Me.AutoScaleBaseSize = New System.Drawing.Size(6, 14)
        Me.ClientSize = New System.Drawing.Size(448, 305)
        Me.Controls.Add(Me.PictureBox1)
        Me.Controls.Add(Me.Label1)
        Me.ForeColor = System.Drawing.Color.Lime
        Me.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon)
        Me.MaximizeBox = False
        Me.Menu = Me.MainMenu1
        Me.Name = "Form2"
        Me.Text = "Form2"
        Me.ResumeLayout(False)

    End Sub

#End Region


    Private Sub Form2_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        ' Dim userQx As String
        Label1.Visible = False
        Dim userQx As String
        userQx = Label1.Text.ToString.Trim
        If userQx = "admin" Then

        ElseIf userQx = "student" Then '用户是student
            MenuItem16.Visible = False '添加学籍
            MenuItem11.Visible = False '修改课程
            MenuItem10.Visible = False '添加课程
            MenuItem17.Visible = False '修改学籍
            'MenuItem31.Visible = False学生档案

            'MenuItem30.Visible = False '退出系统
            'MenuItem18.Visible = False '查询学籍
            'MenuItem20.Visible = False '修改密码
            MenuItem21.Visible = False   '权限管理

            MenuItem19.Visible = False '删除学籍
            adduser.Visible = False '添加用户
            MenuItem14.Visible = False '添加班级
            MenuItem15.Visible = False '修改班级
            MenuItem13.Visible = False '添加班级课程
            MenuItem7.Visible = False '添加成绩
            MenuItem8.Visible = False '修改成绩
            'MenuItem9.Visible = False '查询成绩
            'MenuItem22.Visible = False '系部信息
            MenuItem23.Visible = False '添加系部信息
            MenuItem26.Visible = False '修改系部信息
            ' MenuItem24.Visible = False '班级课程查询
        Else                                         'teacher
            MenuItem16.Visible = False '添加学籍
            MenuItem11.Visible = False '修改课程
            MenuItem10.Visible = False '添加课程
            MenuItem17.Visible = False '修改学籍
            MenuItem21.Visible = False '权限管理
            'MenuItem30.Visible = False '退出系统
            ' MenuItem18.Visible = False '查询学籍
            ' MenuItem20.Visible = False '修改密码
            'MenuItem31.Visible = False  /学生档案
            MenuItem19.Visible = False '删除学籍
            adduser.Visible = False '添加用户
            MenuItem14.Visible = False '添加班级
            MenuItem15.Visible = False '修改班级
            MenuItem13.Visible = False '添加班级课程
            ' MenuItem7.Visible = False '添加成绩
            ' MenuItem8.Visible = False '修改成绩
            ' MenuItem9.Visible = False '查询成绩
            ' MenuItem22.Visible = False '系部信息
            MenuItem23.Visible = False '添加系部信息
            MenuItem26.Visible = False '修改系部信息
            ' MenuItem24.Visible = False '班级课程查询
        End If


    End Sub

    Private Sub MenuItem1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem1.Click

    End Sub

    Private Sub MenuItem11_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem11.Click
        Dim frm12 As New form12
        frm12.show()
        '修改课程
    End Sub

    Private Sub MenuItem10_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem10.Click
        Dim frm11 As New form11
        frm11.show()
        '添加课程
    End Sub

    Private Sub MenuItem12_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem12.Click

    End Sub

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

    Private Sub MenuItem17_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem17.Click
        Dim frm7 As New Form7 '修改学籍
        frm7.show()
    End Sub

    Private Sub adduser_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles adduser.Click
        Dim frm3 As New form3 '添加用户
        frm3.Show()
    End Sub

    Private Sub MenuItem18_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem18.Click
        Dim frm4 As New Form4 '查询学籍
        frm4.Show()

    End Sub

    Private Sub MenuItem20_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem20.Click
        Dim frm5 As New Form5
        frm5.Show() '修改密码
    End Sub

    Private Sub MenuItem16_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem16.Click
        Dim frm6 As New Form6
        frm6.Show() '添加学籍

    End Sub

    Private Sub adduser_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem19.Click
        Dim frm8 As New Form8 '删除学籍
        frm8.Show()
    End Sub

    Private Sub MenuItem14_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem14.Click
        Dim frm9 As New Form9
        frm9.Show() '添加班级
    End Sub

    Private Sub MenuItem15_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem15.Click
        Dim frm10 As New Form10
        frm10.Show() '修改班级
    End Sub

    Private Sub MenuItem13_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem13.Click
        Dim frm13 As New Form13 '添加班级课程
        frm13.Show()

    End Sub

    Private Sub MenuItem25_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem25.Click

    End Sub

    Private Sub MenuItem7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem7.Click
        Dim frm15 As New Form15 '添加成绩
        frm15.Show()
    End Sub

    Private Sub MenuItem8_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem8.Click
        Dim frm16 As New Form16 '修改成绩
        frm16.Show()
    End Sub

    Private Sub MenuItem9_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem9.Click
        Dim frm17 As New Form17 '查询成绩
        frm17.Show()
    End Sub

    Private Sub MenuItem2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem2.Click

    End Sub

    Private Sub MenuItem22_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem22.Click
        Dim frm18 As New Form18 '系部信息
        frm18.Show()
    End Sub

    Private Sub MenuItem23_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem23.Click
        Dim frm19 As New Form19 '添加信息
        frm19.Show()

    End Sub

    Private Sub MenuItem26_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem26.Click
        Dim frm20 As New Form20
        frm20.Show() '修改信息
    End Sub

    Private Sub MenuItem24_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem24.Click
        Dim frm14 As New Form14 '班级课程查询
        frm14.Show()

    End Sub

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

    End Sub

    Private Sub MenuItem30_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem30.Click
        Me.Close()
        Application.Exit() '退出系统
    End Sub

    Private Sub MenuItem31_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem31.Click
        Dim frm22 As New form22
        frm22.show()
    End Sub

    Private Sub MenuItem32_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem32.Click
        Dim frm23 As New form23
        frm23.show()
    End Sub

    Private Sub MenuItem33_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem33.Click
        Dim frm24 As New Form24
        frm24.Show()
    End Sub
End Class