Referat Foxpro

Mai jos puteti citi fragmente din Referat Foxpro si de asemenea puteti face Download Referat foxpro

Citeste fragmente din Referat Foxpro

PROBLEMA: Fie o bază de date CINEMA.dbf cu următoarele câmpuri: codfilm, numefilm, productie, regie, anul, gen, scenariu, premii, cu principalele producţii cinematografice de la 1950 până în 2001 şi o bază ACTORI.dbf, cu următoarele câmpuri: nume, datan, sex, codfilm, natio, cu informaţii despre stelele filmului. Se cer: Sa se facă o procedură de înregistrare a unui film care se includă şi o metodă de codificare; Afişarea primului film cronologic al fiecărui gen; Afişarea ţărilor ale căror producţii au fost înregistrate în baza de date; Afişarea filmelor produse în ITALIA în anul 1994; Lista filmelor pe genuri; Regizorii cu producţii cinematografice din România după revoluţie; Premiile pe care le-a obţinut un film citit de la tastatură; Afişarea scenariştilor pe genuri cinematografice după 1990; Vârsta lui Tom Cruise; Actorii care au jucat în filmul: „Pe aripile vântului”; Lista actriţelor care n-au depăşit 30 de ani pe naţionalităţi; Primii 5 veterani ai filmului românesc. REZOLVARE: (modi comm filme) clear set talk off set exact off w=1 do while w=1 @ 2,10 say Optiunile..... @ 4,4 say ( Apasati CAPS LOCK-ul ca sa mearga programul. Mi-a fost lene sa-l mai modific ) @ 7,2 say 1... Introducerea unui nou film. @ 8,2 say 2... Afisarea primului film cronologic al fiecarui gen. @ 9,2 say 3... Tarile care fac parte din baza. @ 10,2 say 4... Afisarea filmelor produse in Italia in 1994. @ 11,2 say 5... Lista filmelor pe genuri. @ 12,2 say 6... Regizorii din Romania de la 1990 pana in prezent. @ 13,2 say 7... Premiile pe care le-a luat un film cautat. @ 14,2 say 8... Scenaristii pe genuri cinematrografice dupa 1990. @ 15,2 say 9... Ce varsta are Tom Cruise... @ 16,2 say 10... Ce actori au jucat in filmul "Pe aripile vantului"... @ 17,2 say 11... Lista actritelor care n-au depasit 30 de ani pe nationalitati. @ 18,2 say 12... Primii 5 veterani ai filmului romanesc. input Ce optiune doriti...? to x do case case x=1 do nou case x=2 clear do crono wait case x=3 clear do tari wait case x=4 clear do italy wait case x=5 clear do genuri wait case x=6 clear do regrom wait case x=7 clear do filmales wait case x=8 clear do listascenaristi wait case x=9 clear do tom wait case x=10 clear do pearipi wait case x=11 clear do actrite wait case x=12 clear do veterani wait endcase clear @ 2,2 say Continuam cu optiunile?... (D=1 / N=0) get w read clear enddo return PROCEDURE NOU r=1 do while r=1 clear use cinema s = reccount()+1 go bottom insert blank replace codfilm with s @ 2,2 say Dati numele filmului... get numefilm @ 3,2 say Productie... get productie @ 4,2 say Regia... get regia @ 5,2 say Anul... get anul @ 6,2 say Genul filmului... get gen @ 7,2 say Scenaristul filmului... get scenariu @ 8,2 say Premiile primite... get premii n=0 @ 9,2 say Cati actori au jucat? get n read clear use actori for i=1 to n go bottom insert blank replace codfilm with s ? Actorul ,i @ 3,2 say Numele... get nume @ 4,2 say Sexul (m/f)... get sex @ 5,2 say Data nasterii... get datan @ 6,2 say Nationalitatea... get natio read clear endfor @ 10,4 say Continuam cu introducerea filmelor?...(D=1 / N=0)... get r read clear enddo return PROCEDURE CRONO use cinema sort to cine2 on gen, anul use cine2 g=gen do while not eof() ? Primul film al genului ,g, a fost ,numefilm do while g=gen skip enddo g=gen enddo use return PROCEDURE TARI use cinema sort to cine1 on productie use cine1 ? Tarile sunt urmatoarele: p=productie do while not eof() ? ,p do while p=productie skip enddo p=productie enddo return PROCEDURE ITALY use cinema ? Filmele produse in Iatlia in anul 1994 sunt:... for i=1 to reccount() go i if (productie = ITALIA ) .and. (anul=1994) ? , numefilm endif endfor return PROCEDURE GENURI use cinema sort to cine3 on gen, numefilm use cine3 ge=gen do while not eof() ? Genul ,ge do while ge=gen ? , numefilm skip enddo WAIT ge=gen enddo return PROCEDURE REGROM use cinema ? Regizorii filmelor produse in Romania dupa 1989 sunt:... for i=1 to reccount() go i if (productie = ROMANIA ) .and. (anul>1989) ? ,regia endif endfor return PROCEDURE FILMALES nf= @ 2,2 say Numele filmului dorit... get nf READ @ 4,2 SAY Premiile filmului cerut sunt urmatoarele: use cinema for i=1 to reccount() go i if numefilm = nf ? ,premii endif endfor return PROCEDURE LISTASCENARISTI use cinema sort to cine4 on gen, scenariu use cine4 ge=gen do while not eof() ? Genul ,ge do while ge=gen ? , scenariu skip enddo WAIT ge=gen enddo return PROCEDURE TOM use actori for i=1 to reccount() go i if nume = TOM CRUISE ? TOM CRUISE are varsta de... ,year( date() ) - year(datan), de ani. endif endfor return PROCEDURE PEARIPI use cinema J ° d Þ o reccount() go i if numefilm = PE ARIPILE VANTULUI cod=codfilm endif endfor use actori ? In filmul PE ARPILE VANTULUI au jucat urmatorii actori: for i=1 to reccount() go i if codfilm=cod ? ,nume endif endfor return PROCEDURE ACTRITE use actori sort to act1 on natio use act1 ? Lista actritelor care n-au 30 de ani pe nationalitati: for i=1 to reccount() go i if (year(datan)>1971) .and. (sex= F ) ? ,nume, in varsta de ,year(date())-year(datan), ani. endif endfor return PROCEDURE VETERANI use actori sort to acti on datan/D, nume for natio = ROMANA use acti ? Actorii veterani romani sunt: if reccount()>5 for i=1 to 5 go i ? nume endfor else list nume endif return 쥁@