nastere.prg

System "somaj" for city Beius

procedur nastere
use someri

name=" "
do nani with name,"In ce zi s-a nascut persoana cautata ?"
locate for left(upper(zi_nastere),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(zi_nastere),len(name))=trim(name) ;
	title 'Date despre ...'nomenu nomodify
              DEACT WIND carti
 else
	do atentie with "Nu am date despre aceasta zi !"
	go top
endif
show gets


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

*************************************************
procedur luna
use someri

name=" "
do sele with name,"In ce luna s-a nascut persoana cautata ?"
locate for left(upper(luna_naste),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(luna_naste),len(name))=trim(name) ;
	title 'Date despre ...'nomenu nomodify
              DEACT WIND carti
 else
	do atentie with "Nu am date despre aceasta luna !"
	go top
endif
show gets


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

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

procedur anul
use someri

name=" "
do num with name,"In ce an s-a nascut persoana cautata ?"
locate for left(upper(an_nastere),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(an_nastere),len(name))=trim(name);
	title 'Date despre ...'nomenu nomodify
              DEACT WIND carti
 else
	do atentie with "Nu am date despre acest an !"
	go top
endif
show gets


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


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

PROCEDURE nani

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;
    messa 'Ziua nasterii (1..31) !';
   SIZE 1,32;
   DEFAULT " ";
   PICTURE "99"
READ
DEACTIVATE WINDOW culeg
RETURN

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

PROCEDURE sele

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;
   messa 'Introduceti luna nasterii in cifre (1..12) sau in litere !';
   SIZE 1,32;
   DEFAULT " ";
   PICTURE "@!xxxxxxxxxxxxxxxxxxxxxxxxxx"
READ
DEACTIVATE WINDOW culeg
RETURN
***************************************************

PROCEDURE num

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;
    messa 'Anul nasterii (ex.:1950,1974,1980) !';
   SIZE 1,32;
   DEFAULT " ";
   PICTURE "xxxx"
READ
DEACTIVATE WINDOW culeg
RETURN