salam

afisare.prg
close all
use elevi
clear
?"Introduceti operatia dorita"
?"1-introducerea a n inregistrari"
?"2- afisarea inregistrarilor elevilor clasei date"
input to op
if(op==1)
do populare
endif
if(op==2)
input "Dati numarul clasei: " to vclasa
select * from elevi where(clasa=vclasa)
endif






populare.prg
SET PATH TO "E:\\12C"
CLEAR
SET TALK OFF
USE elevi
INPUT "Dati numar inregistrari: " TO n
FOR i=1 TO n
    vnume = ""
    vclasa=0
    vmatricol=0
    vadresa= ""
    ACCEPT "NUME = " TO vnume
    INPUT "CLASA = " TO vclasa
    INPUT "MATRICOL = " TO vmatricol
    ACCEPT "ADRESA = " to vadresa
    APPEND BLANK
    replace nume WITH vnume, clasa WITH vclasa, matricol WITH vmatricol, adresa WITH vadresa,
ENDFOR
use


programe.prg
create table(nume C(30), clasa N(3), matricol N(5), adresa C(50))
use elevi
browse
use