creare buton
set path to "E:\\12C"
Create table elevi( nume C(30), prenume C(30), inaltime N(3), greutate N(3))
use elevi
brow
use

populare button
close all
use elevi
input "Dati un nr inregistrari: " to n
for i=1 to n
vnume= ""
vprenume= ""
vinaltime =0
vgreutate =0
accept "Nume: " to vnume
accept "Prenume: " to vprenume
input  "Inaltime: " to vinaltime
input  "Greutate: " to vgreutate
append blank
replace nume with vnume, prenume with vprenume, inaltime with vinaltime, greutate with vgreutate
endfor
use

inserare button
close all
use elevi
vnume= ""
vprenume= ""
vinaltime =0
vgreutate =0
accept "Nume: " to vnume
accept "Prenume: " to vprenume
input  "Inaltime: " to vinaltime
input  "Greutate: " to vgreutate
append blank
replace nume with vnume, prenume with vprenume, inaltime with vinaltime, greutate with vgreutate
use

stergere button
use elevi
input "Dati inaltimea elevului: " to vinaltime
delete for inaltime= vinaltime
pack
use

sortare button
close all
use elevi
select* from elevi order by inaltime desc
use

exit button
close all
thisform.release