- Обработка данных с помощью программ, созданных средствами генератора приложений.

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

наличие мощных команд обработки файлов;

развитые средства ведения диалога (меню, «горячие» клавиши);

удобные средства ввода / редактирования данных;

возможность ускоренного доступа к данным (индексирование);

возможность обеспечить контекстно-чувствительную помощь - такую как инструкции по вводу данных - при нажатии клавиши F1;

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

полные отладочные возможности.

Учитывая возможности описанного языка программирования СУБД FoxPro, экономический характер задачи дипломного проекта, а также традиции Представительства МРОГС в Веневском районе, работающего с использованием СУБД FoxPro для создания программных продуктов, в качестве языка программирования для решения задачи «Формирование баз данных по учёту планов и остатков сырья в цехе» был выбран язык программирования FoxPro.

Описание программы

Инструкция пользователю по работе с программой

Для выполнения программы ввода информации о плане, остатках в цехе, на складе и поступившего сырья, необходимо выполнить следующие действия:

1. Войти в каталог SCENZ и загрузить для работы программу SREDC.ЕХЕ.

2. Появится заставка меню работы «Средняя цена заготовления поступившего сырья» с режимами работы:

1) Ввод планов и остатков в цехе.

2) Ввод остатков на складе и поступившего сырья.

3) Расчет средней цены заготовления.

4) Печать.

5) Выход.

3. При выборе пункта 1 выдается сообщение о вводе месяца. После ввода названия расчетного месяца в текстовом виде нажать клавишу «ENTER».

4. В меню работы удаления информации определить режим работы с базами данных RSC.dbf и PORP.dbf.

5. Ввести данные за расчетный месяц (по цехам) из первичных документов в базы данных, используя окно ввода, которое появится на экране.

5.1. Для работы м окном ввода использовать следующие клавиши:

1) ENTER - ввод;

2) PgDn - экран вниз;

3) PgUp - экран вверх;

4) CTRL/END - выход из режима и сохранение информации;

5) ESC - выход из режима;

6) HOME - установка в начальное поле;

7) BACKTAB + TAB - перемещение по полям.

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

5.2. После ввода информации из последнего документа нажать клавишу <END>.

6. При выборе пункта 2 «Ввод остатков на складе и поступившего сырья» ввести информацию из первичных документов-складов за расчетный месяц.

6.1. При вводе следовать подсказке окна.

6.2. После обработки последнего документа нажать клавишу <END>.

7. Для расчета средней цены заготовления и печати документа выполнить соответствующие пункты меню (3 и 4).

8. Для завершения программы VPOSC.ЕХЕ выполнить режим 5 <Выход>.

9. Распечатать сформированные базы данных в стандартном виде по команде (в MS-DOS):

LIST STRU TO PRINT и LIST ALL TO PRINT.

10. Снять результаты с принтера.

5. Контрольный пример

Для проверки работоспособности программы SREDC.EXE при работе режимов 1 и 2 используются входные базы данных RSC и PORP за предыдущий месяц, описанные в пункте 3.3. в таблице 1 (см. стр.). Структуры баз данных даны в приложении 1.

На основе алгоритма режимов работы программы разработана программа VPOSC.PRG.

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

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

6. Экономическое обоснование программы

Применение персональных компьютеров на различных предприятиях и учреждениях позволяет совершенно по-новому организовать процесс решения множества экономических задач, в том числе и задачу «Формирование баз данных по учёту планов и остатков сырья в цехе». Это приводит к уменьшению административно-управленческих расходов, повышению производительности труда, сокращению сроков выдачи документов, что в свою очередь влияет на эффективность работы предприятия (МРОГС). На решение этой задачи без применения средств вычислительной техники бухгалтерия затрачивает массу дефицитного времени, а компьютер призван обеспечить её разгрузку от рутинной работы.

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

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

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

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

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

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

В результате решения задачи «Формирование баз данных по учёту планов и остатков сырья в цехе» формируются базы данных 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

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

SET STATUS OFF

SET DELETED ON

SET ESCAPE OFF

load colwind1

pv=.F.

DO WHILE.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

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

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

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

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

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

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

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

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

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

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

Страницы: 1, 2, 3