Fox Pro - Agenda telefonica

Agenda telefonica

Cuprins:

I.        Introducere

II.             Conditii de functionare a programului

III.         Resurse necesare

IV.          Prezentarea programului

V.             Codul Sursa

Agenda telefonica

I. Introducere

Programul "Agenda telefonica" este realizat in limbajul de programare vizuala Microsoft Visual FoxPro,versiunea 8.0, ca proiect pentru atestat 2007.

Este un program usor de folosit si se adreseaza utilizatorilor ce sunt familiarizati cu operarea programelor ce utilizeaza baze de date sau inmagazineaza datele in fisiere text.

Acest program este conceput pentru gasi usor anumite programe care se afla in baza de date ale agendei telefonice,iar cele care nu se afla in baza de date,pot fi introduse cu usurinta in memoria programului.

II. Conditii de functionare a programului

Programul ruleaza pe orice sistem de operare Windows de la versiunea 98 la toate cele mai recente.

Programul nu utilizeaza fisiere temporare, fapt ce obliga utilizatorul sa ruleze programul intr-un director cu acces de scriere. Fisierele din folderul "Agenda telefonica" sunt obligatorii pentru ca programul sa functioneze normal.

De asemenea, rezolutia minima necesara este de 800x600 deoarece Ferestrele programului nu au marimi ajustabile, iar la o rezolutie mai mica decat cea mai sus precizata nu vor fi vizibile pe ecran ferestrele in intregime.

III. Resurse necesare

O configuratie minima a unui sistem pe care va functiona bine acest program este:

procesor de 600 MHz

minim 64 MB RAM

placa grafica si monitor ce suporta o rezolutie incepand cu 800x600

spatiu liber pe unitatea de disc de pe care ruleaza programul este de maxim 2 MB

IV. Prezentarea programului

Aspectul ferestrei principale la rulare:

Butonul Primul:

Acest buton ne duce pe prima pozitie a fisierului,aisand atat numele cat si prenumele,numarul de telefon,adresa si dupa caz e-mail-ul,asta daca este precizat la fiecare inregistrare in parte.

Butonul Precedentul:

Acest buton ne duce pe inregistrarea precedenta,iar daca ne aflam inca la prima inregistrare,ramane pe prima pozitie a inregistrarii,iar daca ne aflam la sfarsitul fisierului,acest buton ne duce pe ran la fiecare inregistrare precedenta.

Butonul Urmatorul:

Acest buton ne duce pe urmatoarea inregistrare,si daca se afla pe ultima pozitie ,nu se mai deplaseaza.

Butonul Ultimul:

Acesta ne duce pe ultima inregistrare.

Butonul Adauga:

Acest buton adauga o noua inregistrare.La inceput apare o fereastra goala care apoi urmeaza a fi completata.

Butonul Sterge:

Acest buton sterge complet inregistrarea si aceasta nu mai poate fi recuperata.

Butonul Cauta:

Acest buton ne duce la o a doua fereastra :

Aceasta cauta in fisier o inregistrare,iar daca o gaseste o afiseaza,iar in caz contrar apare urmatorul mesaj:"Persoana cautata nu este in agenda! !"

V.         Codul Sursa:

Butonul Primul:

go top

thisform.refresh

Butonul Precedentul:

If not BOF ( )

SKIP -1

thisform.refresh

ENDIF

Butonul Urmatorul:

IF RECNO()<RECCOUNT()

SKIP

thisform.Refresh

ENDIF

Butonul Ultimul:

go BOTTOM

thisform.Refresh

Butonul Adauga:

APPEND BLANK

thisform.Refresh

thisform.txtNume.SetFocus

Butonul Sterge:

n=ALLTRIM(thisform.txtNume.Text)

USE

USE agenda_telefonica

SCAN FOR nume=n

DELETE

ENDSCAN

pack

thisform.Refresh

Butonul Cauta:

thisform.release

do form cautare_in_agenda

Butonul Iesire:

thisform.release

La fereastra Cautare in agenda:

Butonul Cauta:

GO top

IF thisform.text1.Text<>'' then

n=alltrim(thisform.text1.Text)

locate FOR(ALLTRIM(nume)=n)

ELSE

IF thisform.text2.Text<>'' then

n=alltrim(thisform.text2.Text)

locate FOR(ALLTRIM(prenume)=n)

ELSE

IF thisform.text3.Text<>'' then

n=alltrim(thisform.text3.Text)

locate FOR(ALLTRIM(nr_telefon)=n)

ENDIF

ENDIF

ENDIF

if found()

thisform.text1.Value=nume

thisform.text2.Value=prenume

thisform.text3.Value=nr_telefon

thisform.text4.Value=adresa

thisform.text5.Value=email

else

Messagebox('Persoana nu este in agenda! !!')

endif

Butonul Urmatorul:

if FOUND()

CONTINUE

thisform.text1.Value=nume

thisform.text2.Value=prenume

thisform.text3.Value=nr_telefon

thisform.text4.Value=adresa

thisform.text5.Value=email

thisform.refresh

ENDIF

Butonul Iesire:

thisform.release

do form agenda_telefonica