66.142.0.142/66.142.0.142.tar/66.142.0.142/askScheduleReportform.aspx.vb

Text File | 2011-03-12 | 13KB | 390 lines

Imports System.Data
Imports System.Data.Common
Imports System.Xml
Imports System.IO
Imports System.Data.OleDb

'
' ASP.NET code-behind class (Page)
'

Partial Class askScheduleReportform
    Inherits AspNetMaker7_tfpssnet

    ' Page object
    Public askScheduleReport_form As caskScheduleReport_form

    '
    ' Page Class
    '
    Class caskScheduleReport_form
        Inherits AspNetMakerPage
        Implements IDisposable

        ' Used by system generated functions
        Private RsWrk As Object, sSqlWrk As String, sWhereWrk As String

        Private arwrk As Object

        Private armultiwrk() As String

        ' Page URL
        Public ReadOnly Property PageUrl() As String
            Get
                Dim Url As String = ew_CurrentPage() & "?"
                If askScheduleReport.UseTokenInUrl Then Url = Url & "t=" & askScheduleReport.TableVar & "&" ' Add page token
                Return Url
            End Get
        End Property

        ' Validate page request
        Public Function IsPageRequest() As Boolean
            Dim Result As Boolean
            If askScheduleReport.UseTokenInUrl Then
                Result = False
                If ObjForm IsNot Nothing Then
                    Result = (askScheduleReport.TableVar = ObjForm.GetValue("t"))
                End If
                If ew_Get("t") <> "" Then
                    Result = (askScheduleReport.TableVar = ew_Get("t"))
                End If
                Return Result
            End If
            Return True
        End Function

        ' askScheduleReport
        Public Property askScheduleReport() As caskScheduleReport
            Get
                Return ParentPage.askScheduleReport
            End Get
            Set(ByVal v As caskScheduleReport)
                ParentPage.askScheduleReport = v
            End Set
        End Property

        ' askScheduleReport
        Public Property tblEmployees() As ctblEmployees
            Get
                Return ParentPage.tblEmployees
            End Get
            Set(ByVal v As ctblEmployees)
                ParentPage.tblEmployees = v
            End Set
        End Property

        '
        '  Constructor
        '  - init objects
        '  - open connection
        '
        Public Sub New(ByRef APage As AspNetMaker7_tfpssnet)
            m_ParentPage = APage
            m_Page = Me
            m_PageID = "list"
            m_PageObjName = "askScheduleReport_form"
            m_PageObjTypeName = "caskScheduleReport_form"

            ' Table Name
            m_TableName = "askScheduleReport"

            ' Initialize table object
            askScheduleReport = New caskScheduleReport(Me)
            tblEmployees = New ctblEmployees(Me)

            ' Connect to database
            Conn = New cConnection()

            ' Initialize list options
            ListOptions = New cListOptions
        End Sub

        '
        '  Subroutine Page_Init
        '  - called before page main
        '  - check Security
        '  - set up response header
        '  - call page load events
        '
        Public Sub Page_Init()
            Security = New cAdvancedSecurity(Me)
            If Not Security.IsLoggedIn() Then Security.AutoLogin()
            If Not Security.IsLoggedIn() Then
                Security.SaveLastUrl()
                Page_Terminate("login.aspx")
            End If

            ' Table Permission loading event
            Security.TablePermission_Loading()
            Security.LoadCurrentUserLevel(TableName)

            ' Table Permission loaded event
            'Security.TablePermission_Loaded()
            'If Not Security.CanList Then
            '    Security.SaveLastUrl()
            '    Page_Terminate("login.aspx")
            'End If

            ' User ID loading event
            Security.UserID_Loading()
            If Security.IsLoggedIn() Then Call Security.LoadUserID()

            ' User ID loaded event
            Security.UserID_Loaded()
            askScheduleReport.Export = ew_Get("export") ' Get export parameter
            ParentPage.gsExport = askScheduleReport.Export ' Get export parameter, used in header
            ParentPage.gsExportFile = askScheduleReport.TableVar ' Get export file, used in header

            ' Global page loading event (in ewglobal*.vb)
            ParentPage.Page_Loading()

            ' Page load event, used in current page
            Page_Load()
        End Sub

        '
        '  Class terminate
        '  - clean up page object
        '
        Public Sub Dispose() Implements IDisposable.Dispose
            Page_Terminate("")
        End Sub

        '
        '  Sub Page_Terminate
        '  - called when exit page
        '  - clean up connection and objects
        '  - if URL specified, redirect to URL
        '
        Sub Page_Terminate(ByVal url As String)

            ' Page unload event, used in current page
            Page_Unload()

            ' Global page unloaded event (in ewglobal*.vb)
            ParentPage.Page_Unloaded()

            ' Close connection
            Conn.Dispose()
            Security = Nothing
            askScheduleReport.Dispose()
            tblEmployees.Dispose()
            ListOptions = Nothing

            ' Go to URL if specified
            If url <> "" Then
                HttpContext.Current.Response.Clear()
                HttpContext.Current.Response.Redirect(url)
            End If
        End Sub

        Public lDisplayRecs As Integer ' Number of display records

        Public lStartRec As Integer, lStopRec As Integer, lTotalRecs As Integer, lRecRange As Integer

        Public sSrchWhere As String

        Public lRecCnt As Integer

        Public lEditRowCnt As Integer

        Public lRowCnt As Integer, lRowIndex As Integer

        Public lOptionCnt As Integer

        Public lRecPerRow As Integer, lColCnt As Integer

        Public sDeleteConfirmMsg As String ' Delete confirm message

        Public sDbMasterFilter As String, sDbDetailFilter As String

        Public bMasterRecordExists As Boolean

        Public ListOptions As Object

        Public sMultiSelectKey As String

        Public x_ewPriv As Integer

        '
        ' Page main processing
        '
        Public Sub Page_Main()
            If IsPageRequest() Then ' Validate request
                Dim sDate As String, eDate As String, sEmployeeID As Long
                If ew_Get("t") = "askScheduleReport" Then
                    sDate = ew_Get("x_startDate")
                    eDate = ew_Get("x_endDate")
                    If Security.IsAdmin Then sEmployeeID = ew_Get("x_schEmpID")
                    Page_Terminate("rptScheduleReport.aspx?sDate=" & sDate & "&eDate=" & eDate & "&sEmployeeID=" & sEmployeeID)
                End If
            End If
        End Sub

        '
        ' Load recordset
        '
        Function LoadRecordset() As OleDbDataReader

            ' Recordset Selecting event
            askScheduleReport.Recordset_Selecting(askScheduleReport.CurrentFilter)

            ' Load list page SQL
            Dim sSql As String = askScheduleReport.ListSQL

            ' Write SQL for debug
            If EW_DEBUG_ENABLED Then ew_Write(sSql)

            ' Count
            lTotalRecs = -1

            ' Load recordset
            Dim Rs As OleDbDataReader = Conn.GetDataReader(sSql)
            If lTotalRecs < 0 AndAlso Rs.HasRows Then
                lTotalRecs = 0
                While Rs.Read()
                    lTotalRecs = lTotalRecs + 1
                End While
                Rs.Close()
                Rs = Conn.GetDataReader(sSql)
            End If

            ' Recordset Selected event
            askScheduleReport.Recordset_Selected(Rs)
            Return Rs
        End Function


        '
        ' Render row values based on field settings
        '
        Sub RenderRow()

            ' Row Rendering event
            askScheduleReport.Row_Rendering()

            '
            '  Common render codes for all row types
            '
            ' schDate

            askScheduleReport.schDate.CellCssStyle = "white-space: nowrap;"
            askScheduleReport.schDate.CellCssClass = ""

            ' schEmpID
            askScheduleReport.schEmpID.CellCssStyle = ""
            askScheduleReport.schEmpID.CellCssClass = ""

            '
            '  View  Row
            '

            If askScheduleReport.RowType = EW_ROWTYPE_VIEW Then ' View row

                ' schDate
                askScheduleReport.schDate.ViewValue = askScheduleReport.schDate.CurrentValue
                askScheduleReport.schDate.ViewValue = ew_FormatDateTime(askScheduleReport.schDate.ViewValue, 6)
                askScheduleReport.schDate.CssStyle = ""
                askScheduleReport.schDate.CssClass = ""
                askScheduleReport.schDate.ViewCustomAttributes = ""

                ' schEmpID
                If ew_NotEmpty(askScheduleReport.schEmpID.CurrentValue) Then
                    sSqlWrk = "SELECT [empName] FROM [tblEmployees] WHERE [empID] = " & ew_AdjustSql(askScheduleReport.schEmpID.CurrentValue) & "AND [empIsActive]=True"
                    sSqlWrk = sSqlWrk & " ORDER BY [empFirstName] "
                    RsWrk = Conn.GetTempDataReader(sSqlWrk)
                    If RsWrk.Read() Then
                        askScheduleReport.schEmpID.ViewValue = RsWrk("empName")
                    Else
                        askScheduleReport.schEmpID.ViewValue = askScheduleReport.schEmpID.CurrentValue
                    End If
                    Conn.CloseTempDataReader()
                Else
                    askScheduleReport.schEmpID.ViewValue = System.DBNull.Value
                End If
                askScheduleReport.schEmpID.CssStyle = ""
                askScheduleReport.schEmpID.CssClass = ""
                askScheduleReport.schEmpID.ViewCustomAttributes = ""

                ' View refer script
                ' schDate

                askScheduleReport.schDate.HrefValue = ""

                ' schEmpID
                askScheduleReport.schEmpID.HrefValue = ""

                '
                '  Search Row
                '

            ElseIf askScheduleReport.RowType = EW_ROWTYPE_SEARCH Then ' Search row

                ' schDate
                askScheduleReport.schDate.EditCustomAttributes = ""
                askScheduleReport.schDate.EditValue = askScheduleReport.schDate.AdvancedSearch.SearchValue
                askScheduleReport.schDate.EditCustomAttributes = ""
                askScheduleReport.schDate.EditValue2 = askScheduleReport.schDate.AdvancedSearch.SearchValue2

                ' schEmpID
                askScheduleReport.schEmpID.EditCustomAttributes = ""
                sSqlWrk = "SELECT [empID], [empName], '' AS Disp2Fld, '' AS SelectFilterFld FROM [tblEmployees]"
                sWhereWrk = "[empIsActive]=True"
                sWhereWrk = tblEmployees.AddUserIDFilter(sWhereWrk)
                If sWhereWrk <> "" Then sSqlWrk = sSqlWrk & " WHERE " & sWhereWrk
                sSqlWrk = sSqlWrk & " ORDER BY [empFirstName] "
                arwrk = Conn.GetRows(sSqlWrk)
                arwrk.Insert(0, New Object() {"0", "All Employees"})
                askScheduleReport.schEmpID.EditValue = arwrk
            End If

            ' Row Rendered event
            askScheduleReport.Row_Rendered()
        End Sub
        ' Page Load event
        Public Sub Page_Load()

            'HttpContext.Current.Response.Write("Page Load")
        End Sub

        ' Page Unload event
        Public Sub Page_Unload()

            'HttpContext.Current.Response.Write("Page Unload")
        End Sub

        ' Form Custom Validate event
        'Public Function Form_CustomValidate(ByRef CustomError As String) As Boolean

        '    'Return error message in CustomError
        '    Return True
        'End Function
    End Class

    '
    ' ASP.NET Page_Load event
    '

    Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        Response.Buffer = EW_RESPONSE_BUFFER
        Response.Cache.SetCacheability(HttpCacheability.NoCache)

        ' Page init
        askScheduleReport_form = New caskScheduleReport_form(Me)
        askScheduleReport_form.Page_Init()

        ' Page main processing
        askScheduleReport_form.Page_Main()
    End Sub

    '
    ' ASP.NET Page_Unload event
    '

    Protected Sub Page_Unload(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Unload

        ' Dispose page object
        If askScheduleReport_form IsNot Nothing Then askScheduleReport_form.Dispose()
    End Sub
End Class