ASP.NET Report Kit Grasshoper (Race to Linux)

Imports System
Imports System.Data
Imports System.Configuration
Imports ASPNET.StarterKit.Reports.DataAccessLayer
Imports System.Collections

Namespace ASPNET.StarterKit.Reports.Components

    Public Class TextReport
        Private _employeeName As String
        Private _employeeNotes As String
        Private _employeeTitle As String
        Private _employeeExt As String
        Private _employeeAddress As String
        Private _employeeCity As String
        Private _employeeState As String
        Private _employeeZip As String

        Public Property EmployeeName() As String
            Get
                Return _employeeName
            End Get
            Set(ByVal Value As String)
                _employeeName = Value
            End Set
        End Property

        Public Property EmployeeNotes() As String
            Get
                Return _employeeNotes
            End Get
            Set(ByVal Value As String)
                _employeeNotes = Value
            End Set
        End Property

        Public Property EmployeeTitle() As String
            Get
                Return _employeeTitle
            End Get
            Set(ByVal Value As String)
                _employeeTitle = Value
            End Set
        End Property

        Public Property EmployeeExt() As String
            Get
                Return _employeeExt
            End Get
            Set(ByVal Value As String)
                _employeeExt = Value
            End Set
        End Property

        Public Property EmployeeAddress() As String
            Get
                Return _employeeAddress
            End Get
            Set(ByVal Value As String)
                _employeeAddress = Value
            End Set
        End Property

        Public Property EmployeeCity() As String
            Get
                Return _employeeCity
            End Get
            Set(ByVal Value As String)
                _employeeCity = Value
            End Set
        End Property

        Public Property EmployeeState() As String
            Get
                Return _employeeState
            End Get
            Set(ByVal Value As String)
                _employeeState = Value
            End Set
        End Property

        Public Property EmployeeZip() As String
            Get
                Return _employeeZip
            End Get
            Set(ByVal Value As String)
                _employeeZip = Value
            End Set
        End Property

        '*********************************************************************
        '
        ' GetEmployees()
        '
        ' This function calls the "GetEmployees" stored procedure, and for 
        ' every row in the resulting DataSet, inserts an item into the 
        ' thin class TextReportCollection.  TextReportCollection is simply
        ' an ArrayList holding the public property values "EmployeeName", 
        ' "EmployeeNotes", "EmployeeTitle", "EmployeeExt", "EmployeeAddress",
        ' "EmployeeCity", "EmployeeState", and "EmployeeZip".
        '
        '*********************************************************************

        Public Shared Function GetEmployees() As TextReportCollection
            Dim dsData As DataSet = SqlHelper.ExecuteDataset(ConfigurationSettings.AppSettings(Global.CfgKeyConnString), "Reports_GetEmployees")
            Dim items As New TextReportCollection()

            Dim row As DataRow
            For Each row In dsData.Tables(0).Rows
                Dim item As New TextReport()
                item.EmployeeName = row("EmployeeName").ToString()
                item.EmployeeNotes = row("EmployeeNotes").ToString()
                item.EmployeeTitle = row("EmployeeTitle").ToString()
                item.EmployeeExt = row("EmployeeExt").ToString()
                item.EmployeeAddress = row("EmployeeAddress").ToString()
                item.EmployeeCity = row("EmployeeCity").ToString()
                item.EmployeeState = row("EmployeeState").ToString()
                item.EmployeeZip = row("EmployeeZip").ToString()

                items.Add(item)
            Next row

            Return items
        End Function 'GetEmployees
    End Class 'TextReport
End Namespace 'ASPNET.StarterKit.Reports.Components