Формирование системы Prepodavatel

Перейдя на страницу Список преподавателей расположим на ней Query3, DataSource 5, 1 DbGrid, 2 кнопки Button, 2 текстовых поля Edit, 2 Label. Затем установим для них свойства (см. рисунок 15).

Установим для Query3 свойство SQL равным:

select fio, doljnost from prepodavatel

order by fio;

Обработчики событий для «Вставить»:

procedure TForm1.Button17Click(Sender: TObject);

begin

query3.Insert;

query3.FieldByName('fio').AsString:=edit10.Text;

query3.FieldByName('doljnost').AsString:=edit14.Text;

query3.Post;edit10.Clear;edit14.Clear;

end;

Рисунок 15 - Страница «Список преподавателей»

Обработчики событий для «Удалить»:

Query3.Delete;

Т.к. удаление записи является безвозвратной, то необходимо для query3 записать событие:

procedure TForm1.Query3BeforeDelete(DataSet: TDataSet);

begin

if not (MessageDlg(' Вы действительно хотите удалить запись?',

 mtError, [mbYes, mbNo], 0)=mrYes) then

begin

Abort;

end;

 end;