WWW.REFERATCENTRAL.ORG.UA - Я ТУТ НАВЧАЮСЬ

... відкритий, безкоштовний архів рефератів, курсових, дипломних робіт

ГоловнаІнформатика, Компютерні науки → Автоматизація господарської діяльності (на прикладі місцевого ВАТ) - Дипломна робота

Автоматизація господарської діяльності (на прикладі місцевого ВАТ) - Дипломна робота

бухгалтерсько-економічну та облікову роботу на ВАТ "Коломийський сирзавод".
2. Робота пройшла адаптацію на ВАТ "Коломийський сирзавод" і отримала високу оцінку спеціалістів підприємства.
3. Впровадження комплексу дозволило скоротити кількість працівників, що виконували дану роботу, з трьох до одного.
4. В завданні на розробку програмного комплексу не було передбачено його мережеве використання, оскільки на підприємстві не використовується локальна мережа, а апаратна база має деякі обмеження. Тому питання адаптації програми до роботи з багатьма користувачами не розроблене.
9.1 Специфіка вибору методу реалізації.
Для даного комплексу існує велика кількість альтернативного програмного забезпечення, яке реалізує дану задачу в повному об`ємі, в комплексі автоматизованого бухгалтерського обліку. Але на підприємстві більшість завдань обліку автоматизовано ізольованими програми, написаними на СУБД Foxpro. По цій причині підприємство в цілях економії коштів, уникаючи закупівлі нових повномаштабних комплексів бухгалтерського обліку, спеціалізованих під MSDOS, а також комплексів сумісних з Windows 9Х, що вимагає модернізації апаратної частини підприємства, повважало вигіднішим заказати ізольовану програму сумісну з існуючою апаратною базою. Також було бажано створити програму з інтерфейсом звичним для операторів комп'ютерів.
9.2. Мережеве використання.
В завданні на даний проект не обумовлювалось мережеве використання в силу обмеженості апаратної бази. Тому адаптація для багатокористувацького використання не проводилась.
8. Список використанї літератури:
1. А. А. Попов. Програмування в середовищі СУБД Foxpro 2.0, побудова систем обробки даних. Видавництво "Калашніков и К". Москва 1997р.
2. І. М. Павлюк. Рекомендації з організації і ведення бухгалтерського обліку на підприємстві і в організаціях України. (Практичний посібник). ВТП "Вік" Коломия 1995р.
3. Галицькі контракти. Дебет-Кредит лютий 2000р. www.dk.gs.com.ua
4. Щотижневик "Податки та бухгалтерський облік".
Затверджено
Ф.ФФ.57071-01 93 01-1-ЛУ
Автоматизація господарської діяльності
ВАТ "Коломийський сирзавод".
Текст програми.
Ф.ФФ.57106-01 13 01-1
Аркушів 43
2000
10. Текст програми.
Лістінг модуля Amortiz.prg
clear
CLOSE DATABASES
CLEAR WINDOWS
set deleted on
do dtop
set century on
set clock on
use amortiz.dbf
set talk off
set message to 30 center
set century on
set date german
do rezerv.prg
use zah
replace zax with .f.
close databases
do nowkvart.prg
clear windows
do dtop
SET SYSMENU TO
SET SYSMENU AUTOMATIC
DEFINE PAD _01 OF _MSYSMENU PROMPT " Робота з даними "
DEFINE PAD _02 OF _MSYSMENU PROMPT "Вивід звітів "
DEFINE PAD _03 OF _MSYSMENU PROMPT "Вихід "
ON PAD _01 OF _MSYSMENU ACTIVATE POPUP menu1
ON PAD _02 OF _MSYSMENU ACTIVATE POPUP menu2
ON selection PAD _03 OF _MSYSMENU do vixod
DEFINE POPUP MENU12 FROM 1,0 MARGIN RELATIVE SHADOW COLOR SCHEME 4
DEFINE BAR 1 OF MENU12 PROMPT "Переглянути базу"
DEFINE BAR 2 OF MENU12 PROMPT "Переглянути відділ"
DEFINE BAR 3 OF MENU12 PROMPT "-"
DEFINE BAR 5 OF MENU12 PROMPT "Відібрати по даті придбання"
DEFINE BAR 6 OF MENU12 PROMPT "Відібраті по групі"
DEFINE BAR 4 OF MENU12 PROMPT "Відібраті по рахунку"
DEFINE BAR 7 OF MENU12 PROMPT "Відібрати по назві"
DEFINE BAR 8 OF MENU12 PROMPT "Відібрати по бал. вартості"
DEFINE BAR 9 OF MENU12 PROMPT "Відібрати по залишку на п.кв."
DEFINE BAR 10 OF MENU12 PROMPT "-"
DEFINE BAR 11 OF MENU12 PROMPT "Очистити фільтр"
ON SELECTION POPUP MENU12 DO M12PROC WITH BAR()
DEFINE POPUP MENU2 FROM 1,0 MARGIN RELATIVE SHADOW COLOR SCHEME 4
DEFINE BAR 1 OF MENU2 PROMPT "Визначити групу"
DEFINE BAR 2 OF MENU2 PROMPT "Визначити віділ"
DEFINE BAR 3 OF MENU2 PROMPT "Вивести звіт"
DEFINE BAR 4 OF MENU2 PROMPT "-"
DEFINE BAR 5 OF MENU2 PROMPT "Вивести загальний звіт"
DEFINE BAR 6 OF MENU2 PROMPT "Очистити фільтр"
ON SELECTION popup menu2 do printzv WITH BAR()
DEFINE POPUP MENU1 SHADOW COLOR SCHEME 4
DEFINE BAR 1 OF MENU1 PROMPT "Cтворити новий відділ"
DEFINE BAR 2 OF MENU1 PROMPT "Внесення ОЗ в відділ"
DEFINE BAR 3 OF MENU1 PROMPT "-"
DEFINE BAR 4 OF MENU1 PROMPT "Списання та корекція ОЗ"
DEFINE BAR 5 OF MENU1 PROMPT "-"
DEFINE BAR6 OF MENU1 PROMPT "Контрольний перерахунок"
DEFINE BAR 7 OF MENU1 PROMPT "Зміна коєфіцієнтів"
DEFINE BAR 8 OF MENU1 PROMPT "-"
DEFINE BAR 9 OF MENU1 PROMPT "Перехід на новий кватал"
ON SELECTION BAR 1 OF MENU1 DO M1_11 WITH BAR()
ON SELECTION BAR 2 OF MENU1 DO M1_12 WITH BAR()
ON SELECTION BAR 4 OF MENU1 ACTIVATE POPUP MENU12
ON SELECTION BAR 6 OF MENU1 DO M1_14 WITH BAR()
ON SELECTION BAR 7 OF MENU1 DO M1_15 WITH BAR()
ON SELECTION BAR 9 OF MENU1 DO M1_16 WITH BAR()
return
Лістінг модуля Dtop.prg
clear
CLEAR WINDOWS
clear
set talk off
set clock on
set message to 30 center
set century on
set date german
DEFINE WINDOW DTOP FROM 0,0 TO 24,79 COLOR SCHEME 1
ACTIVATE WINDOW DTOP
d=day(date())
m=month(date())
y=year(date())
@ 0,60 say 'Сьогодні '+alltrim(str(d))+','+alltrim(str(m))+','+alltrim(str(y))
@ 21,3 say '* Облік та нарахування амортизаціo основних засобів підприємства *'
@ 22,3 say '(C) 2000 ___ Зареєстровано: ВАТ "Коломийський сирзавод"'
return
Лістінг модуля М1_11.prg
parameter b
clear windows
close databases
set talk off
set date german
set century on
do dtop
select B
erase M1_111.idx
use dovvid
index on nazvav to M1_111.idx compact
define popup v01 prompt field nazvav from 5,5 shadow
on selection popup v01 do perv in M1_11 with recno()
define popup v02 prompt field nazvav from 5,5 shadow
on selection popup v02 do delv in M1_11 with recno()
define window p002 from 2,30 to 20,75 double shadow color scheme 1
define popup v03 prompt field nazvav from 3,5 shadow
on selection popup v03 do p23 in M1_11 with recno()
define popup p1 from 5,5 shadow
define bar 1 of p1 prompt 'Новий відділ'
define bar 2 of p1 prompt 'Перейменувати відділ'
define bar 3 of p1 prompt '-'
define bar 4 of p1 prompt 'Знищити відділ'
on selection popup p1 do proc1 with bar()
activate popup p1
procedure proc1
parameter bar
do case
case bar=1
@ 2,10 say '*** ВНЕСЕННЯ НОВОГО ВІДДІЛУ ***'
DEFINE WINDOW w01 FROM 5,20 TO 9,65 double shadow COLOR SCHEME 1
ACTIVATE WINDOW w01
@ 0,4 say 'Введіть назву нового відділу'
nv=' '
@ 1,0 get nv
READ
NV=ALLTRIM(NV)
select b
go top
do while !eof()
if nazvav=nv
define window w02 from 7,7 to 16,70 double shadow color scheme 7
activate window w02
@ 0,8 say ' Такий відділ вже існує !'
@ 1,0 say ' Внесення даного відділу сприятиме виникненню помилок під час'
@ 2,0 say ' роботи оператора, оскільки існує висока імовірність переплу-'
@ 3,0 say ' тати відділи з оинаковими назвами !'
@ 5,10 prompt 'Внести відділ'
@ 5,40 prompt 'Відміна'
menu to
Loading...

 
 

Цікаве