66.142.0.142/66.142.0.142.tar/66.142.0.142/App_Code/ltgFixtureTypeinfo.vb

Text File | 2014-01-25 | 21KB | 719 lines

Imports System.Data
Imports System.Data.Common
Imports System.Data.OleDb

'
' ASP.NET Maker 7 Project Class (Table)
'
Public Partial Class AspNetMaker7_tfpssnet
    Inherits System.Web.UI.Page

    Public ltgFixtureType As cltgFixtureType

    ' Define table class
    Class cltgFixtureType
        Inherits AspNetMakerBase
        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

        ' Constructor
        Public Sub New(ByRef APage As AspNetMakerPage)
            m_Page = APage
            m_ParentPage = APage.ParentPage
        End Sub

        ' Define table level constants
        Public UseTokenInUrl As Boolean = EW_USE_TOKEN_IN_URL

        ' Table variable
        Public ReadOnly Property TableVar() As String
            Get
                Return "ltgFixtureType"
            End Get
        End Property

        ' Table name
        Public ReadOnly Property TableName() As String
            Get
                Return "ltgFixtureType"
            End Get
        End Property

        ' Records per page
        Public Property RecordsPerPage() As Integer
            Get
                Return ew_Session(EW_PROJECT_NAME & "_" & TableVar & "_" & EW_TABLE_REC_PER_PAGE)
            End Get
            Set(ByVal Value As Integer)
                ew_Session(EW_PROJECT_NAME & "_" & TableVar & "_" & EW_TABLE_REC_PER_PAGE) = Value
            End Set
        End Property

        ' Start record number
        Public Property StartRecordNumber() As Integer
            Get
                Return ew_Session(EW_PROJECT_NAME & "_" & TableVar & "_" & EW_TABLE_START_REC)
            End Get
            Set(ByVal Value As Integer)
                ew_Session(EW_PROJECT_NAME & "_" & TableVar & "_" & EW_TABLE_START_REC) = Value
            End Set
        End Property

        ' Search Highlight Name
        Public ReadOnly Property HighlightName() As String
            Get
                Return "ltgFixtureType_Highlight"
            End Get
        End Property

        ' Advanced search
        Public Function GetAdvancedSearch(ByRef fld As Object) As String
            Return Convert.ToString(ew_Session(EW_PROJECT_NAME & "_" & TableVar & "_" & EW_TABLE_ADVANCED_SEARCH & "_" & fld))
        End Function

        Public Sub SetAdvancedSearch(ByRef fld As Object, v As Object)
            If ew_Session(EW_PROJECT_NAME & "_" & TableVar & "_" & EW_TABLE_ADVANCED_SEARCH & "_" & fld) <> v Then
                ew_Session(EW_PROJECT_NAME & "_" & TableVar & "_" & EW_TABLE_ADVANCED_SEARCH & "_" & fld) = v
            End If
        End Sub

        ' Basic search keyword
        Public Property BasicSearchKeyword() As String
            Get
                Return ew_Session(EW_PROJECT_NAME & "_" & TableVar & "_" & EW_TABLE_BASIC_SEARCH)
            End Get
            Set(ByVal Value As String)
                ew_Session(EW_PROJECT_NAME & "_" & TableVar & "_" & EW_TABLE_BASIC_SEARCH) = Value
            End Set
        End Property

        ' Basic Search Type
        Public Property BasicSearchType() As String
            Get
                Return ew_Session(EW_PROJECT_NAME & "_" & TableVar & "_" & EW_TABLE_BASIC_SEARCH_TYPE)
            End Get
            Set(ByVal Value As String)
                ew_Session(EW_PROJECT_NAME & "_" & TableVar & "_" & EW_TABLE_BASIC_SEARCH_TYPE) = Value
            End Set
        End Property

        ' Search WHERE clause
        Public Property SearchWhere() As String
            Get
                Return ew_Session(EW_PROJECT_NAME & "_" & TableVar & "_" & EW_TABLE_SEARCH_WHERE)
            End Get
            Set(ByVal Value As String)
                ew_Session(EW_PROJECT_NAME & "_" & TableVar & "_" & EW_TABLE_SEARCH_WHERE) = Value
            End Set
        End Property

        ' Multiple column sort
        Public Sub UpdateSort(ofld, ctrl)
            Dim sSortField As String, sLastSort As String, sThisSort As String, sOrderBy As String
            If CurrentOrder = ofld.FldName Then
                sSortField = ofld.FldExpression
                sLastSort = ofld.Sort
                If CurrentOrderType = "ASC" OrElse CurrentOrderType = "DESC" Then
                    sThisSort = CurrentOrderType
                Else
                    If sLastSort = "ASC" Then sThisSort = "DESC" Else sThisSort = "ASC"
                End If
                ofld.Sort = sThisSort
                If ctrl Then
                    sOrderBy = SessionOrderBy
                    If sOrderBy.Contains(sSortField & " " & sLastSort) Then
                        sOrderBy = sOrderBy.Replace(sSortField & " " & sLastSort, sSortField & " " & sThisSort)
                    Else
                        If sOrderBy <> "" Then sOrderBy = sOrderBy & ", "
                        sOrderBy = sOrderBy & sSortField & " " & sThisSort
                    End If
                    SessionOrderBy = sOrderBy ' Save to Session
                Else
                    SessionOrderBy = sSortField & " " & sThisSort ' Save to Session
                End If
            Else
                If Not ctrl Then ofld.Sort = ""
            End If
        End Sub

        ' Session WHERE Clause
        Public Property SessionWhere() As String
            Get
                Return ew_Session(EW_PROJECT_NAME & "_" & TableVar & "_" & EW_TABLE_WHERE)
            End Get
            Set(ByVal Value As String)
                ew_Session(EW_PROJECT_NAME & "_" & TableVar & "_" & EW_TABLE_WHERE) = Value
            End Set
        End Property

        ' Session ORDER BY
        Public Property SessionOrderBy() As String
            Get
                Return ew_Session(EW_PROJECT_NAME & "_" & TableVar & "_" & EW_TABLE_ORDER_BY)
            End Get
            Set(ByVal Value As String)
                ew_Session(EW_PROJECT_NAME & "_" & TableVar & "_" & EW_TABLE_ORDER_BY) = Value
            End Set
        End Property

        ' Session key
        Public Function GetKey(ByRef fld As Object) As Object
            Return ew_Session(EW_PROJECT_NAME & "_" & TableVar & "_" & EW_TABLE_KEY & "_" & fld)
        End Function

        Public Sub SetKey(ByRef fld As Object, ByRef v As Object)
            ew_Session(EW_PROJECT_NAME & "_" & TableVar & "_" & EW_TABLE_KEY & "_" & fld) = v
        End Sub

        ' Table level SQL
        Public ReadOnly Property SqlSelect() As String
            Get ' Select
                Return "SELECT * FROM [ltgFixtureType]"
            End Get
        End Property

        Public ReadOnly Property SqlWhere() As String
            Get ' Where
                Return ""
            End Get
        End Property

        Public ReadOnly Property SqlGroupBy() As String
            Get ' Group By
                Return ""
            End Get
        End Property

        Public ReadOnly Property SqlHaving() As String
            Get ' Having
                Return ""
            End Get
        End Property

        Public ReadOnly Property SqlOrderBy() As String
            Get ' Order By
                Return ""
            End Get
        End Property

        ' SQL variables
        Public CurrentFilter As String ' Current filter

        Public CurrentOrder As String ' Current order

        Public CurrentOrderType As String ' Current order type

        ' Get SQL
        Public Function GetSQL(where As String, orderby As String) As String
            Return ew_BuildSelectSql(SqlSelect, SqlWhere, SqlGroupBy, SqlHaving, SqlOrderBy, where, orderby)
        End Function

        ' Table SQL
        Public ReadOnly Property SQL() As String
            Get
                Dim sFilter As String, sSort As String
                sFilter = CurrentFilter
                sSort = SessionOrderBy
                Return ew_BuildSelectSql(SqlSelect, SqlWhere, SqlGroupBy, SqlHaving, SqlOrderBy, sFilter, sSort)
            End Get
        End Property

        ' Return table SQL with list page filter
        Public ReadOnly Property ListSQL() As String
            Get
                Dim sFilter As String, sSort As String
                sFilter = SessionWhere
                If CurrentFilter <> "" Then
                    If sFilter <> "" Then
                        sFilter = "(" & sFilter & ") AND (" & CurrentFilter & ")"
                    Else
                        sFilter = CurrentFilter
                    End If
                End If
                sSort = SessionOrderBy
                Return ew_BuildSelectSql(SqlSelect, SqlWhere, SqlGroupBy, SqlHaving, SqlOrderBy, sFilter, sSort)
            End Get
        End Property

        ' Return SQL for record count
        Public ReadOnly Property SelectCountSQL() As String
            Get
                Dim sFilter As String = SessionWhere
                If CurrentFilter <> "" Then
                    If sFilter <> "" Then
                        sFilter = "(" & sFilter & ") AND (" & CurrentFilter & ")"
                    Else
                        sFilter = CurrentFilter
                    End If
                End If
                Return ew_BuildSelectSql("SELECT COUNT(*) FROM " & SqlSelect.Substring(14), SqlWhere, "", "", "", sFilter, "")
            End Get
        End Property

        ' Insert
        Public Function Insert(ByRef Rs As OrderedDictionary) As Integer
            Dim Sql As String = ""
            Dim names As String = ""
            Dim values As String = ""
            Dim value As Object
            Dim fld As cField
            For Each f As DictionaryEntry In Rs
                fld = FieldByName(f.Key)
                If fld IsNot Nothing Then
                    names = names & fld.FldExpression & ","
                    values = values & EW_DB_SQLPARAM_SYMBOL
                    If EW_DB_SQLPARAM_SYMBOL <> "?" Then values = values & fld.FldVar
                    values = values & ","
                End If
            Next f
            If names.EndsWith(",") Then names = names.Remove(names.Length - 1)
            If values.EndsWith(",") Then values = values.Remove(values.Length - 1)
            If names = "" Then Return -1
            Sql = "INSERT INTO [ltgFixtureType] (" & names & ") VALUES (" & values & ")"
            Dim command As OleDbCommand = Conn.GetCommand(Sql)
            For Each f As DictionaryEntry In Rs
                fld = FieldByName(f.Key)
                If fld IsNot Nothing Then
                    value = f.Value
                    command.Parameters.Add(fld.FldVar, fld.FldDbType).Value = value
                End If
            Next
            Return command.ExecuteNonQuery()
        End Function

        ' Update
        Public Function Update(ByRef Rs As OrderedDictionary) As Integer
            Dim Sql As String = ""
            Dim values As String = ""
            Dim value As Object
            Dim fld As cField
            For Each f As DictionaryEntry In Rs
                fld = FieldByName(f.Key)
                If fld IsNot Nothing Then
                    values = values & fld.FldExpression & "=" & EW_DB_SQLPARAM_SYMBOL
                    If EW_DB_SQLPARAM_SYMBOL <> "?" Then values = values & fld.FldVar
                    values = values & ","
                End If
            Next f
            If values.EndsWith(",") Then values = values.Remove(values.Length - 1)
            If values = "" Then Return -1
            Sql = "UPDATE [ltgFixtureType] SET " & values
            If CurrentFilter <> "" Then Sql = Sql & " WHERE " & CurrentFilter
            Dim command As OleDbCommand = Conn.GetCommand(Sql)
            For Each f As DictionaryEntry In Rs
                fld = FieldByName(f.Key)
                If fld IsNot Nothing Then
                    value = f.Value
                    command.Parameters.Add(fld.FldVar, fld.FldDbType).Value = value
                End If
            Next
            Return command.ExecuteNonQuery()
        End Function

        ' Delete
        Public Function Delete(ByRef Rs As OrderedDictionary) As Integer
            Dim Sql As String
            Dim fld As cField
            Sql = "DELETE FROM [ltgFixtureType] WHERE "
            fld = FieldByName("ftyID")
            Sql = Sql & fld.FldExpression & "=" & ew_QuotedValue(Rs("ftyID"), EW_DATATYPE_NUMBER) & " AND "
            If Sql.EndsWith(" AND ") Then Sql = Sql.Remove(Sql.Length - 5)
            If CurrentFilter <> "" Then    Sql = Sql & " AND " & CurrentFilter
            Return Conn.Execute(Sql)
        End Function

        ' Key filter for table
        Private ReadOnly Property SqlKeyFilter() As String
            Get
                Return "[ftyID] = @ftyID@"
            End Get
        End Property

        ' Return Key filter for table
        Public ReadOnly Property KeyFilter() As String
            Get
                Dim sKeyFilter As String
                sKeyFilter = SqlKeyFilter
                If Not IsNumeric(ftyID.CurrentValue) Then
                    sKeyFilter = "0=1" ' Invalid key
                End If
                sKeyFilter = sKeyFilter.Replace("@ftyID@", ew_AdjustSql(ftyID.CurrentValue)) ' Replace key value
                Return sKeyFilter
            End Get
        End Property

        ' Return URL
        Public ReadOnly Property ReturnUrl() As String
            Get ' Get referer URL automatically
                If HttpContext.Current.Request.ServerVariables("HTTP_REFERER") IsNot Nothing Then
                    If ew_ReferPage() <> ew_CurrentPage() AndAlso ew_ReferPage() <> "login.aspx" Then ' Referer not same page or login page
                        Dim url As String = HttpContext.Current.Request.ServerVariables("HTTP_REFERER")
                        If url.Contains("?a=") Then ' Remove action
                            Dim p1 As Integer = url.LastIndexOf("?a=")
                            Dim p2 As Integer = url.IndexOf("&", p1)
                            If p2 > -1 Then
                                url = url.Substring(0, p1 + 1) & url.Substring(p2 + 1)
                            Else
                                url = url.Substring(0, p1)
                            End If
                        End If
                        ew_Session(EW_PROJECT_NAME & "_" & TableVar & "_" & EW_TABLE_RETURN_URL) = url ' Save to Session
                    End If
                End If
                If ew_NotEmpty(ew_Session(EW_PROJECT_NAME & "_" & TableVar & "_" & EW_TABLE_RETURN_URL)) Then
                    Return ew_Session(EW_PROJECT_NAME & "_" & TableVar & "_" & EW_TABLE_RETURN_URL)
                Else
                    Return "ltgFixtureTypelist.aspx"
                End If
            End Get
        End Property

        ' View URL
        Public Function ViewUrl() As String
            Return KeyUrl("ltgFixtureTypeview.aspx", UrlParm(""))
        End Function

        ' Add URL
        Public Function AddUrl() As String
            AddUrl = "ltgFixtureTypeadd.aspx"
            Dim sUrlParm As String
            sUrlParm = UrlParm("")
            If sUrlParm <> "" Then AddUrl = AddUrl & "?" & sUrlParm
        End Function

        ' Edit URL
        Public Function EditUrl() As String
            Return KeyUrl("ltgFixtureTypeedit.aspx", UrlParm(""))
        End Function

        ' Inline edit URL
        Public Function InlineEditUrl() As String
            Return KeyUrl(ew_CurrentPage(), UrlParm("a=edit"))
        End Function

        ' Copy URL
        Public Function CopyUrl() As String
            Return KeyUrl("ltgFixtureTypeadd.aspx", UrlParm(""))
        End Function

        ' Inline copy URL
        Public Function InlineCopyUrl() As String
            Return KeyUrl(ew_CurrentPage(), UrlParm("a=copy"))
        End Function

        ' Delete URL
        Public Function DeleteUrl() As String
            Return KeyUrl("ltgFixtureTypedelete.aspx", UrlParm(""))
        End Function

        ' Key URL
        Public Function KeyUrl(url As String, parm As String) As String
            Dim sUrl As String
            sUrl = url & "?"
            If parm <> "" Then sUrl = sUrl & parm & "&"
            If Not IsDbNull(ftyID.CurrentValue) Then
                sUrl = sUrl & "ftyID=" & ftyID.CurrentValue
            Else
                Return "javascript:alert('Invalid Record! Key is null');"
            End If
            Return sUrl
        End Function

        ' URL parm
        Function UrlParm(parm As String) As String
            Dim OutStr As String = ""
            If UseTokenInUrl Then
                OutStr = "t=ltgFixtureType"
            End If
            If parm <> "" Then
                If OutStr <> "" Then OutStr = OutStr & "&"
                OutStr = OutStr & parm
            End If
            Return OutStr
        End Function

        ' Sort URL
        Public Function SortUrl(ByRef fld As cField) As String
            Dim OutStr As String = ""
            If CurrentAction <> "" OrElse Export <> "" OrElse (fld.FldType = 201 OrElse fld.FldType = 203 OrElse fld.FldType = 205) Then
                OutStr = ""
            Else
                OutStr = ew_CurrentPage()
                Dim sUrlParm As String
                sUrlParm = UrlParm("order=" & HttpContext.Current.Server.UrlEncode(fld.FldName) & "&ordertype=" & fld.ReverseSort)
                OutStr = OutStr & "?" & sUrlParm
            End If
            Return OutStr
        End Function

        ' Load rows based on filter
        Public Function LoadRs(sFilter As String) As OleDbDataReader
            Dim RsRows As OleDbDataReader

            ' Set up filter (SQL WHERE clause)
            CurrentFilter = sFilter
            Dim sSql As String = SQL()
            Try
                RsRows = Conn.GetDataReader(sSql)
                If RsRows.HasRows Then
                    Return RsRows
                Else
                    RsRows.Close()
                    RsRows.Dispose()
                End If
            Catch
            End Try
            Return Nothing
        End Function

        ' Load row values from recordset
        Public Sub LoadListRowValues(ByRef RsRow As OleDbDataReader)
            ftyID.DbValue = RsRow("ftyID")
            ftyDescription.DbValue = RsRow("ftyDescription")
            ftyIsActive.DbValue = IIf(ew_ConvertToBool(RsRow("ftyIsActive")), "1", "0")
        End Sub

        ' Render list row values
        Public Sub RenderListRow()

            ' Row Rendering event
            Row_Rendering()

            ' ftyDescription
            ftyDescription.ViewValue = ftyDescription.CurrentValue
            ftyDescription.CssStyle = ""
            ftyDescription.CssClass = ""
            ftyDescription.ViewCustomAttributes = ""

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

            ' ftyDescription
            ftyDescription.HrefValue = ""

            ' ftyIsActive
            ftyIsActive.HrefValue = ""

            ' Row Rendered event
            Row_Rendered()
        End Sub

        Public CurrentAction As String ' Current action

        Public EventCancelled As Boolean ' Event cancelled

        Public CancelMessage As String ' Cancel message

        ' Row Type
        Public RowType As Integer

        Public CssClass As String = "" ' CSS class

        Public CssStyle As String = "" ' CSS style

        Public RowClientEvents As String = "" ' Row client events

        ' Row Attribute
        Public ReadOnly Property RowAttributes() As String
            Get
                Dim sAtt As String = ""
                If ew_NotEmpty(CssStyle) Then
                    sAtt = sAtt & " style=""" & CssStyle.Trim() & """"
                End If
                If ew_NotEmpty(CssClass) Then
                    sAtt = sAtt & " class=""" & CssClass.Trim() & """"
                End If
                If m_Export = "" Then
                    If ew_NotEmpty(RowClientEvents) Then
                        sAtt = sAtt & " " & RowClientEvents.Trim()
                    End If
                End If
                Return sAtt
            End Get
        End Property

        ' Export
        Private m_Export As String

        Public Property Export() As String
            Get
                Return m_Export
            End Get
            Set(ByVal Value As String)
                m_Export = Value
            End Set
        End Property

        ' Export Original Value
        Public ExportOriginalValue As Boolean = EW_EXPORT_ORIGINAL_VALUE

        ' Export All
        Public ExportAll As Boolean = EW_EXPORT_ALL

        ' Send Email
        Public SendEmail As Boolean

        ' Custom Inner Html
        Public TableCustomInnerHtml As Object

        '
        '  Field objects
        '
        Public Function FieldByName(Name As String) As Object
            If Name = "ftyID" Then Return ftyID
            If Name = "ftyDescription" Then Return ftyDescription
            If Name = "ftyIsActive" Then Return ftyIsActive
            Return Nothing
        End Function

        ' ftyID
        Private m_ftyID As cField

        Public ReadOnly Property ftyID() As cField
            Get
                If m_ftyID Is Nothing Then m_ftyID = New cField("ltgFixtureType", "x_ftyID", "ftyID", "[ftyID]", 3, OleDbType.Integer, EW_DATATYPE_NUMBER,  0)
                Return m_ftyID
            End Get
        End Property

        ' ftyDescription
        Private m_ftyDescription As cField

        Public ReadOnly Property ftyDescription() As cField
            Get
                If m_ftyDescription Is Nothing Then m_ftyDescription = New cField("ltgFixtureType", "x_ftyDescription", "ftyDescription", "[ftyDescription]", 202, OleDbType.VarWChar, EW_DATATYPE_STRING,  0)
                Return m_ftyDescription
            End Get
        End Property

        ' ftyIsActive
        Private m_ftyIsActive As cField

        Public ReadOnly Property ftyIsActive() As cField
            Get
                If m_ftyIsActive Is Nothing Then m_ftyIsActive = New cField("ltgFixtureType", "x_ftyIsActive", "ftyIsActive", "[ftyIsActive]", 11, OleDbType.Boolean, EW_DATATYPE_BOOLEAN,  0)
                Return m_ftyIsActive
            End Get
        End Property

        ' Table level events
        ' Recordset Selecting event
        Public Sub Recordset_Selecting(ByRef filter As String)

            ' Enter your code here
        End Sub

        ' Recordset Selected event
        Public Sub Recordset_Selected(rs As DbDataReader)

            'HttpContext.Current.Response.Write("Recordset Selected")
        End Sub

        ' Recordset Searching event
        Public Sub Recordset_Searching(ByRef filter As String)

            ' Enter your code here
        End Sub

        ' Row_Selecting event
        Public Sub Row_Selecting(ByRef filter As String)

            ' Enter your code here
        End Sub

        ' Row Selected event
        Public Sub Row_Selected(rs As DbDataReader)

            'HttpContext.Current.Response.Write("Row Selected")
        End Sub

        ' Row Rendering event
        Public Sub Row_Rendering()

            ' Enter your code here
        End Sub

        ' Row Rendered event
        Public Sub Row_Rendered()

            ' To view properties of field class, use:
            ' HttpContext.Current.Response.Write(<FieldName>.AsString())

        End Sub

        ' Row Inserting event
        Public Function Row_Inserting(ByRef rs As OrderedDictionary) As Boolean

            ' Enter your code here
            ' To cancel, set return value to False and error message to CancelMessage

            Return True
        End Function

        ' Row Inserted event
        Public Sub Row_Inserted(rs As OrderedDictionary)

            'HttpContext.Current.Response.Write("Row Inserted")
        End Sub

        ' Row Updating event
        Public Function Row_Updating(rsold As OrderedDictionary, ByRef rsnew As OrderedDictionary) As Boolean

            ' Enter your code here
            ' To cancel, set return value to False and error message to CancelMessage

            Return True
        End Function

        ' Row Updated event
        Public Sub Row_Updated(rsold As OrderedDictionary, rsnew As OrderedDictionary)

            'HttpContext.Current.Response.Write("Row Updated")
        End Sub

        ' Recordset Deleting event
        Public Function Row_Deleting(rs As OrderedDictionary) As Boolean

            ' Enter your code here
            ' To cancel, set return value to False and error message to CancelMessage

            Return True
        End Function

        ' Recordset Deleted event
        Public Sub Row_Deleted(rs As OrderedDictionary)

            'HttpContext.Current.Response.Write("Row Deleted")
        End Sub

        ' Email Sending event
        Public Function Email_Sending(ByRef Email As cEmail, Args As Hashtable) As Boolean

            'HttpContext.Current.Response.Write(Email.AsString())
            'HttpContext.Current.Response.End()

            Return True
        End Function

        ' Class terminate
        Public Sub Dispose() Implements IDisposable.Dispose
            If m_ftyID IsNot Nothing Then m_ftyID.Dispose()
            If m_ftyDescription IsNot Nothing Then m_ftyDescription.Dispose()
            If m_ftyIsActive IsNot Nothing Then m_ftyIsActive.Dispose()
        End Sub
    End Class
End Class