База данных DVD–фильмов
Курсовой проект - Компьютеры, программирование
Другие курсовые по предмету Компьютеры, программирование
,el[c]);
end;
for i:=1 to c do
for n:=i+1 to c do
if el[n].name<el[i].name then
begin
buf:=el[n];
el[n]:=el[i];
el[i]:=buf;
end;
for i:=1 to c do
begin
write(q,el[i]);
end;
closefile(f);
closefile(q);
vivod(derect+db.db);
erase(q);
end;
procedure tform1.sort_2(dvdfile: string);
var
f,q:file of disk;
c,i,n:integer;
buf:disk;
el:tdvd;
begin
assignfile(q,derect+db.db);
rewrite(q);
assignfile(f,dvdfile);
reset(f);
c:=0;
while not eof(f)do
begin
c:=c+1;
read(f,el[c]);
end;
for i:=1 to c do
for n:=i+1 to c do
if el[n].stoim<el[i].stoim then
begin
buf:=el[n];
el[n]:=el[i];
el[i]:=buf;
end;
for i:=1 to c do
begin
write(q,el[i]);
end;
closefile(f);
closefile(q);
vivod(derect+db.db);
erase(q);
end;
procedure tform1.sort_3(dvdfile: string);
var
f,q:file of disk;
c,i,n:integer;
buf:disk;
el:tdvd;
begin
assignfile(q,derect+db.db);
rewrite(q);
assignfile(f,dvdfile);
reset(f);
c:=0;
while not eof(f)do
begin
c:=c+1;
read(f,el[c]);
end;
for i:=1 to c do
for n:=i+1 to c do
if el[n].year<el[i].year then
begin
buf:=el[n];
el[n]:=el[i];
el[i]:=buf;
end;
for i:=1 to c do
begin
write(q,el[i]);
end;
closefile(f);
closefile(q);
vivod(derect+db.db);
erase(q);
end;
procedure tform1.sort_4(dvdfile: string);
var
f,q:file of disk;
c,i,n:integer;
buf:disk;
el:tdvd;
begin
assignfile(q,derect+db.db);
rewrite(q);
assignfile(f,dvdfile);
reset(f);
c:=0;
while not eof(f)do
begin
c:=c+1;
read(f,el[c]);
end;
for i:=1 to c do
for n:=i+1 to c do
if el[n].reg<el[i].reg then
begin
buf:=el[n];
el[n]:=el[i];
el[i]:=buf;
end;
for i:=1 to c do
begin
write(q,el[i]);
end;
closefile(f);
closefile(q);
vivod(derect+db.db);
erase(q);
end;
procedure tform1.sort_5(dvdfile: string);
var
f,q:file of disk;
c,i,n:integer;
buf:disk;
el:tdvd;
begin
assignfile(q,derect+db.db);
rewrite(q);
assignfile(f,dvdfile);
reset(f);
c:=0;
while not eof(f)do
begin
c:=c+1;
read(f,el[c]);
end;
for i:=1 to c do
for n:=i+1 to c do
if el[n].cincom<el[i].cincom then
begin
buf:=el[n];
el[n]:=el[i];
el[i]:=buf;
end;
for i:=1 to c do
begin
write(q,el[i]);
end;
closefile(f);
closefile(q);
vivod(derect+db.db);
erase(q);
end;
{Редактирование}
procedure Tform1.editzap;
var
q:disk;
new:string;
begin
n:=0;
assignfile(f,derect+db_ disk.db);
reset(f);
try
new:=Edit9.text;
seek(f,horizon-1);
read(f,q);
case comboBox3.ItemIndex of
0:q.name:=new;
1:try q.stoim:=strtoint(new);
except
MessageBox(0,Цена указывается в цифрах!,,MB_OK or MB_ICONWARNING)
end;
2:try q.year:=strtoint(new);
except
MessageBox(0,Год выпуска указывается в цифрах!,,MB_OK or MB_ICONWARNING)
end;
3:q.reg:=new;
4:q.cincom:=new;
end;
begin
seek(f,horizon-1);
write(f,q);
closefile(f);
end;
except
MessageBox(0,Выбирите строку из списка.,,MB_OK or MB_ICONWARNING)
end;
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
sort_2(derect+db_ disk.db);
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;
procedure TForm1.N11Click(Sender: TObject);
begin
sort_2(derect+db_sot.db);
end;
procedure TForm1.N12Click(Sender: TObject);
begin
sort_3(derect+db_ disk.db);
end;
procedure TForm1.reg1Click(Sender: TObject);
begin
sort_4(derect+db_ disk.db);
end;
procedure TForm1.cincom1Click(Sender: TObject);
begin
sort_5(derect+db_ disk.db);
end;
{Очистка всплывающее}
procedure TForm1.N9Click(Sender: TObject);
begin
clearlist;
end;
{Очистка в меню}
procedure TForm1.N23Click(Sender: TObject);
begin
clearlist
end;
{Редактирование в меню}
procedure TForm1.N6Click(Sender: TObject);
begin
if (edit9.text=) or (edit9.text=Введите новые данные...) then
MessageBox(0,Введите новые данные.,Внимание!,MB_ok or MB_ICONINFORMATION)
else
editzap;
end;
//на кнопку
procedure TForm1.Button2Click(Sender: TObject);
begin
deletef(horizon);
end;
//удаление во всплывающем
procedure TForm1.N26Click(Sender: TObject);
begin
deletef(horizon);
end;
//Удаление из меню
procedure TForm1.N5Click(Sender: TObject);
begin
deletef(horizon);
end;
///---------------------------------------------------
{Окно "О программе"}
procedure TForm1.N21Click(Sender: TObject);
begin
Form2.ShowModal;
end;
procedure TForm1.Edit9Click(Sender: TObject);
begin
edit9.clear;
end;
procedure TForm1.Button7Click(Sender: TObject);
begin
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)
else
editzap;
end;<