masa.prg

System "somaj" for city Beius

procedure masa
use someri

name=" "
do nume with name,"Care este masa (in kg) persoanei cautata ?"
locate for left(upper(masa_in_kg),len(name))=trim(name)
if found()
              DEFINE WINDOW carti FROM 4,2 TO 22,77 STYLE 'BI';
              DOUBLE COLOR w/b
              ACTIVATE WINDOW carti
     set color to w+/b,g+/b
	browse for left(upper(masa_in_kg),len(name))=trim(name) ;
	title 'Date despre ...'nomenu nomodify
              DEACT WIND carti
 else
	do atentie with "Nu am date despre acesta masa (in kg) !"
	go top
endif
show gets


lady=" "
do iesire with lady,"Doresti sa mai cauti dupa masa (in kg) ?"
if lady="D" then
        close data
		do masa
else
   close databases
    return
endif

**************************************************************

procedur par

use someri
name=" "
do nume with name,"Care este culoarea parului cautat ?"
locate for left(upper(cul_par),len(name))=trim(name)
if found()
              DEFINE WINDOW carti FROM 4,2 TO 22,77 STYLE 'BI';
              DOUBLE COLOR w/b
              ACTIVATE WINDOW carti
     set color to w+/b,g+/b
	browse for left(upper(cul_par),len(name))=trim(name) ;
	title 'Date despre ...'nomenu nomodify
              DEACT WIND carti
 else
	do atentie with "Nu am date despre acesta culoare a parului !"
	go top
endif
show gets


lady=" "
do iesire with lady,"Doresti sa mai cauti dupa culoarea parului ?"
if lady="D" then
        close data
		do par
else
   close databases
    return
endif

***************************************************************

procedur ochi
use someri

name=" "
do nume with name,"Care este culoarea ochiului cautat ?"
locate for left(upper(cul_ochi),len(name))=trim(name)
if found()
              DEFINE WINDOW carti FROM 4,2 TO 22,77 STYLE 'BI';
              DOUBLE COLOR w/b
              ACTIVATE WINDOW carti
     set color to w+/b,g+/b
	browse for left(upper(cul_ochi),len(name))=trim(name) ;
	title 'Date despre ...'nomenu nomodify
              DEACT WIND carti
 else
	do atentie with "Nu am date despre acesta culoare a ochiului !"
	go top
endif
show gets


lady=" "
do iesire with lady,"Doresti sa mai cauti dupa culoarea ochiului ?"
if lady="D" then
        close data
		do ochi
else
   close databases
    return
endif

****************************************************

procedur sanguin

use someri
name=" "
do nume with name,"Ce grupa sanguina cautati ?"
locate for left(upper(gr_sanguin),len(name))=trim(name)
if found()
              DEFINE WINDOW carti FROM 4,2 TO 22,77 STYLE 'BI';
              DOUBLE COLOR w/b
              ACTIVATE WINDOW carti
     set color to w+/b,g+/b
	browse for left(upper(gr_sanguin),len(name))=trim(name) ;
	title 'Date despre ...'nomenu nomodify
              DEACT WIND carti
 else
	do atentie with "Nu am date despre acesta grupa sanguina !"
	go top
endif
show gets


lady=" "
do iesire with lady,"Doresti sa mai cauti dupa grupa sanguina ?"
if lady="D" then
        close data
		do sanguin
else
   close databases
    return
endif

****************************************************