49376 (588654), страница 4

Просмтор этого файла доступен только зарегистрированным пользователям. Но у нас супер быстрая регистрация: достаточно только электронной почты!

Текст из файла (страница 4)

DO vposc

CASE r=2

SET COLOR TO +w/b

DO voskl

CASE r=3

SET COLOR TO +w/b

DO rasc

CASE r=4

SET COLOR TO +w/b

DO pechat

CASE r=5

SET COLOR to+w/b

CLOSE ALL

? SYS (2002,1)

QUIT

ENDCASE

enddo

PROCEDURE vdat

CLOSE ALL

CLEAR

DO WHILE.T.

SELECT 2

USE rsc INDEX gr

SELECT 1

USE porp INDEX gr

mes1=mes

@ 1,10 say «введите месяц расчета» get mes1 pict 'xxxxxxxx'

? SYS (2002,1)

READ

DO vix

IF pv

CLEAR

return to master

ENDIF

CLEAR

IF mes#mes1

@ 9,10 say 'дата нового месяца. удалить информацию за предыдущий месяц'

@ 10,10 say 'дата предыдущего месяца'

@ 10,35 say mes pict'xxxxxxxx'

@ 11,19,13,60 box

SET COLOR TO n/w,+w/br

@ 12,20 prompt ' да '

@ 12,40 prompt ' нет '

menu to r

IF r=2

SET COLOR TO +w/b

CLEAR

? SYS (2002,1)

LOOP

ENDIF

IF r=1

DO WHILE.not.sof()

REPLACE mes WITH mes1, plan WITH 0, potr with o

*repl mes with mes1, potr with 0

REPLACE ostc WITH ostc1, cenc WITH cenc1

SKIP

ENDDO

SELECT 2

DO while.not. EOF()

REPLACE ostc1 WITH 0, cenc1 wiyh 0, kv WITH 0, sym1 WITH 0, src WITH 0, rasx WITH 0, srcrac WITH 0, cens WITH 0

SKIP

ENDDO

SELECT 1

ENDIF

ENDIF

EXIT

ENDDO

CLEAR

SET COLOR TO +w/b

return

procedure VPOSC

CLEAR

GO top

@ 24,0 say 'ENTER – ввод PgDn-экран вниз PgUp – экран вверх Ctrl/ End – выход / сохр Esc – выход Home – нач поля'

DEFINE WINDOW okn1;

from 0,0;

TO 23,79;

COLOR SCHEME 10

ACTIVATE WINDOW okn1

KEYBOARD '{Backtab}'+'{tab}'

BROWSE TITLE 'ввод данных для расчета;'

field nceh:h='наим. цеха':w=.f.;

nsr:h='наим. сырья':w=.F.;

ism:h='изм. ':W=.f.;

kod:h='код';

plan:h='план';

rasn:h='расх. ном.';

ostc:h='ост. в цехе';

cenc:h='цена';

lock 3:

color scheme 10

DEACTIVATE WINDOW okn1

PROCEDURE voskl

CLOSE ALL

CLEAR

@ 24,0 say 'Enter-ввод PgDn-экран вниз PgUp – экран вверх Ctrl/End – выход /сохр Esc – вых Home – нач. поля'

USE it INDEX iitog

DEFINE WINDOW okn1;

from 0,0;

TO 23,79;

COLOR SCHEME 10

ACTIVATE WINDOW okn1

KEYBOARD '{Backtab}'+'{tab}'

BROWSE TITLE 'ввод данных для расчетиа';

FIELDS nsr:h='наим. сырья': W=.f.;

ism:h='изм.': W=.f.;

ostckl:h='ост. на скл.';

censkl:h='цена';

kv:h='постю кол.';

src:h='сред. цена пост.';

rasx:h='расх. достав.';

LOCK 2; &&с блокировкой записи

COLOR SCHEME 10

DEACTIVATE WINDOW okn1

Список литературы

1. Автоматизированное рабочее место в системе управления предприятием. Сборник научных трудов, – Ленинград, 1989.

2. В.В. Шураков. Автоматизированное рабочее место для статической обработки данных, 1990.

3. Глушаков С.В., Ломотько Д.В. Базы данных. – Харьков: Издательство «Фолио», 2001

4. Данилевский Ю.Г., Петухов ИА., Шибанов B.C. Информационная технология в промышленности. Л.: Машиностроение, 1988, 284 с.

5. Информационные системы в экономике. Под ред. профессора В.В. Дипа, М.: Финансы и статистика, 1996, 270 с.

6. Козлова Е.П., Парашутин КВ., Бабченко Т.Н., Галанина Е.Н. Бухгалтерский учет – М.: Финансы и статистика, 1996, 276 с.

7. П.И. Камышанов. Практическое пособие по бухгалтерскому учету: – Издание третье, дополненное и переработанное – Москва: ООО «МЕДпресс»; – Элиста: АПП «Джангар», 1998. – 528 с.

8. Попов А.А. Программирование в среде СУБД FoxPro 2.0. Построение систем обработки данных. – М.: Издательство Март, 1996

Характеристики

Список файлов ВКР