absolvir.prg

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

procedure absolvir

CLOSE DATABASES
SET TALK OFF
set mouse off
wait window 'Apasati o tasta !' nowait
DEFINE WINDOW term FROM 5,15 TO 18,60  ;
Title ' TOTAL absolviri ! ';
DOUBLE COLOR w+/rb shadow
ACTIVATE WINDOW term

USE someri
STORE 0 TO mcount
LOCATE FOR ALLTRIM(UPPER(clase_10)) = 'DA' 
DO WHILE FOUND()
	mcount = mcount + 1
	CONTINUE
ENDDO
@ 0,15 say ''
? 'Persoane cu 10 clase:      '+ LTRIM(STR(mcount))

****************************
*clos data
*USE someri
STORE 0 TO mcount
LOCATE FOR ALLTRIM(UPPER(clase_11)) = 'DA' 
DO WHILE FOUND()
	mcount = mcount + 1
	CONTINUE
ENDDO
@ 1,15 say ''
? 'Persoane cu 11 clase:      '+ LTRIM(STR(mcount))

**********************************************
*clos data
*USE someri
STORE 0 TO mcount
LOCATE FOR ALLTRIM(UPPER(clase_12)) = 'DA' 
DO WHILE FOUND()
	mcount = mcount + 1
	CONTINUE
ENDDO
@ 2,15 say ''
? 'Persoane cu 12 clase :    '+ LTRIM(STR(mcount))

**********************************************
*clos data
*USE someri
STORE 0 TO mcount
LOCATE FOR ALLTRIM(UPPER(bacalaurea)) = 'DA' 
DO WHILE FOUND()
	mcount = mcount + 1
	CONTINUE
ENDDO
@ 3,15 say ''
? 'Persoane cu bacalaureat : '+ LTRIM(STR(mcount))

**********************************************
*clos data
*USE someri
STORE 0 TO mcount
LOCATE FOR ALLTRIM(UPPER(facultate)) = 'DA' 
DO WHILE FOUND()
	mcount = mcount + 1
	CONTINUE
ENDDO
@ 7,15 say ''
? 'Persoane cu facultate:    '+ LTRIM(STR(mcount))
**********************************************

COUNT TO mcount1 FOR scoal_prof = '8 CLASE' 
COUNT TO mcount2 FOR clase_10 = '8 CLASE' 
mcount=mcount1+mcount2
@5,0 say 'Persoane cu 8 clase:       '+LTRIM(STR(mcount))

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

COUNT TO mcount1 FOR scoal_prof = 'DA' 
COUNT TO mcount2 FOR scoal_prof = 'COMERCIANT' 
COUNT TO mcount3 FOR scoal_prof = 'LUCRATOR' 
COUNT TO mcount4 FOR scoal_prof = 'DIPLOMA' 
COUNT TO mcount5 FOR scoal_prof = 'TAMPLAR' 
COUNT TO mcount6 FOR scoal_prof = 'ZIDAR' 
COUNT TO mcount7 FOR scoal_prof = 'COCATOR' 
COUNT TO mcount8 FOR scoal_prof = 'MEC' 
mcount=mcount1+mcount2+mcount3+mcount4+mcount5+mcount6+mcount7+mcount8
@6,0 say 'Scoala profesionala:      '+ LTRIM(STR(mcount)) 

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

COUNT TO mcount1 FOR curs_urma1 = 'SCOALA POSTLICEALA' 
COUNT TO mcount2 FOR curs_urma1 = 'POSTLICEAL' 
COUNT TO mcount3 FOR curs_urma1 = 'POSTLIC' 
mcount=mcount1+mcount2+mcount3
@7,0 say 'Scoala postliceala:        '+ LTRIM(STR(mcount)) 


read
DEACTIVATE WINDOW term
close databases
set mouse on
return