Программирование мобильных устройств на платформе .NET Compact Framework
Шрифт:
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
Листинг 14.5. Пример пользовательского управления данными — код, помещаемый в форму Form1.cs
'Создает базу данных
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
Листинг 14.6. Пример кода управления данными для DatabaseAccess.cs
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
Поделиться:
Популярные книги
Учитель из прошлого тысячелетия
6. Соприкосновение миров
Фантастика:
фэнтези
попаданцы
5.00
рейтинг книги
Назад в СССР 5
5. Курсант
Фантастика:
попаданцы
альтернативная история
6.64
рейтинг книги
Потомок бога
1. Локки
Фантастика:
попаданцы
альтернативная история
аниме
сказочная фантастика
5.00
рейтинг книги
Магнатъ
4. Александр Агренев
Приключения:
исторические приключения
8.83
рейтинг книги
Феномен
2. Уникум
Фантастика:
боевая фантастика
6.50
рейтинг книги
Мужчина моей судьбы
2. Мужчина не моей мечты
Любовные романы:
любовно-фантастические романы
8.03
рейтинг книги
Принадлежать им
Любовные романы:
современные любовные романы
5.00
рейтинг книги
Эволюционер из трущоб. Том 12
12. Эволюционер из трущоб
Фантастика:
попаданцы
аниме
фэнтези
5.00
рейтинг книги
Поводырь
3. Ботаник
Фантастика:
фэнтези
6.17
рейтинг книги
Сирийский рубеж
5. Рубеж
Фантастика:
попаданцы
альтернативная история
5.00
рейтинг книги
Кодекс Охотника. Книга XXXVI
36. Кодекс Охотника
Фантастика:
аниме
фэнтези
попаданцы
5.00
рейтинг книги
Эпоха Опустошителя. Том VIII
8. Вечное Ристалище
Фантастика:
аниме
фэнтези
попаданцы
5.00
рейтинг книги
Ким
Приключения:
исторические приключения
7.62
рейтинг книги
Старый, но крепкий 4
4. Культивация без насилия
Фантастика:
уся
фэнтези
5.00