Administrace komentářů

program vratnice;
uses crt,graph,printer;
const hlaska ='Stisknete libolny znak ...';
const verze = '1.1.2 (BETA)';
 
type vozidlo = record
spz:string[8];
ridic:string[19];
poznamka:string[7];
end;
 
var
vuz:vozidlo;
f,g:file of vozidlo;
i,vel,gd,gm:integer;
odpoved:char;
zadani:string[19];
soubor:string;
trideno:boolean;
nalezeno:boolean;
 
procedure iniciace;
begin
checkbreak:=false;
clrscr;
window(1,1,20,16);
gd:=1;gm:=1;
assign(f,'vratnice.data');
{$I-}
reset(f); {testuje zda soubor existuje}
{$I+}
if ioresult <> 0 then rewrite(f); { kdyz ne tak ho vytvori}
close(f);
end;
 
procedure pozdrav;
begin
writeln('Vitejte ve vratnici');
writeln('-------------------');
writeln('Verze: ',verze);
writeln('Autor: Jan Brunclik');
writeln('Mobil: 775 384 910');
writeln;
writeln('Pokracujte stiskem libovolne klavesy ...');
repeat until keypressed;
end;
 
procedure cekej;
begin
writeln;
write(hlaska);
repeat until keypressed;
end;
 
procedure trid; {tridi metodou BUBLE SORT}
var
a,b,p:vozidlo;
prohoz:boolean;
begin
reset(f);
vel:=filesize(f);
close(f);
repeat
prohoz:=false;
for i:=0 to (vel-2) do begin
reset(f);
seek(f,i);
read(f,a);
read(f,b);
close(f);
if a.spz>b.spz then begin
p:=b;
b:=a;
a:=p;
prohoz:=true;
end;
reset(f);
seek(f,i);
write(f,a);
write(f,b);
close(f);
end;
until prohoz=false;
trideno:=true;
end;
 
procedure vypis; {vypis obsahu souboru}
var
vuz:vozidlo;
begin
clrscr;
writeln('+----------------+');
writeln('| Pocet vozidel  |');
writeln('+----------------+');
writeln;
reset(f);
writeln('Nalezeno : ',filesize(f),' vozidel.');
close(f);
cekej;
end;
 
procedure pridat; {prida zaznam na konec souboru}
begin
reset(f);
seek(f,filesize(f)); {nastaveni ukazatele na konec souboru}
repeat
clrscr;
writeln('+--------------+');
writeln('| Pridani vozu |');
writeln('+--------------+');
writeln;
with vuz do begin {nacteni dat}
write('SPZ : ');
readln(spz);
write('Ridice : ');
readln(ridic);
write('Poznamku : ');
readln(poznamka);
end;
write(f,vuz); {zapis do souboru}
writeln;
writeln('Vuz s "',vuz.spz,'" byl pridan.');
writeln;
writeln('Dalsi zaznam? A/N');
until upcase(readkey)<>'A';
close(f);
trideno:=false;
end;
 
procedure vyhledat; {vyhleda podle spz vozidla}
var
nvuz:Array[1..9] of vozidlo;
pocet:integer;
 
begin
clrscr;
nalezeno:=false;
writeln('+-------------+');
writeln('| Hledani SPZ |');
writeln('+-------------+');
writeln;
reset(f);
write('SPZ : ');
readln(zadani);
clrscr;
writeln('+------------------+');
writeln('| Vysledek hledani |');
writeln('+------------------+');
writeln;
for i:=1 to filesize(f) do begin
read(f,vuz);
if zadani=copy(vuz.spz,4,4) then
begin
nalezeno:=true;
with vuz do begin
writeln(spz);
writeln(ridic);
writeln(poznamka);
end
end;
end;
if not nalezeno then
writeln('Vuz s "',zadani,'" nenalezen !');
close(f);
writeln;
cekej;
end;
 
procedure odstranit; {odstrani zaznam ze souboru}
begin
clrscr;
nalezeno:=false;
assign(g,'tmp.data'); {pomocny soubor}
writeln('+----------------+');
writeln('| Odstraneni SPZ |');
writeln('+----------------+');
writeln;
write('SPZ : ');
readln(zadani);
writeln;
reset(f);
rewrite(g);
for i:=1 to filesize(f) do begin {do pomocneho souboru se prenesou}
read(f,vuz);                     { vsechny zaznamy, krome toho    }
if ((vuz.spz=zadani)or(length(vuz.spz)>=8)) then       { zadaneho }
begin
writeln('Vuz s "',vuz.spz,'" byl odstranen ze zaznamu.');
nalezeno:=true;
end
else
begin
write(g,vuz);
end;
end;
close(f);
close(g);
rewrite(f);
reset(g);
for i:=1 to filesize(g) do begin
read(g,vuz); {zaznamy se prenesou zpet do hlavniho souboru}
write(f,vuz);
end;
close(f);
close(g);
erase(g); {pomocny soubor se vymaze}
if not nalezeno then
writeln('Vuz s "',zadani,'" nebyl nalezen.');
writeln;
cekej;
end;
 
procedure tisk; {tisk vsech povolenek serazene podle SPZ}
var ft:text;i:integer;
begin
clrscr;
writeln('+--------------+');
writeln('|Tisk povolenek|');
writeln('+--------------+');
writeln;
write('Trideni ... ');trid;write('[ok]');
writeln(lst,'Projekt Vratnice ');
writeln(lst,'Jan Brunclik 2011');
writeln(lst,'737 385 291');
writeln(lst,'');
writeln(lst,'+----------------+');
writeln(lst,'| Tisk povolenek |');
writeln(lst,'+----------------+');
writeln(lst,'');
reset(f);
writeln('Tisknu celkem ',filesize(f),' povolenek');
for i:=1 to filesize(f)-1 do begin
seek(f,i);
read(f,vuz);
with vuz do begin
writeln(lst,spz:8,ridic:20,poznamka:8);
end
end;
close(f);
cekej;
end;
 
procedure import;
var
fe: text;
i : integer;
radek : string;
begin
clrscr;
writeln('+----------------+');
writeln('|Import povolenek|');
writeln('+----------------+');
writeln;
assign(fe,'vratnice.csv');
rewrite(f);reset(fe);
radek:='';
while not eof(fe) do begin
with vuz do begin
readln(fe,radek);
spz:=copy(radek,1,7);
radek:=copy(radek,9,length(radek));
ridic:=copy(radek,1,pos(',',radek)-1);
poznamka:=copy(radek,pos(',',radek)+1,length(radek));
end;
write(f,vuz);
end;
close(f);close(fe);
writeln('Hotovo');cekej;
end;
 
procedure export; {export aut do souboru vratnice.csv}
var
fe : text;
i : integer;
begin
clrscr;
writeln('+----------------+');
writeln('|Export povolenek|');
writeln('+----------------+');
writeln;
assign(fe,'vratnice.csv');
reset(f);rewrite(fe);
for i:=1 to filesize(f)-1 do begin
seek(f,i);
read(f,vuz);
with vuz do begin
writeln(fe,spz,',',ridic,',',poznamka);
end
end;
writeln('Hotovo');
close(fe);close(f);
cekej;
end;
 
{definice jednotlivych funkcich}
procedure hledat_spz;begin;end;
procedure hledat_jmena;begin;end;
procedure hledat_datum;begin;end;
 
procedure evidence_hledat;begin;end;
procedure evidence_pridat;begin;end;
procedure evidence_editovat;begin;end;
procedure evidence_smazat;begin;end;
procedure evidence_opravit;begin;end;
procedure evidence_import;begin;end;
procedure evidence_export;begin;end;
 
procedure kontrola_hledat;begin;end;
procedure kontrola_pridat;begin;end;
procedure kontrola_editovat;begin;end;
procedure kontrola_smazat;begin;end;
procedure kontrola_opravit;begin;end;
procedure kontrola_import;begin;end;
procedure kontrola_export;begin;end;
 
procedure povolenky_hledat;begin;vyhledat;end;
procedure povolenky_pridat;begin;pridat;end;
procedure povolenky_editovat;begin;end;
procedure povolenky_smazat;begin;odstranit;end;
procedure povolenky_opravit;begin;end;
procedure povolenky_import;begin;import;end;
procedure povolenky_export;begin;export;end;
procedure povolenky_vypsat;begin;end;
procedure povolenky_tisk;begin;tisk;end;
 
procedure obedy_hledat;begin;end;
procedure obedy_pridat;begin;end;
procedure obedy_editovat;begin;end;
procedure obedy_smazat;begin;end;
procedure obedy_opravit;begin;end;
procedure obedy_import;begin;end;
procedure obedy_export;begin;end;
 
procedure smeny_hledat;begin;end;
procedure smeny_pridat;begin;end;
procedure smeny_editovat;begin;end;
procedure smeny_smazat;begin;end;
procedure smeny_opravit;begin;end;
procedure smeny_import;begin;end;
procedure smeny_export;begin;end;
 
procedure klice_hledat;begin;end;
procedure klice_pridat;begin;end;
procedure klice_editovat;begin;end;
procedure klice_smazat;begin;end;
procedure klice_opravit;begin;end;
procedure klice_import;begin;end;
procedure klice_export;begin;end;
 
{definice jednotlivych menu}
procedure menu_hledat;begin;end;
procedure menu_evidence;begin;end;
procedure menu_kontrola;begin;end;
 
procedure menu_povolenky;
begin
repeat
clrscr;
writeln('+--------------+');
writeln('|   Povolenky  |');
writeln('+--------------+');
writeln('| 1 - Hledat   |');
writeln('| 2 - Pridat   |');
{writeln('| 3 - Editovat |');}
{writeln('| 4 - Smazat   |');}
{writeln('| 5 - Opravit  |');}
writeln('| 6 - Import   |');
writeln('| 7 - Export   |');
{writeln('| 8 - Vypsat   |');}
writeln('| 9 - Tisk     |');
writeln('+--------------+');
writeln('| 0 - Zpet     |');
writeln('+--------------+');
odpoved:=upcase(readkey);
case odpoved of
'1':povolenky_hledat;
'2':povolenky_pridat;
{'3':povolenky_editovat;}
{'4':povolenky_smazat;}
{'5':povolenky_opravit;}
'6':povolenky_import;
'7':povolenky_export;
{'8':povolenky_vypsat;}
'9':povolenky_tisk;
end;
until odpoved='0';
end;
 
procedure menu_obedy;begin;end;
procedure menu_uzivatele;begin;end;
procedure menu_smena;begin;end;
procedure menu_klice;begin;end;
procedure menu_nastaveni;begin;end;
 
begin {hlavni menu}
iniciace;
trideno:=false;
pozdrav;
repeat
clrscr;
writeln('+--------------+');
writeln('|  Hlavni menu |');
writeln('+--------------+');
{writeln('| 1 - Hledat   |');}
{writeln('| 2 - Evidence |');}
{writeln('| 3 - Kontrola |');}
writeln('| 4 - Povolenky|');
{writeln('| 5 - Obedy    |');}
{writeln('| 6 - Uzivatele|');}
{writeln('| 7 - Smeny    |');}
{writeln('| 8 - Klice    |');}
{writeln('| 9 - Nastaveni|');}
writeln('| . - Pocet    |');
writeln('+--------------+');
writeln('| Q,0 - Konec  |');
writeln('+--------------+');
write('Volba :');
odpoved:=upcase(readkey);
case odpoved of
'1':menu_hledat;
'2':menu_evidence;
'3':menu_kontrola;
'4':menu_povolenky;
'5':menu_obedy;
'6':menu_uzivatele;
'7':menu_smena;
'8':menu_klice;
'Q','0':odpoved:=chr(27);
{'T':trid;}
',','.':vypis;
end;
until odpoved=chr(27);
end.