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

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

Работа с компонентом DataSet

Конечно, работу с данными в рассмотренном примере можно было организовать гораздо проще. Хранение данных в формате XML, их запись и считывание не обязательно осуществлять вручную. В.NET CF есть куда более элегантное решение, позволяющее использовать класс DataSet. Для того чтобы разобраться с правилами работы этого класса, можно несколько изменить пример, переработав тот фрагмент, который будет нужен для ознакомления с особенностями взаимодействия компонентов DataGrid, DataSet, DataTable и информации в формате XML.

Упражнение 6.3

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

2. Выполнить команду Project ? Add Existing Item, в открывшемся диалоговом окне нужно найти файл Form2.vb из папки проекта MyTime и добавить его к текущему проекту. Точно так же нужно добавить файл data.vb.

3. Разместить на форме компоненты MainMenu, ImageList и ToolBar, как это было сделано в прошлом проекте. Затем нужно разместить на свободной части формы компонент DataGrig, как показано на рис. 6.19.

Рис. 6.19. Основная форма проекта.

4. Скопировать на эмуляторе файл Category.xml из каталога проекта MyTime в каталог проекта XMLDBLocal.

5. На этом подготовительная часть закончена. Теперь надо перейти к работе с данными. Для начала нужно добавить в код класса формы переменные, как это показано в листинге 6.24.

Листинг 6.24

Dim ds As DataSet = New DataSet

Dim dt As DataTable = New DataTable

Dim D As DateTime

Dim strTime, strFileName, dirStr As String

6. Написать код, выполняемый при загрузке формы, который приведен в листинге 6.25. Листинг 6.25

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

Handles MyBase.Load

'Эти две строки включены потому, что в инспекторе свойств у DataGrid

'невозможно изменить параметры шрифта, а сделать это очень хочется,

'так как шрифт по умолчанию практически нечитаемый

Dim mFont As Font = New Font(В«ArialВ», 10, FontStyle.Bold)

DataGrid1.Font = mFont

'Определяем имя текущего каталога и файла

D = DateTime.Now

strTime = D.ToShortDateString

strTime = strTime.Replace(".", "_")

strFileName = "" + strTime +".xml"

dirStr = IO.Path.GetDirectoryName_

(Reflection.Assembly.GetExecutingAssembly.GetName.CodeBase.ToString)

'Если файла нет, то создаем его

If Not IO.File.Exists(dirStr + strFileName) Then

'Таблица создается пустой, и ее надо заполнить полями. Каждое поле

'сначала создается как отдельный объект, затем добавляется к таблице

Dim myCount As Integer

Dim dcCat As New System.Data.DataColumn(В«CategoryВ»)

dt.Columns.Add(dcCat)

Dim dcStartOf As New System.Data.DataColumn(В«StartOfВ»)

dt.Columns.Add(dcStartOf)

Dim dcEndOf As New System.Data.DataColumn(В«EndOfВ»)

dt.Columns.Add(dcEndOf)

Dim dcNote As New System.Data.DataColumn(В«NoteВ»)

dt.Columns.Add(dcNote)

'Устанавливаем имя таблицы. Этот момент важен для работы с DataGrid

dt.TableName = В«myTableВ»

'Добавляем таблицу к компоненту DataSet.

ds.Tables.Add(dt)

Else

'Если файл с содержимым DataSet уже существует, просто грузим его в Dataset

ds.ReadXml(dirStr + strFileName)

End If

'Рсточником данных для DataGrid РЅРµ может быть сам DataSet, поскольку

'Dataset может содержать в себе несколько таблиц. Мы выбираем одну

'определенную таблицу и указываем ее в качестве источника данных

DataGrid1.DataSource = ds.Tables(0)

'Рделаем видимыми заголовки в DataGrid

DataGrid1.ColumnHeadersVisible = True

End Sub

7. Нужно написать код обработчика щелчка на кнопке добавления записи, который приведен в листинге 6.26. Листинг 6.26

Private Sub ToolBar1_ButtonClick(ByVal sender As System.Object, ByVal e As

System.Windows.Forms.ToolBarButtonClickEventArgs) Handles ToolBar1.ButtonClick

If e.Button Is ToolBarButton1 Then

Dim str(3) As String

Dim editFrm As New Form2

editFrm.Send = 3

Dim countInt As Integer

If ds.Tables(0). Rows.Count <> 0 Then

countInt = ds.Tables(0). Rows.Count – 1

categorySt = ds.Tables(0). Rows(countInt). Item(0)

startOfSt = ds.Tables(0). Rows(countInt). Item(2)

endOfSt = ds.Tables(0). Rows(countInt). Item(2)

noteSt = ""

Else

categorySt = ""

startOfSt = ""

endOfSt = ""

noteSt = ""

End If

If editFrm.ShowDialog = DialogResult.OK Then

str(0) = categorySt

str(1) = startOfSt

str(2) = endOfSt

str(3) = noteSt

ds.Tables(0). Rows.Add(str)

ds.WriteXml(dirStr + strFileName)

End If

End If

End Sub

Этот код мало отличается от кода, который создавался в прошлом проекте. Код форм 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.