Курсовая работа: База данных DVD–фильмов

end;

procedure TForm1.N16Click(Sender: TObject);

begin

sort_3(derect+'db_ disk.db');

end;

procedure TForm1.N17Click(Sender: TObject);

begin

sort_4(derect+'db_ disk.db');

end;

procedure TForm1.N18Click(Sender: TObject);

begin

sort_5(derect+'db_sot.db');

end;

{Добавление}

procedure TForm1.N4Click(Sender: TObject);

begin

Form3.ShowModal;

vivod(derect+'db_ disk.db');

end;

{Вывод во всплывающем меню}

procedure TForm1.N2Click(Sender: TObject);

begin

vivod(derect+'db_ disk.db');

end;

{Сортировка во всплывающем меню}

procedure TForm1.N10Click(Sender: TObject);

begin

sort_1(derect+'db_ disk.db');

end;