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

but:=MessageBox(0,'Закрыть программу?','Внимание!',MB_YESNO or MB_ICONINFORMATION);

if but=IDYES then

Close;

end;

procedure TForm1.Button5Click(Sender: TObject);

begin

clearlist;

end;

procedure TForm1.Button6Click(Sender: TObject);

begin

vivod(derect+'db_sot.db');

end;

procedure TForm1.Button1Click(Sender: TObject);

begin

Form3.ShowModal;

vivod(derect+'db_sot.db');

end;

procedure TForm1.Button3Click(Sender: TObject);

begin

Form4.ShowModal;

end;

procedure TForm1.N25Click(Sender: TObject);

begin

Form4.ShowModal;

end;

procedure TForm1.Button4Click(Sender: TObject);

begin

if (edit9.text='') or (edit9.text='Новые данные...') then

MessageBox(0,'Введите новые данные для изменения.','Внимание!',MB_ok or MB_ICONINFORMATION)