Referat Lista Vinuri

Mai jos puteti citi fragmente din Referat Lista Vinuri si de asemenea puteti face Download Referat Lista vinuri

Citeste fragmente din Referat Lista Vinuri

La BD: “Lista Vinuri” sa se realizeze un program in care cu ajutorul unui meniu numit “M1”, sa se faca operatiile: 1. Adaugare; 2. Modificare; 3. Cautare; 4. Iesire. Pentru fiecare operatie se va activa cate o fereastra, definita anterior, colorate, prima fereastra avand butoanele: Incarcare, Anulare si Iesire. Programul va fi numit “ Lista_vin.prg” : Public M.Nume,M.An_recolta,M.Tip,; M.Culoare,M.Origine,M.Recomandat,M.Servire_gr,; M.Pret_unit,M.Cant_com,M.Total DO inceput DO actualizare DO modificare DO cautare *======* Proc inceput Clear set talk off use Lista_vinuri exclusive set safety off use Lista_vinuri index iAn_recolta define wind W1 from 0,0,4,79 to 23,75; title "Fereastra Adaugare"; colo RGB(0,0,0,0,200,0) define wind W2 from 0,0,4,79 to 23,75 fill chr(179); title "Fereastra Modificare" Shadow; colo RGB(0,0,0,0,210) define wind W3 from 0,0,4,79 to 23,75; title "Fereastra Cautare" ; colo RGB(0,0,0,0,100,0) @20,1 Say "F1 = Vizualizare BD" On key label F1 brow nomodi nodel; noappe norm timeout 2 Return *=======* Proc Actualizare @0,0,4,79 box define Menu M1; mess"Selectati o optiune" define pad ADAUGARE of M1; prompt ""; mess"Adaugati articole noi" define pad MODIFICARE of M1; prompt ""; mess"Faceti modificari" define pad CAUTARE of M1; prompt ""; mess"Cautati articole" define pad IESIRE of M1; prompt ""; mess"Iesire din meniu" on selection pad "ADAUGARE" of M1 do ADAUGARE define wind W1 from 0,0,4,79 to 23,75; title "Fereastra Adaugare"; colo RGB(0,0,0,0,200,0) acti wind W1 on selection pad "MODIFICARE" of M1 do MODIFICARE define wind W2 from 0,0,4,79 to 23,75; title "Fereastra Modificare" Shadow; colo RGB(0,0,0,0,210) acti wind W2 on selection pad "CAUTARE" of M1 do CAUTARE define wind W3 from 0,0,4,79 to 23,75; title "Fereastra Cautare"; colo RGB(0,0,0,0,100,0) acti wind W3 on selection pad "IESIRE" of M1 do IESIRE deactivate menu M1 activate menu M1 READ DEACTIVATE MENU M1 Proc paduri do case case pad()="ADAUGARE" do ADAUGARE append case pad()="MODIFICARE" do MODIFICARE brow case pad()="CAUTARE" do CAUTARE case pad()="IESIRE" deactivate menu M1 endcase return *======* Proc ADAUGARE on key label F1 brow noappe nomodi; nodele norma timeout 3 define wind W1 from 0,0,4,79 to 26,75; title "Fereastra Adaugare"; colo RGB(0,0,0,0,200,0) acti wind W1 scatter memvar blank @1,1 say "Nume:" get M.Nume @3,3 say "An_recolta:" get M.An_recolta @5,3 say "Tip:" get M.Tip @7,3 say "Culoare:" get M.Culoare @9,3 say "Origine:" get M.Origine @11,3 say "Recomandat:" get M.Recomandat @13,3 say "Servire_gr:" get M.Servire_gr @15,3 say "Pret_unit:" get M.Pret_unit @17,3 say "Cant_com:" get M.Cant_com @19,3 say "Total:" get M.Total @21,2 get V funct *NH! ; ?; ; Valid selectare() size 1,14,5 defa 1 read cycle wait"Terminare" wind time 3 clear gets close all function selectare Do case case V=1 appe blank gather memvar scatter memvar blank show gets case V=2 scatter memvar blank show gets case V=3 clear read endcase deacti wind W1 retu *==============* Proc MODIFICARE on key label F1 brow nomodi nodel define wind W2 from 0,0,4,79 to 23,75; title "Fereastra Modificare" Shadow; colo RGB(0,0,0,0,210) acti wind W2 set safety off use Lista_vinuri index iAn_recolta @0,10 say "An_recolta:" get M.An_recolta read seek M.An_recolta if found() scatter memvar @2,3 say "Nume:" get M.Nume; pict repl("X",20) @4,3 say "Tip:" get M.Tip; pict repl("X",10) @6,3 say "Culoare:" get M.Culoare; pict repl("X",20) @8,3 say "Origine:" get M.Origine; pict repl("X",10) @9,3 say "Recomandat:" get M.Recomandat; pict repl("X",10) @11,3 say "Servire_gr:" get M.Servire_gr; pict repl(" ",2) @13,3 say "Pret_unit:" get M.Pret_unit; pict repl(" ",8) @15,3 say "Cant_com:" get M.Cant_com; pict repl(" ",5) @17,3 say "Total:" get M.Total; pict repl(" ",10) read gather memvar else wait"Articol Absent" wind time 2 endif read clear gets deact wind W2 retu *======* Proc CAUTARE on key label F1 brow nomodi nodel define wind W3 from 0,0,4,79 to 23,75; title "Fereastra Cautare"; colo RGB(0,0,0,0,100,0) acti wind W3 use Lista_vinuri index iAn_recolta @2,3 say "An_recolta:" get M.An_recolta read go top seek M.An_recolta if found() do AFISARE endif read deact wind W3 clear gets retu *======* proc AFISARE define wind W4 from 0,0,4,79 to 23,75; title "Fereastra Cautare-afisare"; colo RGB(0,0,0,0,0,255) acti wind W4 @1,1 say "Nume:" get M.Nume @2,3 say "An_recolta:" get M.An_recolta @3,3 say "Tip:" get M.Tip @4,3 say "Culoare:" get M.Culoare @5,3 say "Origine:" get M.Origine @6,3 say "Recomandat:" get M.Recomandat @7,3 say "Servire_gr:" get M.Servire_gr @8,3 say "Pret_unit:" get M.Pret_unit @9,3 say "Cant_com:" get M.Cant_com @10,3 say "Total:" get M.Total clear gets return *=======* Proc IESIRE wait"Terminare program"wind time 2 close all clear 쥁@