Реферат: Лабораторные работы (в ХГТУ)

where kod in(

select kavt

from SOOTV

where kknig=:par )

Для навигации по названиям книг можно пользоваться компонентом «DBNavigator», который привязан к тому же набору что и DBGrid1(левая таблица). Для добавления и удаления автора надо пользоваться кнопками «Добавить» и «Удалить».

Процедура нажатия на кнопку «удалить»:

procedure TSvaz.BitBtn1Click(Sender: TObject);

begin

table2.FindKey([table1.fieldbyname('KOD').asinteger,query1.fieldbyname('KOD').asinteger]);

table2.Delete; // переход, удаление и обновление

Table1.AfterScroll(table1);

end;

Процедура нажатия на кнопку «добавить»:

procedure TSvaz.BitBtn3Click(Sender: TObject);

begin

table2.Append; // добавление записи в таблицу «Соответствие»

table2.FieldByName('KKNIG').Asinteger:=table1.fieldbyname('KOD').AsInteger; // в поле

//“KKNIG” поместить значение кода текущей книги

ShowWindow(Vibor_Avt.Handle, SW_SHOW); // показать форму выбора автора

Vibor_Avt.Show;

svaz.Enabled:=false; // заблокировать форму

end;

После выхода из формы выбора автора управление передается процедуре:

procedure TSvaz.vstavka;

begin

ifnot (TableProv.FindKey([table2.fieldbyname('KKnig').asinteger, table2.fieldbyname('KAvt'). asinteger])) thenbegin // поиск такой же записи как хотим ввести в уже введенных

try

Table2.post; // сохранение

table2.Close; // обновление