' Copyright 2010 ESRI
' 
' All rights reserved under the copyright laws of the United States
' and applicable international laws, treaties, and conventions.
' 
' You may freely redistribute and use this sample code, with or
' without modification, provided you include the original copyright
' notice and use restrictions.
' 
' See the use restrictions.
' 


Imports Microsoft.VisualBasic
Imports System
Imports System.Collections.Generic
Imports System.Text
Imports System.Web.UI
Imports System.Collections
Imports ESRI.ArcGIS.ADF.Web.DataSources

Namespace TiledMapDataSource_VBNet
    Public Class GISDataSource
        Implements IGISDataSource

        Public Sub New()
        End Sub

        Public Sub New(ByVal name_Renamed As String, ByVal dataSourceDefinition_Renamed As String)
            Me.New(name_Renamed, String.Empty, dataSourceDefinition_Renamed)
        End Sub

        Public Sub New(ByVal name_Renamed As String, ByVal identity_Renamed As String, ByVal dataSourceDefinition_Renamed As String)
            Me.name_Renamed = name_Renamed
            Me.identity_Renamed = identity_Renamed
            Me.dataSourceDefinition_Renamed = dataSourceDefinition_Renamed
        End Sub


#Region "IGISDataSource implementation"

        Private m_state As Hashtable
        Private name_Renamed As String = String.Empty
        Private dataSourceDefinition_Renamed As String = String.Empty
        Private identity_Renamed As String = String.Empty
        Private page_Renamed As Page = Nothing
        Private resources_Renamed As GISResourceCollection = New GISResourceCollection()

        ''' <summary>
        ''' Name of the GIS Data Source
        ''' </summary>
        Public Property Name() As String Implements IGISDataSource.Name
            Get
                Return name_Renamed
            End Get
            Set(ByVal value As String)
                name_Renamed = Value
            End Set
        End Property

        ''' <summary>
        ''' Definition of this data source
        ''' </summary>
        Public Property DataSourceDefinition() As String Implements IGISDataSource.DataSourceDefinition
            Get
                Return dataSourceDefinition_Renamed
            End Get
            Set(ByVal value As String)
                If dataSourceDefinition_Renamed <> Value Then
                    dataSourceDefinition_Renamed = Value
                End If
            End Set
        End Property

        ''' <summary>
        ''' Identity of user connecting to data source
        ''' </summary>
        Public Property Identity() As String Implements IGISDataSource.Identity
            Get
                Return identity_Renamed
            End Get
            Set(ByVal value As String)
                identity_Renamed = Value
            End Set
        End Property

        ''' <summary>
        ''' The Page using this data source
        ''' </summary>
        Public Property Page() As Page Implements IGISDataSource.Page
            Get
                Return page_Renamed
            End Get
            Set(ByVal value As Page)
                page_Renamed = Value
            End Set
        End Property

        ''' <summary>
        ''' The collection of LodInfoNodes that this data source supports.
        ''' </summary>
        Public Property Resources() As GISResourceCollection Implements IGISDataSource.Resources
            Get
                Return resources_Renamed
            End Get
            Set(ByVal value As GISResourceCollection)
                resources_Renamed = Value
            End Set
        End Property

        Private _initialized As Boolean = False
        ''' <summary>
        ''' Whether the data source has been initialized.
        ''' </summary>
        Public ReadOnly Property Initialized() As Boolean Implements IGISDataSource.Initialized
            Get
                Return _initialized
            End Get
        End Property

        ''' <summary>
        ''' Loads state
        ''' </summary>
        ''' <param name="state">Hashtable to store state in</param>
        Public Sub LoadState(ByVal state As Hashtable) Implements IGISDataSource.LoadState
            m_state = state

        End Sub

        ''' <summary>
        ''' Initializes the data source
        ''' </summary>
        Public Sub Initialize() Implements IGISDataSource.Initialize
            _initialized = True
        End Sub

        ''' <summary>
        ''' Saves state
        ''' </summary>
        ''' <returns>Hashtable with state</param>
        Public Function SaveState() As Hashtable Implements IGISDataSource.SaveState
            Return m_state
        End Function


        ''' <summary>
        ''' Disposes the data source
        ''' </summary>
        Public Sub Dispose() Implements IGISDataSource.Dispose
            _initialized = False
        End Sub

        Public ReadOnly Property State() As Hashtable Implements IGISDataSource.State
            Get
                Return m_state
            End Get
        End Property

        ''' <summary>
        ''' Gets the definitions of available LodInfoNodes
        ''' </summary>
        Public Function GetAvailableResourceDefinitions(ByVal resourceType As System.Type) As String() Implements ESRI.ArcGIS.ADF.Web.DataSources.IGISDataSource.GetAvailableResourceDefinitions
            Throw New Exception("The method or operation is not implemented.")
        End Function

        ''' <summary>
        ''' Creates a resource with the passed in definition
        ''' </summary>
        ''' <param name="resourceDefinition">The definition of the resource to be created.</param>
        ''' <param name="name">The name of the resource to be created.</param>
        ''' <returns>A GIS Resource with the passed in definition.</returns>
        Public Function CreateResource(ByVal resourceDefinition As String, ByVal name_Renamed As String) As IGISResource Implements IGISDataSource.CreateResource
            Throw New Exception("The method or operation is not implemented.")
        End Function

#End Region
    End Class
End Namespace