inalt.prg

System "somaj" for city Beius

procedur inalt
use someri

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


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

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

PROCEDURE nalti

PARAMETER answer,mess1
DEFINE WINDOW culeg FROM 13,4 TO 19,73 ;
COLOR w+/gr SHADOw
ACTIVATE WINDOW culeg

@1,0 SAY PADC(mess1,WCOLS())
@3,17 GET answer;
   SIZE 1,32;
   DEFAULT " ";
   PICTURE "x.xx"
READ
DEACTIVATE WINDOW culeg
RETURN




procedur buletin
use someri

name=" "
do nume with name,"Introduceti Seria si numarul buletinului cautat ?"
locate for left(upper(bulet_iden),len(name))=trim(name)
if found()
              DEFINE WINDOW carti FROM 4,2 TO 22,77 STYLE 'BI';
              DOUBLE COLOR w/rb
              ACTIVATE WINDOW carti
     set color to w+/rb,g+/rb
    browse for left(upper(bulet_iden),len(name))=trim(name) ;
	title 'Date despre ...'nomenu nomodify
              DEACT WIND carti
 else
	do atentie with "Nu am date despre acest buletin !"
	go top
endif
show gets


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

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



procedure sex
use someri

name=" "
do nume with name,"Sexul cautat (M/F) ?"
locate for left(upper(sexul),len(name))=trim(name)
if found()
              DEFINE WINDOW carti FROM 4,2 TO 22,77 STYLE 'BI';
              DOUBLE COLOR w/rb
              ACTIVATE WINDOW carti
    set color to w+/rb,g+/rb
   	browse for left(upper(sexul),len(name))=trim(name) ;
	title 'Date despre ...'nomenu nomodify
              DEACT WIND carti
 else
	do atentie with "Nu cunosc acest sex !"
	go top
endif
show gets


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