Определение объемов заработка и выпуска продукции
Дипломная работа - Компьютеры, программирование
Другие дипломы по предмету Компьютеры, программирование
µние : ',deti :h='Количество детей : ',oklad:h='Оклад : ', zar :h='Заработная плата : ',dol :h='Должность : ',b.nal:h='Налог за бездетность : ' nomodify nodelete noappendwindow WIW
**********************************************ZAMENA=' '=SUBSTR(kluch,1,1)CASEk="a" k="A"k="b" k="B"k="c" k="C"k="d" k="D"k="e" k="E"k="f" k="F"k="g" k="G"k="h" k="H"k="i" k="I"k="j" k="J"k="k" k="K"k="l" k="L"k="m" k="M"k="n" k="N"k="o" k="O"k="p" k="P"k="q" k="Q"k="r" k="R"k="s" k="S"k="t" k="T"k="u" k="U"k="v" k="V"k="w" k="W"k="x" k="X"k="y" k="Y"k="z" k="Z"k=STUFF(kluch,1,1,k)
RETURN
**********************************************
**---------Программа FLT_OKL1 ---------**talk off
***********************************WINDOW FLT1 from 10,12 to 12,64 DOUBLE CLOSE SHADOW color scheme 5 TITLE ' INPUT DATE FOR SEARCH '
************************************WINDOW FLT1
kl=000.0
@ 0,1 say 'Введите,пожалуйста,ключ фильтрации:' get kl
readWINDOW FLT1FILTER TO oklad=kl
*************************************window WIWfields tab :h='Taб номер: ',fio :h='Фамилия : ', gr :h='Год рождения: ',sem :h='Сем пол: ', deti :h='Дети: ',oklad :h='Оклад : ', zar :h='Зар плата: ',dol :h='Должность: ',b.nal:h='Налог за бездетность: ' nomodify nodelete noappendwindow WIW
RETURN
**---------Программа FLT_OKL2 ---------**talk off
***********************************WINDOW FLT1 from 10,12 to 12,64 DOUBLE CLOSE SHADOW color scheme 5 TITLE ' INPUT DATE FOR SEARCH '
************************************WINDOW FLT1
kl=000.0
@ 0,1 say 'Введите,пожалуйста,ключ фильтрации:' get kl
readWINDOW FLT1FILTER TO oklad>=kl
*************************************window WIWfields tab :h='Taб номер: ',fio :h='Фамилия : ', gr :h='Год рождения: ',sem :h='Сем пол: ', deti :h='Дети: ',oklad :h='Оклад : ', zar :h='Зар плата: ',dol :h='Должность: ',b.nal:h='Налог за бездетность: ' nomodify nodelete noappendwindow WIW
RETURN
**********************************************
**---------Программа FLT_OKL3 ---------**
set talk off
***********************************WINDOW FLT1 from 10,12 to 12,64 DOUBLE CLOSE SHADOW;scheme 5 TITLE ' INPUT DATE FOR SEARCH '
************************************WINDOW FLT1
kl=000.0
@ 0,1 say 'Введите,пожалуйста,ключ фильтрации:' get kl
readWINDOW FLT1FILTER TO oklad<=kl
*************************************window WIW;;:h='Taбельный номер : ',;
fio :h='Фамилия, Имя, Отчество: ',;:h='Год рождения: ',;
sm=IIF(sem='Н','not married',IIF(sem='Б','married','divorced'));
:h='Семейное положение: ',;:h='Количество детей: ',;
oklad:h='Оклад: ',;
zar :h='Заработная плата: ',;:h='Должность: ',;.nal:h='Налог за бездетность: ' ;
redit in window WIW partition 12 lpartition ;nomodify nodelete noappendwindow WIW
**********************************************talk off
*DEFINE POPUP mform FROM 1,30 SHADOW
*DEFINE BAR 1 OF mform PROMPT 'Ведомость по з/п';
* message 'Просмотр Базы Данных на членов бригады' COLOR,,,,w+/r
*DEFINE BAR 2 OF mform PROMPT 'Выпуск продукции';
* message 'Ввод новой записи' COLOR,,,,w+/r
*DEFINE BAR 3 OF mform PROMPT 'Отчет';*
* message 'Вывод Базы Данных на членов бригады в файл "brig.dbf"' COLOR,,,,w+/r
ON SELECTION BAR 1 OF mform DO z.pSELECTION BAR 2 OF mform DO viraSELECTION BAR 3 OF mdann DO otch
*acti popup mformz.pfields tab :h='Taб номер: ',fio :h='Фамилия : ', oklad :h='Оклад : ', zar :h='Зар плата: ',dol :h='Должность: ',b.nal:h='Налог за бездетность: ' nomodify nodelete noappendvirafields tab :h='Taб номер: ',fio :h='Фамилия : ', oklad :h='Оклад : ', zar :h='Зар плата: ',dol :h='Должность: ',b.nal:h='Налог за бездетность: ' nomodify nodelete noappendfields tab :h='Taб номер: ',fio :h='Фамилия : ', oklad :h='Оклад : ', zar :h='Зар плата: ',dol :h='Должность: ',b.nal:h='Налог за бездетность: ' nomodify nodelete noappendtalk offdate GERMANmacrosclock onBRIG508 IN A INDEX brig508.idx &&audi2.dbf IN A INDEX audi2.cdxNAL508 IN B INDEX nal508.idx &&audi.dbf IN b INDEX audi.idx
*USE audimes IN c INDEX audimes.idx
*USE audinal IN d INDEX audinal.idxARELATION TO TAB INTO B
*SET RELATION TO n_mes INTO C
*SET RELATION TO TAB INTO D_min=83
*obl=a.nachis-(z_min*a.deti)
* REPLACE nal WITH d.podh+d.pf+d.med+d.det,;
* nachis WITH nach*(c.chislo-progul),;
* zarp WITH nachis-nal,;a(10)WINDOW WW from 3,5 to 16,73 SHADOW color scheme 5 TITLE ' Окно ввода 'WINDOW WIW from 3,5 to 14,73 SHADOW color scheme 7 TITLE ' Окно вывода 'WINDOW AR from 3,8 to 17,70 CLOSE SHADOW color scheme 7 TITLE ' About Programm 'WINDOW MAIN FROM 0,0 TO 24,79 TITLE ' WITH DATABASES ' NOCLOSE FILL '-' COLOR bg/n
** Определение главного BAR-меню MENU0 ****MENU menu0 SHADOW colorPAD dann OF menu0 PROMPT 'ДАННЫЕ'PAD deistv OF menu0 PROMPT 'ДЕЙСТВИЯ'PAD form OF menu0 PROMPT 'ФОРМЫ'PAD poi OF menu0 PROMPT 'СЕРВИС'PAD vihod OF menu0 PROMPT 'ВЫХОД'SELECTION PAD dann OF menu0 ACTIVATE POPUP mdannSELECTION PAD deistv OF menu0 ACTIVATE POPUP mdeistvSELECTION PAD vihod OF menu0 ACTIVATE POPUP mvihodSELECTION PAD form OF menu0 ACTIVATE POPUP mformSELECTION PAD poi OF menu0 ACTIVATE POPUP mpoiskPOPUP mdann FROM 1,0 SHADOWBAR 1 OF mdann PROMPT 'Посмотр данных';
message 'Просмотр Базы Данных на членов бригады' COLOR,,,,w+/r
DEFINE BAR 2 OF mdann PROMPT 'Ввод данных';'Ввод новой записи' COLOR,,,,w+/rBAR 3 OF mdann PROMPT 'Вывод данных в файл';
message 'Вывод Базы Данных на членов бригады в файл "brig.dbf"' COLOR,,,,w+/r
ON SELECTION BAR 1 OF mdann DO BRSELECTION BAR 2 OF mdann DO WWOD with 1SELECTION BAR 3 OF mdann DO CREATF
***********************************POPUP mpoisk FROM 2,33 SHADOWBAR 1 OF mpoisk PROMPT 'По номеру';
message 'Поиск члена бригады по табельному номеру' COLOR,,,,w+/r
DEFINE BAR 2 OF mpoisk PROMPT 'По фамилии';
message 'Поиск члена бригады по фамилии' COLOR,,,,w+/r
ON SELECTION BAR 1 OF mpoisk DO poisk_n.prgSELECTION BAR 2 OF mpoisk DO poisk_f.prg
**************************************POPUP mfiltr FROM 3,33 SHADOWBAR 1 OF mfiltr PROMPT 'По фамилии';
message 'Фильтрация базы данных по фамилии' COLOR,,,,w+/r
DEFINE BAR 2 OF mfiltr PROMPT 'По окладу _';
message 'Фильтрация базы данных по окладу' COLOR,,,,w+/r
ON SELECTION BAR 1 OF mfiltr DO flt_fio.prgSELECTION BAR 2 OF mfiltr ACTIVATE POPUP mflt2
**************************************POPUP mdeistv FROM 1,9 SHADOWBAR 1 OF mdeistv PROMPT 'Поиск данных _';
message 'Поиск записи на члена бригады' COLOR,,,,w+/r
DEFINE BAR 2 OF mdeistv PROMPT 'Фильтрация данных _';
message 'Фильтрация записей в Базе Данных' COLOR,,,,w+/r
DEFINE BAR 3 OF mdeistv PROMPT 'Редактирование данных ';
message 'Редактирование выбранной записи из Базы Данных' COLOR,,,,w+/r
DEFINE BAR 4 OF mdeistv PROMPT 'Печать данных ';
message 'Печать выбранной записи из Базы Данных' COLOR,,,,w+/r
ON SELECTION BAR 1 OF mdeistv ACTIVATE POPUP mpoiskSELECTION BAR 2 OF mdeistv ACTIVATE POPUP mfiltrSELECTION BAR 3 OF mdeistv DO WWOD with 2SELECTION BAR 4 OF mdeistv DO PECHAT.PRG
**************************************POPUP mform FROM 1,20 SHADOWBAR 1 OF mform PROMPT 'Ведомость по з/п';
message 'Просмотр Ведомости по з/п на членов бригады' COLOR,,,,w+/r
DEFINE BAR 2 OF mform PROMPT 'Выпуск продукции';
message 'Просмотр ведомости по выпуску продукции' COLOR,,,,w+/r
DEFINE BAR 3 OF mform PROMPT 'Отчет';
message 'Вывод отчетов по з/п и выпуску продукции ' COLOR,,,,w+/r
ON SELECTION POPUP mform DO form.prg
*acti popup mformPOPUP mflt2 FROM 5,47 SHADOWBAR 1 OF mflt2 PROMPT '= заданному окладу';
message