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

• В папке Start ? Programms на эмуляторе можно найти пиктограмму SQLCE Query. Она позволяет запустить Query Analyzer и свидетельствует о том, что SQL Server CE был удачно установлен на эмулятор. Следует запустите эту программу. На экран будет выведено следующее базовое окно (рис. 6.22).

После нажатия кнопки

на экран будет выведено окно подключения базы данных. В этом окне нужно нажать кнопку Path, в открывшемся диалоге найти файл NorthwindDemo.sdf, а затем нажать кнопку Connect. Справа от папки Databases в окне Query Analyzer появится новый элемент. Развернув его, можно найти базу данных, ее таблицы и все ее объекты. Не забудьте отключить базу данных и закрыть Query Analyzer, иначе при работе с приложением будет возникать ошибка. Настройка базы данных для подключения окончена.

• Чтобы скопировать файл NorthwindDemo.sdf на эмулятор вручную, используя разделяемый каталог, надо произвести некоторые действия как на рабочей станции, так и на эмуляторе. Сначала надо на рабочей станции создать разделяемый каталог. Для этого надо выбрать папку, которая будет общей, вызвать ее контекстное меню, выполнить команду Общий доступ и безопасность, установить флажок Открыть общий доступ к этой папке и нажать кнопку OK. Файл NorthwindDemo.sdf надо скопировать в эту папку. Затем надо на эмуляторе запустить программу File Explorer, нажать кнопку

в окне запроса ввести путь \\<���имя компьютера>\<���имя папки> и нажать кнопку OK. Папка будет открыта, и можно будет скопировать из нее файл NorthwindDemo.sdf на эмулятор.

Теперь можно приступить к созданию приложения.

4. Расположить на форме компоненты Button, Label и TextBox так, как это показано на рис. 6.23, и соответствующим образом установить их свойство Text.

5. Объявить в начале класса формы несколько переменных, как это показано в листинге 6.27. Листинг 6.27

Dim dbc As SqlServerCe.SqlCeConnection

Dim dbcm As SqlServerCe.SqlCeCommand = New

_SqlServerCe.SqlCeCommand(«SELECT * FROM Customers»)

Dim dba As SqlServerCe.SqlCeDataAdapter

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»)

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()

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

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

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

Handles Button4.Click

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

Me.BindingContext(dbt). Position – = 1

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

Handles Button3.Click

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

Me.BindingContext(dbt). Position = 0

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

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

Handles Button5.Click

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

Me.BindingContext(dbt). Position += 1

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

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

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