66.142.0.142/66.142.0.142.tar/66.142.0.142/App_Code/tblTypesinfo.vb

Text File | 2010-08-24 | 21KB | 706 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 tblTypes As ctblTypes

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

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

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

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

        ' Edit URL
        Public Function EditUrl() As String
            Return KeyUrl("tblTypesedit.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("tblTypesadd.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("tblTypesdelete.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(typID.CurrentValue) Then
                sUrl = sUrl & "typID=" & typID.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=tblTypes"
            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)
            typID.DbValue = RsRow("typID")
            typDescription.DbValue = RsRow("typDescription")
            typIsActive.DbValue = IIf(ew_ConvertToBool(RsRow("typIsActive")), "1", "0")
        End Sub

        ' Render list row values
        Public Sub RenderListRow()

            ' Row Rendering event
            Row_Rendering()

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

            ' typDescription
            typDescription.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 = "typID" Then Return typID
            If Name = "typDescription" Then Return typDescription
            If Name = "typIsActive" Then Return typIsActive
            Return Nothing
        End Function

        ' typID
        Private m_typID As cField

        Public ReadOnly Property typID() As cField
            Get
                If m_typID Is Nothing Then m_typID = New cField("tblTypes", "x_typID", "typID", "[typID]", 3, OleDbType.Integer, EW_DATATYPE_NUMBER,  0)
                Return m_typID
            End Get
        End Property

        ' typDescription
        Private m_typDescription As cField

        Public ReadOnly Property typDescription() As cField
            Get
                If m_typDescription Is Nothing Then m_typDescription = New cField("tblTypes", "x_typDescription", "typDescription", "[typDescription]", 202, OleDbType.VarWChar, EW_DATATYPE_STRING,  0)
                Return m_typDescription
            End Get
        End Property

        ' typIsActive
        Private m_typIsActive As cField

        Public ReadOnly Property typIsActive() As cField
            Get
                If m_typIsActive Is Nothing Then m_typIsActive = New cField("tblTypes", "x_typIsActive", "typIsActive", "[typIsActive]", 11, OleDbType.Boolean, EW_DATATYPE_BOOLEAN, 0)
                Return m_typIsActive
            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_typID IsNot Nothing Then m_typID.Dispose()
            If m_typDescription IsNot Nothing Then m_typDescription.Dispose()
            If m_typIsActive IsNot Nothing Then m_typIsActive.Dispose()
        End Sub
    End Class
End Class