Определение объемов заработка и выпуска продукции
Дипломная работа - Компьютеры, программирование
Другие дипломы по предмету Компьютеры, программирование
HEM 20WINDOW mes2CMONTH(DATE())=05 TO ;
BROWSE TITLE 'ВЕДОМОСТЬ ЗА m МЕСЯЦ';TAB :H='ТАБ',FIO :H='ФАМИЛИИ',NACH :='НАЧИСЛЕННО'
ENDFORPROMPT()='ИЮНЬ '=PROMPT()WINDOW mes2 FROM 2,1 TO 20,73 GROW FLOAT MINIM SYSTE ZOOM COLOR SCHEM 20WINDOW mes2CMONTH(DATE())=06 TO ;
BROWSE TITLE 'ВЕДОМОСТЬ ЗА m МЕСЯЦ';TAB :H='ТАБ',FIO :H='ФАМИЛИИ',NACH :='НАЧИСЛЕННО'
ENDFORPROMPT()='ИЮЛЬ '=PROMPT()WINDOW mes2 FROM 2,1 TO 20,73 GROW FLOAT MINIM SYSTE ZOOM COLOR SCHEM 20WINDOW mes2CMONTH(DATE())=07 TO ;
BROWSE TITLE 'ВЕДОМОСТЬ ЗА m МЕСЯЦ';TAB :H='ТАБ',FIO :H='ФАМИЛИИ',NACH :='НАЧИСЛЕННО'
ENDFORPROMPT()='АВГУСТ '=PROMPT()WINDOW mes2 FROM 2,1 TO 20,73 GROW FLOAT MINIM SYSTE ZOOM COLOR SCHEM 20WINDOW mes2CMONTH(DATE())=08 TO ;
BROWSE TITLE 'ВЕДОМОСТЬ ЗА m МЕСЯЦ';TAB :H='ТАБ',FIO :H='ФАМИЛИИ',NACH :='НАЧИСЛЕННО'
ENDFORPROMPT()='СЕТЯБРЬ '=PROMPT()WINDOW mes2 FROM 2,1 TO 20,73 GROW FLOAT MINIM SYSTE ZOOM COLOR SCHEM 20WINDOW mes2CMONTH(DATE())=09 TO ;
BROWSE TITLE 'ВЕДОМОСТЬ ЗА m МЕСЯЦ';TAB :H='ТАБ',FIO :H='ФАМИЛИИ',NACH :='НАЧИСЛЕННО'
ENDFORPROMPT()='ОКТЯБРЬ '=PROMPT()WINDOW mes2 FROM 2,1 TO 20,73 GROW FLOAT MINIM SYSTE ZOOM COLOR SCHEM 20WINDOW mes2CMONTH(DATE())=10 TO ;
BROWSE TITLE 'ВЕДОМОСТЬ ЗА m МЕСЯЦ';TAB :H='ТАБ',FIO :H='ФАМИЛИИ',NACH :='НАЧИСЛЕННО'
ENDFORPROMPT()='НОЯБРЬ '=PROMPT()WINDOW mes2 FROM 2,1 TO 20,73 GROW FLOAT MINIM SYSTE ZOOM COLOR SCHEM 20WINDOW mes2CMONTH(DATE())=11 TO ;
BROWSE TITLE 'ВЕДОМОСТЬ ЗА m МЕСЯЦ';TAB :H='ТАБ',FIO :H='ФАМИЛИИ',NACH :='НАЧИСЛЕННО'
ENDFORPROMPT()='ДЕКАБРЬ '=PROMPT()WINDOW mes2 FROM 2,1 TO 20,73 GROW FLOAT MINIM SYSTE ZOOM COLOR SCHEM 20WINDOW mes2CMONTH(DATE())=12 TO ;
BROWSE TITLE 'ВЕДОМОСТЬ ЗА m МЕСЯЦ';TAB :H='ТАБ',FIO :H='ФАМИЛИИ',NACH :='НАЧИСЛЕННО'
ENDFOR
DEACTIVATE WINDOW mes2period{} TO n,kWINDOW per FROM 2,1 TO 20,73 GROW FLOAT MINIM SYSTE ZOOM COLOR SCHEM 20WINDOW per
@ 1,1 SAY 'С КАКОГО' GET n PICTURE ''
@ 1,2 SAY 'ПО КАКОУ' GET k PICTURE ''AUDI
??????????????SCAN FOR BETWEEN( n k )
ENDSCANTITLE 'ВЫПУСК ДЕТАЛЕЙ ЗА ПЕРИОД С n ПО k';NAME :H='НАИМЕНОВАНИЕ',K-VO :H='КОЛИЧЕСТВО'
*DEFINE POPUP dann SHADBAR 1 OF dann PROMPT'\<ДОПОЛНЕНИЕ'KEY Ctrl+N,'^N'BAR 2 OF dann PROMPT'\<КОРРЕКЦИЯ 'BAR 3 OF dann PROMPT'\<УДАЛЕНИЕ'KEY Ctrl+T,'^T'BAR 4 OF dann PROMPT'\<СОХРАНЕНИЕ'BAR 5 OF dann PROMPT'\<ОЧИСТКА БД'BAR 1 OF dann DO dopolBAR 2 OF dann ACTIVATE POPUPBAR 3 OF dann DO deletedBAR 4 OF dann DOBAR 5 OF dann DOPOPUP danndopolWINDOW dop FROM 10,10 TO 40,40 TITLE'ДОПОЛНЕНИЕ ' GROW FLOAT MINIM SYSTE ZOOM COLOR SCHEM 20WINDOW dopWINDOW dopwindow poisk shado from 8,45 to 10,73 title'Укажите ключ'zoom grow float system close color schem(2)window wipysk shado from 6,2 to 10,77 title'Выпуск деталей'zoom grow float system close color schem(3)window of memo to wipyskwindow f1 shado from 1,1 to 12,50 title'Выход-любая клавиша'zoom grow float system close color schem(3)popup poisk from 5,14 title'Выбор критерия поиска'key F3 shadowbar1 of poisk prompt'По таб номеру'bar2 of poisk prompt'По дате'bar3 of poisk prompt'По шифру детали'bar4 of poisk prompt'По выработке'bar5 of poisk prompt'По ФИО'bar6 of poisk prompt'По наименованию'bar7 of poisk prompt'По расценке'selection popup poisk do poiskkey label ctrl+p do prinkey label ctrl+PgUp go topkey label ctrl+PgDn go bottomkey label ctrl+w do configkey label f7 do f7key label f1 do f1window 'Загр. окно:'+chr(13)+'в станд.виде-Esc'+chr(13)+'в предыд.виде-любая клав.'lastkey()=27resource off'' to s,nsresource on='^w-сохр'
ns='^q-не сохр'
*z='F3-поиск ^n-доп. ^t-удал ^p-печать^pgup-^pgdn-'
PROCEDURE poiskKEY CLEAR=RECNO()=''CASEPROMPT()='По ФИО'ORDER TO FIOWINDO poisk
@ 1,1 SAY 'ВВЕДИТЕ ФАМИЛИЮ' GET a PICTURE '@!'DEFAU SPACE(20)
READ=ALLTRIM(a)
d=a='ПОИСК ПО ФАМИЛИИ'
CASE PROMPT()='По таб номеру'ORDER TO TABWINDO poisk
@ 1,1 SAY 'ВВЕДИТЕ ТАБ N' GET a PICTURE '999'DEFAU 0=srt(a,3)
srt='ПОИСК ПО ТАБЕЛЮ'
CASE PROMPT()='По дате'ORDER TO DATEWINDO poisk={}
@ 1,1 SAY 'ВВЕДИТЕ ТАБ N' GET a PICTURE ''
READ
?????????????? d=='ПОИСК ПО ДАТЕ'
CASE PROMPT()='По шифру детали'ORDER TO SHRIFWINDO poisk
@ 1,1 SAY 'ВВЕДИТЕ N ДЕТАЛИ' GET a PICTURE '999'DEFAU 0
???????????? d=srt(a,3)
srt='ПОИСК ПО ШРИФТУ'
CASE PROMPT()='По выработке'ORDER TO VIRABWINDO poisk
@ 1,1 SAY 'ВВЕДИТЕ N ДЕТАЛИ' GET a PICTURE '999'DEFAU 0
???????????? d=srt(a,3)
srt='ПОИСК ПО ШРИФТУ'MENU manu
**---------Программа POISK.PRG---------
**Программа осуществляет возможность поиска. В случае удачи запись выводится программой
**PRIN в дополнительном окне, иначе выводится сообщение об
**не удачном поиске.
set talk off=space(10)
***********************************WINDOW PSK1 from 10,12 to 14,66 DOUBLE CLOSE SHADOW color scheme 5 TITLE ' INPUT DATE FOR SEARCH 'WINDOW PSK2 from 5,18 to 14,64 DOUBLE CLOSE SHADOW color g+/n TITLE 'RESULT OF SEARCH '
************************************WINDOW PSK1
fio2=" "
@ 1,1 say 'Введите,пожалуйста,фамилию ' get fio2WINDOW PSK1
*DO TRANSLATION_OF_SURNAMESfor fio=fio2fio<>fio2cursor offWINDOW PSK2
@ 3,0 say " В БАЗЕ ДАННЫХ ТАКАЯ ФАМИЛИЯ" color w+/n
@ 3,29 say "ОТСУТСВУЕТ" color w+*/ncursor onWINDOW PSK2WINDOW PSK1 FROM 14,1 TO 23,78 color scheme 5WINDOW PSK2CURSOR OFFSEMPSEMP
@ 0,0 say " Табельный номер: ¦"+padl(tab,18)
@ 1,0 say " Фамилия Имя Отчество: ¦"+padl(fio,18)
@ 2,0 say " Дата рождения: ¦"+padl(gr,18)
*@ 3,0 say " Семейное положение: ¦"+padl(sem2,18)
@ 3,0 say " Количество детей: ¦"+padl(deti,18)
@ 4,0 say " Размер оклада: ¦"+padl(oklad,18)+" $"
@ 5,0 say " Занимаемая должность: ¦"+padl(dol,18)
@ 6,0 say " Удерживаемый налог: ¦"+padl(b.nal,18)+" $"
readCURSOR ONWINDOW PSK2
**************************************
*PROCEDURE TRANSLATION_OF_SURNAMES
*DO CASE
* CASE fio2="Абакарова Р."
* fio2="Abukarova R."
* CASE fio2="Абдулаева Э."
* fio2="Abdulaeva E."
* OTHERWISE fio2
*ENDCASE
*RETURN
****************************************talk off=space(10)
***********************************WINDOW PSK1 from 10,19 to 14,60 DOUBLE CLOSE SHADOW color scheme 5 TITLE ' ВВЕДИТЕ ТАБ НОМЕР ДЛЯ ПОИСКА'WINDOW PSK2 from 5,18 to 14,64 DOUBLE CLOSE SHADOW color g+/n TITLE 'RESULT OF SEARCH '
************************************WINDOW PSK1
tab2='00'
@ 1,1 say 'Введите,пожалуйста,табельный номер ' get tab2
readWINDOW PSK1tab2found()
*locate for tab=tab2
*if tab<>tab2WINDOW PSK1 FROM 14,1 TO 23,78 color scheme 5WINDOW PSK2SEMPSEMP
@ 0,0 say " Табельный номер: ¦"+padl(tab,18)
@ 1,0 say " Фамилия Имя Отчество: ¦"+padl(fio,18)
@ 2,0 say " Дата рождения: ¦"+padl(gr,18)
*@ 3,0 say " Семейное положение: ¦"+padl(sem,1)
@ 3,0 say " Количество детей: ¦"+padl(deti,18)
@ 4,0 say " Размер оклада: ¦"+padl(oklad,18)+" $"
@ 5,0 say " Занимаемая должность: ¦"+padl(dol,18)
@ 6,0 say " Удерживаемый налог: ¦"+padl(b.nal,18)+" $"
readWINDOW PSK2WINDOW PSK2cursor off
@ 3,3 say "В БАЗЕ ДАННЫХ ТАКОЙ ТАБЕЛЬНЫЙ НОМЕР" color w+/n
@ 4,15 say "ОТСУТСВУЕТ" color w+*/ncursor onWINDOW PSK2
endif
**---------Программа FLT_FIO---------**talk off
***********************************WINDOW FLT1 from 10,12 to 12,61 CLOSE SHADOW color scheme 5 TITLE ' INPUT DATE FOR SEARCH '
************************************WINDOW FLT1=space(10)
@ 0,1 say 'Введите,пожалуйста,ключ фильтрации:' get kluchWINDOW FLT1=ALLTRIM(kluch)ZAMENAFILTER TO fio=kluch
*************************************window WIW&&fields tab :h='Taбельный номер : ',fio :h='Фамилия, Имя, Отчество: ',gr :h='Год рождения : ',sm=IIF(sem='Н','not married',IIF(sem='Б','married','divorced')):h='Семейное полож?/p>