mainwin.vb

强大的教务考勤系统数据库

        'MenuItem4
        '
        Me.MenuItem4.Index = 4
        Me.MenuItem4.MenuItems.AddRange(New System.Windows.Forms.MenuItem() {Me.MenuItem6})
        Me.MenuItem4.Text = "帮助(&H)"
        '
        'MenuItem6
        '
        Me.MenuItem6.Index = 0
        Me.MenuItem6.Text = "关于(&A)"
        '
        'MainWin
        '
        Me.AutoScaleBaseSize = New System.Drawing.Size(6, 14)
        Me.ClientSize = New System.Drawing.Size(792, 573)
        Me.IsMdiContainer = True
        Me.Menu = Me.MainMenu1
        Me.Name = "MainWin"
        Me.Text = "教务处考勤查询与管理系统"
        Me.WindowState = System.Windows.Forms.FormWindowState.Maximized

    End Sub

#End Region

    Private Sub MenuExit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuExit.Click
        End
    End Sub

    Private Sub MenuChangePw_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuChangePw.Click
        Dim ps As New ChaPasswd
        ps.MdiParent = Me
        ps.StartPosition = FormStartPosition.CenterParent
        ps.Show()
    End Sub

    Private Sub MenuIStu_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuIStu.Click
        Dim ps As New Win
        ps.MdiParent = Me
        ps.Text = "查询学生出勤情况"
        ps.gbInquire.Enabled = True
        ps.gbInquire.Visible = True
        ps.StartPosition = FormStartPosition.CenterParent
        ps.Show()
    End Sub

    Private Sub MenuITea_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuITea.Click
        Dim ps As New Win
        ps.MdiParent = Me
        ps.Text = "查询教师出勤情况"
        ps.gbInquire.Enabled = True
        ps.gbInquire.Visible = True
        ps.StartPosition = FormStartPosition.CenterParent
        ps.Show()
    End Sub

    Private Sub MenuDLes_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuDLes.Click
        Dim ps As New Win
        ps.MdiParent = Me
        ps.Text = "删除课程"
        ps.gbLesson.Enabled = True
        ps.gbLesson.Visible = True
        ps.buttonDelete.Enabled = True
        ps.buttonDelete.Visible = True
        ps.buttonDelAll.Enabled = True
        ps.buttonDelAll.Visible = True
        ps.StartPosition = FormStartPosition.CenterParent
        ps.Show()
    End Sub

    Private Sub MenuCLes_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuCLes.Click
        Dim ps As New Win
        ps.MdiParent = Me
        ps.Text = "修改课程"
        ps.gbLesson.Enabled = True
        ps.gbLesson.Visible = True
        ps.buttonChange.Enabled = True
        ps.buttonChange.Visible = True
        ps.StartPosition = FormStartPosition.CenterParent
        ps.Show()
    End Sub

    Private Sub MenuCTea_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuCTea.Click
        Dim ps As New Win
        ps.MdiParent = Me
        ps.Text = "修改教师"
        ps.gbTeacher.Enabled = True
        ps.gbTeacher.Visible = True
        ps.buttonChange.Enabled = True
        ps.buttonChange.Visible = True
        ps.StartPosition = FormStartPosition.CenterParent
        ps.Show()
    End Sub

    Private Sub MenuDTea_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuDTea.Click
        Dim ps As New Win
        ps.MdiParent = Me
        ps.Text = "删除教师"
        ps.gbTeacher.Enabled = True
        ps.gbTeacher.Visible = True
        ps.buttonDelete.Enabled = True
        ps.buttonDelete.Visible = True
        ps.buttonDelAll.Enabled = True
        ps.buttonDelAll.Visible = True
        ps.StartPosition = FormStartPosition.CenterParent
        ps.Show()
    End Sub

    Private Sub MenuDStu_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuDStu.Click
        Dim ps As New Win
        ps.MdiParent = Me
        ps.Text = "删除学生"
        ps.gbStu.Enabled = True
        ps.gbStu.Visible = True
        ps.buttonDelete.Enabled = True
        ps.buttonDelete.Visible = True
        ps.buttonDelAll.Enabled = True
        ps.buttonDelAll.Visible = True
        ps.StartPosition = FormStartPosition.CenterParent
        ps.Show()
    End Sub

    Private Sub MenuCStu_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuCStu.Click
        Dim ps As New Win
        ps.MdiParent = Me
        ps.Text = "修改学生"
        ps.gbStu.Enabled = True
        ps.gbStu.Visible = True
        ps.buttonChange.Enabled = True
        ps.buttonChange.Visible = True
        ps.StartPosition = FormStartPosition.CenterParent
        ps.Show()
    End Sub

    Private Sub MenuALes_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuALes.Click
        Dim ps As New AddWin
        ps.MdiParent = Me
        ps.Text = "添加课程"
        ps.gbLes.Enabled = True
        ps.gbLes.Visible = True
        ps.StartPosition = FormStartPosition.CenterParent
        ps.Show()
    End Sub

    Private Sub MenuATea_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuATea.Click
        Dim ps As New AddWin
        ps.MdiParent = Me
        ps.Text = "添加教师"
        ps.gbTea.Enabled = True
        ps.gbTea.Visible = True
        ps.StartPosition = FormStartPosition.CenterParent
        ps.Show()
    End Sub

    Private Sub MenuAStu_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuAStu.Click
        Dim ps As New AddWin
        ps.MdiParent = Me
        ps.Text = "添加学生"
        ps.gbStu.Enabled = True
        ps.gbStu.Visible = True
        ps.StartPosition = FormStartPosition.CenterParent
        ps.Show()
    End Sub

    Private Sub MainWin_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Select Case operiden
            Case "admin"
                Me.Text = Me.Text + "    欢迎光临，管理员"
                MenuOper.Enabled = True
                MenuOper.Visible = True
                MenuInquire.Enabled = True
                MenuInquire.Visible = True
                MenuChangePw.Enabled = True
                MenuChangePw.Visible = True
            Case "teacher"
                Me.Text = Me.Text + "    欢迎光临，" + opername
                MenuInquire.Enabled = True
                MenuInquire.Visible = True
                MenuChangePw.Enabled = True
                MenuChangePw.Visible = True
            Case "student"
                Me.Text = Me.Text + "    欢迎光临，" + opername
                MenuInquire.Enabled = True
                MenuInquire.Visible = True
                MenuITea.Enabled = False
                MenuITea.Visible = False
                MenuILes.Enabled = False
                MenuILes.Visible = False
                MenuChangePw.Enabled = True
                MenuChangePw.Visible = True
        End Select
    End Sub

    Private Sub MenuILes_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuILes.Click
        Dim ps As New Win
        ps.MdiParent = Me
        ps.Text = "查询课程出勤情况"
        ps.gbInquire.Enabled = True
        ps.gbInquire.Visible = True
        ps.StartPosition = FormStartPosition.CenterParent
        ps.Show()
    End Sub

    Private Sub MenuItem6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem6.Click
        Dim frm As New frmAbout
        frm.ShowDialog()
        frm.Dispose()
    End Sub
End Class