set talk off
set exact on
clear
use olimpiad
?'Continutul bazei de date'
display all
wait
?'Lista participantilor la olimpiada'
display Nume,Prenume for Olimpic=.T.
go top
locate for Olimpic=.T.
if not found()
?'Nu exista elevi participanti la olimpiada!'
endif
wait
?' Lista premiantilor'
display Nume,Prenume for Olimpic=.T. and Premiant=.T.
go top
locate for Olimpic=.T. and Premiant=.T.
if not found()
?'Nu exista elevi premianti!'
endif
wait
go top
locate for alltrim(upper(Nume))='POPESCU' and alltrim(upper(Prenume))='DAN'
if not found()
?'Nu exista in baza de date un elev cu numele Popescu Dan'
else
?'Premiul ob de Popescu Dan'
if Premiant=.T.
display Premiul
else
?'Nu are premiu!'
endif
endif
wait
use
return