Для реализации отношения «День недели – расписание занятий» в структурной схеме СУБД предложено использовать фильтр. Реализовать фильтр возможно следующим образом:
· Шаг 1. Необходимо установить в форму компонент ComboBox, который находится на странице Standard палитры компонентов Delphi (рис. 5.1.).
Рис. 5.1. Установка компонента ComboBox в форму
· Шаг 2. Выбрать компонент ComboBox в форме и вызвать редактор списка свойства Item, выполнив щелчок по кнопке поля TString. Ввести в окне редактора список дней недели (‘ПН’… ‘ПТ’) (Рис. 5.2.) и нажать на кнопку OK.
Рис. 5.2. Ввод значений в список
· Шаг 3. Присвоить свойству Text значение ‘ПН’ (ввести значение ‘ПН’ в поле Text) (рис. 5.3.).
Рис. 5.3. Ввод значения в поле Text
· Шаг 4. С целью обеспечения доступа из программы к свойству Filter таблицы необходимо присоединить к имени таблицы поля таблицы. Данная операция выполняется в следующей последовательности:
1. Выбрать в форме компонент Tabe2 и выполнить двойной щелчок указателем мыши по компоненту.
2. В открывшемся окне необходимо вызвать контекстное меню (правая кнопка мыши) и выполнить команду ADD Fields.
3. В окне добавления полей (Add Fields) нажать на кнопку OK (рис. 5.4.). После выполнения данной команды в окне Form1 Table2 появится список всех полей таблицы (рис. 5.5.).
4. Закрыть окно Form1 Table2 и выполнить сохранение файлов проекта, выполнив команду Save All меню Delphi.
Рис. 5.4. Добавление полей таблицы
Рис. 5.5. Присоединенные поля таблицы
Собственно, реализация фильтра осуществляется исполнением строк программы в процедуре обработки события OnChange (обработчике события обмена данными) элемента управления (компонента) ComboBox1. Заголовок процедуры обработки события в Delphi создается автоматически при выполнении двойного щелчка по выбранному полю на странице Events инспектора объектов. В нашем случае необходимо выбрать первый (главный) обработчик события OnChange компонента ComboBox1. При выполнении указанного действия в редакторе программного кода Delphi будет создан заголовок процедуры обработки события обмена данными:
Внутри операторных скобок процедуры, между словами begin … end, необходимо записать следующие строки программы (рис. 5.6.).
Рис. 5.6. Программа, реализующая фильтр выборки дня занятий
Ввод строк программы можно выполнить следующим образом:
· выбрать в форме компонент Table2;
· выбрать в инспекторе объектов свойство Name и выполнить команду копировать [Ctrl + C];
· установить в окне редактора кода курсор в нужное место ввода программы и выполнить команду вставить [Ctrl + V];
· после занесения имени компонента в окно программного кода поставить точку за именем (данная операция выведет окно выбора свойств и методов компонента);
· в списке окна достаточно указать необходимое свойство и нажать на клавишу Enter или Space клавиатуры;
· далее ввести символы присвоения значения (:=) и написать значения свойства;
· после ввода всей строки программы необходимо поставить признак конца программной строки (;);
· последовательно записать все строки программы.
После ввода строк программы необходимо сохранить все файлы проекта (команда Save All) и выполнить компиляцию приложения (команда Run).
Программа, приведенная на рис. 5.6. выполняется следующим образом:
· при выборе в поле со списком ComboBox1 значения дня недели, первым выполняется метод, деактивирующий фильтр – Table2.Filtered := false;
· затем свойству фильтр присваивается значение для поля день (DAY), состоящее из имени поля и значения выбранного из списка компонента ComboBox1 – Table2.Filter := 'DAY=' + ComboBox1.Text;
· последняя строка программы устанавливает фильтр в активное состояние (метод Filtered) – Table2.Filtered := true.
После выполнения всех вышеописанных действий запустите приложение и введите все записи в таблицу «Расписание занятий» относительно каждого преподавателя и дня недели.
В реальных СУБД часто применяется поиск необходимых записей по вводу первых символов отыскиваемого слова. Как известно поиск осуществляется по индексированным полям (вторичный индекс). Для реализации возможности быстрого нахождения фамилии преподавателя необходимо проиндексировать поле NNAME таблицы List. Данная операция может быть выполнена при помощи утилиты DataBase Desktop. Для этого достаточно открыть таблицу List, нажать на кнопку Restructure и установить вторичный индекс, например SR для поля NNAME. После выполнения данной операции повторно индексированную таблицу необходимо сохранить.
В разрабатываемой СУБД поиск фамилии будем выполнять посредством ввода символов в поле ввода (компонент TEdit). Дополним разрабатываемый проект компонентом Edit1 (рис. 5.7.).
Рис.5.7. Установка в форму компонента Edit
Далее необходимо в форме выбрать компонент Table1 и для свойства IndexName установить значение SR (рис. 5.8.).
Рис. 5.8. Установка значения индекса
Программная реализация процедуры поиска выполняется в обработчике события OnChange компонента Edit1 (рис. 5.9.).
Рис. 5.9. Программная реализация процедуры поиска
После записи строк программы необходимо сохранить все файлы проекта и скомпилировать приложение.
Рис. 5.1. Установка компонента ComboBox в форму
Рис. 5.2. Ввод значений в список
Рис. 5.3. Ввод значения в поле Text
Рис. 5.4. Добавление полей таблицы
Рис. 5.5. Присоединенные поля таблицы
Рис. 5.6. Программа, реализующая фильтр выборки дня занятий
Рис.5.7. Установка в форму компонента Edit
Рис. 5.8. Установка значения индекса
Рис. 5.9. Программная реализация процедуры поиска