program libray;    // copyright by Wojciech Glapiak

uses crt,dos;

type
 uzytkownik = record
  imie,nazwisko,haslo,id,data,admin,autoryzacja:string;
 end;
 baza_danych = file of uzytkownik;

 ksiazka = record
  imie,nazwisko,tytul,sygnatura,id_user,data_wyp:string;
  max_wyp,pozostalo :integer;
 end;
 ksiegozbior = file of ksiazka;


var
 licznik_id:text;
 baza:baza_danych;
 ksiazki:ksiegozbior;
 book:ksiazka;
 user:uzytkownik;
 c,c1,c2:char;
 tablica:array[1..5] of string;
 y:byte;

procedure files;
 begin
  assign(licznik_id,'id.db');
  assign(baza,'baza_danych.db');
  assign(ksiazki,'ksiegozbior.db');
 end;

function czas:string;
 var
  godz,min,sek,sek100:word;
  sgodz,smin,ssek,time:string;
 begin
  gettime(godz,min,sek,sek100);
  str(godz,sgodz);
  if length(sgodz)=1 then sgodz:='0'+sgodz;
  str(min,smin);
  if length(smin)=1 then smin:='0'+smin;
  str(sek,ssek);
  if length(ssek)=1 then ssek:='0'+ssek;
  time:=' '+sgodz+':'+smin+':'+ssek;
  czas:=time;
 end;

function data:string;
 const
  dni:array[0..6] of string=('Niedziela','Poniedzialek','Wtorek','Sroda','Czwartek','Piatek','Sobota');
 var
  rok, miesiac, dzien, dztyg:word;
  sdzien,smiesiac,srok,date:string;
 begin
  getdate(rok, miesiac, dzien, dztyg);
  str(dzien,sdzien);
  if length(sdzien)=1 then sdzien:='0'+sdzien;
  str(miesiac,smiesiac);
  if length(smiesiac)=1 then smiesiac:='0'+smiesiac;
  str(rok,srok);
  date:=dni[dztyg]+' '+sdzien+'.'+smiesiac+'.'+srok;
  data:=date;
 end;


procedure intro;
 begin
  clrscr;
  writeln(data);
  writeln('godzina',czas);
  writeln;
  writeln('Witam w programie Bibiloteka');
  writeln('Zaloguj si© lub zarejestruj');
  gotoxy(59,1);
  writeln('Wcisnij ESC aby wyjsc');

 end;

function identyfikator:string;
 var
  a,b,id:string;
  c,i,d,kod:integer;
 begin
 clrscr;
  {$I-}
   reset(licznik_id);
   if ioresult <>0 then
    begin
     rewrite(licznik_id);
     writeln(licznik_id,'1');
    end;
  {$I+}
  close(licznik_id);
  reset(licznik_id);
  readln(licznik_id,id);
  a:='cz';
  a:=a+id;
  c:=6-length(a);
  if (c>0) then
   begin
    for i:=1 to c do
     insert('0',a,length(a))
   end;
  val(id,d,kod);
  inc(d);
  str(d,id);
  rewrite(licznik_id);
  write(licznik_id,id);
  close(licznik_id);
  identyfikator:=a;
 end;


function first_pass(dl:byte):string;
 var
  a:string;
  i:integer;
 begin
  randomize;
  a:='';
  for i:=1 to dl do
   begin
    a:=a+Chr(Ord('a')+Random(26));
   end;
  first_pass:=a;
 end;

procedure rejestracja;
 begin
  clrscr;
  {$I-}
   reset(baza);
   if ioresult <>0 then
    begin
     rewrite(baza);
    end;
   close(baza);
  {$I+}
  reset(baza);
  while not eof(baza) do
   begin
    read(baza,user);
   end;
  user.id:=identyfikator;
  writeln('Podaj imie');
  readln(user.imie);
  writeln('Podaj Nazwisko');
  readln(user.nazwisko);
  clrscr;
  writeln('Witaj ',user.imie,'!');
  writeln('Twoje ID sluzace do logowania to: ',user.id);
  user.haslo:=first_pass(6);
  writeln('Twoje haslo tymczasowe to: ',user.haslo);
  user.data:=data;
  writeln;
  user.autoryzacja:='false';
  user.admin:='false';
  write(baza,user);
  writeln('Konto czeka na autoryzacje przez administratora');
  writeln;
  writeln('Gdy administrator autoryzuje Twoje konto bedziesz mogl m.in.:');
  writeln('- wypozyczyc ksiazke');
  writeln('- zarzadzac kontem');
  readln;
 end;

procedure zakladanie;
 begin
  writeln('zaklad');
 end;

procedure usuwanie_k;
 begin
  writeln('usun');
 end;

procedure baza_cz;
 begin
  writeln('baza');
 end;

procedure stan;
 begin
  writeln('stan');
 end;

procedure bibliotekarz;
 begin
  clrscr;
  writeln('Witamy w panelu bibliotekarza');
  writeln('Wybierz jedna z ponizszych mozliwosci');
  while y<>5 do
  begin
   tablica[1]:='     Zakladanie ksiegozbioru    ';
   tablica[2]:=' Usuwanie pozycji ksiegozbioru  ';
   tablica[3]:='         Baza Czytelnik&#728;w       ';
   tablica[4]:='         Stan Biblioteki        ';
   textcolor(15);
   for y:=1 to 4 do
    begin
     textcolor(15);
     textbackground(0);
     gotoxy(23,10+y);
     write(tablica[y]);
    end;
   y:=1;
   repeat
    textcolor(0);
    textbackground(15);
    gotoxy(23,10+y);
    write(tablica[y]);
    c1:=readkey;
    c2:=' ';
    if c1=chr(0) then c2:=readkey;
    textcolor(15);
    textbackground(0);
    gotoxy(23,10+y);
    write(tablica[y]);
    if c2='H' then dec(y);
    if c2='P' then inc(y);
    if y=0 then y:=4;
    if y=5 then y:=1;
    if c1=chr(27) then exit;
   until (c1=chr(27)) or (c1=chr(13));
   if y=1 then zakladanie;
   if y=2 then usuwanie_k;
   if y=3 then baza_cz;
   if y=4 then stan;
  end;
 end;

procedure czytelnik;
 begin
  clrscr;
  if user.autoryzacja='false' then
   writeln('Twoje konto nie jest autoryzowane przez administratora, sproboj pozniej')
  else
   writeln('user');
 end;

procedure logowanie;
 var
  login,has:string;
  check:byte;
 begin
  clrscr;
  check:=0;
  write('login: ');
  readln(login);
  clrscr;
  write('haslo: ');
  readln(has);
  {$I-}
   reset(baza);
   if IOresult<>0 then
    begin
     writeln('Brak bazy danych, operacja niemozliwa');
     writeln('Nastapi cofniecie na strone glowna');
     delay(500);
    end
   else
    begin
     repeat
      read(baza,user);
      if (login=user.id) then
       begin
        if (has=user.haslo) then
         begin
          inc(check);
          if user.admin='true' then
           bibliotekarz
          else
           czytelnik;
         end;
       end;
     until (check<>0) or eof(baza);
    if check=0 then
    writeln('Zle dane lub nie masz zalozonego konta');
    close(baza);
    readln;
   end;
  {$I+}
 end;

procedure be_admin;

 const
  max=5;

 var
  ad,has,access:string;
  check,i:byte;
  c:char;
 begin
  clrscr;
  access:='';
  check:=0;
  writeln('Podaj haslo: ');
  for i:=1 to max do
   begin
    c:=readkey;
    write('*');
    access[i]:=c;
    access:=access+access[i];
   end;
  if (access = 'l0pht') then
   begin
    clrscr;
    writeln('Uwaga ten panel ingeruje gleboko w baze danych, uzywaj go rozwaznie!');
    writeln('Podaj ID do zmiany konta na konto administratora');
    readln(ad);
    writeln('Nowe haslo');
    readln(has);
    {$I-}
     reset(baza);
     if IOresult<>0 then
      writeln('Brak bazy danych, zmiana nie mozliwa')
     else
      begin
       repeat
        read(baza,user);
        if (user.id=ad) then
         begin
          inc(check);
          user.haslo:=has;
          user.id:='bibliotekarz';
          user.admin:='true';
          user.autoryzacja:='true';
         end;
       until (check<>0) or eof(baza);
       if check=0 then
        writeln('Uzytkownik o podanym ID nie istnieje')
       else
        begin
         writeln('Twoje NOWE ID to "bibliotekarz"');
         writeln('Powodzenia w administrowaniu biblioteka');
        end;
       write(baza,user);
       close(baza);
       readln;
      end;
    {$I+}
   end
  else
   exit;
 end;


procedure menu;
 begin
  clrscr;
  intro;
  writeln;
  while y<>3 do
  begin
   tablica[1]:='        Logowanie          ';
   tablica[2]:='  Rejestracja w systemie   ';
   textcolor(15);
   for y:=1 to 2 do
    begin
     textcolor(15);
     textbackground(0);
     gotoxy(30,10+y);
     write(tablica[y]);
    end;
   y:=1;
   repeat
    textcolor(0);
    textbackground(15);
    gotoxy(30,10+y);
    write(tablica[y]);
    c1:=readkey;
    c2:=' ';
    if c1=chr(0) then c2:=readkey;
    textcolor(15);
    textbackground(0);
    gotoxy(30,10+y);
    write(tablica[y]);
    if c2='H' then dec(y);
    if c2='P' then inc(y);
    if c2='M' then
     begin
      be_admin;
      clrscr;
      menu;
     end;
    if y=0 then y:=2;
    if y=3 then y:=1;
    if c1=chr(27) then exit;
   until (c1=chr(27)) or (c1=chr(13));
  if y=1 then logowanie;
  if y=2 then rejestracja;
  clrscr;
  intro;
  end;
 end;

begin
 clrscr;
 files;
 menu;
end.