Программирование для карманных компьютеров

6. Написать код процедуры нажатия кнопки Connect, который приведен в листинге 6.28. Листинг 6.28

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)

Handles Button1.Click

\'Создаем объект соединения

dbc = New SqlServerCe.SqlCeConnection

\'Задаем значение строки соединения

dbc.ConnectionString = «Data Source=\NorthwindDemo.sdf»

\'Создаем объект таблицы

dbt = New DataTable(«Customers»)

\'Связываем объект команды и соединение

dbcm.Connection = dbc

\'Создаем объект адаптера, в качестве аргумента передавая ему команду

dba = New SqlServerCe.SqlCeDataAdapter(dbcm)

\'Адаптер выполняет команду, и результатом ее выполнения заполняет

\'таблицу dba.Fill(dbt)

\'Связываем элементы отображения данных с полями таблицы

TextBox4.DataBindings.Add(«Text», dbt, «CustomerID»)

TextBox5.DataBindings.Add(«Text», dbt, «CompanyName»)

TextBox6.DataBindings.Add(«Text», dbt, «ContactName»)

TextBox7.DataBindings.Add(«Text», dbt, «City»)

TextBox8.DataBindings.Add(«Text», dbt, «Country»)

TextBox9.DataBindings.Add(«Text», dbt, «Phone»)

TextBox10.DataBindings.Add(«Text», dbt, «FAX»)

End Sub

7. Написать код процедуры нажатия кнопки Disconnect, который приведен в листинге 6.29. Листинг 6.29

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)

Handles Button2.Click

dbc.Close

dbt.Clear

TextBox4.DataBindings.Clear

TextBox5.DataBindings.Clear

TextBox6.DataBindings.Clear

TextBox7.DataBindings.Clear

TextBox8.DataBindings.Clear

TextBox9.DataBindings.Clear

TextBox10.DataBindings.Clear

End Sub

Обратите внимание на необходимость в этом случае «отвязать» контекст, иначе в результате повторного присоединения к данным возникнет ошибка.

8. Обработка событий щелчка на кнопках навигации по набору данных, собранному в таблице, показана в листинге 6.30.

Листинг 6.30

Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)

Handles Button4.Click

\'Предыдущая запись

Me.BindingContext(dbt). Position – = 1

End Sub

Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)

Handles Button3.Click

\'Первая запись

Me.BindingContext(dbt). Position = 0

End Sub

Private Sub Button6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)

Handles Button6.Click

\'Последняя запись

Me.BindingContext(dbt). Position = Me.BindingContext(dbt). Count – 1

End Sub

Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)

Handles Button5.Click

\'Следующая запись

Me.BindingContext(dbt). Position += 1

End Sub

9. Теперь можно запустить программу и нажать кнопку Connect. Компоненты TextBox будут заполнены информацией из таблицы Customers. Следует убедиться, что переход между записями осуществляется корректно. После нажатия кнопки Disconnect компоненты TextBox должны быть очищены (рис. 6.24).

Рис. 6.24. Работающее приложение.

Таким образом было организовано отображение информации из таблицы базы данных. Теперь неплохо бы было организовать ввод информации.

10. К навигатору нужно добавить еще две кнопки, чтобы он выглядел так, как показано на рис. 6.25.

Рис. 6.25. Улучшенный навигатор.