rasputin22

programe.prg

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



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


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
if(op==3)
input "Dati nr matricol" to vmatricol
browse for matricol=vmatricol
endif
if(op==4)
accept "Dati numele milogului" to vnume
delete for nume=vnume
pack
endif
if(op==5)
accept "Dati numele milogului" to vnume
browse for nume=vnume
pack
endif
if(op==6)
accept "Dati numele milogului" to vnume
locate for nume=vnume
input "matricol" to vmatricol
accept "adresa" to vadresa
input "clasa" to vclasa
accept "nume" to vnume
replace nume with vnume
replace clasa with vclasa