Разработка программы для учета рабочего штата преподавателей
Дипломная работа - Компьютеры, программирование
Другие дипломы по предмету Компьютеры, программирование
;:h="Выплняемые в лицее должносные обязанности",;:h="Результаты контроля образовательного процесса",;:h="Процент успеваемости",;:h="Процент качества",;:h="Активно используемые методы и приемы обучения",;:h="Используемые средства обучения",;:h="Предпоччитаемые организационные формы обучения",;:h="Предпочитаемые виды и методы контроля",;:h="Индивидуальный план педагога" ,;:h="Совмещение",;:h="Где закончен курс повышения квалификации",;:h="Наименование курсов повышенния квалификации",;:h="Наименование специализации",;:h="Дата начала курсов повышения кваллификации",;:h="Дата окончания курсов повышения кваллификации",;:h="Категория",;:h="Разряд категории",;:h="Дата присвоения категории",;:h="Дата присвоения разряда",;:h="Учреждение в котором присвоена категория",;:h="Наименование награды",;:h="Звание",;:h="Место полуения награды",;:h="Дата получения",;:h="Методические КМО",;:h="Авторские статьи",;:h="Уровень проведения",;:h="Наименование обр. учреждения (Доп. Обр.)",;:h="Специализация (Доп. Обр.)",;:h="Дата начала (Доп. Обр.)",;:h="Дата окончания (Доп. Обр.)",;:h="Преподаваемая диiиплина",;:h="Номара групп",;:h="Часов в год",;:h="Часов в 1 полугодие",;:h="Часов во 2 полугодие",;:h="Часов в 1 полугодие (итог)",;:h="Часов во 2 полугодие (итог)",;
dpito:h="Итог"wind viewkeydele on
*proc restor
*push key clea
*defi wind me from 10,10 to 16,60 titl "Восстановление записи" font'roman',9 close zoom
*acti wind me
*@1,5 say 'Вы действительно хотите восстановить'+' '+fam+' из корзины'
*@3,18 get a func "*ht Да хочу;Неочень" defa 1
*read
*if a=1
*reca
*wait wind 'Запись востановлена'
*rele wind me
*endi
*rele wind me
*do rec
Форма Добавленияgfam,gtab,gobr,gnuz,gnfk,gspc,ggpd,gost,gpst,glst,gdbz,gkop,gkus,gkbe,gind,gsro,gofo,gvmk,gipp,kkur,knak,knas,kdan,kdak,kkat,kraz,kdpk,kdpr,kuch,nnag,nzva,ngde,ndat,akmo,aavs,auro,dnou,dcpe,ddna,ddok,pone,ptwo,pito,ipre,ippr,ingr,icvg,ipuc,ivuc,gsme=spac(50)=0=spac(50) =spac(1000) =spac(1000) =spac(1000) =0=0=0 =0=spac(50) =spac(1000) =0=0=spac(150) =spac(1000)=spac(50) =spac(150) =spac(150)=spac(50)=spac(50)
*****кваификация=spac(1000)=spac(1000)=spac(1000)={}={}=spac(10)=0={}={}=spac(1000)
*****награды=spac(50)=spac(50)=spac(50)={}
*****автрские разрабтки=spac(1000)
aavs=spac(1000)=spac(20)
*****дополнительне бразование
dnou=spac(1000)=spac(1000)={}
ddok={}
*****итоговая педагогичческая нагрузка=0
ptwo=0=0
*****итог=spac(50)=spac(50)=spac(25)=0=0=0nButton, nShift, nXCoord, nYCoord.pageframe1.page1.image1.picture='C:\Dutch\ipr v 3.1\ico\Button Studuo\next.bmp'.pageframe1.page1.image2.picture='C:\Dutch\ipr v 3.1\ico\Button Studuo\close.bmp' LPARAMETERS nButton, nShift, nXCoord, nYCoord.pageframe1.page1.image1.picture='C:\Dutch\ipr v 3.1\ico\Button Studuo\next.bmp'.pageframe1.page1.image2.picture='C:\Dutch\ipr v 3.1\ico\Button Studuo\close.bmp'
cMessageTitle='Общие данные'='Ввода общей информации'
nDialogType=0+64+0=MeSSAGEBOX(cMessageText,nDialogType,cMessageTitle) cMessageTitle='Общие данные'='Ввода общей информации'=0+64+0=MeSSAGEBOX(cMessageText,nDialogType,cMessageTitle)for fam=gfamempty(ggpd)=.f. .and. ggpd<1920
cMessageTitle='Ошибка ввода в поле "Год получения диплома"'='Год должен записываться четырехзначным числом'
nDialogType=0+64+0=MeSSAGEBOX(cMessageText,nDialogType,cMessageTitle)found()=.t. or gfam=spac(30)
cMessageTitle='Ошибка ввода в поле "Фамилия"'='Поле фамилия не заполнено,либо такая фамилия уже есть в базе данных'
nDialogType=0+64+0=MeSSAGEBOX(cMessageText,nDialogType,cMessageTitle)
blanfam with gfamtab with gtabobr with gobrnuz with gnuznfk with gnfkspc with gspcgpd with ggpdost with gostpst with gpstlst with glstdbz with gdbzkop with gkopkus with gkuskbe with gkbeind with gindsro with gsroofo with gofovmk with gvmkipp with gippthisform.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
*****restore =spac(50)=0=spac(50) =spac(1000) =spac(1000) =spac(1000) =0=0=0 =0=spac(50) =spac(1000) =0=0=spac(150) =spac(1000)=spac(50) =spac(150) =spac(150)=spac(50)=spac(30)
*****кваификация=spac(1000)=spac(1000)=spac(1000)={}={}=spac(10)=0={}={}=spac(1000)
*****награды=spac(50)=spac(50)=spac(50)={}
*****автрские разрабтки=spac(1000)=spac(1000)
auro=spac(20)
*****дополнительне бразование=spac(1000)=spac(1000)={}={}
*****итоговая педагогичческая нагрузка
pone=0=0=0
*****итог=spac(50)=spac(50)=spac(25)=0=0=0
*****refresh.pageframe1.page1.Embos.visible=.f..pageframe1.page1.refresh.pageframe1.page2.refresh.pageframe1.page3.refresh.pageframe1.page4.refresh.pageframe1.page5.refresh.pageframe1.page6.refresh.pageframe1.page7.refreshempt(gfam)='Ошибка ввода'='Необходимо выбрать фамилию из списка'=0+64+0=MeSSAGEBOX(cMessageText,nDialogType,cMessageTitle)for fam=gfamfound()=.t.form del1='Ошибка ввода'='Ввод фамилии недопустим. Необходимо выбрать ее из списка'=0+64+0
nAnswer=MeSSAGEBOX(cMessageText,nDialogType,cMessageTitle).releasekey label ESC do or.prg
cMessageTitle='Внимание!'='Запись была удалена'
nDialogType=0+64+0=MeSSAGEBOX(cMessageText,nDialogType,cMessageTitle)key
Форма редактированияgfam,gtab,gobr,gnuz,gnfk,gspc,ggpd,gost,gpst,glst,gdbz,gkop,gkus,gkbe,gind,gsro,gofo,gvmk,gipp,kkur,knak,knas,kdan,kdak,kkat,kraz,kdpk,kdpr,kuch,nnag,nzva,ngde,ndat,akmo,aavs,auro,dnou,dcpe,ddna,ddok,pone,ptwo,pito,ipre,ippr,ingr,icvg,ipuc,ivuc,gsme=fam=tab=obr=nuz=nfk=spc=gpd=ost=pst =lst=dbz=kop=kus=kbe=ind=sro=ofo=vmk=ipp=sme
*****кваификация=dkkur=dknak=dknas=dkdan=dkdak=dkkat=dkraz=dkdpk=dkdpr=dkuch
*****награды=dnnag=dnzva=dngde=dndat
*****автрские разрабтки=dakmo
aavs=daavs=dauro
*****дополнительне бразование
dnou=ddnou=ddcpe=dddna=dddok
*****итоговая педагогичческая нагрузка=dpone=dptwo=dpito
*****итог=dipre=dippr=dingr=dicvg=dipuc=divuc
for fam=allt(ggfam)empty(ggfam)=.t.='Ошибка ввода'='Выберите фамилию!'=0+64+0=MeSSAGEBOX(cMessageText,nDialogType,cMessageTitle)
form edit1 empty(ggpd)=.f. .and. ggpd<1920
cMessageTitle='Ошибка ввода в поле "Год получения диплома"'='Год должен записываться четырехзначным числом'
nDialogType=0+64+0=MeSSAGEBOX(cMessageText,nDialogType,cMessageTitle)gfam=spac(30)
cMessageTitle='Ошибка ввода в поле "Фамилия"'='Поле фамилия не заполнено'=0+64+0
nAnswer=MeSSAGEBOX(cMessageText,nDialogType,cMessageTitle)for fam=ggfamblanfam with gfamtab with gtabobr with gobrnuz with gnuznfk with gnfkspc with gspcgpd with ggpdost with gostpst with gpstlst with glstdbz with gdbzkop with gkopkus with gkuskbe with gkbeind with gindsro with gsroofo with gofovmk with gvmkipp with g