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

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

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

Работа с компонентом 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.

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

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

Dim ds As DataSet = New DataSet

Dim dt As DataTable = New DataTable

Dim D As DateTime

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

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

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