Implementation

Implementation

Begin

Else

End

Begin

Begin

if CheckBox1.Checked then

Table1.Active:=False;

Table1.ReadOnly:=True;

Table1.Active:=True;

Table1.Active:=False;

Table1.ReadOnly:=False;

Table1.Active:=True;

end;

end;

При щелчке по кнопке Добавить запись в конец НД будет появляться дополнительное окно формы в модальном режиме для добавления новой записи:

Для этого добавьте к проекту новую форму. Перейдите на первую форму. Выберите в главном меню Delphi пункт меню File, в этом пункте команду Use unit… В появившемся окне выберите Unit2. Нажмите ОК. В окне кода программы появится следующий раздел:

uses Unit2;

Перейдите на вторую форму и выполните аналогичные действия. В окне кода программы появится аналогичный раздел:

uses Unit1;

Разместите на второй форме четыре компонента DBEdit. Этот компонент представляет собой поле, в котором возможно отображение и изменение его значений.

Расположите на второй форме две кнопки BitBtn. В процессе ввода пользователь может утвердить ввод, нажав кнопку «Ввод», или отменить его, нажав кнопку «Отмена». После закрытия модальной формы ввода проверяется, какая кнопка нажата. Если «Ввод», то сделанные изменения принимаются, в противном случае – нет.

Для окна формы напишите обработчик события OnCreate:

procedure TForm2.FormCreate(Sender: TObject);

Дата добавления: 2014-11-06