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

Переместите ранее созданный проект в новую папку и откройте проект в среде 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;

Дата добавления: 2015-09-01