Проектирование баз данных в среде Delphi: Компьтерный методический материал к лабораторным работам. Блюдина Л.С. - 21 стр.

UptoLike

Составители: 

Чтобы пользователь не смог поступить иначе, нужно запретить ввод
данных в компоненту DBGrid1 и нажатие на кнопки DBNavigator2. Для
этого необходимо выполнить следующие действия:
12.1.1.
Завершите работу программы. Выберите компонент
DBNavigator1 на форме. Перейдите на вкладку Events инспектора
объектов.
12.1.2.
Дважды щелкните правой кнопкой мыши в строке
BeforeAction. В окне MyExUnitDB.pas дополните процедуру
Form1.DBNavigator1BeforeAction следующим фрагментом:
if ((Button=nbInsert) or (Button=nbEdit)) then
begin
DBNavigator2.Enabled:=false;
DBGrid1.Enabled:=false;
end;
if Button=nbPost then
begin
DBNavigator2.Enabled:=true;
DBGrid1.Enabled:=true;
end;
12.1.3.
Сохраните изменения и запустите программу.
12.2.
Нажмем кнопку «Плюс» на панели нижнего навигатора по
записям. Создается новая запись в таблице Tel.
Введем в ячейку «Номер» номер телефона.
Выберем в ячейке «Тип», элемент «домиз выпадающего списка.
12.3.
Нажмем кнопку «Плюс» на панели нижнего навигатора по
записям. Кнопку «Галочка» нажимать для сохранения записи
необязательно: при вводе последовательно нескольких телефонов и
переходе на новую запись данные о телефоне автоматически
сохраняются в таблице, и в этой же таблице создается новая запись.
Введем информацию еще об одном телефоне. Нажмем кнопку
«Галочка» на панели нижнего навигатора по записям. Созданная запись
о телефоне сохраняется в таблице Tel.
13.
Завершим работу программы нажатием стандартной кнопки закрытия
окна на границе формы.
14.
Сохраним все изменения проекта с помощью команды File|Save All.
Примечания:
1. Если нужно будет удалить какую-либо запись из компоненты DBGrid1,
следует выделить соответствующую строку и нажать у нижнего
навигатора кнопку «Минус». Для изменения же какой-либо записи
компоненты DBGrid1 следует выделить эту запись, нажать кнопку
«Стрелка вверх» нижнего навигатора, выполнить соответствующие
изменения и нажать кнопку «Галочка».
2. Для удаления записи из таблицы People необходимо предварительно
удалить все записи из таблицы Tel, относящиеся к записи, удаляемой из
таблицы People. Чтобы не выполнять предварительное удаление записей