FOX_program1.prg

USE telefon
v=0
DO WHILE v<>6
	clear
	?"1.Adott szemely címe es telefonszama"
	?"2.Adott helysegbol valok"
	?"3.Adott telefonszamhoz tartozo szemely"
	?"4.Adott evben szuletett szemelyek cime es telefonszamja"
	?"5.Uj adat"
	?"6.Kilepes"
	input "Mondd, te mit valasztanal:" to v
	DO CASE
		CASE v=1
			accept "Nev:" to neve
			LOCATE FOR nev=neve
			IF FOUND ()
				BROWSE FIELDS nev,cim,telefon FOR nev=neve
			ELSE
				?"Nincs ilyen szemely!!"
				ENDIF
			CASE v=2
				accept "Helyseg:" to h
				BROWSE FOR LEFT(cim,LEN(h))=h
			CASE v=3
				accept "Telefonszam:" to t
				LOCATE FOR telefon=t
				IF FOUND()
					BROWSE FOR telefon=t
				ELSE
					?"Nincs ilyen telefonszam"
				ENDIF
			CASE v=4
				input "Szul ev:" to ev
				BROWSE FOR YEAR(szul_datum)=ev
			CASE v=5
				accept "Nev:" to neve
				accept "Cim:" to c
				accept "Telefon:" to t
				input "Szul datum" to sz
				APPEND BLANK
				replace nev WITH neve cim WITH c telefon WITH t szul_datum WITH sz
	ENDCASE
	WAIT "Ush le barmit"
ENDDO