timesheet.aspx.vb

Beginning VB.NET DatabasesAll_Code.rar

        Response.Write("<td nowrap>Total Hours</td>" & ControlChars.CrLf)
        Response.Write("<td><INPUT type=""text"" name=""txtMondayTotal""" & _
            "class=""TransparentTextBox"" readonly " & _
            "onfocus=""javascript:txtMondayHours[0].select();" & _
            "txtMondayHours[0].focus();"" value=""" & _
            objTimeSheetDS.Tables("TimeSheet").Rows(intIndex).Item( _
            "MondayHours") & """></td>" & ControlChars.CrLf)
        Response.Write("<td><INPUT type=""text"" name=""txtTuesdayTotal""" & _
            "class=""TransparentTextBox"" readonly value=""" & _
            objTimeSheetDS.Tables("TimeSheet").Rows(intIndex).Item( _
            "TuesdayHours") & """></td>" & ControlChars.CrLf)
        Response.Write("<td><INPUT type=""text"" name=""txtWednesdayTotal""" & _
            "class=""TransparentTextBox"" readonly value=""" & _
            objTimeSheetDS.Tables("TimeSheet").Rows(intIndex).Item( _
            "WednesdayHours") & """></td>" & ControlChars.CrLf)
        Response.Write("<td><INPUT type=""text"" name=""txtThursdayTotal""" & _
            "class=""TransparentTextBox"" readonly value=""" & _
            objTimeSheetDS.Tables("TimeSheet").Rows(intIndex).Item( _
            "ThursdayHours") & """></td>" & ControlChars.CrLf)
        Response.Write("<td><INPUT type=""text"" name=""txtFridayTotal""" & _
            "class=""TransparentTextBox"" readonly value=""" & _
            objTimeSheetDS.Tables("TimeSheet").Rows(intIndex).Item( _
            "FridayHours") & """></td>" & ControlChars.CrLf)

        'End the table
        Response.Write("</tr>" & ControlChars.CrLf)
        Response.Write("</table>" & ControlChars.CrLf)
    End Sub

    Private Sub WriteTimeSheetRow(ByVal objDataRow As DataRow)
        'Toggle the flag
        blnEvenRow = Not blnEvenRow
        If blnEvenRow Then
            Response.Write("<tr class=""EvenRow"">" & ControlChars.CrLf)
        Else
            Response.Write("<tr class=""OddRow"">" & ControlChars.CrLf)
        End If
        Response.Write("<td nowrap>" & objDataRow.Item("ProjectName") & _
            "</td>" & ControlChars.CrLf)
        If objTimeSheetDS.Tables("TimeSheet").Rows(0).Item("Submitted") Then
            'The data is read-only so just display it
            Response.Write("<td style=""width:30px;"">" & _
                objDataRow.Item("MondayHours") & "</td>" & ControlChars.CrLf)
            Response.Write("<td style=""width:30px;"">" & _
                objDataRow.Item("TuesdayHours") & "</td>" & ControlChars.CrLf)
            Response.Write("<td style=""width:30px;"">" & _
                objDataRow.Item("WednesdayHours") & "</td>" & ControlChars.CrLf)
            Response.Write("<td style=""width:30px;"">" & _
                objDataRow.Item("ThursdayHours") & "</td>" & ControlChars.CrLf)
            Response.Write("<td style=""width:30px;"">" & _
                objDataRow.Item("FridayHours") & "</td>" & ControlChars.CrLf)
        Else
            'The data is editable so put it in a textbox
            Response.Write("<td><input type=""textbox"" style=""width:30px;"" " & _
                "name=""txtMondayHours"" value=""" & _
                objDataRow.Item("MondayHours") & _
                """ onBlur=""javascript:Recalculate('Monday');"" " & _
                "onkeydown=""javascript:IsNumeric();""></td>" & ControlChars.CrLf)
            Response.Write("<td><input type=""textbox"" style=""width:30px;"" " & _
                "name=""txtTuesdayHours"" value=""" & _
                objDataRow.Item("TuesdayHours") & _
                """ onBlur=""javascript:Recalculate('Tuesday');"" " & _
                "onkeydown=""javascript:IsNumeric();""></td>" & ControlChars.CrLf)
            Response.Write("<td><input type=""textbox"" style=""width:30px;"" " & _
                "name=""txtWednesdayHours"" value=""" & _
                objDataRow.Item("WednesdayHours") & _
                """ onBlur=""javascript:Recalculate('Wednesday');"" " & _
                "onkeydown=""javascript:IsNumeric();""></td>" & ControlChars.CrLf)
            Response.Write("<td><input type=""textbox"" style=""width:30px;"" " & _
                "name=""txtThursdayHours"" value=""" & _
                objDataRow.Item("ThursdayHours") & _
                """ onBlur=""javascript:Recalculate('Thursday');"" " & _
                "onkeydown=""javascript:IsNumeric();""></td>" & ControlChars.CrLf)
            Response.Write("<td><input type=""textbox"" style=""width:30px;"" " & _
                "name=""txtFridayHours"" value=""" & _
                objDataRow.Item("FridayHours") & _
                """ onBlur=""javascript:Recalculate('Friday');"" " & _
                "onkeydown=""javascript:IsNumeric();""></td>" & ControlChars.CrLf)
        End If
        Response.Write("</tr>" & ControlChars.CrLf)
    End Sub

    Private Sub UpdateTimeSheetDS()
        Dim strMondayHours() As String = _
            Split(Request.Form("txtMondayHours"), ",")
        Dim strTuesdayHours() As String = _
            Split(Request.Form("txtTuesdayHours"), ",")
        Dim strWednesdayHours() As String = _
            Split(Request.Form("txtWednesdayHours"), ",")
        Dim strThursdayHours() As String = _
            Split(Request.Form("txtThursdayHours"), ",")
        Dim strFridayHours() As String = _
            Split(Request.Form("txtFridayHours"), ",")

        'Process all rows of data minus the total row
        For intIndex = 0 To objTimeSheetDS.Tables("TimeSheet").Rows.Count - 2
            objTimeSheetDS.Tables("TimeSheet").Rows(intIndex).Item( _
                "MondayHours") = CType(strMondayHours(intIndex), Byte)
            objTimeSheetDS.Tables("TimeSheet").Rows(intIndex).Item( _
                "TuesdayHours") = CType(strTuesdayHours(intIndex), Byte)
            objTimeSheetDS.Tables("TimeSheet").Rows(intIndex).Item( _
                "WednesdayHours") = CType(strWednesdayHours(intIndex), Byte)
            objTimeSheetDS.Tables("TimeSheet").Rows(intIndex).Item( _
                "ThursdayHours") = CType(strThursdayHours(intIndex), Byte)
            objTimeSheetDS.Tables("TimeSheet").Rows(intIndex).Item( _
                "FridayHours") = CType(strFridayHours(intIndex), Byte)
        Next

        'Now process the total row - this is needed for when we build a new
        'table to post back to the client
        objTimeSheetDS.Tables("TimeSheet").Rows(intIndex).Item( _
            "MondayHours") = CType(Request.Form("txtMondayTotal"), Byte)
        objTimeSheetDS.Tables("TimeSheet").Rows(intIndex).Item( _
            "TuesdayHours") = CType(Request.Form("txtTuesdayTotal"), Byte)
        objTimeSheetDS.Tables("TimeSheet").Rows(intIndex).Item( _
            "WednesdayHours") = CType(Request.Form("txtWednesdayTotal"), Byte)
        objTimeSheetDS.Tables("TimeSheet").Rows(intIndex).Item( _
            "ThursdayHours") = CType(Request.Form("txtThursdayTotal"), Byte)
        objTimeSheetDS.Tables("TimeSheet").Rows(intIndex).Item( _
            "FridayHours") = CType(Request.Form("txtFridayTotal"), Byte)
    End Sub

    Private Sub btnSave_Click(ByVal sender As Object, _
        ByVal e As System.EventArgs) Handles btnSave.Click
        'Initialize a new instance of the business logic component
        objTimeSheets = New WroxBusinessLogic.WBLTimeSheets( _
            strCompany, strApplication)
        Try
            'Save the timesheet changes
            If Not objTimeSheets.SaveTimeSheet(objTimeSheetDS) Then
                Throw New Exception("Save TimeSheet Failed")
            End If
        Catch ExceptionErr As Exception
            Response.Write(ExceptionErr.Message)
        Finally
            'Cleanup
            objTimeSheets.Dispose()
            objTimeSheets = Nothing
        End Try
    End Sub

    Private Sub btnSubmit_Click(ByVal sender As Object, _
        ByVal e As System.EventArgs) Handles btnSubmit.Click
        'Initialize a new instance of the business logic component
        objTimeSheets = New WroxBusinessLogic.WBLTimeSheets( _
         strCompany, strApplication)
        Try
            'Submit the timesheet
            If Not objTimeSheets.SubmitTimeSheet(New Guid( _
                objTimeSheetDS.Tables("TimeSheet").Rows(0).Item( _
                "TimeSheetID").ToString)) Then
                Throw New Exception("Submit TimeSheet Failed")
            End If
            'Reload the timesheet so it becomes read-only
            Call GetTimeSheet()
        Catch ExceptionErr As Exception
            Response.Write(ExceptionErr.Message)
            'Cleanup
            objTimeSheets.Dispose()
            objTimeSheets = Nothing
        End Try
    End Sub

End Class