frmmain.vb

师生情况管理系统

        Me.SkinUI1.TabControl = True
        Me.SkinUI1.Text = "Mycontrol1=edit" & Microsoft.VisualBasic.ChrW(13) & Microsoft.VisualBasic.ChrW(10) & "Mycontrol2=edit" & Microsoft.VisualBasic.ChrW(13) & Microsoft.VisualBasic.ChrW(10)
        Me.SkinUI1.ToolBar = True
        Me.SkinUI1.TrackBar = True
        '
        'ButtonItem8
        '
        Me.ButtonItem8.ButtonStyle = DevComponents.DotNetBar.eButtonStyle.ImageAndText
        Me.ButtonItem8.Image = CType(resources.GetObject("ButtonItem8.Image"), System.Drawing.Image)
        Me.ButtonItem8.ImagePaddingHorizontal = 8
        Me.ButtonItem8.Name = "ButtonItem8"
        Me.ButtonItem8.SubItemsExpandWidth = 24
        Me.ButtonItem8.Text = "&New"
        '
        'ButtonItem9
        '
        Me.ButtonItem9.ButtonStyle = DevComponents.DotNetBar.eButtonStyle.ImageAndText
        Me.ButtonItem9.Image = CType(resources.GetObject("ButtonItem9.Image"), System.Drawing.Image)
        Me.ButtonItem9.ImagePaddingHorizontal = 8
        Me.ButtonItem9.Name = "ButtonItem9"
        Me.ButtonItem9.SubItemsExpandWidth = 24
        Me.ButtonItem9.Text = "&New"
        '
        'ButtonItem10
        '
        Me.ButtonItem10.ButtonStyle = DevComponents.DotNetBar.eButtonStyle.ImageAndText
        Me.ButtonItem10.Image = CType(resources.GetObject("ButtonItem10.Image"), System.Drawing.Image)
        Me.ButtonItem10.ImagePaddingHorizontal = 8
        Me.ButtonItem10.Name = "ButtonItem10"
        Me.ButtonItem10.SubItemsExpandWidth = 24
        Me.ButtonItem10.Text = "&Print..."
        '
        'ButtonItem11
        '
        Me.ButtonItem11.ButtonStyle = DevComponents.DotNetBar.eButtonStyle.ImageAndText
        Me.ButtonItem11.Image = CType(resources.GetObject("ButtonItem11.Image"), System.Drawing.Image)
        Me.ButtonItem11.ImagePaddingHorizontal = 8
        Me.ButtonItem11.Name = "ButtonItem11"
        Me.ButtonItem11.SubItemsExpandWidth = 24
        Me.ButtonItem11.Text = "&Print..."
        '
        'ButtonItem14
        '
        Me.ButtonItem14.ButtonStyle = DevComponents.DotNetBar.eButtonStyle.ImageAndText
        Me.ButtonItem14.Image = CType(resources.GetObject("ButtonItem14.Image"), System.Drawing.Image)
        Me.ButtonItem14.ImagePaddingHorizontal = 8
        Me.ButtonItem14.Name = "ButtonItem14"
        Me.ButtonItem14.SubItemsExpandWidth = 24
        Me.ButtonItem14.Text = "&Print..."
        '
        'ButtonItem1
        '
        Me.ButtonItem1.ImagePaddingHorizontal = 8
        Me.ButtonItem1.Name = "ButtonItem1"
        Me.ButtonItem1.Text = "ButtonItem1"
        '
        'RibbonTabItem2
        '
        Me.RibbonTabItem2.Checked = True
        Me.RibbonTabItem2.ImagePaddingHorizontal = 8
        Me.RibbonTabItem2.Name = "RibbonTabItem2"
        Me.RibbonTabItem2.Panel = Me.RibbonPanel2
        Me.RibbonTabItem2.Text = "RibbonTabItem2"
        '
        'ButtonItem36
        '
        Me.ButtonItem36.Image = CType(resources.GetObject("ButtonItem36.Image"), System.Drawing.Image)
        Me.ButtonItem36.ImagePaddingHorizontal = 8
        Me.ButtonItem36.Name = "ButtonItem36"
        Me.ButtonItem36.SubItemsExpandWidth = 24
        Me.ButtonItem36.Text = "教材管理"
        '
        'FrmMain
        '
        Me.AutoScaleBaseSize = New System.Drawing.Size(6, 14)
        Me.BackColor = System.Drawing.SystemColors.ActiveBorder
        Me.BackgroundImage = CType(resources.GetObject("$this.BackgroundImage"), System.Drawing.Image)
        Me.ClientSize = New System.Drawing.Size(792, 573)
        Me.Controls.Add(Me.Panel1)
        Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.FixedSingle
        Me.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon)
        Me.IsMdiContainer = True
        Me.Name = "FrmMain"
        Me.Text = "学校基本情况管理系统"
        Me.Panel1.ResumeLayout(False)
        Me.RibbonControl1.ResumeLayout(False)
        Me.RibbonPanel1.ResumeLayout(False)
        Me.RibbonPanel3.ResumeLayout(False)
        Me.ResumeLayout(False)

    End Sub

#End Region

    Public Shared Sub Main()
        '程序入口
        '显示登陆对话框
        Dim loginFrm As FrmLogin = New FrmLogin
        loginFrm.ShowDialog()
        '合法用户进入系统
        If loginFrm.Login_on = True Then
            Dim ClsPlayMusic As New ClassPlayMusic
            Dim PlayMusicThread As Threading.Thread
            PlayMusicThread = New Threading.Thread(New Threading.ThreadStart(AddressOf ClsPlayMusic.PlayMusic))
            PlayMusicThread.Start()

            Dim FrmMain As FrmMain = New FrmMain(loginFrm.LoginUserName, loginFrm.LoginUserRole, loginFrm.LoginPassWord)
            Try
                Application.Run(FrmMain)

            Catch ex As Exception
                MsgBox(ex.Message)
            End Try
        End If
        'Application.Run(New frmMain)
    End Sub

    Public Shared DBCONN As New ClassDataConn   '连接字符串
    Public Shared MyClassUser As ClassUser  '登录用户信息

    Private Function GetFormState(ByVal name As String) As Boolean
        '获得frmMain窗体的子窗体的数量
        Dim Fcount As Integer = Me.MdiChildren.Length
        '循环判断是否有名为name的子窗体实例
        For i As Integer = 0 To Fcount - 1
            If Me.MdiChildren(i).Name = name Then
                '存在名为name的子窗体，是子窗体获得焦点并返回True
                Me.MdiChildren(i).Focus()
                Return True
            End If
        Next
        '不存在名为Name的子窗体False
        Return False
    End Function

    Private Sub RoleSet()
        If MyClassUser.LoginUserRole = "Ordinarily" Then
            BtnUserManage.Enabled = False
            BtnCurricula.Enabled = False
            BtnCurricula2.Enabled = False
            BtnBooks.Enabled = False
            BtnBooks2.Enabled = False
        End If
    End Sub

    '==================主功能菜单部分==============================
    Private Sub BtnLockUp_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnLockUp.Click
        Dim FrmLockUp As New FrmLockUp(MyClassUser.PassWord)
        Me.Opacity = 0.3
        FrmLockUp.ShowDialog()
        Me.Opacity = 1
    End Sub

    Private Sub BtnClose_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnClose.Click
        '获得frmMain窗体的子窗体的数量
        Dim Fcount As Integer = Me.MdiChildren.Length
        '循环判断当前具有焦点的窗体
        For i As Integer = 0 To Fcount - 1
            If Me.MdiChildren(i).Focus Then
                Me.MdiChildren(i).Close()
                Exit Sub
            End If
        Next
    End Sub

    Private Sub BtnCloseAll_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnCloseAll.Click
        '循环关闭所有已打开的字窗体
        While (Me.MdiChildren.Length - 1) >= 0
            Me.MdiChildren(0).Close()
        End While
    End Sub

    Private Sub BtnUserManage_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnUserManage.Click
        If GetFormState("FrmUserManage") Then
            Exit Sub
        End If
        Dim ChildFrm As New FrmUserManage
        ChildFrm.MdiParent = Me
        ChildFrm.Show()
    End Sub

    Private Sub BtnSystemSet_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnSystemSet.Click
        MsgBox("暂不开放")
    End Sub

    Private Sub BtnLogout_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnLogout.Click

    End Sub

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



    '==================学生部分==============================
    Private Sub BtnStudentInfo_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnStudentInfo.Click, BtnStudentInfo2.Click
        If GetFormState("FrmStuInfoManager") Then
            Exit Sub
        End If
        Dim ChildFrm As New FrmStuInfoManager
        ChildFrm.MdiParent = Me
        ChildFrm.Show()
    End Sub

    Private Sub BtnStudentDuty_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnStudentDuty.Click
        If GetFormState("FrmStuDuty") Then
            Exit Sub
        End If
        Dim ChildFrm As New FrmStuDuty
        ChildFrm.MdiParent = Me
        ChildFrm.Show()
    End Sub

    Private Sub BtnStudentGrade_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnStudentGrade.Click, BtnStudentGrade2.Click
        If GetFormState("FrmStuScore") Then
            Exit Sub
        End If
        Dim ChildFrm As New FrmStuScore
        ChildFrm.MdiParent = Me
        ChildFrm.Show()
    End Sub

    Private Sub BtnStudentHostel_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnStudentHostel.Click
        If GetFormState("FrmStuSleep") Then
            Exit Sub
        End If
        Dim ChildFrm As New FrmStuSleep
        ChildFrm.MdiParent = Me
        ChildFrm.Show()
    End Sub


    '======================教师部分==========================
    Private Sub BtnTeacherInfo_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnTeacherInfo.Click, BtnTeacherInfo2.Click
        If GetFormState("FrmTeacherInfo") Then
            Exit Sub
        End If
        Dim ChildFrm As New FrmTeacherInfo
        ChildFrm.MdiParent = Me
        ChildFrm.Show()
    End Sub

    Private Sub BtnTeacherDuty_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnTeacherDuty.Click
        If GetFormState("FrmDuty") Then
            Exit Sub
        End If
        Dim ChildFrm As New FrmDuty(False, "select TDID 职务编号,TDname 职务名称 from TDuty")
        ChildFrm.MdiParent = Me
        ChildFrm.Show()
    End Sub

    Private Sub BtnTeacherPay_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnTeacherPay.Click, BtnTeacherPay2.Click
        If GetFormState("FrmTeacherPay") Then
            Exit Sub
        End If
        Dim ChildFrm As New FrmTeacherPay
        ChildFrm.MdiParent = Me
        ChildFrm.Show()
    End Sub


    '====================学校部分============================
    Private Sub BtnDepartment_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnDepartment.Click, BtnDepartment2.Click
        If GetFormState("FrmDepartment") Then
            Exit Sub
        End If
        Dim ChildFrm As New FrmDepartment(False)
        ChildFrm.MdiParent = Me
        ChildFrm.Show()
    End Sub

    Private Sub BtnClass_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnClass.Click, BtnClass2.Click
        If GetFormState("FrmClass") Then
            Exit Sub
        End If
        Dim ChildFrm As New FrmClass
        ChildFrm.MdiParent = Me
        ChildFrm.Show()
    End Sub

    Private Sub BtnSpecialty_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnSpecialty.Click, BtnSpecialty2.Click
        If GetFormState("FrmContent") Then
            Exit Sub
        End If
        Dim ChildFrm As New FrmContent
        ChildFrm.MdiParent = Me
        ChildFrm.Show()
    End Sub

    Private Sub BtnCurricula_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnCurricula.Click, BtnCurricula2.Click
        If GetFormState("FrmClassCourse") Then
            Exit Sub
        End If
        Dim ChildFrm As New FrmClassCourse
        ChildFrm.MdiParent = Me
        ChildFrm.Show()
    End Sub

    Private Sub BtnBooks_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnBooks.Click, BtnBooks2.Click
        If GetFormState("FrmBook") Then
            Exit Sub
        End If
        Dim ChildFrm As New FrmBook
        ChildFrm.MdiParent = Me
        ChildFrm.Show()
    End Sub

    Private Sub FrmMain_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        RoleSet()
    End Sub

    Private Sub FrmMain_Closing(ByVal sender As Object, ByVal e As System.ComponentModel.CancelEventArgs) Handles MyBase.Closing
        Me.Dispose()
    End Sub
End Class