22Explicarea lucrarii de atestatExplicarea lucrarii de atestatLucrarea contine urmatoarele 3 componente : 1. Programul Atestat2. Tabelul Clienti 3. Tabelul Masini Programul Atestat- este alcatuit dintr-un meniu bara cu optiunile “Operatii clienti”, “Operatii masini”, “Info program”, “Iesire”. La selectarea optiunii “Operatii clienti” este activate un meniu de tip popup care permite modificarea bazei de date a clientilor firmei de inchirieri auto.
Programul Atestat- este alcatuit dintr-un meniu bara cu optiunile “Operatiiclienti”, “Operatii masini”, “Info program”, “Iesire”.
La selectarea optiunii “Operatii clienti” este activate un meniu de tip popupcare permite modificarea bazei de date a clientilor firmei de inchirieri auto.
Meniul popup este alcatuit din 4 bare:1. “Adauga client”- adauga o noua inregistrare in tabelul Clienti , iar
informatiile despre noul client sunt introduse de la tastatura.2. “Sterge client”- sterge o intregistrare din tabelul Clienti . De la tastatura
se va introduce numele si prenumele clientului care va fi sters.3. “Clienii actuali”-listeaza inregistrarile din tabelul Clienti.
4. “Masinile clientilor”- introducand numele unui client programul va afisaintr-o fereastra informatii despre masina pe care acesta a inchiriat-o precumsi numarul de telefon al clientului si numarul de zile de inchiriat.
La selectarea optiunii “Operatii masini” se va active un meniu popup care permite modificarea bazei de date a masinilor firmei.
Campurile inregistreaza in aceasta ordine urmatoarele: numele clientului, prenumele clientului, codul numeri personal, numarul de zile in care estein posesia masinii inchiriate, numarul de telefon al clientului si codul deinregistrare al masinii.Exemplu:
SET TALK OFFCLEARDEFINE MENU inchiDEFINE WINDOW fer FROM 20,1 TO 44,80DEFINE PAD a1 OF inchi PROMPT "Operatii clienti" AT 1,1DEFINE PAD a2 OF inchi PROMPT "Operatii masini" AT 1,25DEFINE PAD a3 OF inchi PROMPT "Info program" AT 1,50DEFINE PAD a4 OF inchi PROMPT "Iesire" AT 1,75DEFINE POPUP p1 FROM 2,1DEFINE BAR 1 OF p1 prompt "Adauga client"DEFINE BAR 2 OF p1 PROMPT "Sterge client"DEFINE BAR 3 OF p1 PROMPT "Clientii actuali"DEFINE BAR 4 OF p1 PROMPT "Masinile clientilor"DEFINE POPUP p2 FROM 2,25DEFINE BAR 1 OF p2 PROMPT "Adauga masina"DEFINE BAR 2 OF p2 PROMPT "Sterge masina"DEFINE BAR 3 OF p2 PROMPT "Vizualizare masini"DEFINE POPUP p3 FROM 2,75DEFINE BAR 1 OF p3 PROMPT "Iesire Program"DEFINE BAR 2 OF p3 PROMPT "Iesire VFP"ON SELECTION PAD a1 OF inchi activate popup p1ON SELECTION PAD a2 OF inchi activate popup p2ON SELECTION PAD a3 OF inchi do info_programON SELECTION PAD a4 OF inchi activate popup p3ON SELECTION POPUP p1 do proc1ON SELECTION POPUP p2 do proc2ON SELECTION POPUP p3 do proc3ACTIVATE MENU inchiPROCEDURE proc1DO case
DO vizualizare_masiniENDCASEPROCEDURE info_programACTIVATE WINDOW fer?"COLEGIUL NATIONAL NICOLAE TITULESCU CRAIOVA"?"ATESTAT INFORMATICA 2010/2011"?"Gestiunea unei firme de inchirieri auto."?"Profilul: Real", "Specializare: matematica-informatica"?"Profesor indrumator: Bercea Mioara","Elev: Susai Iulian(clasa a XII-a A)"?"Inchirieri auto: Acest program tine evidenta clientilorsi a masinilor dintr-o firma de inchirieri auto."WAITCLEARDEACTIVATE WINDOW ferPROCEDURE proc3DO case
d=0e=SPACE(10)f=SPACE(3)@10,1 say "Introduceti numele:" get a@11,1 say "Introduceti prenumele:" get b@12,1 say "Introduceti CNP:" get c@13,1 say "Introduceti numarul de zile:" get d@14,1 say "Introduceti numarul de telefon:" get e
@15,1 say "Introduceti codul clientului:" get fREAD
IF a=" " AND b=" "CLEARELSEAPPEND BLANKREPLACE nume WITH a, prenume WITH b, cnp WITH c, zile WITHd, telefon WITH e, id WITH fENDIFACTIVATE WINDOW ferLISTWAITCLEARDEACTIVATE WINDOW ferCLEARPROCEDURE sterge_clientUSE clientia=SPACE(10)b=SPACE(10)@10,1 say "Numele clientului care doriti sa fie sters:" geta@11,1 say "Prenumele clientului care doriti sa fie sters:"get bREADIF a=" " AND b=" "CLEARELSEk=0SCAN FOR ALLTRIM(UPPER(nume))=ALLTRIM(UPPER(a)) ANDALLTRIM(UPPER(prenume))=ALLTRIM(UPPER(b))
k=1ENDSCANIF k=1
SCAN FOR ALLTRIM(UPPER(nume))=ALLTRIM(UPPER(a)) ANDALLTRIM(UPPER(prenume))=ALLTRIM(UPPER(b))
DELETE
PACKACTIVATE WINDOW ferLISTWAITDEACTIVATE WINDOW fer
DEACTIVATE WINDOW ferENDIFENDIFUSEclearPROCEDURE vizualizare_clientUSE clientiACTIVATE WINDOW ferLISTWAITCLEARDEACTIVATE WINDOW ferUSEPROCEDURE masinile_clientilorUSE clienti IN 1USE masini IN 2ACTIVATE WINDOW ferLIST?"Retineti numele clientului a carui masina doriti sa oaflati!"WAITCLEARDEACTIVATE WINDOW fera=SPACE(10)b=SPACE(10)@10,1 say "Numele clientului:" get a@11,1 say "Prenumele clientului:"get bREADSELECT 2INDEX on id TAG idSELECT 1SET RELATION TO id INTO 2ACTIVATE WINDOW ferLOCATE FOR ALLTRIM(UPPER(nume))=ALLTRIM(UPPER(a)) AND
ALLTRIM(UPPER(prenume))=ALLTRIM(UPPER(b))IF FOUND()? nume,prenume? "Numar de telefon:", telefon? "Masina inchiriata:",b.marca,b.model, "cu numarul:",b.nr? "Pe o perioada de:",zile,"zile"WAIT
?"Clientul nu exista in baza de date"WAITCLEARDEACTIVATE WINDOW fer
ENDIFCLEARCLOSE ALLPROCEDURE adauga_masinaUSE masiniCLEARa=SPACE(10)b=SPACE(10)c=0d=SPACE(4)e=SPACE(1)f=SPACE(7)g=0h=SPACE(3)@10,1 say "Introduceti marca masinii:" get a@11,1 say "Introduceti modelul masinii:" get b@12,1 say "Introduceti CMC:" get c@13,1 say "Introduceti anul de fabricatie:" get d@14,1 say "Introduceti starea de deteriorare a masinii:"get e@15,1 say "Introduceti numarul de inmatriculare:" get f@16,1 say "Introduceti pretul de inchiriare al masinii:"get g@17,1 say "Introduceti id-ul masinii:" get hREADIF a=" " AND b=" "
CLEARELSE
APPEND BLANKREPLACE marca WITH a, model WITH b, cmc WITH c, anul WITH
d, stare WITH e, nr WITH f, pret WITH g, id WITH hENDIFACTIVATE WINDOW ferLISTWAITCLEARDEACTIVATE WINDOW ferExplicarea lucrarii de atestat 33
ACTIVATE WINDOW ferLIST?"Retineti id-ul masinii pe care o doriti stearsa!"WAITCLEARDEACTIVATE WINDOW fera=SPACE(3)@10,1 say "Id-ul masinii care doriti sa fie stearsa:" get aREADIF a=" "CLEARELSEWAITLOCATE FOR ALLTRIM(UPPER(id))=ALLTRIM(UPPER(a))IF FOUND()
DELETEPACKACTIVATE WINDOW ferLISTWAITDEACTIVATE WINDOW fer
ELSEACTIVATE WINDOW fer?"Masina nu exista in baza de date."WAITDEACTIVATE WINDOW fer
WAITCLEARDEACTIVATE WINDOW ferPROCEDURE iesireDEFINE MENU iesireDEFINE PAD a1 OF iesire PROMPT "DA" AT 10,10DEFINE PAD a2 OF iesire PROMPT "NU" AT 10,2034 Explicarea lucrarii de atestat
