calific.prg

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

procedur calific
use someri

name=" "
do nume with name,"Care este calificarea nr. 1 cautata ?"
locate for left(upper(calific_1),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(calific_1),len(name))=trim(name) ;
	title 'Date despre ...'nomenu nomodify
              DEACT WIND carti
 else
	do atentie with "Nu am aceasta calificare !"
	go top
endif
show gets


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

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

procedur calif2
use someri

name=" "
do nume with name,"Care este calificarea nr. 2 cautata ?"
locate for left(upper(calific_2),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(calific_2),len(name))=trim(name) ;
	title 'Date despre ...'nomenu nomodify
              DEACT WIND carti
 else
	do atentie with "Nu am aceasta calificare !"
	go top
endif
show gets


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


***************************************************
procedur calif3
use someri

name=" "
do nume with name,"Care este calificarea nr. 3 cautata ?"
locate for left(upper(calific_3),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(calific_3),len(name))=trim(name) ;
	title 'Date despre ...'nomenu nomodify
              DEACT WIND carti
 else
	do atentie with "Nu am aceasta calificare !"
	go top
endif
show gets


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


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