Иво Салмре - Программирование мобильных устройств на платформе .NET Compact Framework

MsgBox("No matching records found. Test aborted!")

Return

End If

Next

'Получить время выполнения теста

PerformanceSampling.StopSample(testNumber)

'Обычный курсор

System.Windows.Forms.Cursor.Current = _

System.Windows.Forms.Cursors.Default

'Отобразить результаты теста

Dim runInfo As String = NUMBER_TEST_ITERATIONS.ToString() + _

"x" + DUMMY_ROWS_OF_DATA.ToString() + ": " MsgBox(runInfo + _

PerformanceSampling.GetSampleDurationText(testNumber))

End Sub

Private Function changeDayOfTravel_CustomArrays( _

ByVal creditCardNumber As String, ByVal newTravelDate _

As System.DateTime) As Integer

Dim numberRecordsChanged As Integer

'Просмотреть каждый элемент массива

Dim index As Integer

For index = 0 To DUMMY_ROWS_OF_DATA

Dim currentCreditCard As String

currentCreditCard = m_data_creditCards(index)

'Обновить запись при наличии совпадения

If (creditCardNumber = currentCreditCard) Then

'Изменить дату поездки

Dim currentTravelDate As System.DateTime = _

m_data_travelDates(index)

'Увеличить значение счетчика обновлений только при несовпадении данных

If (currentTravelDate <> newTravelDate) Then

m_data_travelDates(index) = _

newTravelDate

numberRecordsChanged = numberRecordsChanged + 1

End If

End If

Next

'Возвратить количество обновленных записей

Return numberRecordsChanged

End Function

Private Sub buttonRunTest_Click(ByVal sender As Object, _

ByVal e As System.EventArgs) Handles buttonRunTest.Click

createDataSet()

changeDayOfTravel_test()

End Sub

'Создает базу данных

Private Sub buttonCreateDatabase_Click(ByVal sender As Object, _

ByVal e As System.EventArgs) Handles buttonCreateDatabase.Click

DatabaseAccess.CreateAndFillDatabase()

End Sub

'Загружает данные из базы данных и отображает их

Private Sub buttonLoadGameData_Click(ByVal sender As Object, _

ByVal e As System.EventArgs) Handles buttonLoadGameData.Click

'Очистить текстовое окно

TextBox1.Text = ""

'Загрузить данные для слов

GameData.InitializeGameVocabulary()

'Обойти все слова и добавить их в текстовый список

Dim thisStringBuilder As System.Text.StringBuilder

thisStringBuilder = New System.Text.StringBuilder

Dim thisWord As VocabularyWord

For Each thisWord In GameData.AllWords

thisStringBuilder.Append(thisWord.EnglishWord)

thisStringBuilder.Append(" = ")

thisStringBuilder.Append( _

thisWord.GermanWordWithArticleIfExists)

thisStringBuilder.Append(vbCrLf) 'Новая строка

Next

'Отобразить список слов в текстовом окне

TextBox1.Text = thisStringBuilder.ToString()

End Sub

Option Strict On

'----------------------------------------------------------

'Код доступа к базе данных: Этот класс управляет доступом в

'базу данных наших приложений

'----------------------------------------------------------

Imports System

Friend Class DatabaseAccess

Const DATABASE_NAME As String = "LearnGerman.sdf"

Const CONNECT_STRING As String = _

"Data Source = " + DATABASE_NAME + "; Password = ''"

Const TRANSLATIONTABLE_NAME As String = "TranslationDictionary"

Const TRANSLATIONTABLE_ENGLISH_COLUMN As String = "EnglishWord"

Const TRANSLATIONTABLE_GERMAN_COLUMN As String = "GermanWord"

Const TRANSLATIONTABLE_GERMANGENDER_COLUMN As String = "GermanGender"

Const TRANSLATIONTABLE_WORDFUNCTION_COLUMN As String = "WordFunction"

Friend Const DS_WORDS_COLUMNINDEX_ENGLISHWORD As Integer = 0

Friend Const DS_WORDS_COLUMNINDEX_GERMANWORD As Integer = 1

Friend Const DS_WORDS_COLUMNINDEX_GERMANGENDER As Integer = 2

Friend Const DS_WORDS_COLUMNINDEX_WORDFUNCTION As Integer = 3

Public Shared Function GetListOfWords() As _

System.Data.IDataReader

Dim conn As System.Data.SqlServerCe.SqlCeConnection = Nothing

conn = New System.Data.Sq]ServerCe.SqlCeConnection( _

CONNECT_STRING)

conn.Open()

Dim cmd As System.Data.SqlServerCe.SqlCeCommand = _

conn.CreateCommand()

cmd.CommandText = "select " + _

TRANSLATIONTABLE_ENGLISH_COLUMN + ", " _

+ TRANSLATIONTABLE_GERMAN_COLUMN + ", " _

+ TRANSLATIONTABLE_GERMANGENDER_COLUMN + ", " _

+ TRANSLATIONTABLE_WORDFUNCTION_COLUMN + " " _

+ "from " + TRANSLATIONTABLE_NAME

'Выполнить команду базы данных

Dim myReader As System.Data.SqlServerCe.SqlCeDataReader = _

cmd.ExecuteReader(System.Data.CommandBehavior.SingleResult)

Return myReader

End Function

'------------------------------------------

'Создает базу данных в случае необходимости

'------------------------------------------

Public Shared Sub CreateDatabaseIfNonExistant()

If (System.IO.File.Exists(DATABASE_NAME) = False) Then

CreateAndFillDatabase()

End If

End Sub

'---------------------------------------

'Создает и наполняет данными базу данных

'---------------------------------------

Public Shared Sub CreateAndFillDatabase()

'Удалить базу данных, если она уже существует

If (System.IO.File.Exists(DATABASE_NAME)) Then

System.IO.File.Delete(DATABASE_NAME)