66.142.0.142/66.142.0.142.tar/66.142.0.142/ltgFixtureNoteTypeview.aspx.vb

Text File | 2014-01-25 | 11KB | 406 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 ltgFixtureNoteTypeview
    Inherits AspNetMaker7_tfpssnet

    ' Page object
    Public ltgFixtureNoteType_view As cltgFixtureNoteType_view

    '
    ' Page Class
    '
    Class cltgFixtureNoteType_view
        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 ltgFixtureNoteType.UseTokenInUrl Then Url = Url & "t=" & ltgFixtureNoteType.TableVar & "&" ' Add page token
                Return Url
            End Get
        End Property

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

        ' ltgFixtureNoteType
        Public Property ltgFixtureNoteType() As cltgFixtureNoteType
            Get
                Return ParentPage.ltgFixtureNoteType
            End Get
            Set(ByVal v As cltgFixtureNoteType)
                ParentPage.ltgFixtureNoteType = v
            End Set
        End Property

        ' ltgFixtureNoteType
        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 = "view"
            m_PageObjName = "ltgFixtureNoteType_view"
            m_PageObjTypeName = "cltgFixtureNoteType_view"

            ' Table Name
            m_TableName = "ltgFixtureNoteType"

            ' Initialize table object
            ltgFixtureNoteType = New cltgFixtureNoteType(Me)
            tblEmployees = New ctblEmployees(Me)

            ' Connect to database
            Conn = New cConnection()
        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.CanView Then
                Security.SaveLastUrl()
                Page_Terminate("ltgFixtureNoteTypelist.aspx")
            End If

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

            ' User ID loaded event
            Security.UserID_Loaded()

            ' 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(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
            ltgFixtureNoteType.Dispose()
            tblEmployees.Dispose()

            ' 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 lRecCnt As Integer

    Public sSrchWhere As String

    '
    ' Page main processing
    '
    Sub Page_Main()
        Dim sReturnUrl As String = ""
        Dim bMatchRecord As Boolean = False
        If IsPageRequest Then ' Validate request
            If ew_Get("ntyID") <> "" Then
                ltgFixtureNoteType.ntyID.QueryStringValue = ew_Get("ntyID")
            Else
                sReturnUrl = "ltgFixtureNoteTypelist.aspx" ' Return to list
            End If

            ' Get action
            ltgFixtureNoteType.CurrentAction = "I" ' Display form
            Select Case ltgFixtureNoteType.CurrentAction
                Case "I" ' Get a record to display
                    If Not LoadRow() Then ' Load record based on key
                        Message = "No records found" ' Set no record message
                        sReturnUrl = "ltgFixtureNoteTypelist.aspx" ' No matching record, return to list
                    End If
            End Select
        Else
            sReturnUrl = "ltgFixtureNoteTypelist.aspx" ' Not page request, return to list
        End If
        If sReturnUrl <> "" Then Page_Terminate(sReturnUrl)

        ' Render row
        ltgFixtureNoteType.RowType = EW_ROWTYPE_VIEW
        RenderRow()
    End Sub

    Public Pager As Object

    '
    ' Set up Starting Record parameters
    '
    Sub SetUpStartRec()
        Dim nPageNo As Integer

        ' Exit if lDisplayRecs = 0
        If lDisplayRecs = 0 Then Exit Sub
        If IsPageRequest Then ' Validate request

            ' Check for a "start" parameter
            If ew_Get(EW_TABLE_START_REC) <> "" AndAlso IsNumeric(ew_Get(EW_TABLE_START_REC)) Then
                lStartRec = ew_ConvertToInt(ew_Get(EW_TABLE_START_REC))
                ltgFixtureNoteType.StartRecordNumber = lStartRec
            ElseIf ew_Get(EW_TABLE_PAGE_NO) <> "" AndAlso IsNumeric(ew_Get(EW_TABLE_PAGE_NO)) Then
                nPageNo = ew_ConvertToInt(ew_Get(EW_TABLE_PAGE_NO))
                lStartRec = (nPageNo-1)*lDisplayRecs+1
                If lStartRec <= 0 Then
                    lStartRec = 1
                ElseIf lStartRec >= ((lTotalRecs-1)\lDisplayRecs)*lDisplayRecs+1 Then
                    lStartRec = ((lTotalRecs-1)\lDisplayRecs)*lDisplayRecs+1
                End If
                ltgFixtureNoteType.StartRecordNumber = lStartRec
            End If
        End If
        lStartRec = ltgFixtureNoteType.StartRecordNumber

        ' Check if correct start record counter
        If lStartRec <= 0 Then ' Avoid invalid start record counter
            lStartRec = 1 ' Reset start record counter
            ltgFixtureNoteType.StartRecordNumber = lStartRec
        ElseIf lStartRec > lTotalRecs Then ' Avoid starting record > total records
            lStartRec = ((lTotalRecs-1)\lDisplayRecs)*lDisplayRecs+1 ' Point to last page first record
            ltgFixtureNoteType.StartRecordNumber = lStartRec
        ElseIf (lStartRec-1) Mod lDisplayRecs <> 0 Then
            lStartRec = ((lStartRec-1)\lDisplayRecs)*lDisplayRecs+1 ' Point to page boundary
            ltgFixtureNoteType.StartRecordNumber = lStartRec
        End If
    End Sub

    '
    ' Load default values
    '
    Sub LoadDefaultValues()
    End Sub

    '
    ' Load row based on key values
    '
    Function LoadRow() As Boolean
        Dim RsRow As OleDbDataReader
        Dim sFilter As String = ltgFixtureNoteType.KeyFilter

        ' Row Selecting event
        ltgFixtureNoteType.Row_Selecting(sFilter)

        ' Load SQL based on filter
        ltgFixtureNoteType.CurrentFilter = sFilter
        Dim sSql As String = ltgFixtureNoteType.SQL

        ' Write SQL for debug
        If EW_DEBUG_ENABLED Then ew_Write(sSql)
        Try
            RsRow = Conn.GetTempDataReader(sSql)
            If Not RsRow.Read() Then
                Return False
            Else
                LoadRowValues(RsRow) ' Load row values

                ' Row Selected event
                ltgFixtureNoteType.Row_Selected(RsRow)
                Return True
            End If
        Catch
            If EW_DEBUG_ENABLED Then Throw
            Return False
        Finally
            Conn.CloseTempDataReader()
        End Try
    End Function

    '
    ' Load row values from recordset
    '
    Sub LoadRowValues(ByRef RsRow As OleDbDataReader)
        ltgFixtureNoteType.ntyID.DbValue = RsRow("ntyID")
        ltgFixtureNoteType.ntyDescription.DbValue = RsRow("ntyDescription")
        ltgFixtureNoteType.ntyIsActive.DbValue = IIf(ew_ConvertToBool(RsRow("ntyIsActive")), "1", "0")
    End Sub

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

        ' Row Rendering event
        ltgFixtureNoteType.Row_Rendering()

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

        ltgFixtureNoteType.ntyDescription.CellCssStyle = ""
        ltgFixtureNoteType.ntyDescription.CellCssClass = ""

        ' ntyIsActive
        ltgFixtureNoteType.ntyIsActive.CellCssStyle = ""
        ltgFixtureNoteType.ntyIsActive.CellCssClass = ""

        '
        '  View  Row
        '

        If ltgFixtureNoteType.RowType = EW_ROWTYPE_VIEW Then ' View row

            ' ntyID
            ltgFixtureNoteType.ntyID.ViewValue = ltgFixtureNoteType.ntyID.CurrentValue
            ltgFixtureNoteType.ntyID.CssStyle = ""
            ltgFixtureNoteType.ntyID.CssClass = ""
            ltgFixtureNoteType.ntyID.ViewCustomAttributes = ""

            ' ntyDescription
            ltgFixtureNoteType.ntyDescription.ViewValue = ltgFixtureNoteType.ntyDescription.CurrentValue
            ltgFixtureNoteType.ntyDescription.CssStyle = ""
            ltgFixtureNoteType.ntyDescription.CssClass = ""
            ltgFixtureNoteType.ntyDescription.ViewCustomAttributes = ""

            ' ntyIsActive
            If Convert.ToString(ltgFixtureNoteType.ntyIsActive.CurrentValue) = "1" Then
                ltgFixtureNoteType.ntyIsActive.ViewValue = "Yes"
            Else
                ltgFixtureNoteType.ntyIsActive.ViewValue = "No"
            End If
            ltgFixtureNoteType.ntyIsActive.CssStyle = ""
            ltgFixtureNoteType.ntyIsActive.CssClass = ""
            ltgFixtureNoteType.ntyIsActive.ViewCustomAttributes = ""

            ' View refer script
            ' ntyDescription

            ltgFixtureNoteType.ntyDescription.HrefValue = ""

            ' ntyIsActive
            ltgFixtureNoteType.ntyIsActive.HrefValue = ""
        End If

        ' Row Rendered event
        ltgFixtureNoteType.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
    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
        ltgFixtureNoteType_view = New cltgFixtureNoteType_view(Me)
        ltgFixtureNoteType_view.Page_Init()

        ' Page main processing
        ltgFixtureNoteType_view.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 ltgFixtureNoteType_view IsNot Nothing Then ltgFixtureNoteType_view.Dispose()
    End Sub
End Class