Acasa | Trimite referat | Cere referat | Contact

Referat Lista vinuri prg

Lista vinuri prg

Categorie: Referate Informatica

Referat downloadat de: 284 ori.

Cauta referat dupa: lista vinuri

Descriere referat:

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.Re

Alte referate din materia: Informatica

Nr.	Nume referat	Hits
1	TkkvMlabSupl	8
2	qzpymq@dxuzju.com	111
3	email@gmail.com	224
4	pfuqxd@exjswl.com	249
5	ncqcez@hdtnnq.com	216
6	Hard	677
7	ISTORIA INTERNET-ULUI	744
8	Impera	423
9	Info Doc	479
10	Info-TIRON	432
11	Informatica - Grafica pentru web	890
12	Informatica - Introducere in HTML	660
13	Initiere in pc	657
14	Instalarea sistemului de operare Windows	551
15	Internetul ca sursa de comunicare	533
16	Istoria Internetului	568
17	Istoria calculatorului	490
18	Istoria metodelor de proiectare	326
19	Java visavis de C++	364
20	Java vizavi de C	298
21	LIMBAJUL DE PROGRAMARE PASCAL - Programul defineste tipul salariat, o inregistrare cu variante, valorile citite fiind salvate in fisierul salariat.dat	0
22	Limbajul C	373
23	Lista vinuri prg	284
24	Lotus software	260
25	Lumea internetului	365

Acasa Trimite referat Cere referat Adauga la favorite Seteaza ca homepage Contact libertateailuziei Trailere Filme Filme Noi Jocuri Online Jocuri Barbie Jocuri pentru Copii GameBox.ro Make Money Bucuresti regim hotelier