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

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