#Region "  Imports  "

Imports Statistics.Ado
Imports System.Data
Imports System.Text

#End Region

Namespace Data
    Public Class Structures

#Region "  Instance Fields  "

        Const _connectionStringKey As String = "ACEProgramStatus"

#End Region

#Region "  Static Methods  "

        Public Shared Function Fruit() As SortedList

            Dim sl As SortedList = New SortedList()
            sl.Add("Apples", "Apples")
            sl.Add("Bananas", "Bananas")
            sl.Add("Cherries", "Cherries")
           Return sl

        End Function

        Public Shared Function Connect() As IDbConnection

            Return Ado.Connection(_connectionStringKey)

        End Function

        Public Shared Sub Disconnect(ByRef cn As IDbConnection)

            Ado.Dispose(cn)

        End Sub
 
        Public Shared Function Months() As SortedList

            Dim sl As SortedList = New SortedList()
            sl.Add(1, "January")
            sl.Add(2, "February")
            sl.Add(3, "March")
            sl.Add(4, "April")
            sl.Add(5, "May")
            sl.Add(6, "June")
            sl.Add(7, "July")
            sl.Add(8, "August")
            sl.Add(9, "September")
            sl.Add(10, "October")
            sl.Add(11, "November")
            sl.Add(12, "December")
            Return sl

        End Function

        Public Shared Function Cities() As SortedList

            Dim sl As SortedList = New SortedList()
            sl.Add("day", "Dayton")
            sl.Add("cvg", "Cincinnati")
            sl.Add("col", "Columbus")
            Return sl


        End Function


        Public Shared Function Years() As Array

            Dim today As Date = Date.Now()
            Dim a(10) As Integer
            a(0) = Year(today)

            For i = 1 To 9
                a(i) = a(i - 1) - 1
            Next i

            Return a

        End Function

#End Region

    End Class


End Namespace