Click here to Skip to main content
15,880,905 members
Articles / Programming Languages / Visual Basic

PeopleTrac – People Management for Not-For-Profit Organizations

Rate me:
Please Sign up or sign in to vote.
4.91/5 (10 votes)
3 Jan 2012CPOL6 min read 23.9K   877   13  
Demonstrates several LightSwitch capabilities including WCF-RIA services, Native SQL, Name and Addres merge purge
'------------------------------------------------------------------------------
' <auto-generated>
'     This code was generated by a tool.
'
'     Changes to this file may cause incorrect behavior and will be lost if
'     the code is regenerated.
' </auto-generated>
'------------------------------------------------------------------------------

Option Strict On
Option Explicit On

Imports __MatchResult = LightSwitchApplication.MatchResult

Namespace LightSwitchApplication

    #Region "Entities"
    
    ''' <summary>
    ''' No Modeled Description Available
    ''' </summary>
    <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("Microsoft.LightSwitch.BuildTasks.CodeGen", "10.0.0.0")> _
    Public NotInheritable Partial Class MatchResult
        Inherits Global.Microsoft.LightSwitch.Framework.Base.EntityObject(Of __MatchResult, __MatchResult.DetailsClass)
    
        #Region "Constructors"
    
        ''' <summary>
        ''' Initializes a new instance of the MatchResult entity.
        ''' </summary>
        <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("Microsoft.LightSwitch.BuildTasks.CodeGen", "10.0.0.0")> _
        <Global.System.Diagnostics.DebuggerNonUserCodeAttribute()> _
        Public Sub New()
            Me.New(Nothing)
        End Sub
    
        <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("Microsoft.LightSwitch.BuildTasks.CodeGen", "10.0.0.0")> _
        <Global.System.Diagnostics.DebuggerNonUserCodeAttribute()> _
        Public Sub New(entitySet As Global.Microsoft.LightSwitch.Framework.EntitySet(Of __MatchResult))
            MyBase.New(entitySet)
            
            __MatchResult.DetailsClass.Initialize(Me)
        End Sub
    
        <Global.System.ComponentModel.EditorBrowsable(Global.System.ComponentModel.EditorBrowsableState.Advanced)> _
        Private Partial Sub MatchResult_Created()
        End Sub
        <Global.System.ComponentModel.EditorBrowsable(Global.System.ComponentModel.EditorBrowsableState.Advanced)> _
        Private Partial Sub MatchResult_AllowSaveWithErrors(ByRef result As Boolean)
        End Sub
    
        #End Region
    
        #Region "Private Properties"
        
        ''' <summary>
        ''' Gets the Application object for this application.  The Application object provides access to active screens, methods to open screens and access to the current user.
        ''' </summary>
        <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("Microsoft.LightSwitch.BuildTasks.CodeGen", "10.0.0.0")> _
        <Global.System.Diagnostics.DebuggerNonUserCodeAttribute()> _
        Private ReadOnly Property Application As Global.Microsoft.LightSwitch.IApplication(Of Global.LightSwitchApplication.DataWorkspace)
            Get
                Return Global.LightSwitchApplication.Application.Current
            End Get
        End Property
        
        ''' <summary>
        ''' Gets the containing data workspace.  The data workspace provides access to all data sources in the application.
        ''' </summary>
        <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("Microsoft.LightSwitch.BuildTasks.CodeGen", "10.0.0.0")> _
        <Global.System.Diagnostics.DebuggerNonUserCodeAttribute()> _
        Private ReadOnly Property DataWorkspace As Global.LightSwitchApplication.DataWorkspace
            Get
                Return DirectCast(Me.Details.EntitySet.Details.DataService.Details.DataWorkspace, Global.LightSwitchApplication.DataWorkspace)
            End Get
        End Property
        
        #End Region
    
        #Region "Public Properties"
    
        ''' <summary>
        ''' No Modeled Description Available
        ''' </summary>
        <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("Microsoft.LightSwitch.BuildTasks.CodeGen", "10.0.0.0")> _
        <Global.System.Diagnostics.DebuggerNonUserCodeAttribute()> _
        Public Property ID As Integer
            Get
                Return __MatchResult.DetailsClass.GetValue(Me, __MatchResult.DetailsClass.PropertySetProperties.ID)
            End Get
            Set
                __MatchResult.DetailsClass.SetValue(Me, __MatchResult.DetailsClass.PropertySetProperties.ID, Value)
            End Set
        End Property
        
        <Global.System.ComponentModel.EditorBrowsable(Global.System.ComponentModel.EditorBrowsableState.Advanced)> _
        Private Partial Sub ID_IsReadOnly(ByRef result As Boolean)
        End Sub
        <Global.System.ComponentModel.EditorBrowsable(Global.System.ComponentModel.EditorBrowsableState.Advanced)> _
        Private Partial Sub ID_Validate(ByVal results As Global.Microsoft.LightSwitch.EntityValidationResultsBuilder)
        End Sub
        <Global.System.ComponentModel.EditorBrowsable(Global.System.ComponentModel.EditorBrowsableState.Advanced)> _
        Private Partial Sub ID_Changed()
        End Sub

        ''' <summary>
        ''' No Modeled Description Available
        ''' </summary>
        <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("Microsoft.LightSwitch.BuildTasks.CodeGen", "10.0.0.0")> _
        <Global.System.Diagnostics.DebuggerNonUserCodeAttribute()> _
        Public Property MatchResult1 As String
            Get
                Return __MatchResult.DetailsClass.GetValue(Me, __MatchResult.DetailsClass.PropertySetProperties.MatchResult1)
            End Get
            Set
                __MatchResult.DetailsClass.SetValue(Me, __MatchResult.DetailsClass.PropertySetProperties.MatchResult1, Value)
            End Set
        End Property
        
        <Global.System.ComponentModel.EditorBrowsable(Global.System.ComponentModel.EditorBrowsableState.Advanced)> _
        Private Partial Sub MatchResult1_IsReadOnly(ByRef result As Boolean)
        End Sub
        <Global.System.ComponentModel.EditorBrowsable(Global.System.ComponentModel.EditorBrowsableState.Advanced)> _
        Private Partial Sub MatchResult1_Validate(ByVal results As Global.Microsoft.LightSwitch.EntityValidationResultsBuilder)
        End Sub
        <Global.System.ComponentModel.EditorBrowsable(Global.System.ComponentModel.EditorBrowsableState.Advanced)> _
        Private Partial Sub MatchResult1_Changed()
        End Sub

        ''' <summary>
        ''' No Modeled Description Available
        ''' </summary>
        <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("Microsoft.LightSwitch.BuildTasks.CodeGen", "10.0.0.0")> _
        <Global.System.Diagnostics.DebuggerNonUserCodeAttribute()> _
        Public Property Count As Integer
            Get
                Return __MatchResult.DetailsClass.GetValue(Me, __MatchResult.DetailsClass.PropertySetProperties.Count)
            End Get
            Set
                __MatchResult.DetailsClass.SetValue(Me, __MatchResult.DetailsClass.PropertySetProperties.Count, Value)
            End Set
        End Property
        
        <Global.System.ComponentModel.EditorBrowsable(Global.System.ComponentModel.EditorBrowsableState.Advanced)> _
        Private Partial Sub Count_IsReadOnly(ByRef result As Boolean)
        End Sub
        <Global.System.ComponentModel.EditorBrowsable(Global.System.ComponentModel.EditorBrowsableState.Advanced)> _
        Private Partial Sub Count_Validate(ByVal results As Global.Microsoft.LightSwitch.EntityValidationResultsBuilder)
        End Sub
        <Global.System.ComponentModel.EditorBrowsable(Global.System.ComponentModel.EditorBrowsableState.Advanced)> _
        Private Partial Sub Count_Changed()
        End Sub

        #End Region
    
        #Region "Details Class"
    
        <Global.System.ComponentModel.EditorBrowsable(Global.System.ComponentModel.EditorBrowsableState.Never)> _
        <Global.System.Diagnostics.CodeAnalysis.SuppressMessage("Microsoft.Design", "CA1034:NestedTypesShouldNotBeVisible")> _
        <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("Microsoft.LightSwitch.BuildTasks.CodeGen", "10.0.0.0")> _
        <Global.System.Diagnostics.DebuggerNonUserCodeAttribute()> _
        Public NotInheritable Class DetailsClass
            Inherits Global.Microsoft.LightSwitch.Details.Framework.Base.EntityDetails(Of _
                __MatchResult, _
                __MatchResult.DetailsClass, _
                __MatchResult.DetailsClass.IImplementation, _
                __MatchResult.DetailsClass.PropertySet, _
                Global.Microsoft.LightSwitch.Details.Framework.EntityCommandSet(Of __MatchResult, __MatchResult.DetailsClass), _
                Global.Microsoft.LightSwitch.Details.Framework.EntityMethodSet(Of __MatchResult, __MatchResult.DetailsClass))
    
            Shared Sub New()
                Dim initializeEntry = __MatchResult.DetailsClass.PropertySetProperties.ID
            End Sub
    
            <Global.System.Diagnostics.DebuggerBrowsable(Global.System.Diagnostics.DebuggerBrowsableState.Never)> _
            Private Shared ReadOnly __MatchResultEntry As Global.Microsoft.LightSwitch.Details.Framework.Base.EntityDetails(Of __MatchResult, __MatchResult.DetailsClass).Entry = _
                New Global.Microsoft.LightSwitch.Details.Framework.Base.EntityDetails(Of __MatchResult, __MatchResult.DetailsClass).Entry( _
                    AddressOf __MatchResult.DetailsClass.__MatchResult_CreateNew, _
                    AddressOf __MatchResult.DetailsClass.__MatchResult_Created, _
                    AddressOf __MatchResult.DetailsClass.__MatchResult_AllowSaveWithErrors)
            Private Shared Function __MatchResult_CreateNew(es As Global.Microsoft.LightSwitch.Framework.EntitySet(Of __MatchResult)) As __MatchResult
                Return New __MatchResult(es)
            End Function
            Private Shared Sub __MatchResult_Created(e As __MatchResult)
                e.MatchResult_Created()
            End Sub
            Private Shared Function __MatchResult_AllowSaveWithErrors(e As __MatchResult) As Boolean
                Dim result As Boolean = False
                e.MatchResult_AllowSaveWithErrors(result)
                Return result
            End Function
    
            Public Sub New()
                MyBase.New()
            End Sub
    
            Public ReadOnly Shadows Property Commands As Global.Microsoft.LightSwitch.Details.Framework.EntityCommandSet(Of __MatchResult, __MatchResult.DetailsClass)
                Get
                    Return MyBase.Commands
                End Get
            End Property
    
            Public ReadOnly Shadows Property Methods As Global.Microsoft.LightSwitch.Details.Framework.EntityMethodSet(Of __MatchResult, __MatchResult.DetailsClass)
                Get
                    Return MyBase.Methods
                End Get
            End Property
    
            Public ReadOnly Shadows Property Properties As __MatchResult.DetailsClass.PropertySet
                Get
                    Return MyBase.Properties
                End Get
            End Property
    
            <Global.System.ComponentModel.EditorBrowsable(Global.System.ComponentModel.EditorBrowsableState.Never)> _
            <Global.System.Diagnostics.CodeAnalysis.SuppressMessage("Microsoft.Design", "CA1034:NestedTypesShouldNotBeVisible")> _
            <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("Microsoft.LightSwitch.BuildTasks.CodeGen", "10.0.0.0")> _
            <Global.System.Diagnostics.DebuggerNonUserCodeAttribute()> _
            Public NotInheritable Class PropertySet
                Inherits Global.Microsoft.LightSwitch.Details.Framework.Base.EntityPropertySet(Of __MatchResult, __MatchResult.DetailsClass)
    
                Public Sub New()
                    MyBase.New()
                End Sub
    
                Public ReadOnly Property ID As Global.Microsoft.LightSwitch.Details.Framework.EntityStorageProperty(Of __MatchResult, __MatchResult.DetailsClass, Integer)
                    Get
                        Return TryCast(
                            MyBase.GetItem(__MatchResult.DetailsClass.PropertySetProperties.ID),
                            Global.Microsoft.LightSwitch.Details.Framework.EntityStorageProperty(Of __MatchResult, __MatchResult.DetailsClass, Integer))
                    End Get
                End Property
                
                Public ReadOnly Property MatchResult1 As Global.Microsoft.LightSwitch.Details.Framework.EntityStorageProperty(Of __MatchResult, __MatchResult.DetailsClass, String)
                    Get
                        Return TryCast(
                            MyBase.GetItem(__MatchResult.DetailsClass.PropertySetProperties.MatchResult1),
                            Global.Microsoft.LightSwitch.Details.Framework.EntityStorageProperty(Of __MatchResult, __MatchResult.DetailsClass, String))
                    End Get
                End Property
                
                Public ReadOnly Property Count As Global.Microsoft.LightSwitch.Details.Framework.EntityStorageProperty(Of __MatchResult, __MatchResult.DetailsClass, Integer)
                    Get
                        Return TryCast(
                            MyBase.GetItem(__MatchResult.DetailsClass.PropertySetProperties.Count),
                            Global.Microsoft.LightSwitch.Details.Framework.EntityStorageProperty(Of __MatchResult, __MatchResult.DetailsClass, Integer))
                    End Get
                End Property
                
            End Class
    
            <Global.System.Diagnostics.CodeAnalysis.SuppressMessage("Microsoft.Design", "CA1034:NestedTypesShouldNotBeVisible")> _
            Public Interface IImplementation
                Inherits Global.Microsoft.LightSwitch.Internal.IEntityImplementation
    
                Shadows Property ID As Integer
                Shadows Property MatchResult1 As String
                Shadows Property Count As Integer
    
            End Interface
    
            <Global.System.ComponentModel.EditorBrowsable(Global.System.ComponentModel.EditorBrowsableState.Never)> _
            <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("Microsoft.LightSwitch.BuildTasks.CodeGen", "10.0.0.0")> _
            <Global.System.Diagnostics.DebuggerNonUserCodeAttribute()> _
            Friend Class PropertySetProperties
    
                <Global.System.Diagnostics.DebuggerBrowsable(Global.System.Diagnostics.DebuggerBrowsableState.Never)> _
                Public Shared ReadOnly ID As Global.Microsoft.LightSwitch.Details.Framework.EntityStorageProperty(Of __MatchResult, __MatchResult.DetailsClass, Integer).Entry = _
                    New Global.Microsoft.LightSwitch.Details.Framework.EntityStorageProperty(Of __MatchResult, __MatchResult.DetailsClass, Integer).Entry( _
                        "ID", _
                        AddressOf __MatchResult.DetailsClass.PropertySetProperties._ID_Stub, _
                        AddressOf __MatchResult.DetailsClass.PropertySetProperties._ID_ComputeIsReadOnly, _
                        AddressOf __MatchResult.DetailsClass.PropertySetProperties._ID_Validate, _
                        AddressOf __MatchResult.DetailsClass.PropertySetProperties._ID_GetImplementationValue, _
                        AddressOf __MatchResult.DetailsClass.PropertySetProperties._ID_SetImplementationValue, _
                        AddressOf __MatchResult.DetailsClass.PropertySetProperties._ID_OnValueChanged)
                Private Shared Sub _ID_Stub(c As Global.Microsoft.LightSwitch.Details.Framework.Base.DetailsCallback(Of __MatchResult.DetailsClass, Global.Microsoft.LightSwitch.Details.Framework.EntityStorageProperty(Of __MatchResult, __MatchResult.DetailsClass, Integer).Data), d As __MatchResult.DetailsClass, sf As Object)
                    c(d, d._ID, sf)
                End Sub
                Private Shared Function _ID_ComputeIsReadOnly(e As __MatchResult) As Boolean
                    Dim result As Boolean = False
                    e.ID_IsReadOnly(result)
                    Return result
                End Function
                Private Shared Sub _ID_Validate(e As __MatchResult, r As Global.Microsoft.LightSwitch.EntityValidationResultsBuilder)
                    e.ID_Validate(r)
                End Sub
                Private Shared Function _ID_GetImplementationValue(d As __MatchResult.DetailsClass) As Integer
                    Return d.ImplementationEntity.ID
                End Function
                Private Shared Sub _ID_SetImplementationValue(d As __MatchResult.DetailsClass, v As Integer)
                    d.ImplementationEntity.ID = v
                End Sub
                Private Shared Sub _ID_OnValueChanged(e As __MatchResult)
                    e.ID_Changed()
                End Sub
    
                <Global.System.Diagnostics.DebuggerBrowsable(Global.System.Diagnostics.DebuggerBrowsableState.Never)> _
                Public Shared ReadOnly MatchResult1 As Global.Microsoft.LightSwitch.Details.Framework.EntityStorageProperty(Of __MatchResult, __MatchResult.DetailsClass, String).Entry = _
                    New Global.Microsoft.LightSwitch.Details.Framework.EntityStorageProperty(Of __MatchResult, __MatchResult.DetailsClass, String).Entry( _
                        "MatchResult1", _
                        AddressOf __MatchResult.DetailsClass.PropertySetProperties._MatchResult1_Stub, _
                        AddressOf __MatchResult.DetailsClass.PropertySetProperties._MatchResult1_ComputeIsReadOnly, _
                        AddressOf __MatchResult.DetailsClass.PropertySetProperties._MatchResult1_Validate, _
                        AddressOf __MatchResult.DetailsClass.PropertySetProperties._MatchResult1_GetImplementationValue, _
                        AddressOf __MatchResult.DetailsClass.PropertySetProperties._MatchResult1_SetImplementationValue, _
                        AddressOf __MatchResult.DetailsClass.PropertySetProperties._MatchResult1_OnValueChanged)
                Private Shared Sub _MatchResult1_Stub(c As Global.Microsoft.LightSwitch.Details.Framework.Base.DetailsCallback(Of __MatchResult.DetailsClass, Global.Microsoft.LightSwitch.Details.Framework.EntityStorageProperty(Of __MatchResult, __MatchResult.DetailsClass, String).Data), d As __MatchResult.DetailsClass, sf As Object)
                    c(d, d._MatchResult1, sf)
                End Sub
                Private Shared Function _MatchResult1_ComputeIsReadOnly(e As __MatchResult) As Boolean
                    Dim result As Boolean = False
                    e.MatchResult1_IsReadOnly(result)
                    Return result
                End Function
                Private Shared Sub _MatchResult1_Validate(e As __MatchResult, r As Global.Microsoft.LightSwitch.EntityValidationResultsBuilder)
                    e.MatchResult1_Validate(r)
                End Sub
                Private Shared Function _MatchResult1_GetImplementationValue(d As __MatchResult.DetailsClass) As String
                    Return d.ImplementationEntity.MatchResult1
                End Function
                Private Shared Sub _MatchResult1_SetImplementationValue(d As __MatchResult.DetailsClass, v As String)
                    d.ImplementationEntity.MatchResult1 = v
                End Sub
                Private Shared Sub _MatchResult1_OnValueChanged(e As __MatchResult)
                    e.MatchResult1_Changed()
                End Sub
    
                <Global.System.Diagnostics.DebuggerBrowsable(Global.System.Diagnostics.DebuggerBrowsableState.Never)> _
                Public Shared ReadOnly Count As Global.Microsoft.LightSwitch.Details.Framework.EntityStorageProperty(Of __MatchResult, __MatchResult.DetailsClass, Integer).Entry = _
                    New Global.Microsoft.LightSwitch.Details.Framework.EntityStorageProperty(Of __MatchResult, __MatchResult.DetailsClass, Integer).Entry( _
                        "Count", _
                        AddressOf __MatchResult.DetailsClass.PropertySetProperties._Count_Stub, _
                        AddressOf __MatchResult.DetailsClass.PropertySetProperties._Count_ComputeIsReadOnly, _
                        AddressOf __MatchResult.DetailsClass.PropertySetProperties._Count_Validate, _
                        AddressOf __MatchResult.DetailsClass.PropertySetProperties._Count_GetImplementationValue, _
                        AddressOf __MatchResult.DetailsClass.PropertySetProperties._Count_SetImplementationValue, _
                        AddressOf __MatchResult.DetailsClass.PropertySetProperties._Count_OnValueChanged)
                Private Shared Sub _Count_Stub(c As Global.Microsoft.LightSwitch.Details.Framework.Base.DetailsCallback(Of __MatchResult.DetailsClass, Global.Microsoft.LightSwitch.Details.Framework.EntityStorageProperty(Of __MatchResult, __MatchResult.DetailsClass, Integer).Data), d As __MatchResult.DetailsClass, sf As Object)
                    c(d, d._Count, sf)
                End Sub
                Private Shared Function _Count_ComputeIsReadOnly(e As __MatchResult) As Boolean
                    Dim result As Boolean = False
                    e.Count_IsReadOnly(result)
                    Return result
                End Function
                Private Shared Sub _Count_Validate(e As __MatchResult, r As Global.Microsoft.LightSwitch.EntityValidationResultsBuilder)
                    e.Count_Validate(r)
                End Sub
                Private Shared Function _Count_GetImplementationValue(d As __MatchResult.DetailsClass) As Integer
                    Return d.ImplementationEntity.Count
                End Function
                Private Shared Sub _Count_SetImplementationValue(d As __MatchResult.DetailsClass, v As Integer)
                    d.ImplementationEntity.Count = v
                End Sub
                Private Shared Sub _Count_OnValueChanged(e As __MatchResult)
                    e.Count_Changed()
                End Sub
    
            End Class
    
            <Global.System.Diagnostics.DebuggerBrowsable(Global.System.Diagnostics.DebuggerBrowsableState.Never)> _
            Private _ID As Global.Microsoft.LightSwitch.Details.Framework.EntityStorageProperty(Of __MatchResult, __MatchResult.DetailsClass, Integer).Data
            
            <Global.System.Diagnostics.DebuggerBrowsable(Global.System.Diagnostics.DebuggerBrowsableState.Never)> _
            Private _MatchResult1 As Global.Microsoft.LightSwitch.Details.Framework.EntityStorageProperty(Of __MatchResult, __MatchResult.DetailsClass, String).Data
            
            <Global.System.Diagnostics.DebuggerBrowsable(Global.System.Diagnostics.DebuggerBrowsableState.Never)> _
            Private _Count As Global.Microsoft.LightSwitch.Details.Framework.EntityStorageProperty(Of __MatchResult, __MatchResult.DetailsClass, Integer).Data
            
        End Class
    
        #End Region
    
    End Class
    
    #End Region
End Namespace

By viewing downloads associated with this article you agree to the Terms of Service and the article's licence.

If a file you wish to view isn't highlighted, and is a text file (not binary), please let us know and we'll add colourisation support for it.

License

This article, along with any associated source code and files, is licensed under The Code Project Open License (CPOL)


Written By
United States United States
This member has not yet provided a Biography. Assume it's interesting and varied, and probably something to do with programming.

Comments and Discussions