FOX_program17.prg

USE gyogyszer
	v=0
	DO WHILE v<>6
		CLEAR
		?"1.Adott tipusu gyogyszerek megjelenitese abc sorrendben"
		?"2.Adott tipusu gyogyszerek megjelenitese egysegar szerint csokkeno sorrendben"
		?"3.Gyogyszerek megjelenitese tipusonkent,azon belul az ervenyesseg szerint"
		?"4.Milyen tipusu gyogyszerek vannak"
		?"5.Irjuk ki a harom legdragabb gyogyszer nevet, tipusat es arat"
		?"6.Kilepes"
		input "Valassz" to v
		DO case
			CASE v=0
				BROWSE
			CASE v=1
				accept "Tipus" to t
				SET ORDER TO gyogyszer
				BROWSE FOR tipus=t
				SET ORDER TO
			CASE v=2
				accept "Tipus" to t
				SET ORDER TO egysegar
				BROWSE FOR tipus=t
				SET ORDER TO
			CASE v=3
				SET ORDER TO tip_erv
				BROWSE
				SET ORDER TO
			CASE v=4
				SET ORDER TO tipus
				BROWSE FIELDS tipus
				SET ORDER TO
			CASE v=5
				SET ORDER TO egysegar
				GO top
				FOR i=1 TO 3
					?gyogyszer,egysegar
					SKIP
				ENDFOR
				WAIT
				SET ORDER TO
		ENDCASE
	ENDDO
// index on tipus tag tipus unique
ascending, descending
ascending