База даних по обліку вогнепальної зброї
Курсовой проект - Компьютеры, программирование
Другие курсовые по предмету Компьютеры, программирование
gotoxy(x1-2,y1);
write(=>);
end;
procedure strelka(var xx,i:byte;x1,y1,a,b:byte);
begin
window(12,6,14,14);
textbackground(0);
clrscr;
window(1,1,40,25);
textcolor(2);
case b of
72: begin
if i>1 then
begin
i:=i-1;
xx:=xx-2;
gotoxy(x1,xx);
write(=>);
exit;
end;
if i=1 then
begin
i:=5;
xx:=y1+8;
gotoxy(x1,xx);
write(=>);
end;
end;
80: begin
if i<5 then
begin
i:=i+1;
xx:=xx+2;
gotoxy(x1,xx);
write(=>);
exit;
end;
if i=5 then
begin
i:=1;
xx:=y1;
gotoxy(x1,xx);
write(=>);
end;
end;
end;
end;
procedure zap;
var i,n:integer;
begin
clrscr;
writeln(vvedi kol-vo orugia);
readln(n);
assign(f,d:\uy.rer);
rewrite(f);
for i:=1 to n do
begin
with oru do
begin
writeln(vvedi model orugia);
readln(med);
writeln(vvedi kalibr );
readln(kal);
writeln(vvedi ves );
readln(ves);
writeln(vvedi dlinu);
readln(dl);
writeln(vvedi visotu);
readln(vis);
writeln(vvedi por.nomer);
readln(pr_nom);
seek(f,filesize(f));
end;
write(f,oru);
end;
close(f);
menu(15,6,27,16,0,14,st1,st2,st3,st4,st5);
end;
procedure udal;
var c:char;
begin
clrscr;
if FSearch(uy.rer,d:\)= then
begin
writeln(faila ne sushestvuet);
for b:=1 to 25 do
Delay(9999);
menu(15,6,27,16,0,14,st1,st2,st3,st4,st5);
end
else
begin
assign(f,d:\uy.rer);
writeln("y"-ydalit basy);
writeln("n"-otmena);
c:=readkey;
if c=y then
begin
erase(f);
menu(15,6,27,16,0,14,st1,st2,st3,st4,st5);
end;
if c=n then
menu(15,6,27,16,0,14,st1,st2,st3,st4,st5);
end;
end;
procedure poisk;
var p,x:string;i:integer;
begin
clrscr;
if FSearch(uy.rer,d:\)= then
begin
gotoxy(15,12);
textcolor(132);
writeln(zapisi net);
for b:=1 to 40 do
Delay(9999);
menu(15,6,27,16,0,14,st1,st2,st3,st4,st5);
end
else
begin
assign(f,d:\uy.rer);
reset(f);
writeln(mogno iskat po:);
writeln;
writeln(dla poiska po modeli orugia vvedi-"model");
writeln;
writeln(dla poiska po kalibru vvedi-"kalibr");
writeln;
writeln(dla poiska po vesu vvedi-"ves");
writeln;
writeln(dla poiska po dline vvedi-"dlina");
writeln;
writeln(dla poiska po visote vvedi-"visota");
writeln;
writeln(dla poiska po por.nomeru vvedi-"nomer");
writeln;
writeln(vvedi po hom budem iskat i nagm. "ENTER");
readln(p);
if (p= model) or (p=kalibr) or ( p=ves) or (p=dlina) or (p=visota) or (p=nomer) then
begin
if p=model then
begin
clrscr;
writeln(vvedi iskaemou model);
readln(x);
for i:=0 to filesize(f)-1 do
begin
seek(f,i);
read(f,oru);
with oru do
if x=med then
begin
writeln(model orugia-,med);
writeln( kalibr-,kal);
writeln( ves-,ves);
writeln( dlina-,dl);
writeln( visota-,vis);
writeln(por.nom-,pr_nom);
end;
end;
end;
if p=kalibr then
begin
clrscr;
writeln(vvedi iskaeiy kalibr);
readln(x);
for i:=0 to filesize(f)-1 do
begin
seek(f,i);
read(f,oru);
with oru do
if x=kal then
begin
writeln(model orugia-,med);
writeln(kalibr-,kal);
writeln(ves-,ves);
writeln(dlina-,dl);
writeln(visota-,vis);
writeln(por.nom-,pr_nom);
end;
end;
end;
if p=ves then
begin
clrscr;
writeln(vvedi iskaeiy ves);
readln(x);
for i:=0 to filesize(f)-1 do
begin
seek(f,i);
read(f,oru);
with oru do
if x=ves then
begin
writeln(model orugia-,med);
writeln(kalibr-,kal);
writeln(ves-,ves);
writeln(dlina-,dl);
writeln(visota-,vis);
writeln(por.nom-,pr_nom);
end;
end;
end;
if p=dlina then
begin
clrscr;
writeln(vvedi iskaemou dliny);
readln(x);
for i:=0 to filesize(f)-1 do
begin
seek(f,i);
read(f,oru);
with oru do
if x=dl then
begin
writeln(model orugia-,med);
writeln(kalibr-,kal);
writeln(ves-,ves);
writeln(dlina-,dl);
writeln(visota-,vis);
writeln(por.nom-,pr_nom);
end;
end;
end;
if p=visota then
begin
clrscr;
writeln(vvedi iskaemou visotu);
readln(x);
for i:=0 to filesize(f)-1 do
begin
seek(f,i);
read(f,oru);
with oru do
if x=vis then
begin
writeln(model orugia-,med);
writeln(kalibr-,kal);
writeln(ves-,ves);
writeln(dlina-,dl);
writeln(visota-,vis);
writeln(por.nom-,pr_nom);
end;
end;
end;
if p=nomer then
begin
clrscr;
writeln(vvedi iskaemiy por.nomer);
readln(x);
for i:=0 to filesize(f)-1 do
begin
seek(f,i);
read(f,oru);
with oru do
if x=pr_nom then
begin
writeln(model orugia-,med);
writeln(kalibr-,kal);
writeln(ves-,ves);
writeln(dlina-,dl);
writeln(visota-,vis);
writeln(por.nom-,pr_nom);
end;
end;
end
end
else writeln(po ,p,poisk ne idet);
close(f);
end;
readln;
menu(15,6,27,16,0,14,st1,st2,st3,st4,st5);
end;
procedure prosm;
var i,j:integer;
begin
clrscr;
if FSearch(uy.rer,d:\)= then
begin
gotoxy(15,12);
textcolor(132);
writeln(zapisi net);
for b:=1 to 40 do
Delay(9999);
menu(15,6,27,16,0,14,st1,st2,st3,st4,st5);
end
else
begin
assign(f,d:\uy.rer);
reset(f);
for i:=0 to filesize(f)-1 do
begin
seek(f,i);
read(f,oru);
with oru do
begin
writeln(zapis-,i+1);
writeln(model orugia-,med);
writeln( kalibr-,kal);
writeln( ves-,ves);
writeln( dlinu-,dl);
writeln( visotu-,vis);
textcolor(2);
for j:=1 to 80 do
write(#205);
end;
end;
close(f);
end;
readln;
menu(15,6,27,16,0,14,st1,st2,st3,st4,st5);
end;
begin
textmode(co40);
window(1,1,40,25);
clrscr;
st1:=novaya basa;
st2:=udalit basu;
st3:=poisk v base;
st4:=prosmotr ;
st5:=exit;
menu(15,6,27,16,0,14,st1,st2,st3,st4,st5);
x1:=13;y1:=6;y2:=6;
i:=1;
repeat
repeat
newreadkey(a1,b);
strelka(y2,i,x1,y1,6,b);
until a1=#13;
case i of
1:zap;
2:udal;
3:poisk;
4:prosm;
5:halt;
end;
until a1=#27;
end.
Висновок
В даній курсовій роботі були використані елементи програмування на мові Паскаль. Була створена програма, яка веде облік вогнепальної зброї. Таким чином біли виконані всі вимоги до даної курсової роботи.
В даній роботі було створено досить велику кількість процедур, які можливо використати і в інших програмних проектах, були використані різні типи даних, а також були застосовані процедури та функції які були створені раніше, ці процедури та функції я брав з модулів C