66.142.0.142/66.142.0.142.tar/66.142.0.142/App_Code/tblPositionsinfo.vb

Text File | 2015-04-14 | 22KB | 728 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 tblPositions As ctblPositions

    ' Define table class
    Class ctblPositions
        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 "tblPositions"
            End Get
        End Property

        ' Table name
        Public ReadOnly Property TableName() As String
            Get
                Return "tblPositions"
            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 "tblPositions_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 [tblPositions]"
            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 [tblPositions] (" & 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 [tblPositions] 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 [tblPositions] WHERE "
            fld = FieldByName("posID")
            Sql = Sql & fld.FldExpression & "=" & ew_QuotedValue(Rs("posID"), 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 "[posID] = @posID@"
            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(posID.CurrentValue) Then
                    sKeyFilter = "0=1" ' Invalid key
                End If
                sKeyFilter = sKeyFilter.Replace("@posID@", ew_AdjustSql(posID.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 "tblPositionslist.aspx"
                End If
            End Get
        End Property

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

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

        ' Edit URL
        Public Function EditUrl() As String
            Return KeyUrl("tblPositionsedit.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("tblPositionsadd.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("tblPositionsdelete.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(posID.CurrentValue) Then
                sUrl = sUrl & "posID=" & posID.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=tblPositions"
            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)
            posID.DbValue = RsRow("posID")
            posDescription.DbValue = RsRow("posDescription")
            posInDepartment.DbValue = RsRow("posInDepartment")
            posIsActive.DbValue = IIf(ew_ConvertToBool(RsRow("posIsActive")), "1", "0")
        End Sub

        ' Render list row values
        Public Sub RenderListRow()

            ' Row Rendering event
            Row_Rendering()

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

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

            ' posDescription
            posDescription.HrefValue = ""

            ' posInDepartment
            posInDepartment.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 = "posID" Then Return posID
            If Name = "posInDepartment" Then Return posInDepartment
            If Name = "posDescription" Then Return posDescription
            If Name = "posIsActive" Then Return posIsActive
            Return Nothing
        End Function

        ' posID
        Private m_posID As cField

        Public ReadOnly Property posID() As cField
            Get
                If m_posID Is Nothing Then m_posID = New cField("tblPositions", "x_posID", "posID", "[posID]", 3, OleDbType.Integer, EW_DATATYPE_NUMBER,  0)
                Return m_posID
            End Get
        End Property

        ' posDescription
        Private m_posDescription As cField

        Public ReadOnly Property posDescription() As cField
            Get
                If m_posDescription Is Nothing Then m_posDescription = New cField("tblPositions", "x_posDescription", "posDescription", "[posDescription]", 202, OleDbType.VarWChar, EW_DATATYPE_STRING,  0)
                Return m_posDescription
            End Get
        End Property

        ' posInDepartment
        Private m_posInDepartment As cField

        Public ReadOnly Property posInDepartment() As cField
            Get
                If m_posInDepartment Is Nothing Then m_posInDepartment = New cField("tblDepartments", "x_posInDepartment", "posInDepartment", "[posInDepartment]", 3, OleDbType.Integer, EW_DATATYPE_NUMBER, 0)
                Return m_posInDepartment
            End Get
        End Property

        ' posIsActive
        Private m_posIsActive As cField

        Public ReadOnly Property posIsActive() As cField
            Get
                If m_posIsActive Is Nothing Then m_posIsActive = New cField("tblPositions", "x_posIsActive", "posIsActive", "[posIsActive]", 11, OleDbType.Boolean, EW_DATATYPE_BOOLEAN, 0)
                Return m_posIsActive
            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_posID IsNot Nothing Then m_posID.Dispose()
            If m_posDescription IsNot Nothing Then m_posDescription.Dispose()
            If m_posInDepartment IsNot Nothing Then m_posInDepartment.Dispose()
            If m_posIsActive IsNot Nothing Then m_posIsActive.Dispose()
        End Sub
    End Class
End Class