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 "