FOX_program18.prg

SELECT 1
USE alkalm
SELECT 2
USE gyerekek
v=0
	DO WHILE v<>6
		CLEAR
		?"1. Adattáblák"
 		?"2. Alkalmazott gyerekei (beolvasunk egy alkalmazottat, majd kiírjuk ennek gyermekeit)"
 		?"3. Gyermek szülei  (beolvassuk egy gyermek nevét, kiírjuk a szülô adatait)"
 		?"4. Minden gyermek neve és szülôjének neve"
 		?"5. Legfiatalabb alkalmazott gyermekei (ha nincs üzenet)"
 		?"6. Kilépés"
 		input "Valassz: " to v
 		DO case
 			CASE v=1
 				SELECT 1
 				BROWSE
 				SELECT 2
 				BROWSE
 			CASE v=2
 				accept "Alkalmazott neve:" to n
 				SELECT 1
 				LOCATE FOR nev=n
 				IF FOUND()
 					SELECT 2
 					BROWSE FIELDS nev FOR kod=alkalm.kod
 				ELSE
 					?"Nincs ilyen alkalmazott"
 					WAIT
 				ENDIF
 			CASE v=3
 				accept "Gyerek neve:" to n
 				SELECT 2
 				LOCATE FOR nev=n
 				IF FOUND()
 					SELECT 1
 					BROWSE FOR kod=gyerekek.kod
 				ELSE
 					?"Nincs ilyen gyerek"
 					WAIT
 				ENDIF
 			CASE v=4
 				SELECT 2
 				SCAN
 					?nev
 					SELECT 1
 					LOCATE FOR kod=gyerekek.kod
 					IF FOUND()
 						??nev
 					ELSE
 						?"Nem itt dolgozik"
 					ENDIF
 					SELECT 2
 				ENDSCAN
 				WAIT
 			CASE v=5
 				SELECT 1
 				CALCULATE MAX(szul_dat) TO sz
 				LOCATE FOR szul_dat=sz
 				SELECT 2
 				LOCATE FOR kod=alkalm.kod
 				IF FOUND()
 					BROWSE FOR kod=alkalm.kod TITLE ?"Gyermekei"
 				ELSE
 					?"Nincsen gyerek!"
 					WAIT
 				ENDIF
 		ENDCASE
 	ENDDO