48641 (588588), страница 4

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

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

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

Показателями прямой экономической эффективности являются:

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

относительное снижение трудовых и стоимостных затрат, показывающее, какая часть затрат при предполагаемом варианте экономится;

индекс роста производительности труда, показывает, во сколько раз произошло изменение.

Косвенная эффективность имеет скрытую форму и проявляется в улучшении качества управления объектом, может быть определена экспертным путем.

Косвенная эффективность позволяет оценить влияние задачи на различные стороны деятельности через качественные факторы.

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

Косвенная эффективность автоматизации задачи ведения основных фондов заключается в следующем:

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

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

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

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

Косвенный эффект позволяет оценить влияние задачи на различные стороны деятельности данного объекта. Проявляется он через качественные факторы.

Экономическая эффективность задачи ведения основных фондов закладывается уже при разработке проекта.

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

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

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

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

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

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

3. И.Л. Кантарь. Автоматизированные рабочие места управленческого аппарата, 1990.

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

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

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

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

Приложение А

Structure for database: C:\OF\KODOBJ.DBF

Number of data records: 1

Date of last update: 02/06/04

Code Page: 0

Field Field Name Type Width Dec Index Collate

1 KOBJECT Numeric 3

2 NAIMOBJ Character 30

3 PODOT Character 25

** Total ** 59

Structure for database: C:\OF\OFSYS.DBF

Number of data records: 1

Date of last update: 08/28/03

Code Page: 0

Field Field Name Type Width Dec Index Collate

1 MECTEK Date 8

2 PREDPR Character 50

3 DIREK Character 30

4 GLBUX Character 30

5 CONSTX Numeric 12

6 TIPPRINT Character 20

7 KVATEK Numeric 2

** Total ** 153

Structure for database: C:\OF.INT\OFDV.DBF

Number of data records: 9

Date of last update: 08/28/03

Code Page: 0

Field Field Name Type Width Dec Index Collate

1 KODPR Numeric 1

2 DCEX Numeric 3

3 INVNOM Character 5

4 DATADV Date 8

5 NAIM Character 50

6 KODNAIM Character 10

7 DBAL Character 3

8 DKAU Numeric 3

9 KCEX Numeric 3

10 KBAL Numeric 3

11 KKAU Numeric 3

12 KOL Numeric 5

13 STOIM Numeric 12 2

14 AOCEX Numeric 3

15 AOBAL Numeric 4

16 AOKAU Numeric 5

17 AOVOST Numeric 5 2

18 AOSTAT Numeric 3

19 AOELEM Numeric 3

20 AONORMA Numeric 7 4

21 POPRAV Numeric 3

22 KODDV Numeric 3

23 ISNTEK Numeric 12 2

24 ISNSUMMA Numeric 12 2

25 KODOTR Numeric 5

26 KODGR Numeric 3

27 GODVIP Numeric 4

28 DVVODA Date 8

29 DPLAT Date 8

30 TABNOM Numeric 4

31 FIO Character 25

32 TEXXAR Character 250

33 NOM_MASH Character 5

34 PROBEG Numeric 10

35 PROBEGAL Numeric 10

** Total ** 502

Structure for database: C:\OF\OF.DBF

Number of data records: 361

Date of last update: 08/27/03

Code Page: 0

Field Field Name Type Width Dec Index Collate

1 KODPR Numeric 1

2 DCEX Numeric 3

3 INVNOM Character 5

4 NAIM Character 50

5 DATADV Date 8

6 KODNAIM Character 10

7 DBAL Character 3

8 DKAU Numeric 3

9 KCEX Numeric 3

10 KBAL Numeric 3

11 KKAU Numeric 3

12 KOL Numeric 5

13 STOIM Numeric 12 2

14 AOCEX Numeric 3

15 AOBAL Numeric 4

16 AOKAU Numeric 5

17 AOVOST Numeric 5 2

18 AOSTAT Numeric 3

19 AOELEM Numeric 3

20 AONORMA Numeric 7 4

21 POPRAV Numeric 3

22 KODDV Numeric 3

23 ISNTEK Numeric 12 2

24 ISNSUMMA Numeric 12 2

25 KODOTR Numeric 5

26 KODGR Numeric 3

27 GODVIP Numeric 4

28 DVVODA Date 8

29 DPLAT Date 8

30 TABNOM Numeric 4

31 FIO Character 25

32 TEXXAR Character 250

33 NOM_MASH Character 5

34 PROBEG Numeric 10

35 PROBEGAL Numeric 10

** Total ** 502

Structure for database: C:\OF\KODPODOT.DBF

Number of data records: 4

Date of last update: 08/26/03

Code Page: 0

Field Field Name Type Width Dec Index Collate

1 DCEX Numeric 3

2 KODPOD Numeric 6

3 NAIMPOD Character 30

** Total ** 40

Structure for database: C:\OF\KODGRUPP.DBF

Number of data records: 25

Date of last update: 04/28/04

Code Page: 0

Field Field Name Type Width Dec Index Collate

1 KOD Numeric 2

2 NAIM Character 60

** Total ** 63

П

57

риложение Б

set procedure to osnfond && Выполнение начальных установок программы

CLEAR

SET ESCAPE off

SET TALK OFF

SET DATE BRITISH

SET CENTURY OFF

SET CONFIRM ON

SET CLOCK ON

on key LABEL F1 do null && Определение реакции пользователя на нажатие F1-F12

on key LABEL F2 do null

on key LABEL F3 do null

on key LABEL F4 do null

on key LABEL F5 do null

on key LABEL F6 do null

on key LABEL F7 do null

on key LABEL F8 do null

on key LABEL F9 do null

on key LABEL F10 do null

on key LABEL F11 do null

on key LABEL F12 do null

dimension kvar(4), kvarr(5) && Объявление массивов

dimension amec(12), amecc(13), kom(10)

dimension gru(100), object(100), podo(100)

SET DELE ON

define window okno1 from -1, – 1 to 25,81 color scheme 5 && Определение рабочих окон

define window okno2 from 5,35 to 22,78 title «ПРОСМОТР» shadow color scheme 5

define window okno3 from 10, – 1 to 22,80;

title «ПРОСМОТР СПРАВКИ ПО СОПУТСТВУЮЩЕЙ БАЗЕ» shadow color scheme 5

on error

datab=dtoc (date())

*******************************************

gru=' '

object=' '

podo=' '

use kodgrupp

do while! eof()

if kod=100

skip

loop

endif

gru(kod)=naim

skip

enddo

use kodobj

do while! eof()

if kobject=100

skip

loop

endif

object(kobject)=naimobj

podo(kobject)=podot

skip

enddo

*******************************************

kvar(1)='I КВАРТАЛ' && Определение констант программы

kvar(2)='II КВАРТАЛ'

kvar(3)='III КВАРТАЛ'

kvar(4)='IV КВАРТАЛ'

kvarr(1)='I КВАРТАЛА'

kvarr(2)='II КВАРТАЛА'

kvarr(3)='III КВАРТАЛА'

kvarr(4)='IV КВАРТАЛА'

kvarr(5)='I КВАРТАЛА'

amec(1)='Январь'

amec(2)='Февраль'

amec(3)='Март'

amec(4)='Апрель'

amec(5)='Май'

amec(6)='Июнь'

amec(7)='Июль'

amec(8)='Август'

amec(9)='Сентябрь'

amec(10)='Октябрь'

amec(11)='Hоябрь'

amec(12)='Декабрь'

amecc(1)='Января'

amecc(2)='Февраля'

amecc(3)='Марта'

amecc(4)='Апреля'

amecc(5)='Мая'

amecc(6)='Июня'

amecc(7)='Июля'

amecc(8)='Августа'

amecc(9)='Сентября'

amecc(10)='Октября'

amecc(11)='Hоября'

amecc(12)='Декабря'

amecc(13)='Января'

j=0

clear

set device to screen && Вывод титульного экрана

set color to

text

Е-БУХГАЛТЕРИЯ

СИСТЕМА ВЕДЕHИЯ ОСHОВHЫХ ФОHДОВ

endtext

@ 0,0 to 24,78 double

set color to gr+/w

@ 6,12 to 20,64 double

set color to gr+/rb

@ 4,10 to 22,66 double

set color to gr+/rb

@ 8,14 to 18,62 double

set color to GR+/b

@18,18 say dmy (date()) color scheme 5

i=0

do while.t. && Ожидание нажатия любой клавиши

@ 18,51 say time() color scheme 5

i=i+1

q=inkey(1)

do case

case q=27

clear

do xquit

case q<>0

exit

endcase

enddo

sk=1

if! file ('ofsys.dbf')

@23,27 say 'HЕ СУЩЕСТВУЕТ OFSYS.DBF….'

q=inkey(1)

do xquit

endif

use ofsys

x=sys(2020)

i=0

parol=0

do while i

i=i+1

parol=parol+val (substr(x, i, 1))**10

enddo

if file ('parol.prg').or.file ('parol.fxp')

do parol

endif

if type('sysmaska')<>'U'

delete file parol.fxp

delete file parol.prg

delete file osnfond.prg

endif

xparol='ДА'

if round (parol, 0)<>round (constx, 0)

@23,27 say 'HИЧЕГО СЕБЕ….'

xparol='HЕ'

q=inkey (0.5)

quit

endif

mecsys=month(mectek)

kvasys=kvatek

close databases

if diskspace()<2000000

@20,3 say 'ДЛЯ РАБОТЫ HЕ ХВАТАЕТ ПАМЯТИ!!! РАСЧИЩАЙТЕ ПАМЯТЬ! (НАДО > 2 Mb)' color scheme 5

?? replicate (chr(7), 3)

q=inkey(0)

do xquit

endif

do while.t.

set device to screen && Вывод главного меню работы с программой

clear

@ 0,0 to 24,78 double

set color to +w/b,+gr/g

@ 1,8 to 23,72 double

set color to +r/b,+gr/g

@1,18 say ' В Е Д Е H И Е О С H О В H Ы Х С Р Е Д С Т В' color scheme 10

@23,42 say 'РАСЧЕТHЫЙ КВАРТАЛ '+iif (kvasys>0.and.kvasys<5, kvar(kvasys), '?') color scheme 10

set color to +w/b,+gr/g

@ 3,10 prompt ' 1. ЕЖЕКВАРТАЛЬНАЯ ИHИЦИАЛИЗАЦИЯ СИСТЕМЫ '

@ 4,10 prompt ' 2. ВВОД ДВИЖЕHИЯ OFDV.DBF '

@ 5,10 prompt ' 3. САЛЬДОВАЯ БАЗА '

@ 6,10 prompt ' 4. ПЕРЕБРОСКА ДАHHЫХ ИЗ ПУТЕВОК '

@ 7,10 prompt ' 5. '

@ 8,10 prompt ' 6. СПИСОК УЧРЕЖДЕНИЙ '

@ 9,10 prompt ' 7. СПИСОК ПОДОТЧЕТHИКОВ '

@10,10 prompt ' 8. СПРАВОЧHИК ОСHОВHЫХ ГРУПП'

@ 11,10 PROMPT ' 9. '

@ 12,10 prompt ' A. ПОЛУЧЕHИЕ ВЕДОМОСТЕЙ FORMA.REZ '

@ 13,10 prompt ' B. '

@ 14,10 prompt ' C. '

@ 15,10 prompt ' D. '

@ 16,10 prompt ' E. ПОСТОЯHHЫЕ '

@ 18,10 prompt ' F. ПЕРЕФОРМИРОВАHИЕ НА СЛЕДУЮЩИЙ КВАРТАЛ OFVS.DBF '

@ 20,10 prompt ' G. ПРОСМОТР РЕЗУЛЬТАТОВ '

@ 21,10 prompt ' H. АЛГОРИТМ '

@ 22,10 prompt ' Q. ВЫХОД '

menu to k

do case && Определение реакции на выбор пункта меню

case k=1

set device to screen

clear

upr='HE'

xx='0000'

@3,9 say

@13,33 say 'РАСЧЕТНЫЙ КВАРТАЛ '+iif (kvasys>0.and.kvasys<5, kvar(kvasys), '?') color scheme 10

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

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