Определение объемов заработка и выпуска продукции
Дипломная работа - Компьютеры, программирование
Другие дипломы по предмету Компьютеры, программирование
'Вывод списка членов бригады имеющих данный оклад' COLOR,,,,w+/r
DEFINE BAR 2 OF mflt2 PROMPT '>= заданного оклада';
message 'Вывод списка членов бригады имеющих оклад больший чем данный' COLOR,,,,w+/r
DEFINE BAR 3 OF mflt2 PROMPT '<= заданного оклада';
message 'Вывод списка членов бригады имеющих оклад меньший чем данный' COLOR,,,,w+/r
ON SELECTION BAR 1 OF mflt2 DO flt_okl1.prgSELECTION BAR 2 OF mflt2 DO flt_okl2.prgSELECTION BAR 3 OF mflt2 DO flt_okl3.prg
**************************************POPUP mvihod FROM 1,37 SHADOWBAR 1 OF mvihod PROMPT 'Выход в DOS';'Выход в OS DOS' COLOR,,,,w+/rBAR 2 OF mvihod PROMPT 'Выход в FoxPro';'Выход в оболочку FoxPro' COLOR,,,,w+/rSELECTION BAR 1 OF mvihod QUITSELECTION BAR 2 OF mvihod Do conec
** Основная программа ***WINDOW MAINMENU menu0window WW,WIWMENU menu0WINDOW MAINclock offBRwindow WIWfields tab :h='Taб номер: ',fio :h='Фамилия : ', gr :h='Год рождения: ',sem :h='Сем пол: ', deti :h='Дети: ',oklad :h='Оклад : ', zar :h='Зар плата: ',dol :h='Должность: ',b.nal:h='Налог за бездетность: ' nomodify nodelete noappendwindow WIWWWODvidreccount()=0=1vid=1(1)=space(6)(2)=space(20)(3)={}(4)=' '(5)=0(6)=0(7)=space(20)
a(8)='Введите данные о новом сотрудн'
elsebrFIELDS tab,fio,oklad to a
a(8)='Произведите необходимые преоброзования данных'
endifREADLNa(1)#' 'avid=1blankFROM a FIELDS a.name,kod,predl,cenabvid=1blank
*replace kod with a.kodnal with iif(a.deti=0,a.oklad*0.02,IIf(a.deti=1,;.oklad*0.01,IIF(a.deti=2,a.oklad*0.005,0)))azarpl with a.oklad-b.nal
* if lastkey()!=27
*select a
*dELETE FOR TAB=0
* PACK
* APPEND BLANK
* gather memvar
* SELECT B
* DELETE FOR TAB=0
* PACK
* APPEND BLANK
* * IIF(M.DETI=0,M.OKLAD*0.02,IIF(M.DETI=1,M.OKLAD*0.01,;
* IIF(M.DETI=2,M.OKLAD*0.005,M.OKLAD))),;
* d.podoh WITH
ENDIF
**********************************
** Ввод/изменение данных *********
Procedure readlnwindow WW
@ 1,0 say padc(a(8),WCOLS( )) COLOR SCHEME 5
@ 2,4 say 'Код товара : ' get a(1) valid a(1)#' ';a(1) message ' Введите шифр товара'
@ 3,4 say 'Наименование товара :' get a(2);
default a(2) valid a(2)#' ';
message ' Введите наимен товара: '
*@ 4,4 say 'Год рождения: ' get a(3) range DATE()-80*365,DATE()-16*365;a(3) valid a(3)#{};
message ' Введите год рождения члена бригады '
*@ 5,4 say 'Семейное положение : ' get a(4) FUNCTION 'M Б,Н,Р';a(4);
message 'Н-не в браке, Р-разведен(а),Б-в браке. Выбор-кл. Пробел'
@ 4,4 say 'Цена : ' get a(5) RANGE 0,15;
default a(5) message ' Введите цену единицы товара '
@ 5,4 say 'Предлогаемое к-во : ' get a(6) valid a(6)#0;
default a(6) message ' Введите значение оклада члена бригады '
*@ 8,4 say 'Должность : ' get a(7);a(7) valid a(7)#space(20);
message ' Введите должность члена бригады '
readwindow WW
return
****************************************
Процедура копирования активного файла БД в другой
PROCEDURE CREATFWINDOW mes2 from 10,20 to 12,63 color g+/nTO audi_01bTO audi2_01cTO audimes_01dTO audinal_01aaudi_01 IN abaudi2_01caudimes_01dTO audinal_01WITH a TO audi FOR kod=a.kod FIELDS kod,a.name,a.predl,a.cenasklad_01 index sklad_01 in apokyp_01 index pokyp_01 in bprodav_01 index prodav_01arelation to kod into bWINDOW mes2cursor off
@ 0,1 say "Output data in file is made"
@ 0,29 say "successfully" color g+*/ncursor onWINDOW mes2
return
***********************************
** Вывод авторства программы
PROCEDURE AR_PRGWINDOW AR
close all*USE AUDI.DBFUSE C:\ARSEN\AUDI2.DBF in aUSE C:\ARSEN\AUDIMES.DBF in bsele aset rela to n_mes into bBrowse fields b.mes :h='месяц'deti :h='дети'
Список использованной литературы
А. В. Попов. FoxPro 2.5/2.6.2000г.
В.Н.Четвериков, Г.И.Ревунков. Базы и банки данных,1987г.
М.И.Евдокимов. Экономическая информатика.1996г.
С.М.Диго.Проектирование баз данных,1988г.
П.С.Безруких. Бухгалтерский учет.1989г.