1. Применение компонента TreeView позволяет информативно представить структуру документа.

2. Модель документа, использующая b-дерево, является универсальной моделью, описывающей различные структуры документов.

3. Разработанный проект является базовым проектом и может быть сохранен в среде Delphi в Repository в качестве шаблона.

Пример 1

Предположим, необходимо на базе разработанного типового проекта создать электронный документ – справочник, описывающий ВУЗ, включая полную информацию о подразделениях, месте их расположения, телефонах, руководителях, преподавателях и студентах, а также содержать фотографии объектов и людей.

Порядок выполнения работы

Переместите ранее созданный проект в новую папку и откройте проект в среде Delphi.

Опишите новую структуру данных CDS в следующей последовательности:

• Выберите в форме компонент CDS (ClientDataSet). Откройте контекстное меню и выполните команду Clear Data;

• Вызовите редактор полей, выполнив двойной щелчок по компоненту CDS;

• Добавьте к существующим полям новые поля (рис. 24):

Job – должность, тип поля: string(15);

Phone – телефон, тип поля: string(15);

Info – информация, тип поля: Memo;

Photo - фотография, тип поля: Graphic.

Рис. 24 Поля нового набора данных

Создайте новый набор данных (Data Set), выполнив команду Create Data Set контекстного меню.

Сохраните бинарный cds файл в папке проекта под тем же именем (TreeNode.cds).

Добавьте в форму компоненты (рис. 25), разместив их на соответствующих владельцах:

Panel2, установив свойство Align := alBottom;

DBNavigator1 (владелец Panel2), выбрав в свойство DataSource := DS, и оставив видимыми только кнопки навигации, редактирования и сохранения;

GroupBox1, установив свойство Align := alBottom;

DBImage1 (владелец GroupBox1), установив свойство Align := alRight, выбрав в свойстве DataSource := DS, и в свойстве DataField поле Photo.

DBMemo1 (владелец GroupBox1), установив свойство Align := alClient, выбрав в свойстве DataSource := DS, и в свойстве DataField поле Info;

OpenPictureDialog1.

Рис. 25 Дополнительно установленные компоненты

Создайте новый пункт меню Insert (Вставка) и новую команду InsImage (Фотография).

Для команды напишите InsImage метод (рис. 26).

Рис. 26 Метод реализации команды вставка фотографии

Скомпилируйте приложение, создайте тестовое дерево, проверьте выполнение команды ”Вставка фотографии” и редактирование записей.

Рис. 27 Результат выполнения команды ”Вставка фотографии”

Завершите дизайн приложения, приведя его к виду, показанному на рисунке 28.

Рис. 28 Вид приложения после выполнения команды ” Раскрыть дочернюю ветвь ”

13