admin.vb

数据库学习的绝好例子简单的数据库经典入门

Imports System.Data

Public Class Admin
#Region " Variable Declarations "
    'Private variables and objects
    Private blnLoading As Boolean

    Private intIndex As Integer
    Private intRowsAffected As Integer

    Private strActiveScreen As String = "Projects"
    Private strAppTitle As String
    Private strCompany As String = "Wrox"
    Private strApplication As String = "Time Tracker SQL"

    Private objGroups As WroxBusinessLogic.WBLGroups
    Private objProjects As WroxBusinessLogic.WBLProjects
    Private objRoles As WroxBusinessLogic.WBLRoles
    Private objUsers As WroxBusinessLogic.WBLUsers

    Private objDataSet As Data.DataSet
    Private objGroupsDS As DataSet
    Private objProjectsDS As DataSet
    Private objGroupProjectsDS As DataSet
    Private objRolesDS As Data.DataSet
    Private objUsersDS As Data.DataSet
    Private objManagersDS As Data.DataSet

    Private imgCurrentNavImage As Image

    Private Const ImageSelected As Integer = 0
    Private Const ImageUnselected As Integer = 1
    Private Const ImageHighlighted As Integer = 2
#End Region

#Region " Navigation Procedures "
    Private Sub DockPanel(ByRef objPanel As Panel)
        'Set the Dock property to Fill
        '(this will cause the location to change to 0,0)
        objPanel.Dock = DockStyle.Fill
        'Set the navigation panel information
        optOption1.Visible = True
        optOption2.Visible = True
        optOption3.Visible = True
        optOption4.Visible = True
        Select Case objPanel.Name
            Case "pnlProjects"
                strActiveScreen = "Projects"
                lblCurrentScreen.Text = "Projects"
                lblAllScreens.Text = "All " & "Projects"
                imgScreen.Image = imgProjects.Image
                lblScreen.Text = "Projects"
                optOption1.Text = "Name"
                optOption2.Text = "Description"
                optOption3.Text = "Sequence Number"
                optOption3.Checked = True
                optOption4.Text = "Date"
            Case "pnlGroups"
                strActiveScreen = "Groups"
                lblCurrentScreen.Text = "Groups"
                lblAllScreens.Text = "All " & "Groups"
                imgScreen.Image = imgGroups.Image
                lblScreen.Text = "Groups"
                optOption1.Text = "Name"
                optOption1.Checked = True
                optOption2.Text = "Description"
                optOption3.Text = "Date"
                optOption4.Visible = False
            Case "pnlGroupProjects"
                strActiveScreen = "Group Projects"
                lblCurrentScreen.Text = "Group Projects"
                lblAllScreens.Text = "All " & "Group Projects"
                imgScreen.Image = imgGroupProjects.Image
                lblScreen.Text = "Group Projects"
                optOption1.Visible = False
                optOption2.Visible = False
                optOption3.Visible = False
                optOption4.Visible = False
            Case "pnlRoles"
                strActiveScreen = "Roles"
                lblCurrentScreen.Text = "Roles"
                lblAllScreens.Text = "All " & "Roles"
                imgScreen.Image = imgRoles.Image
                lblScreen.Text = "Roles"
                optOption1.Text = "Name"
                optOption2.Text = "Description"
                optOption3.Text = "Ranking"
                optOption3.Checked = True
                optOption4.Text = "Date"
            Case "pnlUsers"
                strActiveScreen = "Users"
                lblCurrentScreen.Text = "Users"
                lblAllScreens.Text = "All " & "Users"
                imgScreen.Image = imgUsers.Image
                lblScreen.Text = "Users"
                optOption1.Text = "Login"
                optOption2.Text = "Name"
                optOption2.Checked = True
                optOption3.Text = "Email"
                optOption4.Text = "Status"
        End Select
    End Sub

    Private Sub UnDockPanel(ByRef objPanel As Panel, _
        ByRef objNavControl As Control)

        'Undock the Panel
        objPanel.Dock = DockStyle.None
        'Move it out of the way
        objPanel.Location = New Point(5000, 5000)
        'Set the image to be unselected
        objNavControl.BackgroundImage = imlNavigation.Images(ImageUnselected)
    End Sub

    Private Sub Navigate(ByVal Shortcut As String)
        'Process each control in the pnlNavigationBackground Control collection
        For Each objControl As Control In pnlNavigationBackground.Controls
            'If the type of control is a Panel then process it
            If TypeOf objControl Is Panel Then
                Select Case objControl.Name
                    Case "pnlNavProjects"
                        'If this is the shortcut chosen...
                        If Shortcut = "pnlNavProjects" Then
                            Call DockPanel(pnlProjects)
                        Else
                            Call UnDockPanel(pnlProjects, objControl)
                        End If
                    Case "pnlNavGroups"
                        'If this is the shortcut chosen...
                        If Shortcut = "pnlNavGroups" Then
                            Call DockPanel(pnlGroups)
                        Else
                            Call UnDockPanel(pnlGroups, objControl)
                        End If
                    Case "pnlNavGroupProjects"
                        'If this is the shortcut chosen...
                        If Shortcut = "pnlNavGroupProjects" Then
                            Call DockPanel(pnlGroupProjects)
                        Else
                            Call UnDockPanel(pnlGroupProjects, objControl)
                        End If
                    Case "pnlNavRoles"
                        'If this is the shortcut chosen...
                        If Shortcut = "pnlNavRoles" Then
                            Call DockPanel(pnlRoles)
                        Else
                            Call UnDockPanel(pnlRoles, objControl)
                        End If
                    Case "pnlNavUsers"
                        'If this is the shortcut chosen...
                        If Shortcut = "pnlNavUsers" Then
                            Call DockPanel(pnlUsers)
                        Else
                            Call UnDockPanel(pnlUsers, objControl)
                        End If
                End Select
            End If
        Next
    End Sub

    Private Sub NavigationPanel_MouseEnter(ByVal sender As Object, _
        ByVal e As System.EventArgs)

        imgCurrentNavImage = sender.backgroundimage
        sender.backgroundimage = imlNavigation.Images(ImageHighlighted)
        sender.Cursor = Cursors.Hand
    End Sub

    Private Sub NavigationPanel_MouseLeave(ByVal sender As Object, _
        ByVal e As System.EventArgs)

        sender.backgroundimage = imgCurrentNavImage
        sender.Cursor = Cursors.Default
    End Sub

    Private Sub NavigationPanel_MouseUp(ByVal sender As Object, _
        ByVal e As System.Windows.Forms.MouseEventArgs)

        imgCurrentNavImage = imlNavigation.Images(ImageSelected)
        Call Navigate(sender.name)
    End Sub

    Private Sub NavigationChildControl_MouseEnter( _
        ByVal sender As Object, ByVal e As System.EventArgs)

        NavigationPanel_MouseEnter(sender.Parent, e)
    End Sub

    Private Sub NavigationChildControl_MouseLeave( _
        ByVal sender As Object, ByVal e As System.EventArgs)

        NavigationPanel_MouseLeave(sender.Parent, e)
    End Sub

    Private Sub NavigationChildControl_MouseUp( _
        ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs)

        NavigationPanel_MouseUp(sender.parent, e)
    End Sub

    Private Sub pnlGrabbar_Resize(ByVal sender As Object, _
        ByVal e As System.EventArgs) Handles pnlGrabbar.Resize

        'Recenter PictureBox control
        imgGrabbarHandle.Location = New Point( _
            (pnlGrabbar.Size.Width - imgGrabbarHandle.Size.Width) \ 2, _
            (pnlGrabbar.Size.Height - imgGrabbarHandle.Size.Height) \ 2)
    End Sub
#End Region

#Region " Load Procedures "
    Private Sub Admin_Load(ByVal sender As Object, _
        ByVal e As System.EventArgs) Handles MyBase.Load

        'Add handlers for shortcut Panel controls MouseEnter event
        AddHandler pnlNavProjects.MouseEnter, AddressOf NavigationPanel_MouseEnter
        AddHandler pnlNavGroups.MouseEnter, AddressOf NavigationPanel_MouseEnter
        AddHandler pnlNavGroupProjects.MouseEnter, _
            AddressOf NavigationPanel_MouseEnter
        AddHandler pnlNavRoles.MouseEnter, AddressOf NavigationPanel_MouseEnter
        AddHandler pnlNavUsers.MouseEnter, AddressOf NavigationPanel_MouseEnter

        'Add handlers for shortcut Panel controls MouseLeave event
        AddHandler pnlNavProjects.MouseLeave, AddressOf NavigationPanel_MouseLeave
        AddHandler pnlNavGroups.MouseLeave, AddressOf NavigationPanel_MouseLeave
        AddHandler pnlNavGroupProjects.MouseLeave, _
            AddressOf NavigationPanel_MouseLeave
        AddHandler pnlNavRoles.MouseLeave, AddressOf NavigationPanel_MouseLeave
        AddHandler pnlNavUsers.MouseLeave, AddressOf NavigationPanel_MouseLeave

        'Add handlers for shortcut Panel controls MouseUp event
        AddHandler pnlNavProjects.MouseUp, AddressOf NavigationPanel_MouseUp
        AddHandler pnlNavGroups.MouseUp, AddressOf NavigationPanel_MouseUp
        AddHandler pnlNavGroupProjects.MouseUp, AddressOf NavigationPanel_MouseUp
        AddHandler pnlNavRoles.MouseUp, AddressOf NavigationPanel_MouseUp
        AddHandler pnlNavUsers.MouseUp, AddressOf NavigationPanel_MouseUp

        'Add handlers for shortcut Label controls MouseEnter event
        AddHandler lblProjects.MouseEnter, _
            AddressOf NavigationChildControl_MouseEnter
        AddHandler lblGroups.MouseEnter, _
            AddressOf NavigationChildControl_MouseEnter
        AddHandler lblGroupProjects.MouseEnter, _
            AddressOf NavigationChildControl_MouseEnter
        AddHandler lblRoles.MouseEnter, AddressOf NavigationChildControl_MouseEnter
        AddHandler lblUsers.MouseEnter, AddressOf NavigationChildControl_MouseEnter

        'Add handlers for shortcut Label controls MouseLeave event
        AddHandler lblProjects.MouseLeave, _
            AddressOf NavigationChildControl_MouseLeave
        AddHandler lblGroups.MouseLeave, _
            AddressOf NavigationChildControl_MouseLeave
        AddHandler lblGroupProjects.MouseLeave, _
            AddressOf NavigationChildControl_MouseLeave
        AddHandler lblRoles.MouseLeave, AddressOf NavigationChildControl_MouseLeave
        AddHandler lblUsers.MouseLeave, AddressOf NavigationChildControl_MouseLeave

        'Add handlers for shortcut Label controls MouseUp event
        AddHandler lblProjects.MouseUp, AddressOf NavigationChildControl_MouseUp
        AddHandler lblGroups.MouseUp, AddressOf NavigationChildControl_MouseUp
        AddHandler lblGroupProjects.MouseUp, _
            AddressOf NavigationChildControl_MouseUp
        AddHandler lblRoles.MouseUp, AddressOf NavigationChildControl_MouseUp
        AddHandler lblUsers.MouseUp, AddressOf NavigationChildControl_MouseUp

        'Add handlers for shortcut PictureBox controls MouseEnter event
        AddHandler imgProjects.MouseEnter, _
            AddressOf NavigationChildControl_MouseEnter
        AddHandler imgGroups.MouseEnter, _
            AddressOf NavigationChildControl_MouseEnter
        AddHandler imgGroupProjects.MouseEnter, _
            AddressOf NavigationChildControl_MouseEnter
        AddHandler imgRoles.MouseEnter, AddressOf NavigationChildControl_MouseEnter
        AddHandler imgUsers.MouseEnter, AddressOf NavigationChildControl_MouseEnter

        'Add handlers for shortcut PictureBox controls MouseLeave event
        AddHandler imgProjects.MouseLeave, _
            AddressOf NavigationChildControl_MouseLeave
        AddHandler imgGroups.MouseLeave, _
            AddressOf NavigationChildControl_MouseLeave
        AddHandler imgGroupProjects.MouseLeave, _
            AddressOf NavigationChildControl_MouseLeave
        AddHandler imgRoles.MouseLeave, AddressOf NavigationChildControl_MouseLeave
        AddHandler imgUsers.MouseLeave, AddressOf NavigationChildControl_MouseLeave

        'Add handlers for shortcut PictureBox controls MouseUp event
        AddHandler imgProjects.MouseUp, AddressOf NavigationChildControl_MouseUp
        AddHandler imgGroups.MouseUp, AddressOf NavigationChildControl_MouseUp
        AddHandler imgGroupProjects.MouseUp, _
            AddressOf NavigationChildControl_MouseUp
        AddHandler imgRoles.MouseUp, AddressOf NavigationChildControl_MouseUp