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

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

Рисунок 13 - Страница «Список дисциплин»

Установим соединение Query1, DataSource 3, DbGrid (также как и в предыдущем параграфе). Установим для Query1 свойство SQL равным:

select disciplina_p, disciplina_s from Disciplina

Order by disciplina_p;

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

procedure TForm1.Button15Click(Sender: TObject);

begin

query1.Insert;

query1.FieldByName('disciplina_p').AsString:=edit8.Text;

query1.FieldByName('disciplina_s').AsString:=edit9.Text;

query1.Post; edit8.Clear; edit9.Clear;

end;

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

procedure TForm1.Button16Click(Sender: TObject);

begin

query1.Delete;

end;

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

procedure TForm1.Query1BeforeDelete(DataSet: TDataSet);

begin

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

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

begin

Abort;

end;

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

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

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

select * from specialnost;

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

procedure TForm1.Button20Click(Sender: TObject);

begin

query2.Insert;

query2.FieldByName('shifr_specialnost').AsString:=edit1.Text;

query2.FieldByName('specialnost_p').AsString:=edit11.Text;

query2.FieldByName('specialnost_s').AsString:=edit12.Text;

query2.FieldByName('god_vvedenia').AsString:=edit13.Text;

query2.Post;

edit1.Clear;edit11.Clear;