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

Этот код мало отличается от кода, который создавался в прошлом проекте. Код форм Form2.vb и Data.vb вообще не изменился. Теперь можно запустить проект и добавить несколько записей. Внешний вид приложения должен соответствовать тому, что показано на рис. 6.20.

Рис. 6.20. Программа с ненастроенным DataGrid.

Как видите, внешний вид у таблицы получился не очень хорошим. Чтобы таблица хорошо выглядела, ее надо настроить.

8. Следует остановить программу и вернуться к дизайнеру форм. В нем нужно выделить DataGrid1 и перейти в инспектор свойств, где следует нажать кнопку вызова редактора свойства TableStyles. На экран будет выведено окно добавления стилей. Нажатием на кнопку Add создается новый стиль, который нужно связать с таблицей, указав имя таблицы MyTable в поле MappingName. Там же надо выбрать свойство GridColumnStyles и нажать кнопку редактирования этого свойства. На экран будет выведено очередное окно. При помощи кнопки Add следует добавить стиль для каждого поля таблицы, заполняя соответствующие поля с правой стороны окна. Для этого можно воспользоваться информацией из табл. 6.9.Таблица 6.9. Стили полей DataGrid

9. Заполнять все эти свойства нужно аккуратно. Если не будет найдено имя таблицы, то DataGrid окажется пустым, если же для какого-либо поля не будет найдено или окажется неверно MappingName, то это поле не будет отображено в таблице. Кстати, это можно делать специально, скрывая от пользователя какие-то поля, информация из которых не должна быть ему видима. После заполнения этих настроек нужно снова запустить программу и убедиться, что введенная информация отображается в таблице. Программа должна выглядеть так, как показано на рис. 6.21.

Рис. 6.21. Исправленный DataGrid.

Компоненты и классы для работы с данными

Следует подробнее рассмотреть компоненты работы с данными, которые были использованы в примере. В этом разделе будут описываться только основные классы из пространства имен System.Data. Список классов и компонентов и краткие сведения об их назначении сведены в табл. 6.10. Следует обратить внимание, что большинство компонентов, сходных по назначению, существуют в варианте для работы с MS SQL Server на десктопе и для SQL Server на Pocket PC.Таблица 6.10. Компоненты для работы с данными

DataColumn

Класс DataColumn предназначен для создания и конфигурирования поля в таблице DataTable. Нельзя использовать созданный объект типа DataTable, пока в него не будет добавлено необходимое количество полей нужного типа. Если объект типа DataSet создается программно, разработчик должен в коде модуля создавать поля и таблицы. Если DataSet заполняется данными при помощи объекта DataAdapter или загружается из файла XML, то создание таблиц и полей в них происходит без участия программиста.

Класс DataColumn имеет всего два метода. Метод GetType позволяет получить текущий тип объекта (то есть System.Data.DataColumn), а метод ToString возвращает его строковое представление.

Основная функциональность класса сосредоточена в свойствах, чтение или запись которых и представляет особую ценность при работе с DataColumn. Эти свойства перечислены в табл. 6.11.Таблица 6.11. Свойства класса DataColumn

DataRow

Объект DataRow представляет собой одну строку данных в объекте таблицы DataTable. Именно этот объект чаще всего используется при редактировании данных в таблице.

Методы и свойства объекта DataRow приведены в табл. 6.12 и 6.13.Таблица 6.12. Методы класса DataRow

Таблица 6.13. Свойства класса DataRow

DataTable

Класс DataTable представляет собой обычную таблицу базы данных. В нем хранится сочетание полей, записей и ограничений, с которыми можно взаимодействовать через коллекции объектов соответствующего типа. Именно три коллекции полей, записей и ограничений и составляют таблицу.

В табл. 6.14 и 6.15 даны описания методов и полей класса DataTable.Таблица 6.14. Методы класса DataTable

Таблица 6.15. Свойства класса DataTable

DataSet

Класс DataSet предназначен для работы с данными из разных источников. Он инкапсулирует в себе функциональность, позволяющую создавать кэшируемое отображение данных в памяти. Классы DataColumn, DataRow и DataTable структурируют содержимое объекта DataSet, а класс DataAdapter наполняет эти структуры данными. Впрочем, для этих же целей можно использовать методы объекта DataSet.

Именно DataSet обеспечивает разнообразие приемов работы с данными в. NET CF. Программист может работать с локальной или внешней базой данных, может использовать однозвенный режим или веб-сервисы в качестве источников данных. Методы и свойства объекта DataSet описаны в табл. 6.16 и 6.17.Таблица 6.16. Методы класса DataSet

Таблица 6.17. Свойства класса DataSet

SqlDataAdapter и SqlCeDataAdapter

Как уже говорилось, два этих класса должны обеспечивать двустороннюю связь объекта DataSet с базой данных. Они заполняют DataSet данными и обеспечивают возвращение измененных данных на сервер. Методы и свойства этих классов приведены в табл. 6.18 и 6.19.Таблица 6.18. Методы классов SqlDataAdapter и SqlCeDataAdapter

Таблица 6.19. Свойства классов SqlDataAdapter и SqlCeDataAdapter

SqlDataReader и SqlCEDataReader

Классы SqlDataReader и SqlCEDataReader предоставляют методы для однопроходной выборки нужных данных и результата выполнения команды для отображения этих данных в элементах управления или построения отчетов. Свойства и этих объектов приведены в табл. 6.20 и 6.21.Таблица 6.20. Методы классов SqlDataReader и SqlCeDataReader

Таблица 6.21. Свойства классов SqlDataReader и SqlCeDataReader

SqlCommand и SqlCeCommand

Эти классы позволяют выполнить SQL-команду в заданной базе данных. Их свойства и методы приведены в табл. 6.22 и 6.23.Таблица 6.22. Методы классов SqlCommand и SqlCeCommand

Таблица 6.23. Свойства классов SqlCommand и SqlCeCommand

SqlConnection и SqlCeConnection

Эти классы позволяют реализовать непосредственное соединение с базой данных. Их свойства и методы приведены в табл. 6.24 и 6.25.Таблица 6.24. Методы классов SqlConnection и SqlCeConnection

Таблица 6.25. Свойства классов SqlConnection и SqlCeConnection

Работа с SQL Server CEУстановка

Для того чтобы установить SQL Server CE на ваше устройство или эмулятор, не потребуется предпринимать каких-либо особенных усилий. Среда разработки MS Visual Studio 2003 имеет в своем составе все необходимое. Надо только включить соответствующие ссылки в раздел проекта References (это делается в окне Solution Explorer), чтобы SQL Server CE и инструменты разработчика были установлены как на эмулятор, так и на устройство во время поставки проекта.

Файлы, которые будут установлены на устройство (эмулятор), можно найти в каталогах, которые приведены в следующем списке.

? В каталоге <каталог установки Microsoft Visual Studio.NET>\CompactFrameworkSDK\ v1.0.5000\Windows CE располагается файл sqlce.chm, в котором подробно описаны возможности, порядок установки и способы работы с SQL Server CE, а также установочные файлы для Microsoft SQL Server CE Server Tools (файлы sqlce20sql2ksp1.exe и sqlce20sql2ksp2.exe).

? В каталогах <каталог установки Microsoft Visual Studio.NET>\CompactFrameworkSDK\ v1.0.5000\Windows CE\wce300\<тип процессора> и <каталог установки Microsoft Visual Studio.NET>\CompactFrameworkSDK \v1.0.5000\Windows CE\wce400\<тип процессора> находится установочные файлы, которые будут автоматически поставлены на устройство и установлены, если включить в программу ссылку на компонент System.Data.SqlServerCe или System.Data.SqlClient.

? В каталоге <каталог установки Microsoft Visual Studio.NET>\CompactFrameworkSDK\ v1.0.5000\Windows CE\Samples можно найти примеры создания приложений для Pocket PC и WindowsCE.Настройка

Для того чтобы приложение, которое будет создано позже, могло взаимодействовать с базой данных, нам необходимо, чтобы база данных существовала на том сервере, к которому будет подключаться приложение.

Поскольку предполагается использовать SQL Server CE, то было бы неплохо иметь демонстрационную базу данных, установленную на устройстве (эмуляторе) и подключенную к серверу. Поэтому в новом упражнении сначала будет скопирована демонстрационная база данных на эмулятор. Также потребуется задать некоторые настройки сервера. Эмулятор в данном примере используется именно потому, что с ним могут возникнуть некоторые проблемы при копировании файлов.

Упражнение 6.4

1. Создать новый проект VB.NET для Pocket PC с именем myDB.

2. Добавить в него ссылки на компоненты System.Data.Common и System.Data. SqIServerCe. Для этого нужно выполнить команду Project ? Add reference и в окне, которое будет выведено на экран, в списке двойным щелчком выделить строку System.Data.Common. То же самое нужно сделать со строкой System.Data. SqIServerCe, после чего следует нажать кнопку ОК. Добавленные ссылки можно увидеть в окне Solution Explorer, раскрыв папку References. Эти действия уже приведут к установке SQL Server CE на эмулятор.

3. Копирование файла демонстрационной базы данных можно сделать либо при помощи включения файла в состав проекта, либо при помощи копирования через разделяемую папку. Нужно рассмотреть оба варианта.

• Сам файл находится в каталоге <Каталог установки Microsoft Visual Studio.NET 2003>\CompactFrameworkSDK\vl.0.5000\Windows CE\Samples\VB\Pocket PC\ NorthwindCE с именем NorthwindDemo.sdf. Для того чтобы поручить среде скопировать этот файл на эмулятор, его надо включить в состав проекта. Для этого требуется выполнить команду Project ? Add Existing Item. В окне, которое будет выведено на экран, нужно найти в указанном выше каталоге файл NorthwindDemo.sdf и открыть его. Файл будет добавлен к проекту. В окне Solution Explorer следует отыскать этот файл, выделить его, а в окне Properties установить значение свойства Build action в Content. Это покажет среде, что файл надо просто скопировать в папку программы на эмуляторе. Теперь следует выполнить команду Build ? Deploy Solution. В строке статуса среды и на экране эмулятора можно увидеть, как последовательно будут установлены сначала указанные пакеты, затем сама программа, и наконец на эмулятор будет скопирован файл NorthwindDemo.sdf. После того, как весь этот процесс завершится, можно на эмуляторе переместить файл из каталога программы в папку My Documents.

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

Рис. 6.22. Окно администрирования SQL Server CE.

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

на экран будет выведено окно подключения базы данных. В этом окне нужно нажать кнопку 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.

Рис. 6.23. Расположение компонентов на форме.

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.SqlCeDataAdapterDim dbt As DataTable

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.ClearEnd 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 – = 1End Sub

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

Handles Button3.Click

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

Me.BindingContext(dbt). Position = 0End 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 – 1End Sub

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

Handles Button5.Click

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

Me.BindingContext(dbt). Position += 1End Sub

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

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

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

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

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

11. Для кнопки с изображением крестика нужно использовать обработчик, функциональность которого умещается в одну строку.

Me.BindingContext(dbt). CancelCurrentEdit

12. Код обработчика нажатия кнопки с галочкой приведен в листинге 6.31. Листинг 6.31

Dim cmd As SqlServerCe.SqlCeCommand

cmd = New SqlServerCe.SqlCeCommand_

("UPDATE Customers SET Country = " + TextBox8.Text + " WHERE _

CustomerID = " + TextBox4.Text + " ", dbc)

If dbc.State = ConnectionState.Closed Then

dbc.Open

End Ifcmd.ExecuteNonQuery

13. Эти две команды показывают, каким образом можно отменить текущие изменения и как производится обновление данных в базе данных. Проект нужно снова запустить, нажать кнопку Connect, отредактировать поле Country у любой записи и нажать кнопку V. Затем следует разорвать соединение щелчком на кнопке Disconnect и снова соединиться с базой данных. Это позволит заметить, что изменения были внесены в таблицу. Но если снова внести изменения в поле Country и нажать кнопку X, то изменения будут отменены.

Впрочем, этот пример показывает лобовой подход, когда текст берется из элементов TextBox и вставляется в строку формируемого выражения SQL. Более красиво и правильно в этом случае воспользоваться параметризированной командой.

14. Необходимо изменить процедуру обработки щелчка на кнопке V при помощи кода, приведенного в листинге 6.32.Листинг 6.32

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

Handles Button7.Click

Dim cmd As SqlServerCe.SqlCeCommand

cmd = New SqlServerCe.SqlCeCommand("UPDATE Customers SET CompanyName_

=? ContactName =? City =? Country =? Phone=? FAX =? WHERE_

CustomerID =?", dbc)

cmd.Parameters.Add(«@a», SqlDbType.NVarChar, 40)

cmd.Parameters.Add(«@b», SqlDbType.NVarChar, 30)

cmd.Parameters.Add(«@c», SqlDbType.NVarChar, 15)

cmd.Parameters.Add(«@d», SqlDbType.NVarChar, 15)

cmd.Parameters.Add(«@e», SqlDbType.NVarChar, 24)

cmd.Parameters.Add(«@f», SqlDbType.NVarChar, 25)

cmd.Parameters.Add(«@g», SqlDbType.NChar, 5)

cmd.Parameters.Item(«@a»). Value = TextBox5.Text

cmd.Parameters.Item(«@b»). Value = TextBox6.Text

cmd.Parameters.Item(«@c»). Value = TextBox7.Text

cmd.Parameters.Item(«@d»). Value = TextBox8.Text

cmd.Parameters.Item(«@e»). Value = TextBox9.Text

cmd.Parameters.Item(«@f»). Value = TextBox10.Text

cmd.Parameters.Item(«@g»). Value = TextBox4.Text

If dbc.State = ConnectionState.Closed Then

dbc.Open

End If

cmd.ExecuteNonQueryEnd Sub

Теперь пользователь может редактировать и обновлять все поля, выведенные на экран. Следует обратить внимание, что SQL Server CE поддерживает параметризированные запросы, но не воспринимает параметры по именам. Значения параметров подставляются в выражение SQL в том порядке, в каком они были добавлены к списку параметров. Связывание данных

В упражнении было видно, что для того, чтобы приложение установило соединение с базой данных, запросило необходимые данные, получило и разместило их, необходимо использовать компоненты из пространства имен System.Data.SqlServerCe. Но когда данные отображаются, используется возможность привязывать источники данных к обычным элементам отбражения. Способность образовывать связи с данными реализуется в этих элементах на уровне методов и свойств, которые рассматриваются в табл. 6.26.Таблица 6.26. Свойства компонентов, отвечающие за связь с данными

Свойства BindingContext и DataBindings присущи всем видимым элементам, в то время как свойства DataSource, DisplayMember и ValueMember есть только у компонентов ListBox и ComboBox, в которые загружаются коллекции данных. Свойство DataSource также есть у компонента DataGrid.Отдельно следует упомянуть свойства и методы объекта BindingContext, которые приведены в табл. 6.27 и 6.28.