Разработка программы для учета рабочего штата преподавателей

thisform.image3.visible=.f.

thisform.text3.visible=.f.

thisform.label3.visible=.f.

thisform.image4.visible=.f.

thisform.text4.visible=.f.

thisform.label4.visible=.f.

thisform.image5.visible=.f.

thisform.text5.visible=.f.

thisform.label5.visible=.f.

thisform.image6.visible=.f.

thisform.text6.visible=.f.

thisform.label6.visible=.f.

thisform.image7.visible=.f.

thisform.text7.visible=.f.

thisform.label7.visible=.f.

thisform.image8.visible=.f.

thisform.text8.visible=.f.

thisform.label8.visible=.f.

thisform.image9.visible=.f.

thisform.text9.visible=.f.

thisform.label9.visible=.f.

thisform.image10.visible=.f.

thisform.text10.visible=.f.

thisform.label10.visible=.f.

thisform.image11.visible=.f.

thisform.text11.visible=.f.

thisform.label11.visible=.f.

thisform.image12.visible=.f.

thisform.text12.visible=.f.

thisform.label12.visible=.f.

hi1=0

hi2=0

hi3=0

hi4=0

hi5=0

hi6=0

hi7=0

hi8=0

hi9=0

hi10=0

hi11=0

hi12=0

maxis=0

do case

case gr=1

thisform.label1.visible=.t.

thisform.label1.caption='Высшее'

thisform.label2.visible=.t.

thisform.label2.caption='Средне-техническое'

thisform.label3.visible=.t.

thisform.label3.caption='Средне-специальное'

thisform.image1.visible=.t.

thisform.text1.visible=.t.

thisform.image2.visible=.t.

thisform.text2.visible=.t.

thisform.image3.visible=.t.

thisform.text3.visible=.t.

a=0

b=0

c=0

go top

do while eof()=.f.

if obr="Высшее"

a=a+1

else

if obr="Средне-техническое"

b=b+1

else

if obr="Средне-специальное"

c=c+1

endi

endi

endi

skip

endd

maxis=max(a,b,c)

do case

case a=maxis

hi2=(b*340)/a

hi3=(c*340)/a

thisform.image1.width=340

thisform.image2.width=hi2

thisform.image3.width=hi3

case b=maxis

hi1=(a*340)/b

hi3=(c*340)/b

thisform.image1.width=hi1

thisform.image2.width=328

thisform.image3.width=hi3

case c=maxis

hi1=(a*340)/с

hi2=(b*340)/с

thisform.image1.width=hi1

thisform.image2.width=hi2

thisform.image3.width=328

endc

thisform.refresh

case gr=2

go top

thisform.label1.visible=.t.

thisform.label1.caption='с 1960 по 1970'

thisform.label2.visible=.t.

thisform.label2.caption='с 1970 по 1980'

thisform.label3.visible=.t.

thisform.label3.caption='с 1980 по 1990'

thisform.label4.visible=.t.

thisform.label4.caption='с 1990 по 2000'

thisform.label5.visible=.t.

thisform.label5.caption='2000 и позже'

thisform.image1.visible=.t.

thisform.text1.visible=.t.

thisform.image2.visible=.t.

thisform.text2.visible=.t.

thisform.image3.visible=.t.

thisform.text3.visible=.t.

thisform.image4.visible=.t.

thisform.text4.visible=.t.

thisform.image5.visible=.t.

thisform.text5.visible=.t.

a=0

b=0

c=0

d=0

e=0

do while eof()=.f.

if gpd>=1960 .and. gpd<1970

a=a+1

endi

if gpd>=1970 .and. gpd<1980

b=b+1

endi

if gpd>=1980 .and. gpd<1990

c=c+1

endi

if gpd>=1990 .and. gpd<2000

d=d+1

endi

if gpd>=2000

e=e+1

endi

skip

endd

maxis=max(a,b,c,d,e)

do case

case a=maxis

hi2=(b*340)/a

hi3=(c*340)/a

hi4=(d*340)/a

hi5=(e*340)/a

thisform.image1.width=340

thisform.image2.width=hi2

thisform.image3.width=hi3

thisform.image4.width=hi4

thisform.image5.width=hi5

case b=maxis

hi1=(a*340)/b

hi3=(c*340)/b

hi4=(d*340)/b

hi5=(e*340)/b

thisform.image1.width=hi1

thisform.image2.width=340

thisform.image3.width=hi3

thisform.image4.width=hi4

thisform.image5.width=hi5

case c=maxis

hi1=(a*340)/c

hi2=(b*340)/c

hi4=(d*340)/c

hi5=(e*340)/c

thisform.image1.width=hi1

thisform.image2.width=hi2

thisform.image3.width=340

thisform.image4.width=hi4

thisform.image5.width=hi5

case d=maxis

hi1=(a*340)/d

hi2=(b*340)/d

hi3=(c*340)/d

hi5=(e*340)/d

thisform.image1.width=hi1

thisform.image2.width=hi2

thisform.image3.width=hi3

thisform.image4.width=340

thisform.image5.width=hi5

case e=maxis

hi1=(a*340)/e

hi2=(b*340)/e

hi3=(c*340)/e

hi4=(d*340)/e

thisform.image1.width=hi1

thisform.image2.width=hi2

thisform.image3.width=hi3

thisform.image4.width=hi4

thisform.image5.width=340

endc

thisform.refresh

case gr=3

go top

thisform.label1.visible=.t.

thisform.label1.caption='от 0 до 5 лет'

thisform.label2.visible=.t.

thisform.label2.caption='от 5 до 10 лет'

thisform.label3.visible=.t.

thisform.label3.caption='от 10 до 20 лет'

thisform.label4.visible=.t.

thisform.label4.caption='от 20 до 30 лет'

thisform.label5.visible=.t.

thisform.label5.caption='свыше 30 лет'

thisform.image1.visible=.t.

thisform.text1.visible=.t.

thisform.image2.visible=.t.

thisform.text2.visible=.t.

thisform.image3.visible=.t.

thisform.text3.visible=.t.

thisform.image4.visible=.t.

thisform.text4.visible=.t.

thisform.image5.visible=.t.

thisform.text5.visible=.t.

a=0

b=0

c=0

d=0

e=0

do while eof()=.f.

if ost>=0 .and. ost<5

a=a+1

endi

if ost>=5 .and. ost<10

b=b+1

endi

if ost>=10 .and. ost<20

c=c+1

endi

if ost>=20 .and. ost<30

d=d+1

endi

if ost>=30

e=e+1

endi

skip

endd

maxis=max(a,b,c,d,e)

do case

case a=maxis

hi2=(b*340)/a

hi3=(c*340)/a

hi4=(d*340)/a

hi5=(e*340)/a

thisform.image1.width=340

thisform.image2.width=hi2

thisform.image3.width=hi3

thisform.image4.width=hi4

thisform.image5.width=hi5

case b=maxis

hi1=(a*340)/b

hi3=(c*340)/b

hi4=(d*340)/b

hi5=(e*340)/b

thisform.image1.width=hi1

thisform.image2.width=340

thisform.image3.width=hi3

thisform.image4.width=hi4

thisform.image5.width=hi5

case c=maxis

hi1=(a*340)/c

hi2=(b*340)/c

hi4=(d*340)/c

hi5=(e*340)/c

thisform.image1.width=hi1

thisform.image2.width=hi2

thisform.image3.width=340

thisform.image4.width=hi4

thisform.image5.width=hi5

case d=maxis

hi1=(a*340)/d

hi2=(b*340)/d

hi3=(c*340)/d

hi5=(e*340)/d

thisform.image1.width=hi1

thisform.image2.width=hi2

thisform.image3.width=hi3

thisform.image4.width=340

thisform.image5.width=hi5

case e=maxis

hi1=(a*340)/e

hi2=(b*340)/e

hi3=(c*340)/e

hi4=(d*340)/e

thisform.image1.width=hi1

thisform.image2.width=hi2

thisform.image3.width=hi3

thisform.image4.width=hi4

thisform.image5.width=340

endc

thisform.refresh

case gr=4

go top

thisform.label1.visible=.t.

thisform.label1.caption='1 год'

thisform.label2.visible=.t.

thisform.label2.caption='2 года'

thisform.label3.visible=.t.

thisform.label3.caption='3 года'

thisform.label4.visible=.t.

thisform.label4.caption='4 года'

thisform.label5.visible=.t.

thisform.label5.caption='5 лет'

thisform.label6.visible=.t.

thisform.label6.caption='от 5 до 10 лет'

thisform.label7.visible=.t.

thisform.label7.caption='свыше 10 лет'

thisform.image1.visible=.t.

thisform.text1.visible=.t.

thisform.image2.visible=.t.

thisform.text2.visible=.t.

thisform.image3.visible=.t.

thisform.text3.visible=.t.

thisform.image4.visible=.t.

thisform.text4.visible=.t.

thisform.image5.visible=.t.

thisform.text5.visible=.t.

thisform.image6.visible=.t.

thisform.text6.visible=.t.

thisform.image7.visible=.t.

thisform.text7.visible=.t.

a=0

b=0

c=0

d=0

e=0

f=0

g=0

do while eof()=.f.

if pst=1

a=a+1

endi

if pst=2

b=b+1

endi

if pst=3

c=c+1

endi

if pst=4

d=d+1

endi

if pst=5

e=e+1

endi

if pst>5 .and. pst<10

f=f+1

endi

if pst>=10

g=g+1

endi

skip

endd

maxis=max(a,b,c,d,e,f,g)

do case

case a=maxis

hi2=(b*340)/a

hi3=(c*340)/a

hi4=(d*340)/a

hi5=(e*340)/a

hi6=(f*340)/a

hi7=(g*340)/a

thisform.image1.width=340

thisform.image2.width=hi2

thisform.image3.width=hi3

thisform.image4.width=hi4

thisform.image5.width=hi5

thisform.image6.width=hi6

thisform.image7.width=hi7

case b=maxis

hi1=(a*340)/b

hi3=(c*340)/b

hi4=(d*340)/b

hi5=(e*340)/b

hi6=(f*340)/b

hi7=(g*340)/b

thisform.image1.width=hi1

thisform.image2.width=340

thisform.image3.width=hi3

thisform.image4.width=hi4

thisform.image5.width=hi5

thisform.image6.width=hi6

thisform.image7.width=hi7

case c=maxis

hi1=(a*340)/c

hi2=(b*340)/c

hi4=(d*340)/c

hi5=(e*340)/c

hi6=(f*340)/c

hi7=(g*340)/c

thisform.image1.width=hi1

thisform.image2.width=hi2

thisform.image3.width=340

thisform.image4.width=hi4

thisform.image5.width=hi5

thisform.image6.width=hi6

thisform.image7.width=hi7

case d=maxis

hi1=(a*340)/d

hi2=(b*340)/d

hi3=(c*340)/d

hi5=(e*340)/d

hi6=(f*340)/d

hi7=(g*340)/d

thisform.image1.width=hi1

thisform.image2.width=hi2

thisform.image3.width=hi3

thisform.image4.width=340

thisform.image5.width=hi5

thisform.image6.width=hi6

thisform.image7.width=hi7

case e=maxis

hi1=(a*340)/e

hi2=(b*340)/e

hi3=(c*340)/e

hi4=(d*340)/e

hi6=(f*340)/e

hi7=(g*340)/e

thisform.image1.width=hi1

thisform.image2.width=hi2

thisform.image3.width=hi3

thisform.image4.width=hi4

thisform.image5.width=340

thisform.image6.width=hi6

thisform.image7.width=hi7

case f=maxis

hi1=(a*340)/f

hi2=(b*340)/f

hi3=(c*340)/f

hi4=(d*340)/f

hi5=(e*340)/f

hi7=(g*340)/f

thisform.image1.width=hi1

thisform.image2.width=hi2

thisform.image3.width=hi3

thisform.image4.width=hi4

thisform.image5.width=hi5

thisform.image6.width=340

thisform.image7.width=hi7

case g=maxis

hi1=(a*340)/g

hi2=(b*340)/g

hi3=(c*340)/g

hi4=(d*340)/g

hi5=(e*340)/g

hi6=(f*340)/g

thisform.image1.width=hi1

thisform.image2.width=hi2

thisform.image3.width=hi3

thisform.image4.width=hi4

thisform.image5.width=hi5

thisform.image6.width=hi6

thisform.image7.width=340

endc

thisform.refresh

case gr=5

go top

thisform.label1.visible=.t.

thisform.label1.caption='1 год'

thisform.label2.visible=.t.

thisform.label2.caption='2 года'

thisform.label3.visible=.t.

thisform.label3.caption='3 года'

thisform.label4.visible=.t.

thisform.label4.caption='4 года'

thisform.label5.visible=.t.

thisform.label5.caption='5 лет'

thisform.label6.visible=.t.

thisform.label6.caption='от 5 до 10 лет'

thisform.label7.visible=.t.

thisform.label7.caption='свыше 10 лет'

thisform.image1.visible=.t.

thisform.text1.visible=.t.

thisform.image2.visible=.t.

thisform.text2.visible=.t.

thisform.image3.visible=.t.

thisform.text3.visible=.t.

thisform.image4.visible=.t.

thisform.text4.visible=.t.

thisform.image5.visible=.t.

thisform.text5.visible=.t.

thisform.image6.visible=.t.

thisform.text6.visible=.t.

thisform.image7.visible=.t.

thisform.text7.visible=.t.

a=0

b=0

c=0

d=0

e=0

f=0

g=0

do while eof()=.f.

if lst=1

a=a+1

endi

if lst=2

b=b+1

endi

if lst=3

c=c+1

endi

if lst=4

d=d+1

endi

if lst=5

e=e+1

endi

if lst>5 .and. lst<10

f=f+1

endi

if lst>=10

g=g+1

endi

skip

endd

maxis=max(a,b,c,d,e,f,g)

do case

case a=maxis

hi2=(b*340)/a

hi3=(c*340)/a

hi4=(d*340)/a

hi5=(e*340)/a

hi6=(f*340)/a

hi7=(g*340)/a

thisform.image1.width=340

thisform.image2.width=hi2

thisform.image3.width=hi3

thisform.image4.width=hi4

thisform.image5.width=hi5

thisform.image6.width=hi6

thisform.image7.width=hi7

case b=maxis

hi1=(a*340)/b

hi3=(c*340)/b

hi4=(d*340)/b

hi5=(e*340)/b

hi6=(f*340)/b

hi7=(g*340)/b

thisform.image1.width=hi1

thisform.image2.width=340

thisform.image3.width=hi3

thisform.image4.width=hi4

thisform.image5.width=hi5

thisform.image6.width=hi6

thisform.image7.width=hi7

case c=maxis

hi1=(a*340)/c

hi2=(b*340)/c

hi4=(d*340)/c

hi5=(e*340)/c

hi6=(f*340)/c

hi7=(g*340)/c

thisform.image1.width=hi1

thisform.image2.width=hi2

thisform.image3.width=340

thisform.image4.width=hi4

thisform.image5.width=hi5

thisform.image6.width=hi6

thisform.image7.width=hi7

case d=maxis

hi1=(a*340)/d

hi2=(b*340)/d

hi3=(c*340)/d

hi5=(e*340)/d

hi6=(f*340)/d

hi7=(g*340)/d

thisform.image1.width=hi1

thisform.image2.width=hi2

thisform.image3.width=hi3

thisform.image4.width=340

thisform.image5.width=hi5

thisform.image6.width=hi6

thisform.image7.width=hi7

case e=maxis

hi1=(a*340)/e

hi2=(b*340)/e

hi3=(c*340)/e

hi4=(d*340)/e

hi6=(f*340)/e

hi7=(g*340)/e

thisform.image1.width=hi1

thisform.image2.width=hi2

thisform.image3.width=hi3

thisform.image4.width=hi4

thisform.image5.width=340

thisform.image6.width=hi6

thisform.image7.width=hi7

case f=maxis

hi1=(a*340)/f

hi2=(b*340)/f

hi3=(c*340)/f

hi4=(d*340)/f

hi5=(e*340)/f

hi7=(g*340)/f

thisform.image1.width=hi1

thisform.image2.width=hi2

thisform.image3.width=hi3

thisform.image4.width=hi4

thisform.image5.width=hi5

thisform.image6.width=340

thisform.image7.width=hi7

case g=maxis

hi1=(a*340)/g

hi2=(b*340)/g

hi3=(c*340)/g

hi4=(d*340)/g

hi5=(e*340)/g

hi6=(f*340)/g

thisform.image1.width=hi1

thisform.image2.width=hi2

thisform.image3.width=hi3

thisform.image4.width=hi4

thisform.image5.width=hi5

thisform.image6.width=hi6

thisform.image7.width=340

endc

thisform.refresh

case gr=6

go top

thisform.label1.visible=.t.

thisform.label1.caption='2002 год'

thisform.label2.visible=.t.

thisform.label2.caption='2001 год'

thisform.label3.visible=.t.

thisform.label3.caption='2000 год'

thisform.label4.visible=.t.

thisform.label4.caption='1999 год'

thisform.label5.visible=.t.

thisform.label5.caption='1998 и ниже'

thisform.image1.visible=.t.

thisform.text1.visible=.t.

thisform.image2.visible=.t.

thisform.text2.visible=.t.

thisform.image3.visible=.t.

thisform.text3.visible=.t.

thisform.image4.visible=.t.

thisform.text4.visible=.t.

thisform.image5.visible=.t.

thisform.text5.visible=.t.

a=0

b=0

c=0

d=0

e=0

dat={}

do while eof()=.f.

dat=year(dkdak)

if dat=1902

a=a+1

endi

if dat=1901

b=b+1

endi

if dat=1900

c=c+1

endi

if dat=1999

d=d+1

endi

if dat<=1998 .and. dat#0

e=e+1

endi

skip

endd

maxis=max(a,b,c,d,e)

do case

case a=maxis

hi2=(b*340)/a

hi3=(c*340)/a

hi4=(d*340)/a

hi5=(e*340)/a

thisform.image1.width=340

thisform.image2.width=hi2

thisform.image3.width=hi3

thisform.image4.width=hi4

thisform.image5.width=hi5

case b=maxis

hi1=(a*340)/b

hi3=(c*340)/b

hi4=(d*340)/b

hi5=(e*340)/b

thisform.image1.width=hi1

thisform.image2.width=340

thisform.image3.width=hi3

thisform.image4.width=hi4

thisform.image5.width=hi5

case c=maxis

hi1=(a*340)/c

hi2=(b*340)/c

hi4=(d*340)/c

hi5=(e*340)/c

thisform.image1.width=hi1

thisform.image2.width=hi2

thisform.image3.width=340

thisform.image4.width=hi4

thisform.image5.width=hi5

case d=maxis

hi1=(a*340)/d

hi2=(b*340)/d

hi3=(c*340)/d

hi5=(e*340)/d

thisform.image1.width=hi1

thisform.image2.width=hi2

thisform.image3.width=hi3

thisform.image4.width=340

thisform.image5.width=hi5

case e=maxis

hi1=(a*340)/e

hi2=(b*340)/e

hi3=(c*340)/e

hi4=(d*340)/e

thisform.image1.width=hi1

thisform.image2.width=hi2

thisform.image3.width=hi3

thisform.image4.width=hi4

thisform.image5.width=340

endc

thisform.refresh

case gr=7

go top

thisform.label1.visible=.t.

thisform.label1.caption='Высшая'

thisform.label2.visible=.t.

thisform.label2.caption='Первая'

thisform.label3.visible=.t.

thisform.label3.caption='Вторая'

thisform.image1.visible=.t.

thisform.text1.visible=.t.

thisform.image2.visible=.t.

thisform.text2.visible=.t.

thisform.image3.visible=.t.

thisform.text3.visible=.t.

a=0

b=0

c=0

do while eof()=.f.

if dkkat="Высшая"

a=a+1

endi

if dkkat="Первая"

b=b+1

endi

if dkkat="Вторая"

c=c+1

endi

skip

endd

maxis=max(a,b,c)

do case

case a=maxis

hi2=(b*340)/a

hi3=(c*340)/a

thisform.image1.width=340

thisform.image2.width=hi2

thisform.image3.width=hi3

case b=maxis

hi1=(a*340)/b

hi3=(c*340)/b

thisform.image1.width=hi1

thisform.image2.width=340

thisform.image3.width=hi3

case c=maxis

hi1=(a*340)/c

hi2=(b*340)/c

thisform.image1.width=hi1

thisform.image2.width=hi2

thisform.image3.width=340

endc

thisform.refresh

case gr=8

go top

thisform.label1.visible=.t.

thisform.label1.caption='Имеют звания'

thisform.label2.visible=.t.

thisform.label2.caption='Имеют награды'

thisform.image1.visible=.t.

thisform.text1.visible=.t.

thisform.image2.visible=.t.

thisform.text2.visible=.t.

a=0

b=0

do while eof()=.f.

if dnzva#spac(30)

a=a+1

endi

if dnnag#spac(30)

b=b+1

endi

skip

endd

maxis=max(a,b)

do case

case a=maxis

hi2=(b*340)/a

hi3=(c*340)/a

thisform.image1.width=340

thisform.image2.width=hi2

case b=maxis

hi1=(a*340)/b

hi3=(c*340)/b

thisform.image1.width=hi1

thisform.image2.width=340

endc

thisform.refresh

case gr=9

go top

thisform.label1.visible=.t.

thisform.label1.caption='Лицей'

thisform.label2.visible=.t.

thisform.label2.caption='Зона'

thisform.label3.visible=.t.

thisform.label3.caption='Регион'

thisform.label4.visible=.t.

thisform.label4.caption='Федерация'

thisform.image1.visible=.t.

thisform.text1.visible=.t.

thisform.image2.visible=.t.

thisform.text2.visible=.t.

thisform.image3.visible=.t.

thisform.text3.visible=.t.

thisform.image4.visible=.t.

thisform.text4.visible=.t.

a=0

b=0

c=0

d=0

do while eof()=.f.

if dauro="Лицей"

a=a+1

endi

if dauro="Зона"

b=b+1

endi

if dauro="Регион"

c=c+1

endi

if dauro="Федерация"

d=d+1

endi

skip

endd

maxis=max(a,b,c,d)

do case

case a=maxis

hi2=(b*340)/a

hi3=(c*340)/a

hi4=(d*340)/a

thisform.image1.width=340

thisform.image2.width=hi2

thisform.image3.width=hi3

thisform.image4.width=hi4

case b=maxis

hi1=(a*340)/b

hi3=(c*340)/b

hi4=(d*340)/b

thisform.image1.width=hi1

thisform.image2.width=340

thisform.image3.width=hi3

thisform.image4.width=hi4

case c=maxis

hi1=(a*340)/c

hi2=(b*340)/c

hi4=(d*340)/c

thisform.image1.width=hi1

thisform.image2.width=hi2

thisform.image3.width=340

thisform.image4.width=hi4

case d=maxis

hi1=(a*340)/d

hi2=(b*340)/d

hi3=(c*340)/d

thisform.image1.width=hi1

thisform.image2.width=hi2

thisform.image3.width=hi3

thisform.image4.width=340

endc

thisform.refresh

case gr=10

go top

thisform.label1.visible=.t.

thisform.label1.caption='1 Предмет'

thisform.label2.visible=.t.

thisform.label2.caption='2 Предмета'

thisform.label3.visible=.t.

thisform.label3.caption='3 Предмета'

thisform.label4.visible=.t.

thisform.label4.caption='4 Предмета'

thisform.label5.visible=.t.

thisform.label5.caption='5 Предмета'

thisform.label6.visible=.t.

thisform.label6.caption='6 Предмета'

thisform.label7.visible=.t.

thisform.label7.caption='7 Предмета'

thisform.label8.visible=.t.

thisform.label8.caption='8 Предмета'

thisform.label9.visible=.t.

thisform.label9.caption='9 Предмета'

thisform.label10.visible=.t.

thisform.label10.caption='10 Предмета'

thisform.label11.visible=.t.

thisform.label11.caption='11 Предмета'

thisform.label12.visible=.t.

thisform.label12.caption='12 Предмета'

thisform.image1.visible=.t.

thisform.text1.visible=.t.

thisform.image2.visible=.t.

thisform.text2.visible=.t.

thisform.image3.visible=.t.

thisform.text3.visible=.t.

thisform.image4.visible=.t.

thisform.text4.visible=.t.

thisform.image5.visible=.t.

thisform.text5.visible=.t.

thisform.image6.visible=.t.

thisform.text6.visible=.t.

thisform.image7.visible=.t.

thisform.text7.visible=.t.

thisform.image8.visible=.t.

thisform.text8.visible=.t.

thisform.image9.visible=.t.

thisform.text9.visible=.t.

thisform.image10.visible=.t.

thisform.text10.visible=.t.

thisform.image11.visible=.t.

thisform.text11.visible=.t.

thisform.image12.visible=.t.

thisform.text12.visible=.t.

a=0

b=0

c=0

d=0

e=0

f=0

g=0

h=0

j=0

k=0

l=0

m=0

kol=1

scan

for i=2 to len(dipre)

if righ(left(allt(dipre),i),1)=','

kol=kol+1

endi

endf

do case

case kol=1

a=a+1

case kol=2

b=b+1

case kol=3

c=c+1

case kol=4

d=d+1

case kol=5

e=e+1

case kol=6

f=f+1

case kol=7

g=g+1

case kol=8

h=h+1

case kol=9

j=j+1

case kol=10

k=k+1

case kol=11

l=l+1

case kol=12

m=m+1

endc

ends

maxis=max(a,b,c,d,e,f,g,h,j,k,l,m)

do case

case a=maxis

hi2=(b*340)/a

hi3=(c*340)/a

hi4=(d*340)/a

hi5=(e*340)/a

hi6=(f*340)/a

hi7=(g*340)/a

hi8=(h*340)/a

hi9=(j*340)/a

hi10=(k*340)/a

hi11=(l*340)/a

hi12=(m*340)/a

thisform.image1.width=340

thisform.image2.width=hi2

thisform.image3.width=hi3

thisform.image4.width=hi4

thisform.image5.width=hi5

thisform.image6.width=hi6

thisform.image7.width=hi7

thisform.image8.width=hi8

thisform.image9.width=hi9

thisform.image10.width=hi10

thisform.image11.width=hi11

thisform.image12.width=hi12

case b=maxis

hi1=(a*340)/b

hi3=(c*340)/b

hi4=(d*340)/b

hi5=(e*340)/b

hi6=(f*340)/b

hi7=(g*340)/b

hi8=(h*340)/b

hi9=(j*340)/b

hi10=(k*340)/b

hi11=(l*340)/b

hi12=(m*340)/b

thisform.image1.width=hi1

thisform.image2.width=340

thisform.image3.width=hi3

thisform.image4.width=hi4

thisform.image5.width=hi5

thisform.image6.width=hi6

thisform.image7.width=hi7

thisform.image8.width=hi8

thisform.image9.width=hi9

thisform.image10.width=hi10

thisform.image11.width=hi11

thisform.image12.width=hi12

case c=maxis

hi1=(a*340)/c

hi2=(b*340)/c

hi4=(d*340)/c

hi5=(e*340)/c

hi6=(f*340)/c

hi7=(g*340)/c

hi8=(h*340)/c

hi9=(j*340)/c

hi10=(k*340)/c

hi11=(l*340)/c

hi12=(m*340)/c

thisform.image1.width=hi1

thisform.image2.width=hi2

thisform.image3.width=340

thisform.image4.width=hi4

thisform.image5.width=hi5

thisform.image6.width=hi6

thisform.image7.width=hi7

thisform.image8.width=hi8

thisform.image9.width=hi9

thisform.image10.width=hi10

thisform.image11.width=hi11

thisform.image12.width=hi12

case d=maxis

hi1=(a*340)/d

hi2=(b*340)/d

hi3=(c*340)/d

hi5=(e*340)/d

hi6=(f*340)/d

hi7=(g*340)/d

hi8=(h*340)/d

hi9=(j*340)/d

hi10=(k*340)/d

hi11=(l*340)/d

hi12=(m*340)/d

thisform.image1.width=hi1

thisform.image2.width=hi2

thisform.image3.width=hi3

thisform.image4.width=340

thisform.image5.width=hi5

thisform.image6.width=hi6

thisform.image7.width=hi7

thisform.image8.width=hi8

thisform.image9.width=hi9

thisform.image10.width=hi10

thisform.image11.width=hi11

thisform.image12.width=hi12

case e=maxis

hi1=(a*340)/e

hi2=(b*340)/e

hi3=(c*340)/e

hi4=(d*340)/e

hi6=(f*340)/e

hi7=(g*340)/e

hi8=(h*340)/e

hi9=(j*340)/e

hi10=(k*340)/e

hi11=(l*340)/e

hi12=(m*340)/e

thisform.image1.width=hi1

thisform.image2.width=hi2

thisform.image3.width=hi3

thisform.image4.width=hi4

thisform.image5.width=340

thisform.image6.width=hi6

thisform.image7.width=hi7

thisform.image8.width=hi8

thisform.image9.width=hi9

thisform.image10.width=hi10

thisform.image11.width=hi11

thisform.image12.width=hi12

case f=maxis

hi1=(a*340)/f

hi2=(b*340)/f

hi3=(c*340)/f

hi4=(d*340)/f

hi5=(e*340)/f

hi7=(g*340)/f

hi8=(h*340)/f

hi9=(j*340)/f

hi10=(k*340)/f

hi11=(l*340)/f

hi12=(m*340)/f

thisform.image1.width=hi1

thisform.image2.width=hi2

thisform.image3.width=hi3

thisform.image4.width=hi4

thisform.image5.width=hi5

thisform.image6.width=340

thisform.image7.width=hi7

thisform.image8.width=hi8

thisform.image9.width=hi9

thisform.image10.width=hi10

thisform.image11.width=hi11

thisform.image12.width=hi12

case g=maxis

hi1=(a*340)/g

hi2=(b*340)/g

hi3=(c*340)/g

hi4=(d*340)/g

hi5=(e*340)/g

hi6=(f*340)/g

hi8=(h*340)/g

hi9=(j*340)/g

hi10=(k*340)/g

hi11=(l*340)/g

hi12=(m*340)/g

thisform.image1.width=hi1

thisform.image2.width=hi2

thisform.image3.width=hi3

thisform.image4.width=hi4

thisform.image5.width=hi5

thisform.image6.width=hi6

thisform.image7.width=340

thisform.image8.width=hi8

thisform.image9.width=hi9

thisform.image10.width=hi10

thisform.image11.width=hi11

thisform.image12.width=hi12

case h=maxis

hi1=(a*340)/h

hi2=(b*340)/h

hi3=(c*340)/h

hi4=(d*340)/h

hi5=(e*340)/h

hi6=(f*340)/h

hi7=(g*340)/h

hi9=(j*340)/h

hi10=(k*340)/h

hi11=(l*340)/h

hi12=(m*340)/h

thisform.image1.width=hi1

thisform.image2.width=hi2

thisform.image3.width=hi3

thisform.image4.width=hi4

thisform.image5.width=hi5

thisform.image6.width=hi6

thisform.image7.width=hi7

thisform.image8.width=340

thisform.image9.width=hi9

thisform.image10.width=hi10

thisform.image11.width=hi11

thisform.image12.width=hi12

case j=maxis

hi1=(a*340)/j

hi2=(b*340)/j

hi3=(c*340)/j

hi4=(d*340)/j

hi5=(e*340)/j

hi6=(f*340)/j

hi7=(g*340)/j

hi8=(h*340)/j

hi10=(k*340)/j

hi11=(l*340)/j

hi12=(m*340)/j

thisform.image1.width=hi1

thisform.image2.width=hi2

thisform.image3.width=hi3

thisform.image4.width=hi4

thisform.image5.width=hi5

thisform.image6.width=hi6

thisform.image7.width=hi7

thisform.image8.width=hi8

thisform.image9.width=340

thisform.image10.width=hi10

thisform.image11.width=hi11

thisform.image12.width=hi12

case k=maxis

hi1=(a*340)/k

hi2=(b*340)/k

hi3=(c*340)/k

hi4=(d*340)/k

hi5=(e*340)/k

hi6=(f*340)/k

hi7=(g*340)/k

hi8=(h*340)/k

hi9=(j*340)/k

hi11=(l*340)/k

hi12=(m*340)/k

thisform.image1.width=hi1

thisform.image2.width=hi2

thisform.image3.width=hi3

thisform.image4.width=hi4

thisform.image5.width=hi5

thisform.image6.width=hi6

thisform.image7.width=hi7

thisform.image8.width=hi8

thisform.image9.width=hi9

thisform.image10.width=340

thisform.image11.width=hi11

thisform.image12.width=hi12

case l=maxis

hi1=(a*340)/l

hi2=(b*340)/l

hi3=(c*340)/l

hi4=(d*340)/l

hi5=(e*340)/l

hi6=(f*340)/l

hi7=(g*340)/l

hi8=(h*340)/l

hi9=(j*340)/l

hi10=(k*340)/l

hi12=(m*340)/l

thisform.image1.width=hi1

thisform.image2.width=hi2

thisform.image3.width=hi3

thisform.image4.width=hi4

thisform.image5.width=hi5

thisform.image6.width=hi6

thisform.image7.width=hi7

thisform.image8.width=hi8

thisform.image9.width=hi9

thisform.image10.width=hi10

thisform.image11.width=340

thisform.image12.width=hi12

case m=maxis

hi1=(a*340)/m

hi2=(b*340)/m

hi3=(c*340)/m

hi4=(d*340)/m

hi5=(e*340)/m

hi6=(f*340)/m

hi7=(g*340)/m

hi8=(h*340)/m

hi9=(j*340)/m

hi10=(k*340)/m

hi11=(l*340)/m

thisform.image1.width=hi1

thisform.image2.width=hi2

thisform.image3.width=hi3

thisform.image4.width=hi4

thisform.image5.width=hi5

thisform.image6.width=hi6

thisform.image7.width=hi7

thisform.image8.width=hi8

thisform.image9.width=hi9

thisform.image10.width=hi10

thisform.image11.width=hi11

thisform.image12.width=340

endc

thisform.refresh

case gr=11

thisform.label1.visible=.t.

thisform.label1.caption='Мастеров'

thisform.label2.visible=.t.

thisform.label2.caption='Преподавателей'

thisform.label3.visible=.t.

thisform.label3.caption='Руководитель с/п'

thisform.image1.visible=.t.

thisform.text1.visible=.t.

thisform.image2.visible=.t.

thisform.text2.visible=.t.

thisform.image3.visible=.t.

thisform.text3.visible=.t.

a=0

b=0

c=0

go top

do while eof()=.f.

if dbz="Мастер"

a=a+1

endi

if sme="Мастер"

a=a+1

endi

if dbz="Преподаватель"

b=b+1

endi

if sme="Преподаватель"

b=b+1

endi

if dbz="Рук"

c=c+1

endi

if sme="Рук"

c=c+1

endi

skip

endd

maxis=max(a,b,c)

do case

case a=maxis

hi2=(b*340)/a

hi3=(c*340)/a

hi4=(d*340)/a

thisform.image1.width=340

thisform.image2.width=hi2

thisform.image3.width=hi3

case b=maxis

hi1=(a*340)/b

hi3=(c*340)/b

thisform.image1.width=hi1

thisform.image2.width=340

thisform.image3.width=hi3

case c=maxis

hi1=(a*340)/c

hi2=(b*340)/c

thisform.image1.width=hi1

thisform.image2.width=hi2

thisform.image3.width=340

endc

thisform.refresh

case gr=12

go top

thisform.label1.visible=.t.

thisform.label1.caption='100%'

thisform.label2.visible=.t.

thisform.label2.caption='90%-100%'

thisform.label3.visible=.t.

thisform.label3.caption='80%-90%'

thisform.label4.visible=.t.

thisform.label4.caption='70%-80%'

thisform.label5.visible=.t.

thisform.label5.caption='60%-70%'

thisform.label6.visible=.t.

thisform.label6.caption='50%-60%'

thisform.image1.visible=.t.

thisform.text1.visible=.t.

thisform.image2.visible=.t.

thisform.text2.visible=.t.

thisform.image3.visible=.t.

thisform.text3.visible=.t.

thisform.image4.visible=.t.

thisform.text4.visible=.t.

thisform.image5.visible=.t.

thisform.text5.visible=.t.

thisform.image6.visible=.t.

thisform.text6.visible=.t.

a=0

b=0

c=0

d=0

e=0

f=0

do while eof()=.f.

if kbe=100

a=a+1

endi

if kbe>=90 .and. kbe<100

b=b+1

endi

if kbe>=80 .and. kbe<90

c=c+1

endi

if kbe>=70 .and. kbe<80

d=d+1

endi

if kbe>=60 .and. kbe<70

e=e+1

endi

if kbe>=50 .and. kbe<60

f=f+1

endi

skip

endd

maxis=max(a,b,c,d,e,f)

do case

case a=maxis

hi2=(b*340)/a

hi3=(c*340)/a

hi4=(d*340)/a

hi5=(e*340)/a

hi6=(f*340)/a

thisform.image1.width=340

thisform.image2.width=hi2

thisform.image3.width=hi3

thisform.image4.width=hi4

thisform.image5.width=hi5

thisform.image6.width=hi6

case b=maxis

hi1=(a*340)/b

hi3=(c*340)/b

hi4=(d*340)/b

hi5=(e*340)/b

hi6=(f*340)/b

thisform.image1.width=hi1

thisform.image2.width=340

thisform.image3.width=hi3

thisform.image4.width=hi4

thisform.image5.width=hi5

thisform.image6.width=hi6

case c=maxis

hi1=(a*340)/c

hi2=(b*340)/c

hi4=(d*340)/c

hi5=(e*340)/c

hi6=(f*340)/c

thisform.image1.width=hi1

thisform.image2.width=hi2

thisform.image3.width=340

thisform.image4.width=hi4

thisform.image5.width=hi5

thisform.image6.width=hi6

case d=maxis

hi1=(a*340)/d

hi2=(b*340)/d

hi3=(c*340)/d

hi5=(e*340)/d

hi6=(f*340)/d

hi7=(g*340)/d

thisform.image1.width=hi1

thisform.image2.width=hi2

thisform.image3.width=hi3

thisform.image4.width=340

thisform.image5.width=hi5

thisform.image6.width=hi6

case e=maxis

hi1=(a*340)/e

hi2=(b*340)/e

hi3=(c*340)/e

hi4=(d*340)/e

hi6=(f*340)/e

thisform.image1.width=hi1

thisform.image2.width=hi2

thisform.image3.width=hi3

thisform.image4.width=hi4

thisform.image5.width=340

thisform.image6.width=hi6

case f=maxis

hi1=(a*340)/f

hi2=(b*340)/f

hi3=(c*340)/f

hi4=(d*340)/f

hi5=(e*340)/f

thisform.image1.width=hi1

thisform.image2.width=hi2

thisform.image3.width=hi3

thisform.image4.width=hi4

thisform.image5.width=hi5

thisform.image6.width=340

endc

thisform.refresh

case gr=13

go top

thisform.label1.visible=.t.

thisform.label1.caption='100%'

thisform.label2.visible=.t.

thisform.label2.caption='90%-100%'

thisform.label3.visible=.t.

thisform.label3.caption='80%-90%'

thisform.label4.visible=.t.

thisform.label4.caption='70%-80%'

thisform.label5.visible=.t.

thisform.label5.caption='60%-70%'

thisform.label6.visible=.t.

thisform.label6.caption='50%-60%'

thisform.image1.visible=.t.

thisform.text1.visible=.t.

thisform.image2.visible=.t.

thisform.text2.visible=.t.

thisform.image3.visible=.t.

thisform.text3.visible=.t.

thisform.image4.visible=.t.

thisform.text4.visible=.t.

thisform.image5.visible=.t.

thisform.text5.visible=.t.

thisform.image6.visible=.t.

thisform.text6.visible=.t.

a=0

b=0

c=0

d=0

e=0

f=0

do while eof()=.f.

if kus=100

a=a+1

endi

if kus>=90 .and. kus<100

b=b+1

endi

if kus>=80 .and. kus<90

c=c+1

endi

if kus>=70 .and. kus<80

d=d+1

endi

if kus>=60 .and. kus<70

e=e+1

endi

if kus>=50 .and. kus<60

f=f+1

endi

skip

endd

maxis=max(a,b,c,d,e,f)

do case

case a=maxis

hi2=(b*340)/a

hi3=(c*340)/a

hi4=(d*340)/a

hi5=(e*340)/a

hi6=(f*340)/a

thisform.image1.width=340

thisform.image2.width=hi2

thisform.image3.width=hi3

thisform.image4.width=hi4

thisform.image5.width=hi5

thisform.image6.width=hi6

case b=maxis

hi1=(a*340)/b

hi3=(c*340)/b

hi4=(d*340)/b

hi5=(e*340)/b

hi6=(f*340)/b

thisform.image1.width=hi1

thisform.image2.width=340

thisform.image3.width=hi3

thisform.image4.width=hi4

thisform.image5.width=hi5

thisform.image6.width=hi6

case c=maxis

hi1=(a*340)/c

hi2=(b*340)/c

hi4=(d*340)/c

hi5=(e*340)/c

hi6=(f*340)/c

thisform.image1.width=hi1

thisform.image2.width=hi2

thisform.image3.width=340

thisform.image4.width=hi4

thisform.image5.width=hi5

thisform.image6.width=hi6

case d=maxis

hi1=(a*340)/d

hi2=(b*340)/d

hi3=(c*340)/d

hi5=(e*340)/d

hi6=(f*340)/d

hi7=(g*340)/d

thisform.image1.width=hi1

thisform.image2.width=hi2

thisform.image3.width=hi3

thisform.image4.width=340

thisform.image5.width=hi5

thisform.image6.width=hi6

case e=maxis

hi1=(a*340)/e

hi2=(b*340)/e

hi3=(c*340)/e

hi4=(d*340)/e

hi6=(f*340)/e

thisform.image1.width=hi1

thisform.image2.width=hi2

thisform.image3.width=hi3

thisform.image4.width=hi4

thisform.image5.width=340

thisform.image6.width=hi6

case f=maxis

hi1=(a*340)/f

hi2=(b*340)/f

hi3=(c*340)/f

hi4=(d*340)/f

hi5=(e*340)/f

thisform.image1.width=hi1

thisform.image2.width=hi2

thisform.image3.width=hi3

thisform.image4.width=hi4

thisform.image5.width=hi5

thisform.image6.width=340

endc

thisform.refresh

endc