sistemat.prg

System "somaj" for city Beius

procedure sistemat

CLOSE DATABASES
SET TALK OFF
set mouse off
DEFINE WINDOW term FROM 8,4 TO 18,60  ;
Title ' Distributia persoanelor pe medii: urban si rural! ';
DOUBLE COLOR w+/rb shadow
ACTIVATE WINDOW term

USE someri
COUNT TO mcount1 FOR oras_domic1 = 'BEIUS' 
COUNT TO mcount2 FOR oras_domic2 = 'ORADEA' 
COUNT TO mcount3 FOR oras_domic3 = 'ARAD'
COUNT TO mcount4 FOR oras_domic4 = 'MARGHITA'
COUNT TO mcount5 FOR oras_domic5 = 'VASCAU'
COUNT TO mcount6 FOR oras_domic6 = 'STEI'
mcount=mcount1+mcount2+mcount3+mcount4+mcount5+mcount6

@1,12 say 'Total someri:'
		? reccount()

@4,12 say 'din ORAS (URBAN): '+ LTRIM(STR(mcount)) 
@6,12 say 'din SAT (RURAL):'
@6,15 say''
? reccount()-mcount


wait '' timeout 0
DEACTIVATE WINDOW term
DEACT WIND tot

close databases
set mouse on
return



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

procedur instsex

CLOSE DATABASES
SET TALK OFF
set mouse off
*wait window 'Apasati o tasta !' nowait
DEFINE WINDOW term FROM 3,10 TO 21,64  ;
Title ' Distributia pe sexe, dupa nivelul de instruire: ';
DOUBLE COLOR w+/rb shadow
ACTIVATE WINDOW term

USE someri
@0,26 say'M'
@0,33 say'F'

COUNT TO mcount1 FOR scoal_prof = '8 CLASE'    and sexul='M'
COUNT TO mcount2 FOR clase_10 = '8 CLASE'     and sexul='M'
mcount=mcount1+mcount2
@1,2 say '8 clase:                '+ LTRIM(STR(mcount)) 

COUNT TO mcount1 FOR scoal_prof = '8 CLASE'    and sexul='F'
COUNT TO mcount2 FOR clase_10 = '8 CLASE'     and sexul='F'
mcount=mcount1+mcount2
@1,30 say '   '+ LTRIM(STR(mcount)) 

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

COUNT TO mcount1 FOR clase_10 = 'DA' and sexul='M'
mcount=mcount1
@3,2 say '10 clase:               '+ LTRIM(STR(mcount)) 

COUNT TO mcount1 FOR clase_10 = 'DA' and sexul='F'
mcount=mcount1
@3,30 say '   '+ LTRIM(STR(mcount)) 

****************************
COUNT TO mcount1 FOR clase_11 = 'DA' and sexul='M'
mcount=mcount1
@5,2 say '11 clase:              '+ LTRIM(STR(mcount)) 

COUNT TO mcount1 FOR clase_11 = 'DA' and sexul='F'

mcount=mcount1
@5,30 say '   '+ LTRIM(STR(mcount)) 

*************************************************
COUNT TO mcount1 FOR clase_12 =  'DA' and sexul='M'
mcount=mcount1
@7,2 say '12 clase:              '+ LTRIM(STR(mcount)) 

COUNT TO mcount1 FOR clase_12 =  'DA' and sexul='F'
mcount=mcount1
@7,30 say '   '+ LTRIM(STR(mcount)) 

*************************************************
COUNT TO mcount1 FOR bacalaurea =  'DA'  and sexul='M'
mcount=mcount1
@9,2 say 'Bacalaureat:          '+ LTRIM(STR(mcount)) 

COUNT TO mcount1 FOR bacalaurea =  'DA'  and sexul='F'
mcount=mcount1
@9,30 say '   '+ LTRIM(STR(mcount)) 

*************************************************
COUNT TO mcount1 FOR facultate =   'DA'   and sexul='M'
mcount=mcount1
@11,2 say 'Facultate:                '+ LTRIM(STR(mcount)) 

COUNT TO mcount1 FOR facultate =  'DA'    and sexul='F'
mcount=mcount1
@11,30 say '     '+ LTRIM(STR(mcount)) 

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

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


COUNT TO mcount1 FOR scoal_prof = 'DA' and sexul='F'
COUNT TO mcount2 FOR scoal_prof = 'COMERCIANT' and sexul='F'
COUNT TO mcount3 FOR scoal_prof = 'LUCRATOR' and sexul='F'
COUNT TO mcount4 FOR scoal_prof = 'DIPLOMA' and sexul='F'
COUNT TO mcount5 FOR scoal_prof = 'TAMPLAR' and sexul='F'
COUNT TO mcount6 FOR scoal_prof = 'ZIDAR' and sexul='F'
COUNT TO mcount7 FOR scoal_prof = 'COCATOR' and sexul='F'
COUNT TO mcount8 FOR scoal_prof = 'MEC' and sexul='F'
mcount=mcount1+mcount2+mcount3+mcount4+mcount5+mcount6+mcount7+mcount8
@13,29 say '     '+ LTRIM(STR(mcount)) 

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

COUNT TO mcount1 FOR curs_urma1 = 'SCOALA POSTLICEALA' and sexul='M'
COUNT TO mcount2 FOR curs_urma1 = 'POSTLICEAL' and sexul = 'M'
COUNT TO mcount3 FOR curs_urma1 = 'POSTLIC' and sexul = 'M'
mcount=mcount1+mcount2+mcount3
@15,2 say 'Scoala postliceala:       '+ LTRIM(STR(mcount)) 

COUNT TO mcount1 FOR curs_urma1 = 'SCOALA POSTLICEALA' and sexul='F'
COUNT TO mcount2 FOR curs_urma1 = 'POSTLICEAL' and sexul = 'F'
COUNT TO mcount3 FOR curs_urma1 = 'POSTLIC' and sexul = 'F'
mcount=mcount1+mcount2+mcount3
@15,29 say '     '+ LTRIM(STR(mcount)) 


wait '' timeout 0
DEACTIVATE WINDOW term
DEACT WIND tot

close databases
set mouse on
return



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

procedure grvarsta

CLOSE DATABASES
SET TALK OFF
set mouse off
DEFINE WINDOW term FROM 5,15 TO 16,60  ;
Title ' Distributia pe grupe de varsta! ';
DOUBLE COLOR w+/rb shadow
ACTIVATE WINDOW term

USE someri
COUNT TO mcount1 FOR varsta=15 
COUNT TO mcount2 FOR varsta=16 
COUNT TO mcount3 FOR varsta=17
COUNT TO mcount4 FOR varsta=18
COUNT TO mcount5 FOR varsta=19
COUNT TO mcount6 FOR varsta=20
COUNT TO mcount7 FOR varsta=21
COUNT TO mcount8 FOR varsta=22
COUNT TO mcount9 FOR varsta=23
COUNT TO mcount10 FOR varsta=24
mcount=mcount1+mcount2+mcount3+mcount4+mcount5;
+mcount6+mcount7+mcount8+mcount9+mcount10

@2,12 say '15 - 24 ani: '+ LTRIM(STR(mcount)) 

COUNT TO mcount1 FOR varsta=25
COUNT TO mcount2 FOR varsta=26 
COUNT TO mcount3 FOR varsta=27
COUNT TO mcount4 FOR varsta=28
COUNT TO mcount5 FOR varsta=29
COUNT TO mcount6 FOR varsta=30
COUNT TO mcount7 FOR varsta=31
COUNT TO mcount8 FOR varsta=32
COUNT TO mcount9 FOR varsta=33
COUNT TO mcount10 FOR varsta=34
mcount=mcount1+mcount2+mcount3+mcount4+mcount5;
+mcount6+mcount7+mcount8+mcount9+mcount10

@4,12 say '25 - 34 ani:  '+ LTRIM(STR(mcount)) 

COUNT TO mcount1 FOR varsta=35 
COUNT TO mcount2 FOR varsta=36 
COUNT TO mcount3 FOR varsta=37
COUNT TO mcount4 FOR varsta=38
COUNT TO mcount5 FOR varsta=39
COUNT TO mcount6 FOR varsta=40
COUNT TO mcount7 FOR varsta=41
COUNT TO mcount8 FOR varsta=42
COUNT TO mcount9 FOR varsta=43
COUNT TO mcount10 FOR varsta=44
COUNT TO mcount11 FOR varsta=45
COUNT TO mcount12 FOR varsta=46
COUNT TO mcount13 FOR varsta=47
COUNT TO mcount14 FOR varsta=48
COUNT TO mcount15 FOR varsta=49
mcount=mcount1+mcount2+mcount3+mcount4+mcount5+mcount6;
+mcount7+mcount8+mcount9+mcount10+mcount11+mcount12+mcount13;
+mcount14+mcount15

@6,12 say '35 - 49 ani:  '+ LTRIM(STR(mcount)) 

COUNT TO mcount1 FOR varsta=50
COUNT TO mcount2 FOR varsta=51 
COUNT TO mcount3 FOR varsta=52
COUNT TO mcount4 FOR varsta=53
COUNT TO mcount5 FOR varsta=54
COUNT TO mcount6 FOR varsta=55
COUNT TO mcount7 FOR varsta=56
COUNT TO mcount8 FOR varsta=57
COUNT TO mcount9 FOR varsta=58
COUNT TO mcount10 FOR varsta=59
COUNT TO mcount11 FOR varsta=60
COUNT TO mcount12 FOR varsta=61
COUNT TO mcount13 FOR varsta=62
COUNT TO mcount14 FOR varsta=63
COUNT TO mcount15 FOR varsta=64

mcount=mcount1+mcount2+mcount3+mcount4+mcount5+mcount6;
+mcount7+mcount8+mcount9+mcount10+mcount11+mcount12+mcount13;
+mcount14+mcount15

@8,12 say '50 - 64 ani:   '+ LTRIM(STR(mcount)) 

wait '' timeout 0
DEACTIVATE WINDOW term
DEACT WIND tot

close databases
set mouse on
return