Разработка программы для учета рабочего штата преподавателей
Дипломная работа - Компьютеры, программирование
Другие дипломы по предмету Компьютеры, программирование
ippthisform.pageframe1.page1.Embos.visible=.f.sme with gsmesme with gsme1
*****кваификацияdkkur with kkurdknak with knakdknas with knasdkdan with kdandkdak with kdakdkkat with kkatdkraz with krazdkdpk with kdpkdkdpr with kdprdkuch with kuch
*****наградыdnnag with nnagdnzva with nzvadngde with ngdedndat with ndat
*****автрские разрабткиdakmo with akmodaavs with aavs
repl dauro with auro
*****дополнительне бразование
repl ddnou with dnouddcpe with dcpedddna with ddnadddok with ddok
*****итоговая педагогичческая нагрузкаdpone with ponedptwo with ptwodpito with pito
*****итогdipre with ipredippr with ipprdingr with ingrdicvg with icvgdipuc with ipucdivuc with ivuc
*****refresh.pageframe1.refresh='Внимание'='Запись обновлена'=0+64+0=MeSSAGEBOX(cMessageText,nDialogType,cMessageTitle)=gfamgsme='Мастер ПО' .or. gsme='Преподаватель' .or. gsme='Руководитель с/п' .or. gsme='Преподаватель ц.к.' .or. gsme='Зам. директора' .or. gsme='Куратор' .pageframe1.page1.Embos.visible=.f.=spac(30).pageframe1.page1.Embos.visible=.t.=gsme='Другое'.pageframe1.width=650.pageframe1.height=398.width=648.height=385
casefsel=1.00a=1form findngr=a+1fsel=2.00form finddbzfsel=3.00form findpnagfsel=4.00form findkbefsel=5.00form findmetfsel=6.00form findofofsel=7.00form findobrfsel=8.00form findstafsel=9.00form findkvafsel=10.00form findzvafsel=11.00form findurofsel=12.00form findprefsel=13.00form findkon.releasekey label ENTER do view.prgipr inde ifam casegkbe='50%-60%'for kbe>=50 and kbe=90 and kbe<100 fields kbe:h="% качества", fam:h="Фамиия" noed noap wind itogkey='Внимание'='Поиск неудачен'=0+64+0=MeSSAGEBOX(cMessageText,nDialogType,cMessageTitle)keygkbe='100%'for kbe=100found()=.t.topkey label ENTER do view.prgkey label F1 do rap3.prg.visible=.f.wind itogfor kbe=100 fields kbe:h="% качества", fam:h="Фамиия" noed noap wind itogkey='Внимание'='Поиск неудачен'=0+64+0=MeSSAGEBOX(cMessageText,nDialogType,cMessageTitle)
pop key
Формы поиска
if empt(gdbz)='Ошибка ввода'
cMessageText='Выберите критерий поиска'=0+64+0
nAnswer=MeSSAGEBOX(cMessageText,nDialogType,cMessageTitle)for dbz=allt(gdbz)found()=.t.topkey label ENTER do form viewkey label F1 do rap2.prg.visible=.f.wind itogfor dbz=allt(gdbz) fields dbz:h="Должносные обязанности", fam:h="Фамиия" noed noap wind itogkeyempt(gdbz)='Ошибка ввода'
cMessageText='Для поиска необходимо сначала выбрать должностную обязанность'
nDialogType=0+64+0=MeSSAGEBOX(cMessageText,nDialogType,cMessageTitle)='Внимание'='Поиск неудачен'=0+64+0=MeSSAGEBOX(cMessageText,nDialogType,cMessageTitle)key.releaseempty(kkat)='Ошибка ввода'='Выберите критерий поиска'=0+64+0=MeSSAGEBOX(cMessageText,nDialogType,cMessageTitle)key label ENTER do view.prgipr inde ifam for dkkat=allt(kkat)found()=.t.topkey label ENTER do view.prgkey label F1 do rap5.prg.visible=.f.wind itog for dkkat=allt(kkat) fields dkkat:h="Квалификационная категория", fam:h="Фамиия" noed noap wind itogkey='Внимание'='Поиск неудачен'=0+64+0=MeSSAGEBOX(cMessageText,nDialogType,cMessageTitle)keyempt(gobr)='Ошибка ввода'='Выберите критерий поиска'=0+64+0=MeSSAGEBOX(cMessageText,nDialogType,cMessageTitle)key label ENTER do view.prgipr inde ifam for obr=allt(gobr)found()=.t.topkey label ENTER do view.prgkey label F1 do rap8.prg.visible=.f.wind itog for obr=allt(gobr) fields obr:h="Образование", fam:h="Фамиия" noed noap wind itogkey='Ошибка ввода'='Такой записи не найдено'=0+64+0=MeSSAGEBOX(cMessageText,nDialogType,cMessageTitle)
keykey label ENTER do view.prgipr inde ifam sel=1for dpone=pone-100key label ENTER do view.prgkey label F1 do rap10.prg.visible=.f.wind itog fields dpone:h="1 Полугодие", fam:h="Фамиия" noed noap wind itogkeyfilt to='Внимание'='Поиск неудачен'=0+64+0=MeSSAGEBOX(cMessageText,nDialogType,cMessageTitle)key
sel=2for dptwo=ptwo-100key label ENTER do view.prgkey label F1 do rap10.prg.visible=.f.wind itog fields dptwo:h="2 Полугодие", fam:h="Фамиия" noed noap wind itogkeyfilt to='Внимание'='Поиск неудачен'=0+64+0=MeSSAGEBOX(cMessageText,nDialogType,cMessageTitle)key
sel=3for dpito=pito-100key label ENTER do view.prgkey label F1 do rap10.prg.visible=.f.wind itog fields dpito:h="Итог", fam:h="Фамиия" noed noap wind itogkeyfilt to='Внимание'='Поиск неудачен'=0+64+0=MeSSAGEBOX(cMessageText,nDialogType,cMessageTitle)keyempt(auro)='Ошибка ввода'='Выберите критерий поиска'=0+64+0=MeSSAGEBOX(cMessageText,nDialogType,cMessageTitle)key label ENTER do view.prgipr inde ifam for dauro=allt(auro)found()=.t.topkey label ENTER do view.prgkey label F1 do rap13.prg.visible=.f.wind itog for dauro=allt(auro) fields dauro:h="Уровень проведения", fam:h="Фамиия" noed noap wind itogkey='Ошибка ввода'='Такой записи не найдено'=0+64+0=MeSSAGEBOX(cMessageText,nDialogType,cMessageTitle)
key.label13.visible=.f..refresh.image1.visible=.f..text1.visible=.f..label1.visible=.f..image2.visible=.f..text2.visible=.f..label2.visible=.f..image3.visible=.f..text3.visible=.f..label3.visible=.f..image4.visible=.f..text4.visible=.f..label4.visible=.f..image5.visible=.f..text5.visible=.f..label5.visible=.f..image6.visible=.f..text6.visible=.f..label6.visible=.f..image7.visible=.f..text7.visible=.f..label7.visible=.f..image8.visible=.f..text8.visible=.f..label8.visible=.f..image9.visible=.f..text9.visible=.f..label9.visible=.f..image10.visible=.f..text10.visible=.f..label10.visible=.f..image11.visible=.f..text11.visible=.f..label11.visible=.f..image12.visible=.f..text12.visible=.f..label12.visible=.f.=0=0=0=0=0=0=0=0=0=0=0=0=0
case
gr=1.label1.visible=.t..label1.caption='Высшее'.label2.visible=.t..label2.caption='Средне-техническое'.label3.visible=.t..label3.caption='Средне-специальное'.image1.visible=.t..text1.visible=.t..image2.visible=.t..text2.visible=.t..image3.visible=.t..text3.visible=.t.=0=0=0topwhile eof()=.f.obr="Высшее"=a+1
elseobr="Средне-техническое"=b+1obr="Средне-специальное"
c=c+1=max(a,b,c)case a=maxis=(b*340)/a=(c*340)/a.image1.width=340.image2.width=hi2.image3.width=hi3b=maxis=(a*340)/b=(c*340)/b.image1.width=hi1.image2.width=328.image3.width=hi3c=maxis=(a*340)/с=(b*340)/с.image1.width=hi1.image2.width=hi2.image3.width=328.refresh
gr=2top.label1.visible=.t..label1.caption='с 1960 по 1970'.label2.visible=.t..label2.caption='с 1970 по 1980'.label3.visible=.t..label3.caption='с 1980 по 1990'.label4.visible=.t..label4.caption='с 1990 по 2000'.label5.visible=.t..label5.caption='2000 и позже'.image1.visible=.t..text1.visible=.t..image2.visible=.t..text2.visible=.t..image3.visible=.t..text3.visible=.t..image4.visible=.t..text4.visible=.t..image5.visible=.t..text5.visible=.t.=0=0=0=0=0while eof()=.f.gpd>=1960 .and. gpd=2000=e+1
=max(a,b,c,d,e)case a=maxis=(b*34