66.142.0.142/66.142.0.142.tar/66.142.0.142/ltgFixtureNoteTypedelete.aspx.vb

Text File | 2014-01-25 | 14KB | 527 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 ltgFixtureNoteTypedelete
    Inherits AspNetMaker7_tfpssnet

    ' Page object
    Public ltgFixtureNoteType_delete As cltgFixtureNoteType_delete

    '
    ' Page Class
    '
    Class cltgFixtureNoteType_delete
        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 = "delete"
            m_PageObjName = "ltgFixtureNoteType_delete"
            m_PageObjTypeName = "cltgFixtureNoteType_delete"

            ' 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.CanDelete 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 lTotalRecs As Integer

    Public lRecCnt As Integer

    Public arRecKeys() As String

    '
    ' Page main processing
    '
    Sub Page_Main()
        Dim sKey As String = ""
        Dim bSingleDelete As Boolean = True ' Initialize as single delete
        Dim nKeySelected As Integer = 0 ' Initialize selected key count
        Dim sKeyFld As String, arKeyFlds() As String
        Dim sFilter As String

        ' Load Key Parameters
        If ew_Get("ntyID") <> "" Then
            ltgFixtureNoteType.ntyID.QueryStringValue = ew_Get("ntyID")
            If Not IsNumeric(ltgFixtureNoteType.ntyID.QueryStringValue) Then
            Page_Terminate("ltgFixtureNoteTypelist.aspx") ' Prevent SQL injection, return to list
            End If
            sKey = sKey & ltgFixtureNoteType.ntyID.QueryStringValue
        Else
            bSingleDelete = False
        End If
        If bSingleDelete Then
            nKeySelected = 1 ' Set up key selected count
            Array.Resize(arRecKeys, 1) ' Set up key
            arRecKeys(0) = sKey
        Else
            If HttpContext.Current.Request.Form("key_m") IsNot Nothing Then ' Key in form
                arRecKeys = HttpContext.Current.Request.Form.GetValues("key_m")
                nKeySelected = arRecKeys.Length
            End If
        End If
        If nKeySelected <= 0 Then Page_Terminate("ltgFixtureNoteTypelist.aspx") ' No key specified, return to list

        ' Build filter
        For i As Integer = 0 to arRecKeys.GetUpperBound(0)
            sKey = arRecKeys(i).Trim()
            sFilter = sFilter & "("

            ' Set up key field
            sKeyFld = sKey
            If Not IsNumeric(sKeyFld) Then Page_Terminate("ltgFixtureNoteTypelist.aspx") ' Prevent SQL injection, return to list
            sFilter = sFilter & "[ntyID]=" & ew_AdjustSql(sKeyFld) & " AND "
            If sFilter.EndsWith(" AND ") Then sFilter = sFilter.Substring(0, sFilter.Length-5) & ") OR "
        Next
        If sFilter.EndsWith(" OR ") Then sFilter = sFilter.Substring(0, sFilter.Length-4)

        ' Set up filter (SQL WHERE clause)
        ' SQL constructor in ltgFixtureNoteType class, ltgFixtureNoteTypeinfo.aspx

        ltgFixtureNoteType.CurrentFilter = sFilter

        ' Get action
        If ew_Post("a_delete") <> "" Then
            ltgFixtureNoteType.CurrentAction = ew_Post("a_delete")
        Else
            ltgFixtureNoteType.CurrentAction = "I"    ' Display record
        End If
        Select Case ltgFixtureNoteType.CurrentAction
            Case "D" ' Delete
                ltgFixtureNoteType.SendEmail = True ' Send email on delete success
                If DeleteRows() Then ' delete rows
                    Message = "Delete succeeded" ' Set up success message
                Page_Terminate(ltgFixtureNoteType.ReturnUrl) ' Return to caller
                End If
        End Select
    End Sub

    '
    '  Function DeleteRows
    '  - Delete Records based on current filter
    '
    Function DeleteRows() As Boolean
        Dim sKey As String, sThisKey As String, sKeyFld As String
        Dim arKeyFlds() As String
        Dim RsDelete As OleDbDataReader = Nothing
        Dim sSql As String, sWrkFilter As String
        Dim RsOld As ArrayList
        DeleteRows = True
        sWrkFilter = ltgFixtureNoteType.CurrentFilter

        ' Set up filter (SQL WHERE Clause)
        ' SQL constructor in ltgFixtureNoteType class, ltgFixtureNoteTypeinfo.aspx

        ltgFixtureNoteType.CurrentFilter = sWrkFilter
        sSql = ltgFixtureNoteType.SQL
        Conn.BeginTrans() ' Begin transaction
        Try
            RsDelete = Conn.GetDataReader(sSql)
            If Not RsDelete.HasRows Then
                Message = "No records found" ' No record found
                RsDelete.Close()
                RsDelete.Dispose()
                Return False
            End If
        Catch e As Exception
            If EW_DEBUG_ENABLED Then Throw
            Message = e.Message
            Return False
        End Try

        ' Clone old rows
        RsOld = Conn.GetRows(RsDelete)
        RsDelete.Close()
        RsDelete.Dispose()

        ' Call Row_Deleting event
        If DeleteRows Then
            For Each Row As OrderedDictionary in RsOld
                DeleteRows = ltgFixtureNoteType.Row_Deleting(Row)
                If Not DeleteRows Then Exit For
            Next Row
        End If
        If DeleteRows Then
            sKey = ""
            For Each Row As OrderedDictionary in RsOld
                sThisKey = ""
                If sThisKey <> "" Then sThisKey = sThisKey & EW_COMPOSITE_KEY_SEPARATOR
                sThisKey = sThisKey & Convert.ToString(Row("ntyID"))
                Try
                    ltgFixtureNoteType.Delete(Row)
                Catch e As Exception
                    If EW_DEBUG_ENABLED Then Throw
                    Message = e.Message ' Set up error message
                    DeleteRows = False
                    Exit For
                End Try
                If sKey <> "" Then sKey = sKey & ", "
                sKey = sKey & sThisKey
            Next Row
        Else

            ' Set up error message
            If ltgFixtureNoteType.CancelMessage <> "" Then
                Message = ltgFixtureNoteType.CancelMessage
                ltgFixtureNoteType.CancelMessage = ""
            Else
                Message = "Delete cancelled"
            End If
        End If
        If DeleteRows Then

            ' Commit the changes
            Conn.CommitTrans()

            ' Row deleted event
            For Each Row As OrderedDictionary in RsOld
                ltgFixtureNoteType.Row_Deleted(Row)
            Next
        Else
            Conn.RollbackTrans() ' Rollback transaction
        End If
    End Function

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

    '
    ' Load recordset
    '
    Function LoadRecordset() As OleDbDataReader

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

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

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

        ' Count
        lTotalRecs = -1
        Try
            If sSql.StartsWith("SELECT * FROM ", StringComparison.InvariantCultureIgnoreCase) AndAlso _
                ew_Empty(ltgFixtureNoteType.SqlGroupBy) AndAlso _
                ew_Empty(ltgFixtureNoteType.SqlHaving) Then
                Dim sCntSql As String = ltgFixtureNoteType.SelectCountSQL

                ' Write SQL for debug
                If EW_DEBUG_ENABLED Then ew_Write("<br>" & sCntSql)
                lTotalRecs = Conn.ExecuteScalar(sCntSql)
            End If
        Catch
        End Try

        ' 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
        ltgFixtureNoteType.Recordset_Selected(Rs)
        Return Rs
    End Function

    '
    ' 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_delete = New cltgFixtureNoteType_delete(Me)
        ltgFixtureNoteType_delete.Page_Init()

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