Práce s databází - Pascal – Pascal – Fórum – Programujte.com

Zdravím,

mám udělat program,který pracuje s databází obchodů (s alternetivní medicínou). Zatím mám proceduru přidání položky a vypsání všch položek. Potřebovala bych poradit s procedůrou,která vypíše ty obchody podle otevírací doby (resp. uživatel napíše např. že je pondělí 15.30 a program by měl vypsat všechny obchody,které jsou otevřené..). Nejspíš tam mám špatně už tu proměnou u otevírací doby.

Děkuju za rady :)

Vkládám strukturu programu,který zatím mám (a funguje):

program alterna;
uses CRT;

type obchod=record
        nazev:array[1..50] of char;
        adresa: array [1..50]of char;
        kontakt:array [1..50]of char;
        eshop: array [1..50] of char;
        odvetvi : (homeopatie, fytoterapie, psychotronika, akupunktura, akupresura, reflexniterapie, aromaterapie,jine);
        otviracidoba: integer; end;
var obchody: file of obchod;
        jeden:obchod;
        rozhod:char;

procedure PRIDANI;
begin clrscr;
reset(obchody);
seek(obchody,filesize(obchody));
writeln('Zadejte nazev:');
readln(jeden.nazev);
writeln('Zadejte adresu');
readln(jeden.adresa);
writeln('Zadejte kontakt:');
readln(jeden.kontakt);
writeln('Zadejte eshop:');
readln(jeden.eshop);
writeln('Zadejte odvetvi:');
writeln('Homeopatie....<H>');
writeln('Fytoterapie...<F>');
writeln('Akupresura...<E>');
writeln('Akupunktura...<U>');
writeln('Psychotronika...<T>');
writeln('Jin‚...<J>');
writeln('Reflexnˇ terapie...<R>');
writeln('Aromaterapie...<A>');
rozhod:=readkey;
if upcase(rozhod) in['H','F','E','U','T','J','R','A']
then case upcase(rozhod) of
'H':jeden.odvetvi:=homeopatie;
'F':jeden.odvetvi:=fytoterapie;
'E':jeden.odvetvi:=akupresura;
'U':jeden.odvetvi:=akupunktura;
'T':jeden.odvetvi:=psychotronika;
'J':jeden.odvetvi:=jine;
'R':jeden.odvetvi:=reflexniterapie;
'A':jeden.odvetvi:=aromaterapie;
end;

writeln('Zadejte otviraci dobu :');
readln(jeden.otviracidoba);
write(obchody,jeden);
close(obchody)
end;

procedure VYPIS;
begin clrscr;
reset(obchody);
repeat
if not(eof(obchody)) then  begin
read(obchody,jeden);
writeln('N zev: ',jeden.nazev);
writeln('Adresa: ',jeden.adresa);
writeln('Kontakt: ',jeden.kontakt);
writeln('Eshop: ',jeden.eshop);
writeln('OdvŘtvˇ: ',jeden.odvetvi);
writeln('Otvˇracˇ doba: ' ,jeden.otviracidoba);
end;
until eof(obchody);
close(obchody);
readln();
end;

begin
clrscr;
assign (obchody, 'SEZNAMZ.DTA');{$I-}
reset (obchody); {$I+}
if IOResult>0 then begin
rewrite(obchody);
close(obchody);
reset(obchody);
end;

repeat clrscr;
gotoxy(33,2);
write('Datab ze obchod…');
gotoxy(25,8);
write('Pýidat obchod.............. <P>');
gotoxy(25,10);
write('Věpis vçech obchod…......... <V>');
gotoxy(25,12);
write('Smazat........<S>');
gotoxy(25,14);
write('Konec.................... <K>');
rozhod:=readkey;
if upcase(rozhod) in['P','V','S']
then case upcase(rozhod) of
'P':PRIDANI;
'V':VYPIS;
'S': SMAZAT;
end;

until upcase(rozhod)='K';

end.

Jaj, teď se dívám,že mě to trošku přepsalo háčky ..Tak se omlouvám za trošku nesrozumitelné slova...

#2 El97za
Pokud si nechceš čas nějak kódovat do toho jednoho celého čísla typu integer (ne že by to nešlo, třeba 1000=16:40), tak si čas ulož třeba jako záznam:

 cas = record 
    	 hod:byte;
    	 min:byte; 
       end;

a podle toho to pak hledej.

PS: pro zjednodušení zápisu si nastuduj příkaz with:

with jeden do 
  begin
    writeln('Název: ',nazev);
    writeln('Adresa: ',adresa);
    ...
    with otviracidoba do
      writeln('Otvírací doba: ',hod,':',min);
  end;

#3 JoDiK
Díky za radu,ale už sem to nějak vyřešila...Sice ne moc elegantně,ale funguje to podle potřeby..

Hlavně by to chtělo mít uložený začátek a konec otvírací doby, tedy dva časy místo jednoho. Potom už by to bylo něco ve smyslu:

if (AktualniHodina>=HodinaOtevreni) and (AktualniHodina<=HodinaZavreni) then ...právě je otevřeno...