> + System.Convert.ToString(CType(wordFunction, Integer)) + "')"
> cmd.ExecuteNonQuery()
>End Sub
>End Class
Листинг 14.7. Пример кода управления данными для GameData.cs
>Option Strict On
>'-----------------------------------------------------------------
>'Код управления данными в памяти
>'
>'Этот код предназначен для управления представлением кода в памяти
>'-----------------------------------------------------------------
>Imports System
>Friend Class GameData
>'Массив списков для сохранения загружаемых данных
>Private Shared m_vocabularyWords_All As _
> System.Collections.ArrayList
>Private Shared m_vocabularyWords_Nouns As _
> System.Collections.ArrayList
>Private Shared m_vocabularyWords Verbs As _
> System.Collections.ArrayList
>Private Shared m_vocabularyWords_Adjectives As _
> System.Collections.ArrayList
>Private Shared m_vocabularyWords Adverbs As _
> System.Collections.ArrayList
>Private Shared m_vocabularyWords_Prepositions As _
> System.Collections.ArrayList
>Public Shared ReadOnly Property _
> isGameDataInitialized() As Boolean
> Get
> 'Инициализация данных игры, если слова загружены
> Return Not (m_vocabularyWords_All Is Nothing)
> End Get
>End Property
>'Возвращает коллекцию всех имеющихся слов
>Public Shared ReadOnly Property _
> AllWords() As System.Collections.ArrayList
> Get
> 'Загрузить данные, если они не были инициализированы
> If (m_vocabularyWords_All Is Nothing) Then
> InitializeGameVocabulary()
> End If
> Return m_vocabularyWords_All
> End Get
>End property
>'Возвращает коллекцию всех имеющихся имен существительных
>Public Shared ReadOnly Property _
> Nouns() As System.Collections.ArrayList
> Get
> 'Загрузить данные, если они не были инициализированы
> If (m_vocabularyWords_Nouns Is Nothing) Then
> InitializeGameVocabulary()
> End If
> Return m_vocabularyWords_Nouns
> End Get
>End Property
>'==========================================================
>'Загружает данные из нашей базы данных
>'==========================================================
>Public Shared Sub InitializeGameVocabulary()
> 'Создать новый массив списков для хранения наших слов
> m_vocabularyWords_All = New System.Collections.ArrayList
> m_vocabularyWords_Nouns = New System.Collections.ArrayList
> m_vocabularyWords_Verbs = New System.Collections.ArrayList
> m_vocabularyWords_Adjectives = _
> New System.Collections.ArrayList
> m_vocabularyWords Adverbs = _
> New System.Collections.ArrayList
> m_vocabularyWords_Prepositions = _
> New System.Collections.ArrayList
> Dim dataReader As System.Data.IDataReader
> dataReader = DatabaseAccess.GetListOfWords()
> Dim newWord As VocabularyWord