dobra prawie wszystko juz dizła ale mam jescze 2 problemy:
1 problem:
Chce dodac do abzy opcje exportu danych do pliku txt w wybranym miejscu na dysku. Oto procedura co jest w niej nie tak, co mam zmienic i jak zrobic aby wczytane dane byly wykorzystywane przy sciezce:
Procedure Eksportuj;
Var
dysk: char;
sciezka, nazwa: string;
i: byte;
Begin
write('Podaj dysk: ');
readln(upcase(dysk));
write('Podaj wzgledna sciezke: ');
readln(sciezka);
write('Podaj nazwe pliku: ');
readln(nazwa);
assign(f,‘minibaza.dat’);
reset(f);
while not eof(f) do
Begin
for i:=1 to ilosob do
Begin
read(f, osoba_);_
with osoba do
Begin
assign(t, ‘C:\Users\anton86993\Desktop\MiniBazaDanych\EXPORT FILES\plik1.txt’);
rewrite(t);
write('Imie: '); writeln(osoba_.imie);_
write('Nazwisko: '); writeln(osoba_.nazwisko);_
write('Data urodzenia: '); write(osoba_.dzienur); write(’.’); write(osoba__.miesiacur); write(’.’); writeln(osoba__.rokur);_
close(t);
End;
End;
End;
close(f);
writeln(‘EKSPORTOWANIE ZOSTALO POMYSLNIE ZAKONCZONE!’);
delay(1500);
End;
2 problem
Gdy chce przeszukac baze danych wdelug dango kryterum wykorzystuje zmienna opcja, ktora mowi wedlug czego ma przeszukac. Program sie kompiluje tylko ze jak wezme byle jakie kryterium to nei przechodiz dalej tylko sie zapetla. oto procedura:
Procedure Przeszukuj;
Var
opcja: byte;
Begin
Repeat
write('Wedlug jakich kryteri zamierzasz szukac: ');
readln(opcja);
if (opcja>6) then writeln(‘WYBIERZ POPRAWNA OPCJE!’);
Until (opcja<=6);
End;
OTO PROGRAM GLOWNY:
Begin
Repeat
Menu;
Repeat
Wybor;
Until decyzja in [1, 2, 3, 4, 5, 6, 7];
if decyzja<>7 then
Begin
case decyzja of
1: Wprowadzanie;
2: Wyprowadzanie;
3: Begin
Repeat
PrzeszukajMenu;
Repeat
Przeszukuj;
Until opcja in [1, 2, 3, 4, 5, 6];
if opcja<>6 then
Begin
case opcja of
1: SzukajWgImienia;
2: SzukajWgNazwiska;
3: SzukajWgDniaUr;
4: SzukajWgMiesiacaUr;
5: SzukajWgRokuUr;
6: Exit;
End;
End;
Until opcja=6;
End;
4: writeln(‘OPCJA AKTUALNIE NIEDOSTEPNA!’);
5: Eksportuj;
6: Clrscr;
7: Exit;
End;
End;
Until decyzja=7;
End;
SORRY ŻE PYTAM SIĘ O TAK GŁUPIE I BŁACHE SPRAWY ALE JESTEM DOPIERO POCZĄTKUJĄCYM NIEDOSWADCZONYM PROGRAMISTA I MUSZE SIĘ JAKOS NAUCZYC, A JAK WIADOMO CZLOWIEK NAJLEPIEJ UCZY SIE NA WŁASNYCH BŁĘDACH NEI OD RAZU KRAKOW ZBUDOWANO