afisnume.prg

来自「System "somaj" for city Beius」· PRG 代码 · 共 69 行

procedur afisnume
use someri

name=" "
do nume with name,"Cum se numeste somerul ?"
locate for left(upper(numele),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(numele),len(name))=trim(name) ;
	title 'Date despre ...'nomenu nomodify
              DEACT WIND carti
              
else
	do atentie with "Nu cunosc aceasta persoana !"
	go top
 endif
 show gets


lady=" "
do iesire with lady,"Doresti sa mai afisez dupa nume ?"
if lady="D" then
        close data
		do afisnume
else
   close databases
    return
endif


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

procedur afispren
use someri

name=" "
do nume with name,"Care este prenumele somerului ?"
locate for left(upper(prenume),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(prenume),len(name))=trim(name) ;
	title 'Date despre ...'nomenu nomodify
              DEACT WIND carti
              
else
	do atentie with "Nu cunosc aceasta persoana !"
	go top
 endif
show gets


lady=" "
do iesire with lady,"Doresti sa mai afisez dupa prenume ?"
if lady="D" then
        close data
		do afispren
else
   close databases
    return
endif