frmindex.vb

这是一个经典的学生管理的例程序欢迎使用偶

Public Class frmIndex
    Inherits System.Windows.Forms.Form

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

    Public Sub New()
        MyBase.New()

        '该调用是 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 MainMenu1 As System.Windows.Forms.MainMenu
    Friend WithEvents MenuItem1 As System.Windows.Forms.MenuItem
    Friend WithEvents frmLogout As System.Windows.Forms.MenuItem
    Friend WithEvents MenuItem5 As System.Windows.Forms.MenuItem
    Friend WithEvents mnuInsert As System.Windows.Forms.MenuItem
    Friend WithEvents mnuSearch As System.Windows.Forms.MenuItem
    Friend WithEvents MenuItem8 As System.Windows.Forms.MenuItem
    Friend WithEvents mnuHelp As System.Windows.Forms.MenuItem
    Friend WithEvents MenuItem2 As System.Windows.Forms.MenuItem
    Friend WithEvents mnuLogin As System.Windows.Forms.MenuItem
    Friend WithEvents ImageList1 As System.Windows.Forms.ImageList
    Friend WithEvents tbrShortcuts As System.Windows.Forms.ToolBar
    Friend WithEvents tbrbtnLogin As System.Windows.Forms.ToolBarButton
    Friend WithEvents tbrbtnAdd As System.Windows.Forms.ToolBarButton
    Friend WithEvents tbrSearch As System.Windows.Forms.ToolBarButton
    Friend WithEvents ToolBarButton2 As System.Windows.Forms.ToolBarButton
    <System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()
        Me.components = New System.ComponentModel.Container
        Dim resources As System.Resources.ResourceManager = New System.Resources.ResourceManager(GetType(frmIndex))
        Me.MainMenu1 = New System.Windows.Forms.MainMenu
        Me.MenuItem1 = New System.Windows.Forms.MenuItem
        Me.mnuLogin = New System.Windows.Forms.MenuItem
        Me.MenuItem2 = New System.Windows.Forms.MenuItem
        Me.frmLogout = New System.Windows.Forms.MenuItem
        Me.MenuItem5 = New System.Windows.Forms.MenuItem
        Me.mnuInsert = New System.Windows.Forms.MenuItem
        Me.mnuSearch = New System.Windows.Forms.MenuItem
        Me.MenuItem8 = New System.Windows.Forms.MenuItem
        Me.mnuHelp = New System.Windows.Forms.MenuItem
        Me.ImageList1 = New System.Windows.Forms.ImageList(Me.components)
        Me.tbrShortcuts = New System.Windows.Forms.ToolBar
        Me.tbrbtnLogin = New System.Windows.Forms.ToolBarButton
        Me.ToolBarButton2 = New System.Windows.Forms.ToolBarButton
        Me.tbrbtnAdd = New System.Windows.Forms.ToolBarButton
        Me.tbrSearch = New System.Windows.Forms.ToolBarButton
        Me.SuspendLayout()
        '
        'MainMenu1
        '
        Me.MainMenu1.MenuItems.AddRange(New System.Windows.Forms.MenuItem() {Me.MenuItem1, Me.MenuItem5, Me.MenuItem8})
        '
        'MenuItem1
        '
        Me.MenuItem1.Index = 0
        Me.MenuItem1.MenuItems.AddRange(New System.Windows.Forms.MenuItem() {Me.mnuLogin, Me.MenuItem2, Me.frmLogout})
        Me.MenuItem1.Text = "用户操作"
        '
        'mnuLogin
        '
        Me.mnuLogin.Index = 0
        Me.mnuLogin.Text = "登录"
        '
        'MenuItem2
        '
        Me.MenuItem2.Index = 1
        Me.MenuItem2.Text = "-"
        '
        'frmLogout
        '
        Me.frmLogout.Index = 2
        Me.frmLogout.Text = "退出"
        '
        'MenuItem5
        '
        Me.MenuItem5.Index = 1
        Me.MenuItem5.MenuItems.AddRange(New System.Windows.Forms.MenuItem() {Me.mnuInsert, Me.mnuSearch})
        Me.MenuItem5.Text = "成绩管理"
        '
        'mnuInsert
        '
        Me.mnuInsert.Enabled = False
        Me.mnuInsert.Index = 0
        Me.mnuInsert.Text = "成绩录入"
        '
        'mnuSearch
        '
        Me.mnuSearch.Enabled = False
        Me.mnuSearch.Index = 1
        Me.mnuSearch.Text = "成绩查询"
        '
        'MenuItem8
        '
        Me.MenuItem8.Index = 2
        Me.MenuItem8.MenuItems.AddRange(New System.Windows.Forms.MenuItem() {Me.mnuHelp})
        Me.MenuItem8.Text = "帮助(&H)"
        '
        'mnuHelp
        '
        Me.mnuHelp.Index = 0
        Me.mnuHelp.Text = "关于""学生成绩管理"""
        '
        'ImageList1
        '
        Me.ImageList1.ImageSize = New System.Drawing.Size(16, 16)
        Me.ImageList1.ImageStream = CType(resources.GetObject("ImageList1.ImageStream"), System.Windows.Forms.ImageListStreamer)
        Me.ImageList1.TransparentColor = System.Drawing.Color.Transparent
        '
        'tbrShortcuts
        '
        Me.tbrShortcuts.Buttons.AddRange(New System.Windows.Forms.ToolBarButton() {Me.tbrbtnLogin, Me.ToolBarButton2, Me.tbrbtnAdd, Me.tbrSearch})
        Me.tbrShortcuts.DropDownArrows = True
        Me.tbrShortcuts.ImageList = Me.ImageList1
        Me.tbrShortcuts.Location = New System.Drawing.Point(0, 0)
        Me.tbrShortcuts.Name = "tbrShortcuts"
        Me.tbrShortcuts.ShowToolTips = True
        Me.tbrShortcuts.Size = New System.Drawing.Size(416, 28)
        Me.tbrShortcuts.TabIndex = 1
        '
        'tbrbtnLogin
        '
        Me.tbrbtnLogin.ImageIndex = 0
        Me.tbrbtnLogin.ToolTipText = "登录"
        '
        'ToolBarButton2
        '
        Me.ToolBarButton2.Style = System.Windows.Forms.ToolBarButtonStyle.Separator
        '
        'tbrbtnAdd
        '
        Me.tbrbtnAdd.Enabled = False
        Me.tbrbtnAdd.ImageIndex = 1
        Me.tbrbtnAdd.ToolTipText = "录入成绩"
        '
        'tbrSearch
        '
        Me.tbrSearch.Enabled = False
        Me.tbrSearch.ImageIndex = 2
        Me.tbrSearch.ToolTipText = "查询成绩"
        '
        'frmIndex
        '
        Me.AutoScaleBaseSize = New System.Drawing.Size(6, 14)
        Me.ClientSize = New System.Drawing.Size(416, 369)
        Me.Controls.Add(Me.tbrShortcuts)
        Me.IsMdiContainer = True
        Me.Menu = Me.MainMenu1
        Me.Name = "frmIndex"
        Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen
        Me.Text = "frmIndex"
        Me.ResumeLayout(False)

    End Sub

#End Region

    Private Sub mnuLogin_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
        Dim frmTemp As New frmLogin
        frmTemp.MdiParent = Me
        frmTemp.Show()
    End Sub

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

    Private Sub mnuInsert_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles mnuInsert.Click
        Dim frmTemp As New frmAddMarks
        frmTemp.MdiParent = Me
        frmTemp.Show()
    End Sub

    Private Sub mnuSearch_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles mnuSearch.Click
        Dim frmTemp As New frmSearchMarks
        frmTemp.MdiParent = Me
        frmTemp.Show()
    End Sub

    '对话框
    Private Sub mnuHelp_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles mnuHelp.Click
        Dim frmTemp As New frmAbout
        Dim dlgAbout As DialogResult
        dlgAbout = frmTemp.ShowDialog
    End Sub

    Private Sub frmIndex_Closing(ByVal sender As Object, ByVal e As System.ComponentModel.CancelEventArgs) Handles MyBase.Closing
        If MessageBox.Show("您真的要退出学生成绩管理系统吗？", "提示", MessageBoxButtons.YesNo, MessageBoxIcon.Question) _
        = MsgBoxResult.Yes Then
            'Application.Exit()
            End
        Else
            e.Cancel = True
        End If
    End Sub

    Private Sub mnuLogin_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles mnuLogin.Click
        Dim frmTemp As New frmLogin
        frmTemp.MdiParent = Me
        frmTemp.Show()
    End Sub

    '定义工具栏各按钮功能
    '注意，Case 1为一个分界符，故不需起作用
    Private Sub tbrShortcuts_ButtonClick(ByVal sender As System.Object, ByVal e As System.Windows.Forms.ToolBarButtonClickEventArgs) Handles tbrShortcuts.ButtonClick
        Select Case tbrShortcuts.Buttons.IndexOf(e.Button)
            Case 0
                Call mnuLogin_Click(sender, e)
            Case 2
                Call mnuInsert_Click(sender, e)
            Case 3
                Call mnuSearch_Click(sender, e)
        End Select

    End Sub

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

    End Sub
End Class