timesheet.vb

Beginning VB.NET DatabasesAll_Code.rar

        '
        Me.ToolBarButton1.Style = System.Windows.Forms.ToolBarButtonStyle.Separator
        '
        'btnCut
        '
        Me.btnCut.ImageIndex = 1
        Me.btnCut.Tag = "Cut"
        Me.btnCut.ToolTipText = "Cut"
        '
        'btnCopy
        '
        Me.btnCopy.ImageIndex = 2
        Me.btnCopy.Tag = "Copy"
        Me.btnCopy.ToolTipText = "Copy"
        '
        'btnPaste
        '
        Me.btnPaste.ImageIndex = 3
        Me.btnPaste.Tag = "Paste"
        Me.btnPaste.ToolTipText = "Paste"
        '
        'ToolBarButton2
        '
        Me.ToolBarButton2.Style = System.Windows.Forms.ToolBarButtonStyle.Separator
        '
        'btnUndo
        '
        Me.btnUndo.ImageIndex = 4
        Me.btnUndo.Tag = "Undo"
        Me.btnUndo.ToolTipText = "Undo"
        '
        'ImageList1
        '
        Me.ImageList1.ColorDepth = System.Windows.Forms.ColorDepth.Depth32Bit
        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
        '
        'StatusBar1
        '
        Me.StatusBar1.Location = New System.Drawing.Point(0, 349)
        Me.StatusBar1.Name = "StatusBar1"
        Me.StatusBar1.Panels.AddRange(New System.Windows.Forms.StatusBarPanel() {Me.pnlStatus, Me.pnlDate})
        Me.StatusBar1.ShowPanels = True
        Me.StatusBar1.Size = New System.Drawing.Size(739, 25)
        Me.StatusBar1.TabIndex = 2
        Me.StatusBar1.Text = "StatusBar1"
        '
        'pnlStatus
        '
        Me.pnlStatus.AutoSize = System.Windows.Forms.StatusBarPanelAutoSize.Spring
        Me.pnlStatus.Text = "Ready"
        Me.pnlStatus.Width = 648
        '
        'pnlDate
        '
        Me.pnlDate.Width = 75
        '
        'pnlEmployee
        '
        Me.pnlEmployee.BackColor = System.Drawing.SystemColors.ControlDark
        Me.pnlEmployee.Controls.Add(Me.cboWeekEnding)
        Me.pnlEmployee.Controls.Add(Me.Label1)
        Me.pnlEmployee.Controls.Add(Me.imgStatus)
        Me.pnlEmployee.Controls.Add(Me.btnSubmit)
        Me.pnlEmployee.Controls.Add(Me.btnSave)
        Me.pnlEmployee.Controls.Add(Me.lblEmployee)
        Me.pnlEmployee.Dock = System.Windows.Forms.DockStyle.Top
        Me.pnlEmployee.Location = New System.Drawing.Point(0, 28)
        Me.pnlEmployee.Name = "pnlEmployee"
        Me.pnlEmployee.Size = New System.Drawing.Size(739, 26)
        Me.pnlEmployee.TabIndex = 3
        '
        'cboWeekEnding
        '
        Me.cboWeekEnding.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
        Me.cboWeekEnding.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
        Me.cboWeekEnding.Location = New System.Drawing.Point(595, 1)
        Me.cboWeekEnding.Name = "cboWeekEnding"
        Me.cboWeekEnding.Size = New System.Drawing.Size(145, 24)
        Me.cboWeekEnding.TabIndex = 5
        '
        'Label1
        '
        Me.Label1.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
        Me.Label1.ForeColor = System.Drawing.Color.White
        Me.Label1.Location = New System.Drawing.Point(509, 0)
        Me.Label1.Name = "Label1"
        Me.Label1.Size = New System.Drawing.Size(86, 25)
        Me.Label1.TabIndex = 4
        Me.Label1.Text = "Week Ending"
        Me.Label1.TextAlign = System.Drawing.ContentAlignment.MiddleRight
        '
        'imgStatus
        '
        Me.imgStatus.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
        Me.imgStatus.Image = CType(resources.GetObject("imgStatus.Image"), System.Drawing.Image)
        Me.imgStatus.Location = New System.Drawing.Point(478, 2)
        Me.imgStatus.Name = "imgStatus"
        Me.imgStatus.Size = New System.Drawing.Size(19, 19)
        Me.imgStatus.TabIndex = 3
        Me.imgStatus.TabStop = False
        '
        'btnSubmit
        '
        Me.btnSubmit.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
        Me.btnSubmit.FlatStyle = System.Windows.Forms.FlatStyle.Flat
        Me.btnSubmit.ForeColor = System.Drawing.Color.White
        Me.btnSubmit.Location = New System.Drawing.Point(374, 0)
        Me.btnSubmit.Name = "btnSubmit"
        Me.btnSubmit.Size = New System.Drawing.Size(90, 25)
        Me.btnSubmit.TabIndex = 2
        Me.btnSubmit.Text = "Submit"
        '
        'btnSave
        '
        Me.btnSave.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
        Me.btnSave.FlatStyle = System.Windows.Forms.FlatStyle.Flat
        Me.btnSave.ForeColor = System.Drawing.Color.White
        Me.btnSave.Location = New System.Drawing.Point(278, 0)
        Me.btnSave.Name = "btnSave"
        Me.btnSave.Size = New System.Drawing.Size(90, 25)
        Me.btnSave.TabIndex = 1
        Me.btnSave.Text = "Save"
        '
        'lblEmployee
        '
        Me.lblEmployee.ForeColor = System.Drawing.Color.White
        Me.lblEmployee.Location = New System.Drawing.Point(0, 0)
        Me.lblEmployee.Name = "lblEmployee"
        Me.lblEmployee.Size = New System.Drawing.Size(250, 25)
        Me.lblEmployee.TabIndex = 0
        Me.lblEmployee.Text = "Timesheet for"
        Me.lblEmployee.TextAlign = System.Drawing.ContentAlignment.MiddleLeft
        '
        'grdTimeSheet
        '
        Me.grdTimeSheet.Anchor = CType((((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
                    Or System.Windows.Forms.AnchorStyles.Left) _
                    Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
        Me.grdTimeSheet.CaptionVisible = False
        Me.grdTimeSheet.DataMember = ""
        Me.grdTimeSheet.HeaderForeColor = System.Drawing.SystemColors.ControlText
        Me.grdTimeSheet.Location = New System.Drawing.Point(0, 60)
        Me.grdTimeSheet.Name = "grdTimeSheet"
        Me.grdTimeSheet.Size = New System.Drawing.Size(739, 288)
        Me.grdTimeSheet.TabIndex = 4
        '
        'pnlManager
        '
        Me.pnlManager.BackColor = System.Drawing.SystemColors.ControlDark
        Me.pnlManager.Controls.Add(Me.btnApprove)
        Me.pnlManager.Controls.Add(Me.cboEmployeeWeekEnding)
        Me.pnlManager.Controls.Add(Me.Label3)
        Me.pnlManager.Controls.Add(Me.cboEmployee)
        Me.pnlManager.Controls.Add(Me.Label2)
        Me.pnlManager.Location = New System.Drawing.Point(6000, 5769)
        Me.pnlManager.Name = "pnlManager"
        Me.pnlManager.Size = New System.Drawing.Size(739, 26)
        Me.pnlManager.TabIndex = 5
        '
        'btnApprove
        '
        Me.btnApprove.FlatStyle = System.Windows.Forms.FlatStyle.Flat
        Me.btnApprove.ForeColor = System.Drawing.Color.White
        Me.btnApprove.Location = New System.Drawing.Point(528, 0)
        Me.btnApprove.Name = "btnApprove"
        Me.btnApprove.Size = New System.Drawing.Size(90, 25)
        Me.btnApprove.TabIndex = 4
        Me.btnApprove.Text = "Approve"
        '
        'cboEmployeeWeekEnding
        '
        Me.cboEmployeeWeekEnding.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
        Me.cboEmployeeWeekEnding.Location = New System.Drawing.Point(338, 1)
        Me.cboEmployeeWeekEnding.Name = "cboEmployeeWeekEnding"
        Me.cboEmployeeWeekEnding.Size = New System.Drawing.Size(164, 24)
        Me.cboEmployeeWeekEnding.TabIndex = 3
        '
        'Label3
        '
        Me.Label3.ForeColor = System.Drawing.Color.White
        Me.Label3.Location = New System.Drawing.Point(240, 0)
        Me.Label3.Name = "Label3"
        Me.Label3.Size = New System.Drawing.Size(96, 25)
        Me.Label3.TabIndex = 2
        Me.Label3.Text = "Week Ending"
        Me.Label3.TextAlign = System.Drawing.ContentAlignment.MiddleRight
        '
        'cboEmployee
        '
        Me.cboEmployee.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
        Me.cboEmployee.Location = New System.Drawing.Point(70, 1)
        Me.cboEmployee.Name = "cboEmployee"
        Me.cboEmployee.Size = New System.Drawing.Size(163, 24)
        Me.cboEmployee.TabIndex = 1
        '
        'Label2
        '
        Me.Label2.ForeColor = System.Drawing.Color.White
        Me.Label2.Location = New System.Drawing.Point(0, 0)
        Me.Label2.Name = "Label2"
        Me.Label2.Size = New System.Drawing.Size(67, 25)
        Me.Label2.TabIndex = 0
        Me.Label2.Text = "Employee"
        Me.Label2.TextAlign = System.Drawing.ContentAlignment.MiddleRight
        '
        'TimeSheet
        '
        Me.AutoScaleBaseSize = New System.Drawing.Size(6, 15)
        Me.ClientSize = New System.Drawing.Size(739, 374)
        Me.Controls.Add(Me.pnlManager)
        Me.Controls.Add(Me.grdTimeSheet)
        Me.Controls.Add(Me.pnlEmployee)
        Me.Controls.Add(Me.StatusBar1)
        Me.Controls.Add(Me.ToolBar1)
        Me.Menu = Me.MainMenu1
        Me.Name = "TimeSheet"
        Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen
        Me.Text = "Time Tracker Time Sheet"
        CType(Me.pnlStatus, System.ComponentModel.ISupportInitialize).EndInit()
        CType(Me.pnlDate, System.ComponentModel.ISupportInitialize).EndInit()
        Me.pnlEmployee.ResumeLayout(False)
        CType(Me.grdTimeSheet, System.ComponentModel.ISupportInitialize).EndInit()
        Me.pnlManager.ResumeLayout(False)
        Me.ResumeLayout(False)

    End Sub

#End Region

#Region " Variable Declarations "
    Private intIndex As Integer

    Private blnEmployeeDisplay As Boolean = True

    Private strAppTitle As String
#End Region

#Region " Load Procedures "
    Private Sub TimeSheet_Load(ByVal sender As Object, _
        ByVal e As System.EventArgs) Handles MyBase.Load
        'Set the current date in the date panel in the status bar
        pnlDate.Text = Date.Today

        'Get the process title from the executable name
        strAppTitle = _
            System.Reflection.Assembly.GetExecutingAssembly.FullName.Substring(0, _
            System.Reflection.Assembly.GetExecutingAssembly.FullName.IndexOf(","))
    End Sub
#End Region

#Region " Navigation Procedures "

    Private Sub mnuFileExit_Click(ByVal sender As Object, _
        ByVal e As System.EventArgs) Handles mnuFileExit.Click
        Me.Close()
    End Sub

    Private Sub mnuViewMyTimeSheet_Click(ByVal sender As Object, _
        ByVal e As System.EventArgs) Handles mnuViewMyTimeSheet.Click
        'Undock the Panel
        pnlManager.Dock = DockStyle.None
        'Move it out of the way
        pnlManager.Location = New Point(5000, 5000)
        'Set the Dock property to Fill
        '(this will cause the location to change to 0,0)
        pnlEmployee.Dock = DockStyle.Top
        'Set the view flag
        blnEmployeeDisplay = True
    End Sub

    Private Sub mnuViewEmployeeTimeSheets_Click(ByVal sender As Object, _
        ByVal e As System.EventArgs) Handles mnuViewEmployeeTimeSheets.Click
        'Undock the Panel
        pnlEmployee.Dock = DockStyle.None
        'Move it out of the way
        pnlEmployee.Location = New Point(5000, 5000)
        'Set the Dock property to Fill
        '(this will cause the location to change to 0,0)
        pnlManager.Dock = DockStyle.Top
        'Set the view flag
        blnEmployeeDisplay = False
    End Sub

    Private Sub mnuHelpAbout_Click(ByVal sender As Object, _
        ByVal e As System.EventArgs) Handles mnuHelpAbout.Click
        Dim objAbout As New About
        objAbout.ShowDialog(Me)
        objAbout.Dispose()
        objAbout = Nothing
    End Sub

#End Region

End Class