Лабораторное занятие№ 11 Тема: фильтрация записей в базе данных
Цель: получить навык использования метода Filter для установки фильтра для записей.
ТО и ПО: ПК AMD E1-1500 APU with Radeon(tm) HD Graphics 1.48 GHz, 2.00 ГБ, ОС Windows 8.1, Delphi 2010, методические указания.
Задание 1: Требуется создать фильтр, позволяющий отображать информацию о музыкальном инструменте по введенному пользователем названию.
Задание 2: Создать фильтр, позволяющий отображать информацию об предмете, значение ключевого поля для которого будет вводится в поле Edit2.
Описание хода выполнения работы:
Запустила систему Delphi 2010.
Открыла проект Delphi – приложения.
Открыла форму проекта, отображающую список музыкальных инструментов.
Разместила элементыButton и Edit.
Для события OnClick компонента Button1 осуществила ввод процедуры, осуществляющей фильтр записей.
Код события OnClick компонента Button1:
procedure TForm12.Button1Click(Sender: TObject);
begin
DataModule13.Tb1.Filter:='(Name='''+edit1.Text+''')';
DataModule13.Tb1.Filtered:=true;
end;
Сохранила Delphi – проект при помощи команды File-Save as – Project1.
Протокол работы представлен на рисунке 11.1:
Рисунок 11.1
Открыла форму проекта, отображающую список предметов.
Разместила элементы Label и Edit.
Для события OnChange компонента Edit2 осуществила ввод процедуры, осуществляющей фильтр записей.
Код для события OnChange компонента Edit2:
procedure TForm12.Edit2Change(Sender: TObject);
begin
DataModule13.Tb2.Filter:='(Cod_predmets='''+edit2.Text+''')';
DataModule13.Tb2.Filtered:=true;
end;
Сохранила Delphi – проект при помощи команды File-Save as – Project1.
Протокол работы представлен на рисунке 11.2.
Рисунок 11.2
Вывод: в ходе лабораторного занятия создан фильтр, позволяющий отображать информацию о музыкальном инструменте по введенному пользователем названию, создан фильтр, позволяющий отображать информацию о предмете, значение ключевого поля для которого будет вводится в поле Edit, на основе чего получены навыки использования метода Filter для установки фильтра для записей.
Лабораторное занятие№ 12 Тема: организация условий ссылочной целостности
Цель: получить навык создания связи между главной и подчинённой таблицами и установки механизма каскадных изменений.
ТО и ПО: ПК AMD E1-1500 APU with Radeon(tm) HD Graphics 1.48 GHz, 2.00 ГБ, ОС Windows 8.1, Delphi 2010, методические указания.
Задание: Создать межтабличные связи в утилите Database Desktop между таблицами:
Uchenik.db – Roditel.db
Uchenik.db – Uspevaemost.db
Predmet.db – Uspevaemost.db
Установить каскадное обновление данных.
Описание хода выполнения работы:
Запустила утилиту DatabaseDesktop.
Открыла таблицу Roditel.db в режиме редактирования.
В выпадающем списке Table Properties выбрала элементRefential Integrity, нажала на кнопку Define.
В окне Fields из списка полей дочерней таблицы выбрала поле внешнего ключа, после чего название этого поля появилось в поле Child Fields.
Выбрала в списке Tables родительскую таблицу.
В поле Parents Key показалось поле из первичного ключа родительской таблицы, это представлено на рисунке 12.1.
Рисунок 12.1
Нажала ОК.
Ввела имя и нажала кнопку ОК.
Сохранила изменения в дочерней таблице, вышла из режима реструктуризации и проделала аналогичные действия с таблицами Uchenik.db – Uspevaemost.db, Predmet.db – Uspevaemost.db.
Вывод: в ходе лабораторного занятия получен навык создания связи между главной и подчинённой таблицами и установки механизма каскадных изменений.
Целостность – свойство БД, означающее, что она содержит полную, непротиворечивую и адекватно отражающую предметную область информации.
Механизм каскадных изменений используется, чтобы предотвратить потерю ссылочной целостности.
Каскадное удаление – это удаление в записях дочерней таблицы при одновременном удалении записи родительской таблицы.
Для реализации ссылочной целостности в дочерней таблице создают внешний ключ, в который входят поля связи дочерней таблицы.