2015-05-30
250
Создадим приложение для добавления, вставки, удаления записей таблицы Chitateli.db. В программе предусмотреть блокировку изменения записей.
Расположите на форме компоненты в соответствии с рисунком:
Для блокировки редактирования НД используется компонент CheckBox1 «Редактирование НД запрещено». Если флажок компонента установлен, то в НД невозможно внести какие-либо изменения. Для компонента CheckBox1 напишите следующий обработчик события OnClick:
procedure Tform1.CheckBox1Click(Sender: TObject);
Begin
if CheckBox1.Checked then
Begin
Table1.Active:=False;
Table1.ReadOnly:=True;
Table1.Active:=True;
End
Else
begin
Table1.Active:=False;
Table1.ReadOnly:=False;
Table1.Active:=True;
end;
end;
При щелчке по кнопке Добавить запись в конец НД будет появляться дополнительное окно формы в модальном режиме для добавления новой записи:
Для этого добавьте к проекту новую форму. Перейдите на первую форму. Выберите в главном меню Delphi пункт меню File, в этом пункте команду Use unit… В появившемся окне выберите Unit2. Нажмите ОК. В окне кода программы появится следующий раздел:
