set talk off
clear
use echipe in 1 order tag cods alias ec
use tehnic in 2 order tag codc alias te
select ec
set relation to codt into te
use jucator in 3 order tag cods alias ju
select jc
set relation to code into ec, codj into ju
r=accept('Cod echipa - 1, Jucator - 2')

Do case
  case r='1'
  Do AfisEchipa
  case r='2'
  Do AfisJucator
  case r='3'
  select 3
  browse
other
msgbox('Functie eronata: ' +r,'Eroare',0)
clear all
cancel
endcase
return
 Procedure AfisEchipa
  select 3
set order to  code
r='D'
do while r$'DdYy'
clear

Vcode=accept('Cod echipa')
seek Vcode

if eof()
msgbox('Echipa  ' + Vcode + '  nu are jucatori','Cod Eronat',0)
   wait 'Continuati D/N'  to r
   LOOP
endif

do while  ce->code=Vcode
? ce->code,ce->nume , ce->antrenor

skip
enddo
wait 'continuati? D/N ' to r
enddo
clear all
return
Procedure AfisJucatori
  select 3
  set order to codj
r='D'
do while r$'DdYy'
clear
Vcodj=accept('Cod jucator ')
Vcodj= Upper(Vcodj)
  seek Vcodj
if eof()
  msgbox('Nu sunt jucatori la echipa  ' + Vcodj , 'Jucator gresit',0)
wait 'Continuati D/N' to r
    LOOP
endif

do while  ju->codj=Vcodj
? ju->codj,ju->nume, ju->Pozitia, ju->Salar
skip
enddo
wait 'continuati? D/N ' to r
enddo
clear all
return