Смекни!
smekni.com

Формирование баз данных по учёту планов и остатков сырья в цехе (FoxPro) (стр. 4 из 4)

Эффективность – мера того, на сколько экономно используются ресурсы при выполнении поставленной задачи.

Наиболее распространенным методом определения экономической эффективности является метод сравнения. Его сущность заключается в сопоставлении трудоемкости и себестоимости выполненных работ с аналогичными показателями предыдущих периодов.

Выделяются два вида эффективности: прямая и косвенная.

Основным показателем прямой эффективности является снижением стоимостных и трудовых затрат на информационные работы. При решении задачи работникам бухгалтерии приходилось бы вручную обрабатывать поступающие оперативные данные.

При корректировке информации вручную довольно не просто найти требуемые данные по каждому наименованию сырья, цеху, числовым характеристикам, описывающим планы и потребности каждого подразделения и внести необходимые изменения, так как на это уйдёт много времени и к тому же при ёе выполнении легко допустить случайную ошибку, а в анализе и принятии решения о необходимости и объеме заказов на поставку сырья на следующий месяц это недопустимо.

Входными данными для данной задачи являются базы данных, которые содержат информацию для расчета средней цены заготовки сырья и информацию о планах, остатках, и потребностях сырья за предыдущий месяц для каждого цеха по каждому наименованию.

В результате решения задачи «Формирование баз данных по учёту планов и остатков сырья в цехе» формируются базы данных RSC, PORP, содержащие информацию о потребности в сырье, остатках сырья на складах и в цехе. Вследствие того, что формируемые базы данных хранятся на жестком диске, все допущенные ошибки могут быть легко исправлены, что и реализует один из режимов работы программы. С целью дополнительного контроля правильности ввода существует возможность получить контрольные распечатки баз данных.

Автоматизация данной задачи позволяет:

упорядочить большие объёмы информации для ее последующего удобного использования;

уменьшить затраты времени на поиск необходимых данных, внесения различных изменений, обработку данных, оформления выходных документов;

исключить ошибки;

формировать выходные документы в удобной для пользователя форме.

Это приводит к уменьшению административно-управленческих расходов, повышению производительности труда, сокращению сроков выдачи документов, что в свою очередь влияет на эффективность предприятия.

Косвенный эффект позволяет оценить влияние задачи на различные стороны деятельности предприятия. Проявляется он через качественные факторы. Экономическая эффективность задачи «Формирование баз данных по учёту планов и остатков сырья в цехе» закладывается уже при разработке проекта. Режимы работы выбираются с таким расчетом, чтобы в своей совокупности они обеспечивали максимальную эффективность задачи.

При этом ускоряется не только процесс поиска и обработки данных, но что немаловажно, повышается контроль за качеством выполненной работы.


Приложение 1

Входнаяинформация

Structure for database: C:\SCENZ\PORP.DBF

Number of data records: 71

Date of last update: 28.05.03

Code Page: 866

Field Field Name Type Width Dec Index Collate

1 MES Character 8

2 GR Numeric 2

3 KOD Character 3

4 NCEX Character 12

5 NSR Character 19

6 ISM Character 2

7 NATUR Numeric 4 1

8 USLST Numeric 3

9 PLAN Numeric 6

10 RASN Numeric 10 5

11 POTR Numeric 8 1

12 OSTC Numeric 12 3

13 CENC Numeric 15 3

14 OST1 Numeric 12 3

15 CENC1 Numeric 15 3

** Total ** 132

Structure for database: C:\SCENZ\RSC.DBF

Number of data records: 43

Date of last update: 28.05.03

Code Page: 866

Field Field Name Type Width Dec Index Collate

1 MES Character 8

2 GR Numeric 2

3 NSR Character 19

4 ISM Character 2

5 POTR Numeric 8 1

6 OSTC Numeric 12 3

7 CENC Numeric 12 2

8 OSTSKL Numeric 10 3

9 CENSKL Numeric 15 2

10 SUM Numeric 10

** Total ** 99

PORP.DBF


RSC.DBF


Приложение 2

Приложение 3

Текст программы

**** SREDC

SET date german

SET TALK OFF

SET scoreboard off &&невыводитьсостояние NumLock, CapsLock и Insert

SETSAFETYOFF && Файл можно перезаписывать

SET STATUS OFF

SET DELETED ON

SET ESCAPE OFF

load colwind1

pv=.F.

DOWHILE.T.

? SYS(2002) && включение / выключение курсора

DO rbox

SET COLOR TO +w/b

@ 8,19,15,57 box' '

SET COLOR TO n/w,+w/br

@ 9,20 say 'средняя цена заготовления пост. сырья'

@ 10,20 prompt '1. ввод планов и остатков в цехе'

@ 11,20 prompt '2. ввод ост. на скл. и поступивш. сырья '

@ 12,20 prompt '3. расчет цены заготовления'

@ 13,20 prompt '4. печать'

@ 14,20 prompt '5. выход'

menu to r

DO case

CASE r=1

SET COLOR TO +w/b

DO vdat

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

IFmes#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