Crearea unei BAZE DE DATE în Pascal (Partea 5)

În lecțiile anterioare, am creat un program care introduce de la tastatură date despre 20 de angajați ai unei organizații și le salvează într-un fișier. Acum trebuie să creăm un fel de interfață în care utilizatorului i se vor oferi diverse opțiuni pentru editarea bazei de date (ștergerea unei fișe de angajat, adăugarea unei noi înregistrări de angajat etc.). Toate aceste acțiuni cu baza de date vor fi descrise în proceduri separate.

1. Programbaza_dan2;
2. useescrt;
3. var vibor:intger;
4. ÎNCEPE
5. clrscr;
6. writeln('Selectați o acțiune');
7. writeln('Apăsați 1 pentru a adăuga o înregistrare în baza de date');
8. writeln('Apăsați 2 pentru a afișa cardul de angajat');
9. writeln('Apăsați 3 pentru a afișa informațiile angajaților');
10. writeln('Apăsați 4 pentru a sorta baza de date');
11. writeln('Apăsați 5 pentru a șterge înregistrarea angajatului');
12. writeln('Apăsați 6 pentru analiza statistică a bazei de date');
13. readln(vibor);
14. Sfârşit.

Afișăm mesaje pe ecran în care utilizatorului i se cere să aleagă una sau alta opțiune pentru lucrul cu baza de date.

Pentru ca aceasta sau acea acțiune să fie efectuată atunci când o anumită tastă este apăsată, este necesar să utilizați operatorul Case..of selecție. În acest caz, programul va arăta astfel:

1. Programbaza_dan2;
2. useescrt;
3. var vibor:intger;
4. ÎNCEPE
5. clrscr;
6. writeln('Selectați o acțiune');
7. writeln('Apăsați 1 pentru a adăuga o înregistrare în baza de date');
8. writeln('Apăsați 2 pentru a afișa cardul de angajat');
9. writeln('Apăsați 3 pentru a afișa informațiile angajaților');
10. writeln('Apăsați 4 pentru a sorta baza de date');
11. writeln('Apăsați 5 pentruștergerea unei înregistrări despre un angajat');
12. writeln('Apăsați 6 pentru analiza statistică a bazei de date');
13. readln(vibor);
14. selectarea cazului
15. 1:adăugare_înregistrare;
16. 2:vivod_kart_sotr;
17. 3:vivod_info_sotr;
18. 4: sortare;
19. 5:del_record;
20. 6:stat_analyz;
21. Sfârşit;
22. Sfârşit.

Linia numărul 14. Notăm operatorul de alegere Case..of.

Linia #15-#22. Notează opțiunile. Astfel, reiese că atunci când dați clic pe numărul 1, procedura numită „add_record” va începe să funcționeze, când dați clic pe numărul 2, procedura „vivod_kart_sotr” va începe să funcționeze etc. În exemplul nostru, procedura „add_record” este utilizată pentru a adăuga o înregistrare în baza de date. Procedura „vivod_kart_sotr” este utilizată pentru a afișa cardul unui angajat după numele de familie introdus. Procedura „vivod_info_sotr” este folosită pentru a afișa informații despre un angajat etc. În total, programul conține 6 proceduri de gestionare a bazei de date conform condițiilor pe care le-am descris în prima lecție. Desigur, acest program nu va funcționa, deoarece nu avem încă aceste proceduri. În lecția următoare, vom scrie prima procedură care adaugă o nouă înregistrare a angajatului în baza de date.

---