67 Лабораторная работа №4 (Приложение для работы с базами данных)

Цель работы: изучение основных принципов и компонентов для работы с базами данных в среде Delphi.

Последовательность действий при выполнении лабораторной работы:

68 Создать новый проект (команда File|New|Application) и сохранить его файлы в папке <Папка группы>\<Фамилия студента>\ЛР4\ (команда File|Save Project As).

69 Задать название проекта: 'База данных' (команда Project|Options, закладка Application, параметр Title).

70 Установить свойства главной формы проекта Form1 в Инспекторе Объектов:

Свойство	Обозначение	Значение
Заголовок окна	Caption	База данных, <Фамилия студента>
Положение на экране (при первом показе)	Position	poDesktopCenter или poScreenCenter

71 Скопировать файл country.cds из <Папка группы> в папку <Папка группы>\<Фамилия студента>\ЛР4\ (копирование произвести средствами Windows).

72 Разместить на форме компонент класса TClientDataSet (закладка Data Access) и установить его свойства:

Свойство	Обозначение	Значение
Имя файла таблицы данных	FileName	country.cds
Загрузка данных в компонент	Active	True

73 Разместить на форме компонент класса TDataSource (закладка Data Access) и установить его свойства:

Свойство	Обозначение	Значение
Таблица данных	DataSet	ClientDataSet1

74 Разместить на форме компонент класса TTabbedNotebook (закладка Win 3.1 Палитры Компонентов) и установить его свойства:

Свойство	Обозначение	Значение
Выравнивание	Align	alClient
Страницы блокнота	Pages	Записи Таблица Диаграмма

75 Разместить на странице Записи компонент класса TDBNavigator (закладка Data Controls), пять компонентов класса TLabel (закладка Standard) и пять компонентов класса TDBEdit (закладка Data Controls). Разместить и выровнять компоненты, переименовать компоненты класса TLabel, как показано на рис. 3:

Рис. 3

76 Установить в свойстве DataSource компонента DBNavigator1 значение 'DataSource1'.

Установить в свойствах VisibleButtons – nbEdit и VisibleButtons – nbRefresh компонента DBNavigator1 значение 'False'.

77 Установить в свойстве DataSource компонентов класса TDBEdit значение 'DataSource1'.

Установить свойство DataField компонентов класса TDBEdit в соответствии с таблицей:

Компонент	Свойство DataField
DBEdit1	Name
DBEdit2	Capital
DBEdit3	Continent
DBEdit4	Area
DBEdit5	Population

78 Разместить на странице Таблица компонент класса TDBGrid (закладка Data Controls) и установить его свойства:

Свойство	Обозначение	Значение
Выравнивание	Align	alClient
Источник данных	DataSource	DataSource1

79 Разместить на странице Диаграмма компонент класса TDBChart (закладка Data Controls) и установить его свойства:

Свойство	Обозначение	Значение
Выравнивание	Align	alClient

80 Открыть Редактор Свойств Диаграммы (двойной щелчок на компоненте DBChart1):

а) на закладке Chart-Series редактора создать объекта типа TChartSeries. Для создания объекта типа TChartSeries необходимо нажать на кнопку Add и выбрать вид объекта из галереи. Вид объекта определяется номером варианта (компьютера, на котором работает студент):

Номера вариантов	Вид объекта
1, 4, 7, 10, 13, 16, 19, 22, 25, 28	Bar
2, 5, 8, 11, 14, 17, 20, 23, 26, 29	Horiz. Bar
3, 6, 9, 12, 15, 18, 21, 24, 27, 30	Pie

На закладке Chart-Titles снять пометку с опции Visible.

На закладке Chart-Legend снять пометку с опции Visible.

б) на закладке Series-Data Source выбрать из выпадающего списка опцию Dataset и установить следующие опции:

Опция	Обозначение	Значение
Таблица данных	Dataset	ClientDataSet1
Подписи данных	Labels	Name
Данные	Bar или Pie (в зависимости от вида диаграммы)	Area (для нечетных вариантов), Population (для четных вариантов)

81 Создать обработчик события OnCreate компонента Form1. В обработчике события TForm1.FormCreate ввести код:

procedure TForm1.FormCreate(Sender: TObject);

begin

TabbedNotebook1.PageIndex := 0;

end;

82 Сохранить изменения проекта (команда File|Save All).

83 Запустить проект на выполнение (клавиша F9).