FOX_programerettsegg.prg

USE erettseg
v=0
DO WHILE v<>9
	?"0.Atlagszamolas"
	?"1.Megjelenites valasztott tantargy szerint"
	?"2.Megjelenites media szerint csokkeno sorrendben"
	?"3.A diakok listazasa abc sorrendben"
	?"4.Adott osztaly tanuloi media szerint csokkeno sorrendben"
	?"5.Megjelenites matek jegy szerint"
	?"6.Adattabla"
	?"7.Osztaly/nevsor"
	?"8.Osztaly/atlag"
	?"9.Kilepes"
	input "Valasszt xD" to v
	DO case
		CASE v=0
			replace atlag WITH (matek+magyar+roman+valaszt)/4 all
		CASE v=1
			SET ORDER TO valaszt
			BROWSE
			SET ORDER TO
		CASE v=2
			SET ORDER TO atlag
			BROWSE
			SET ORDER TO
		CASE v=3
			SET ORDER TO nev
			BROWSE
			SET ORDER TO
		CASE v=4
			accept "osztaly:" to o
			SET ORDER TO atlag
			BROWSE FOR osztaly=o
			SET ORDER TO
		CASE v=5
			SET ORDER TO matek
			BROWSE
			SET ORDER TO
		CASE v=6
			BROWSE
		CASE v=7
		SET ORDER TO oszt_nev
		BROWSE
		SET ORDER TO
		CASE v=8
		SET ORDER TO oszt_str
		BROWSE
		SET ORDER TO
		CASE v=9
			BROWSE
	ENDCASE
ENDDO