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

edit9.clear;

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

end;

procedure TForm1.FormCreate(Sender: TObject);

begin

StringGrid1.Rows[0][0]:='Номер';

StringGrid1.Rows[0][1]:='Название фильма';

StringGrid1.Rows[0][2]:='Цена DVD-диска';

StringGrid1.Rows[0][3]:='Год выпуска';

StringGrid1.Rows[0][4]:='Режиссёр';

StringGrid1.Rows[0][5]:='Кинокомпания';

vivod (derect+'db_sot.db')

end;

procedure TForm1.N8Click(Sender: TObject);

begin

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

if but=IDYES then

Close;

end;

procedure TForm1.N7Click(Sender: TObject);

begin

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

end;

procedure TForm1.N14Click(Sender: TObject);

begin

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

end;

procedure TForm1.N15Click(Sender: TObject);

begin