program SKLEP;

{$mode objfpc}{$H+}

uses  {$IFDEF UNIX}{$IFDEF UseCThreads}
cthreads,
{$ENDIF}{$ENDIF}
Classes
{ you can add units after this };



type
  bazmagazyn =record
  nazwa:string[50];
  ilosc:integer;
  id:integer;
  rodzaj: string[30];
end;

  type
    bazklijent = record
    imie: string [20];
    nazwisko: string[30];
    towar:string[50];
    ilosc: word;
    end;
   type
      bazsprzedaz= record
      nazwa:string[50];
      id : word;
      cena: word;
   end;

var
  dodtowar: bazmagazyn;
  dodklijent: bazklijent;
  dodsprzedaz: bazsprzedaz;
  magazyn:file of bazmagazyn;
  klijent: file of bazklijent;
  sprzedaz: file of bazsprzedaz;
  tmagazyn:array[1..100] of bazmagazyn;
   tmp:array[1..100] of bazmagazyn;
  tklijent: array [1..100]  of bazklijent;
  tsprzedaz: array [1..100] of bazsprzedaz;
  i,x,menu, menu2: byte;





procedure  Dodaj_oferte();
begin

    writeln('prosze podac nazwe towaru nr_', x,':');
    readln(tmagazyn[x].nazwa);
    writeln('podaj ilosc towaru');
    readln(tmagazyn[x].ilosc);
    writeln('podaj id towaru');
    readln (tmagazyn[x].id);
    end;

 procedure wczytaj_tablice();
var
i:integer;

begin
  for i:=1 to (x-1) do
    begin
    writeln(tmagazyn[i].nazwa);
    writeln(tmagazyn[i].ilosc);
    writeln(tmagazyn[i]. id);
    writeln('----------------------------');
    end;

end;

procedure znajdz ();
var nazwa:string;
 begin
writeln('Wpisz nazwe towaru ktorego chcesz wyszukac');
readln(nazwa);
for i:=1 to 100 do
begin
  if nazwa=tmagazyn[i].nazwa then
  begin
  writeln('nazwa:       ',tmagazyn[i].nazwa);
  writeln(' ilosc:         ', tmagazyn[i].ilosc);
  writeln(' id:            ', tmagazyn[i].id);
  end;
end;
if  nazwa<>tmagazyn[i].nazwa then
writeln('|przepraszamy, nie ma takiego towaru na magazynie |');
end;
procedure  zapisz_do_pliku();
var i:integer;
begin
  assign(magazyn, 'magazyn.sdb');
  reset(magazyn);
  seek(magazyn,filesize(magazyn));

            for i:=1 to 1 do
            write(magazyn,tmagazyn[i]);
            writeln('     Zapisano do pliku!');
end;

procedure  odczytaj_dane();
  begin
  assign(magazyn,'magazyn.sdb');
  reset(magazyn);

    repeat
    read(magazyn, dodtowar);
    writeln( 'Nazwa towaru - ' , dodtowar.nazwa);
    writeln('Ilosc towaru w magazynie - '  , dodtowar.ilosc);
    writeln('ID towaru -  ' ,   dodtowar.id);
    writeln;
    until eof(magazyn);
    close(magazyn);
  end;

procedure dodaj_sprzedaz();
var
nazwa: string ;
ilosc,i: integer;
begin
  writeln('podaj nazwe towaru oraz ilosc jaka chcesz dodac do sprzedazy');
  readln(nazwa);
   for i:=1 to x-1 do
       begin
         if nazwa=tmagazyn[i].nazwa then
         begin
         writeln('prosze podac nazwe towaru nr_', x,':');
    readln(tmagazyn[i].nazwa);
    writeln('podaj ilosc towaru');
    readln(tmagazyn[i].ilosc);
    writeln('podaj id towaru');
    readln (tmagazyn[i].id);
         end
         else writeln('przykro nam, ale brak towaru w magazynie');
         end;

end;

procedure edytuj();
var towar:string;
licznik:integer;
i:integer;
  begin
    writeln('podaj nazwe towaru ktora chcesz edytowac');
    readln(towar);
    for i:=1 to x-1 do
    begin
    if  towar=tmagazyn[i].nazwa then
      begin
     writeln('podaj nazwe  nowego towaru');
     readln(tmagazyn[i].nazwa);
     writeln('podaj ilosc nowego towaru');
     readln(tmagazyn[i].ilosc);
     writeln('zedytowano!');

      end
    else writeln('brak towaru');
    end;




  end;

procedure dodaj_klijent();
var  ilosc:integer;
    begin
    assign(klijent, 'klijent.sdb');
    reset (klijent);
    seek(klijent,filesize(klijent));
    writeln('Podaj swoje imie');
    readln(dodklijent.imie);
    writeln('Podaj swoje nazwisko');
    readln(dodklijent.nazwisko);
    writeln('Jaki towar chcesz zakupic?');
    readln(dodklijent.towar);
    writeln('podaj ilosc zakupu');
    readln(dodklijent.ilosc);
    write(klijent, dodklijent);
    writeln('zlozono zamowienie, dziekujemy');
    close(klijent);
    end;

procedure odczyt_klijent();
  begin
  assign(klijent,'klijent.sdb');
  reset(klijent);
while not EOF(klijent) do
    begin
    read(klijent, dodklijent);
    writeln( 'Imie  - ', dodklijent.imie);
    writeln('Nazwisko - ', dodklijent.nazwisko);
    writeln('Towar - ', dodklijent.towar);
    writeln( 'Ilosc - ', dodklijent.ilosc);
    writeln('---------------------------------------------');
    end;
close(klijent);

  end;
begin
assign(magazyn,'magazyn.sdb');
reset(magazyn);
for i:=1 to 100 do

       write(magazyn,tmp[i]);


for i:=1 to 100 do
     begin
      if not eof(magazyn) then
       begin
        read(magazyn,tmp[i]);
        tmagazyn[i]:=tmp[i];
       end;
     end;
      close(magazyn);
  x:=1;
  repeat
  writeln('Witaj w bazie danych: ');
  writeln(' 1 - Dodaj towar do magazynu');
  writeln(' 2 - Odczytaj dane z magazynu(pliku)');
  writeln(' 3 - Wyswietl konkretny towar z magazynu po nazwie towaru.');
  writeln(' 4 - edycja danych w magazynie  ');
  writeln(' 5 - Odczytaj dane  w sprzedazy');
  writeln(' 6 - Dodaj klijenta sklepu');
  writeln(' 7 - wyswietl klijentow sklepu');
  writeln(' 8 - koniec programu');
  writeln('10 -odczyt tablicy(test)');
  writeln('11 - zapisz rekord do pliku');
  writeln;
  writeln (' Prosze wybrac swoja opcje: ');
  writeln('---------------------------------------------');
  readln(menu);
  writeln('---------------------------------------------');
  writeln('Wybrano opcje nr: ', menu );
  writeln('---------------------------------------------');



case menu of

1:begin
  Dodaj_oferte;
  inc(x);
  end;
2:odczytaj_dane;
3:znajdz();
4:edytuj;
5:dodaj_sprzedaz;
10:wczytaj_tablice;
11:zapisz_do_pliku;
6:dodaj_klijent;
end;

until menu=8;

writeln('Dziekujemy za skorzystanie z naszej bazy danych-kliknij enter aby zamknac program');
readln;

end.