If Q_Spr.UpdatesPending then

Begin

Q_Spr.Delete;

Q_Spr.Edit;

Q_Spr.Open;

TJ_Ved.Create(Application);

Begin

Вызов дочерней формы

Выбрать в меню главной формы Ведомость. В редакторе ввести код:

procedure TMain.N1Click(Sender: TObject);

end;

где J_ved - имя вызываемой формы

Аналогично сделать для Меню Студенты, Предметы,Отчет. Для меню Выход вписать оператор Close.

Скомпилировать проект. Должна открыться главная форма с меню. При выборе элемента меню должна открыться соответствующая форма

7.4 Форма «Студенты»

Данная форма представляет интерфейс к таблице Kadr базы данных

Для работы необходимо подключить используемые модули (File – Use Unit… - FDataModule)

События

OnClose

Action:= cafree;

OnShow

Размещаемые компоненты

Query (закладка Data Access)

Свойства

Name: Q_spr

DatabaseName: db_test

SQL: select * from Kadr

UpdateObject: UpdateSQL1 (устанавливается после размещения компонента UpdateSQL на фор ме)

CachedUpdated: True

Active: true

UpdateSQL (закладка Data Access)

Свойства

DeleteSql: delete from Kadr where PN =:OLD_PN

InsertSQl: insert into Kadr (PN, FIO, Spec, FO, Gr) values (:PN,:FIO,:Spec,:FO,:Gr)

ModifySQl: update Kadr set PN=:PN, FIO=:FIO, Spec =:Spec, FO =:FO, Gr =:Gr where PN =:OLD_PN

DataSource (закладка Data Access)

Свойства

DataSet: Q_Spr

DBGrid (закладка Data Controls)

PopupMenu: PopupMenu1 (после размещения PopupMenu на форме)

DataSource: DataSource1 (значения из БД должны отразиться в таблице)

Columns: в редакторе выбрать Add All Fields. Для каждой колонки в свойстве Title- Caption указать имя

PopupMenu (закладка стандарт)

Подменю Добавить

Событие OnClick

IF Q_Spr.State in[dsedit,dsinsert] then Q_Spr.Post;

Q_Spr.Insert;
Подменю Редактировать

Событие OnClick

IF Q_Spr.State in[dsedit,dsinsert] then Q_Spr.Post;

Подменю Удалить

Событие OnClick

IF Q_Spr.State in[dsedit,dsinsert] then Q_Spr.Post;

Button (закладка стандарт)

Свойства

Caption: Ok

События OnClick

IF Q_Spr.State in[dsedit,dsinsert] then Q_Spr.Post; // выход из режима редактирования

if Q_Spr.UpdatesPending then // если были изменния

Try // обработчик ошибок

Q_Spr.ApplyUpdates; // принятие изменений

Except // реакция на ошибку

Showmessage('Нарушена ссылочная целостность!');

Q_Spr.CancelUpdates; // отмена изменений

Abort;

end;

end;

Close; // закрытие формы

Button (закладка стандарт)

Свойства

Caption: Отмена

События OnClick

if MessageDlg('Несохраненные данные будут потеряны. Закрыть? ',

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

Дата добавления: 2014-12-27