frmmain.vb

师生情况管理系统

'************************************************************
'Copyright(c) 2007 长沙南方职业学院 信息系 软件2-061班
'All rights reserved
'
'程序名称：学校基本信息管理系统
'
'作者(原)：易湘陵
'完成日期：2007-11-12
'作者(改)：
'修改日期：
'************************************************************
Public Class FrmMain
    Inherits System.Windows.Forms.Form

#Region " Windows 窗体设计器生成的代码 "

    Public Sub New(ByVal Nstr As String, ByVal Rstr As String, ByVal Pstr As String)
        MyBase.New()
        MyClassUser = New ClassUser(Nstr, Rstr, Pstr)
        '该调用是 Windows 窗体设计器所必需的。
        InitializeComponent()

        '在 InitializeComponent() 调用之后添加任何初始化

    End Sub

    '窗体重写 dispose 以清理组件列表。
    Protected Overloads Overrides Sub Dispose(ByVal disposing As Boolean)
        If disposing Then
            If Not (components Is Nothing) Then
                components.Dispose()
            End If
        End If
        MyBase.Dispose(disposing)
    End Sub

    'Windows 窗体设计器所必需的
    Private components As System.ComponentModel.IContainer

    '注意: 以下过程是 Windows 窗体设计器所必需的
    '可以使用 Windows 窗体设计器修改此过程。
    '不要使用代码编辑器修改它。
    Friend WithEvents Panel1 As System.Windows.Forms.Panel
    Friend WithEvents RibbonControl1 As DevComponents.DotNetBar.RibbonControl
    Friend WithEvents RibbonTabItem1 As DevComponents.DotNetBar.RibbonTabItem
    Friend WithEvents RibbonPanel1 As DevComponents.DotNetBar.RibbonPanel
    Friend WithEvents QatCustomizeItem1 As DevComponents.DotNetBar.QatCustomizeItem
    Friend WithEvents RibbonBar1 As DevComponents.DotNetBar.RibbonBar
    Friend WithEvents Office2007StartButton1 As DevComponents.DotNetBar.Office2007StartButton
    Friend WithEvents ButtonItem1 As DevComponents.DotNetBar.ButtonItem
    Friend WithEvents ItemContainer1 As DevComponents.DotNetBar.ItemContainer
    Friend WithEvents ItemContainer2 As DevComponents.DotNetBar.ItemContainer
    Friend WithEvents ItemContainer3 As DevComponents.DotNetBar.ItemContainer
    Friend WithEvents ButtonItem6 As DevComponents.DotNetBar.ButtonItem
    Friend WithEvents ItemContainer4 As DevComponents.DotNetBar.ItemContainer
    Friend WithEvents ItemContainer5 As DevComponents.DotNetBar.ItemContainer
    Friend WithEvents SkinUI1 As DotNetSkin.SkinUI
    Friend WithEvents ButtonItem8 As DevComponents.DotNetBar.ButtonItem
    Friend WithEvents ButtonItem9 As DevComponents.DotNetBar.ButtonItem
    Friend WithEvents ButtonItem10 As DevComponents.DotNetBar.ButtonItem
    Friend WithEvents ButtonItem11 As DevComponents.DotNetBar.ButtonItem
    Friend WithEvents ButtonItem14 As DevComponents.DotNetBar.ButtonItem
    Friend WithEvents ButtonItem15 As DevComponents.DotNetBar.ButtonItem
    Friend WithEvents labelItem8 As DevComponents.DotNetBar.LabelItem
    Friend WithEvents RibbonTabItem2 As DevComponents.DotNetBar.RibbonTabItem
    Friend WithEvents RibbonPanel2 As DevComponents.DotNetBar.RibbonPanel
    Friend WithEvents ButtonItem36 As DevComponents.DotNetBar.ButtonItem
    Friend WithEvents RibbonTabItem3 As DevComponents.DotNetBar.RibbonTabItem
    Friend WithEvents RibbonPanel3 As DevComponents.DotNetBar.RibbonPanel
    Friend WithEvents RibbonBar2 As DevComponents.DotNetBar.RibbonBar
    Friend WithEvents BtnLockUp As DevComponents.DotNetBar.ButtonItem
    Friend WithEvents BtnClose As DevComponents.DotNetBar.ButtonItem
    Friend WithEvents BtnCloseAll As DevComponents.DotNetBar.ButtonItem
    Friend WithEvents BtnUserManage As DevComponents.DotNetBar.ButtonItem
    Friend WithEvents BtnSystemSet As DevComponents.DotNetBar.ButtonItem
    Friend WithEvents BtnStudentInfo As DevComponents.DotNetBar.ButtonItem
    Friend WithEvents BtnStudentDuty As DevComponents.DotNetBar.ButtonItem
    Friend WithEvents BtnStudentGrade As DevComponents.DotNetBar.ButtonItem
    Friend WithEvents BtnStudentHostel As DevComponents.DotNetBar.ButtonItem
    Friend WithEvents BtnTeacherInfo As DevComponents.DotNetBar.ButtonItem
    Friend WithEvents BtnTeacherDuty As DevComponents.DotNetBar.ButtonItem
    Friend WithEvents BtnTeacherPay As DevComponents.DotNetBar.ButtonItem
    Friend WithEvents BtnDepartment As DevComponents.DotNetBar.ButtonItem
    Friend WithEvents BtnClass As DevComponents.DotNetBar.ButtonItem
    Friend WithEvents BtnSpecialty As DevComponents.DotNetBar.ButtonItem
    Friend WithEvents BtnCurricula As DevComponents.DotNetBar.ButtonItem
    Friend WithEvents BtnBooks As DevComponents.DotNetBar.ButtonItem
    Friend WithEvents BtnLogout As DevComponents.DotNetBar.ButtonItem
    Friend WithEvents BtnExit As DevComponents.DotNetBar.ButtonItem
    Friend WithEvents ButtonItem2 As DevComponents.DotNetBar.ButtonItem
    Friend WithEvents BtnStudentInfo2 As DevComponents.DotNetBar.ButtonItem
    Friend WithEvents BtnStudentGrade2 As DevComponents.DotNetBar.ButtonItem
    Friend WithEvents BtnTeacherInfo2 As DevComponents.DotNetBar.ButtonItem
    Friend WithEvents BtnTeacherPay2 As DevComponents.DotNetBar.ButtonItem
    Friend WithEvents BtnDepartment2 As DevComponents.DotNetBar.ButtonItem
    Friend WithEvents BtnClass2 As DevComponents.DotNetBar.ButtonItem
    Friend WithEvents BtnSpecialty2 As DevComponents.DotNetBar.ButtonItem
    Friend WithEvents BtnCurricula2 As DevComponents.DotNetBar.ButtonItem
    Friend WithEvents BtnBooks2 As DevComponents.DotNetBar.ButtonItem
    <System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()
        Dim resources As System.Resources.ResourceManager = New System.Resources.ResourceManager(GetType(FrmMain))
        Me.Panel1 = New System.Windows.Forms.Panel
        Me.RibbonControl1 = New DevComponents.DotNetBar.RibbonControl
        Me.RibbonPanel2 = New DevComponents.DotNetBar.RibbonPanel
        Me.RibbonPanel1 = New DevComponents.DotNetBar.RibbonPanel
        Me.RibbonBar1 = New DevComponents.DotNetBar.RibbonBar
        Me.BtnStudentInfo2 = New DevComponents.DotNetBar.ButtonItem
        Me.BtnStudentGrade2 = New DevComponents.DotNetBar.ButtonItem
        Me.BtnTeacherInfo2 = New DevComponents.DotNetBar.ButtonItem
        Me.BtnTeacherPay2 = New DevComponents.DotNetBar.ButtonItem
        Me.BtnDepartment2 = New DevComponents.DotNetBar.ButtonItem
        Me.BtnClass2 = New DevComponents.DotNetBar.ButtonItem
        Me.BtnSpecialty2 = New DevComponents.DotNetBar.ButtonItem
        Me.BtnCurricula2 = New DevComponents.DotNetBar.ButtonItem
        Me.BtnBooks2 = New DevComponents.DotNetBar.ButtonItem
        Me.RibbonPanel3 = New DevComponents.DotNetBar.RibbonPanel
        Me.RibbonBar2 = New DevComponents.DotNetBar.RibbonBar
        Me.ButtonItem2 = New DevComponents.DotNetBar.ButtonItem
        Me.RibbonTabItem1 = New DevComponents.DotNetBar.RibbonTabItem
        Me.RibbonTabItem3 = New DevComponents.DotNetBar.RibbonTabItem
        Me.Office2007StartButton1 = New DevComponents.DotNetBar.Office2007StartButton
        Me.ItemContainer1 = New DevComponents.DotNetBar.ItemContainer
        Me.ItemContainer2 = New DevComponents.DotNetBar.ItemContainer
        Me.ItemContainer3 = New DevComponents.DotNetBar.ItemContainer
        Me.BtnLockUp = New DevComponents.DotNetBar.ButtonItem
        Me.BtnClose = New DevComponents.DotNetBar.ButtonItem
        Me.BtnCloseAll = New DevComponents.DotNetBar.ButtonItem
        Me.BtnUserManage = New DevComponents.DotNetBar.ButtonItem
        Me.BtnSystemSet = New DevComponents.DotNetBar.ButtonItem
        Me.ItemContainer4 = New DevComponents.DotNetBar.ItemContainer
        Me.ButtonItem6 = New DevComponents.DotNetBar.ButtonItem
        Me.BtnStudentInfo = New DevComponents.DotNetBar.ButtonItem
        Me.BtnStudentDuty = New DevComponents.DotNetBar.ButtonItem
        Me.BtnStudentGrade = New DevComponents.DotNetBar.ButtonItem
        Me.BtnStudentHostel = New DevComponents.DotNetBar.ButtonItem
        Me.ButtonItem15 = New DevComponents.DotNetBar.ButtonItem
        Me.BtnTeacherInfo = New DevComponents.DotNetBar.ButtonItem
        Me.BtnTeacherDuty = New DevComponents.DotNetBar.ButtonItem
        Me.BtnTeacherPay = New DevComponents.DotNetBar.ButtonItem
        Me.labelItem8 = New DevComponents.DotNetBar.LabelItem
        Me.BtnDepartment = New DevComponents.DotNetBar.ButtonItem
        Me.BtnClass = New DevComponents.DotNetBar.ButtonItem
        Me.BtnSpecialty = New DevComponents.DotNetBar.ButtonItem
        Me.BtnCurricula = New DevComponents.DotNetBar.ButtonItem
        Me.BtnBooks = New DevComponents.DotNetBar.ButtonItem
        Me.ItemContainer5 = New DevComponents.DotNetBar.ItemContainer
        Me.BtnLogout = New DevComponents.DotNetBar.ButtonItem
        Me.BtnExit = New DevComponents.DotNetBar.ButtonItem
        Me.QatCustomizeItem1 = New DevComponents.DotNetBar.QatCustomizeItem
        Me.SkinUI1 = New DotNetSkin.SkinUI
        Me.ButtonItem8 = New DevComponents.DotNetBar.ButtonItem
        Me.ButtonItem9 = New DevComponents.DotNetBar.ButtonItem
        Me.ButtonItem10 = New DevComponents.DotNetBar.ButtonItem
        Me.ButtonItem11 = New DevComponents.DotNetBar.ButtonItem
        Me.ButtonItem14 = New DevComponents.DotNetBar.ButtonItem
        Me.ButtonItem1 = New DevComponents.DotNetBar.ButtonItem
        Me.RibbonTabItem2 = New DevComponents.DotNetBar.RibbonTabItem
        Me.ButtonItem36 = New DevComponents.DotNetBar.ButtonItem
        Me.Panel1.SuspendLayout()
        Me.RibbonControl1.SuspendLayout()
        Me.RibbonPanel1.SuspendLayout()
        Me.RibbonPanel3.SuspendLayout()
        Me.SuspendLayout()
        '
        'Panel1
        '
        Me.Panel1.Controls.Add(Me.RibbonControl1)
        Me.Panel1.Dock = System.Windows.Forms.DockStyle.Top
        Me.Panel1.Location = New System.Drawing.Point(0, 0)
        Me.Panel1.Name = "Panel1"
        Me.Panel1.Size = New System.Drawing.Size(792, 120)
        Me.Panel1.TabIndex = 1
        '
        'RibbonControl1
        '
        Me.RibbonControl1.CaptionVisible = True
        Me.RibbonControl1.Controls.Add(Me.RibbonPanel2)
        Me.RibbonControl1.Controls.Add(Me.RibbonPanel1)
        Me.RibbonControl1.Controls.Add(Me.RibbonPanel3)
        Me.RibbonControl1.Dock = System.Windows.Forms.DockStyle.Top
        Me.RibbonControl1.DockPadding.Bottom = 2
        Me.RibbonControl1.Items.AddRange(New DevComponents.DotNetBar.BaseItem() {Me.RibbonTabItem1, Me.RibbonTabItem3})
        Me.RibbonControl1.KeyTipsFont = New System.Drawing.Font("Tahoma", 7.0!)
        Me.RibbonControl1.Location = New System.Drawing.Point(0, 0)
        Me.RibbonControl1.Name = "RibbonControl1"
        Me.RibbonControl1.QuickToolbarItems.AddRange(New DevComponents.DotNetBar.BaseItem() {Me.Office2007StartButton1, Me.QatCustomizeItem1})
        Me.RibbonControl1.Size = New System.Drawing.Size(792, 120)
        Me.RibbonControl1.Style = DevComponents.DotNetBar.eDotNetBarStyle.Office2007
        Me.RibbonControl1.TabGroupHeight = 14
        Me.RibbonControl1.TabIndex = 0
        Me.RibbonControl1.Text = "RibbonControl1"
        '
        'RibbonPanel2
        '
        Me.RibbonPanel2.ColorSchemeStyle = DevComponents.DotNetBar.eDotNetBarStyle.Office2007
        Me.RibbonPanel2.Dock = System.Windows.Forms.DockStyle.Fill
        Me.RibbonPanel2.DockPadding.Bottom = 3
        Me.RibbonPanel2.DockPadding.Left = 3
        Me.RibbonPanel2.DockPadding.Right = 3
        Me.RibbonPanel2.Location = New System.Drawing.Point(0, 48)
        Me.RibbonPanel2.Name = "RibbonPanel2"
        Me.RibbonPanel2.Size = New System.Drawing.Size(792, 70)
        Me.RibbonPanel2.TabIndex = 2
        '
        'RibbonPanel1
        '
        Me.RibbonPanel1.ColorSchemeStyle = DevComponents.DotNetBar.eDotNetBarStyle.Office2007
        Me.RibbonPanel1.Controls.Add(Me.RibbonBar1)
        Me.RibbonPanel1.Dock = System.Windows.Forms.DockStyle.Fill
        Me.RibbonPanel1.DockPadding.Bottom = 3
        Me.RibbonPanel1.DockPadding.Left = 3
        Me.RibbonPanel1.DockPadding.Right = 3
        Me.RibbonPanel1.Location = New System.Drawing.Point(0, 48)
        Me.RibbonPanel1.Name = "RibbonPanel1"
        Me.RibbonPanel1.Size = New System.Drawing.Size(792, 70)
        Me.RibbonPanel1.TabIndex = 1
        '
        'RibbonBar1
        '
        Me.RibbonBar1.AutoOverflowEnabled = True
        Me.RibbonBar1.Dock = System.Windows.Forms.DockStyle.Fill
        Me.RibbonBar1.Items.AddRange(New DevComponents.DotNetBar.BaseItem() {Me.BtnStudentInfo2, Me.BtnStudentGrade2, Me.BtnTeacherInfo2, Me.BtnTeacherPay2, Me.BtnDepartment2, Me.BtnClass2, Me.BtnSpecialty2, Me.BtnCurricula2, Me.BtnBooks2})
        Me.RibbonBar1.Location = New System.Drawing.Point(3, 0)
        Me.RibbonBar1.Name = "RibbonBar1"
        Me.RibbonBar1.Size = New System.Drawing.Size(786, 67)
        Me.RibbonBar1.Style = DevComponents.DotNetBar.eDotNetBarStyle.Office2007
        Me.RibbonBar1.TabIndex = 0
        Me.RibbonBar1.Text = "常用菜单"
        '
        'BtnStudentInfo2
        '
        Me.BtnStudentInfo2.Image = CType(resources.GetObject("BtnStudentInfo2.Image"), System.Drawing.Image)
        Me.BtnStudentInfo2.ImagePaddingHorizontal = 8
        Me.BtnStudentInfo2.Name = "BtnStudentInfo2"
        Me.BtnStudentInfo2.Text = "学生基本信息管理"
        Me.BtnStudentInfo2.Tooltip = "学生基本信息管理"
        '
        'BtnStudentGrade2
        '
        Me.BtnStudentGrade2.Image = CType(resources.GetObject("BtnStudentGrade2.Image"), System.Drawing.Image)
        Me.BtnStudentGrade2.ImagePaddingHorizontal = 8
        Me.BtnStudentGrade2.Name = "BtnStudentGrade2"
        Me.BtnStudentGrade2.Text = "学生成绩管理"
        Me.BtnStudentGrade2.Tooltip = "学生成绩管理"
        '
        'BtnTeacherInfo2
        '
        Me.BtnTeacherInfo2.Image = CType(resources.GetObject("BtnTeacherInfo2.Image"), System.Drawing.Image)
        Me.BtnTeacherInfo2.ImagePaddingHorizontal = 8
        Me.BtnTeacherInfo2.Name = "BtnTeacherInfo2"
        Me.BtnTeacherInfo2.Text = "教师基本信息管理"
        Me.BtnTeacherInfo2.Tooltip = "教师基本信息管理"
        '
        'BtnTeacherPay2
        '
        Me.BtnTeacherPay2.Image = CType(resources.GetObject("BtnTeacherPay2.Image"), System.Drawing.Image)
        Me.BtnTeacherPay2.ImagePaddingHorizontal = 8
        Me.BtnTeacherPay2.Name = "BtnTeacherPay2"
        Me.BtnTeacherPay2.Text = "教师工资管理"
        Me.BtnTeacherPay2.Tooltip = "教师工资管理"
        '
        'BtnDepartment2
        '
        Me.BtnDepartment2.Image = CType(resources.GetObject("BtnDepartment2.Image"), System.Drawing.Image)
        Me.BtnDepartment2.ImagePaddingHorizontal = 8
        Me.BtnDepartment2.Name = "BtnDepartment2"
        Me.BtnDepartment2.SubItemsExpandWidth = 24
        Me.BtnDepartment2.Text = "系部管理"
        Me.BtnDepartment2.Tooltip = "系部管理"
        '
        'BtnClass2
        '
        Me.BtnClass2.Image = CType(resources.GetObject("BtnClass2.Image"), System.Drawing.Image)
        Me.BtnClass2.ImagePaddingHorizontal = 8
        Me.BtnClass2.Name = "BtnClass2"
        Me.BtnClass2.SubItemsExpandWidth = 24
        Me.BtnClass2.Text = "班级管理"
        Me.BtnClass2.Tooltip = "班级管理"
        '
        'BtnSpecialty2
        '
        Me.BtnSpecialty2.Image = CType(resources.GetObject("BtnSpecialty2.Image"), System.Drawing.Image)
        Me.BtnSpecialty2.ImagePaddingHorizontal = 8
        Me.BtnSpecialty2.Name = "BtnSpecialty2"
        Me.BtnSpecialty2.SubItemsExpandWidth = 24
        Me.BtnSpecialty2.Text = "专业管理"
        Me.BtnSpecialty2.Tooltip = "专业管理"
        '
        'BtnCurricula2
        '
        Me.BtnCurricula2.Image = CType(resources.GetObject("BtnCurricula2.Image"), System.Drawing.Image)
        Me.BtnCurricula2.ImagePaddingHorizontal = 8
        Me.BtnCurricula2.Name = "BtnCurricula2"
        Me.BtnCurricula2.Text = "课程管理"
        Me.BtnCurricula2.Tooltip = "课程管理"
        '
        'BtnBooks2
        '
        Me.BtnBooks2.Image = CType(resources.GetObject("BtnBooks2.Image"), System.Drawing.Image)
        Me.BtnBooks2.ImagePaddingHorizontal = 8
        Me.BtnBooks2.Name = "BtnBooks2"
        Me.BtnBooks2.Text = "教材管理"
        Me.BtnBooks2.Tooltip = "教材管理"
        '
        'RibbonPanel3
        '
        Me.RibbonPanel3.ColorSchemeStyle = DevComponents.DotNetBar.eDotNetBarStyle.Office2007
        Me.RibbonPanel3.Controls.Add(Me.RibbonBar2)
        Me.RibbonPanel3.Dock = System.Windows.Forms.DockStyle.Fill
        Me.RibbonPanel3.DockPadding.Bottom = 3
        Me.RibbonPanel3.DockPadding.Left = 3
        Me.RibbonPanel3.DockPadding.Right = 3
        Me.RibbonPanel3.Location = New System.Drawing.Point(0, 48)
        Me.RibbonPanel3.Name = "RibbonPanel3"
        Me.RibbonPanel3.Size = New System.Drawing.Size(792, 70)
        Me.RibbonPanel3.TabIndex = 3
        Me.RibbonPanel3.Visible = False