Fox pro - baza de date
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 "
Iti recomandam ca referatele pe care le downloadezi de pe site sa le utilizezi doar ca sursa de inspiratie sau ca resurse educationale pentru conceperea unui referat nou, propriu si original.
Referat.ro te invata cum sa faci o lucrare de nota 10!