Файл: Анализ и оценка средств реализации структурных методов анализа и проектирования экономической информационной системы (модель жизненного цикла).pdf

Продолжение таблицы 9

Пояснения к таблице 9:

1) Н_выр1=3600/В_рд = 3600/ 360 = 100,

где В_рд – время регистрации документа.

2) Н_выр2=3600/В_вк=3600 /5 = 720,

где В_вк – время визуального контроля.

3) Н_выр3=3600/Внз=3600/1 = 3600,

где В_нз – время набора одного знака.

4) Н _выр4=3600/(В_вк+В_к)=3600/(5+1) = 600,

где В_к – время корректировки.

5) Н _выр5=3600/В_обр.д =3600/0,6 = 6000,

где В_обр.д – время обработки данных.

6) Н _выр6= 3600/(В_фд+К_з/С_п)= 3600/(0,4 +8200/230) = 100,

где В_фд – время формирования документа;

К_з – среднее количество знаков в документе;

С_п – скорость принтера (зн/сек).

7) Н_выр7 – принимается исходя из имеющегося опыта равным 15.

Среднегодовые затраты при машинной обработке информации равны сумме затрат по всем операциям: Ф = 9475,47 рубля.

Затраты на обработку информации при предполагаемом варианте организации системы:

Зп = (Р+С)/ Тэ+Ф =28672/ 8 + 9475 = 13059 руб.,

где Р=0, т.к. при создании ИС привлекаются только штатные средства программного обеспечения ЭВМ; С – единовременные затраты на создание и внедрение системы, не учитываемые в себестоимости маш.-часа, в руб., С=С_отп; Тэ– предполагаемый срок эксплуатации СОЭИ (8 лет).

Рассчитаем годовую экономию:

ΔП=Зб-Зп =32272 – 13059 = 19213 руб.,

где Зб – затраты на обработку информации при существующем варианте организации ИС; Зп – затраты на обработку информации при предполагаемом варианте организации системы.

Расчетный коэффициент капитальных вложений:

Ер=ΔП/R=19213 /20293=0,95,

где ΔП – годовая экономия (годовой прирост прибыли); R – единовременные затраты.

Годовой экономический эффект:

Э=ΔП – R*Ен=19213 – 20293*0,15=16169 руб.,

где Ен =0,15 – нормативный коэффициент эффективности капитальных вложений;

Ен* R – нормативная прибыль от внедрения системы.

Срок окупаемости:

Т= R /ΔП =1/Ер=1/0,95=1,1 года (13,2 мес.).

ЗАКЛЮЧЕНИЕ

Разработанный программно-информационный комплекс был успешно апробирован на предприятии, где применяется и по нынешнее время.

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

Стоимость проекта составила 24298 руб., а срок окупаемости - 13 месяцев.

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

В связи с поставленной целью мною были решены следующие задачи:

• Проанализирована технологическая сеть процесса проектирования канонической технологии и проведено описание процесса создания выбранного компонентов ЭИС,
• Проведено описание состава показателей обоснования технико-экономической эффективности выбранной технологии проектирования и методики их расчета,
• Разработано технико-экономическое обоснование, включающее в свою характеристику основные компоненты информационных систем;
• Разработано программное обеспечение соответствующей модели спроектированной информационной системы.

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

1. Автоматизированные информационные технологии в экономике: Учебник / Под ред. Проф. Г.А. Титоренко.- М.: Компьютер, ЮНИТИ, 2008.
2. Благодатских В.А., Енгибарян М.А., Ковалевская Е.В. и др. Экономика, разработка и использование программного обеспечения ЭВМ.- М.: Финансы и статистика, 2005.
3. Буч Г. Объектно-ориентированное проектирование с примерами применения. / Пер. с англ. - М.: Конкорд, 2002.
4. Вендров А.М. CASE – технологии. Современные методы и средства проектирования информационных систем. – М.: Финансы и статистика, 1998.
5. Гайкович В., Першин А. Безопасность электронных банковских систем. - Москва, "Единая Европа", 1994.
6. Диго С.М. Проектирование и эксплуатация баз данных. М.: Финансы и статистика, 1995.
7. Жельников В. Криптография от папируса до компьютера,М., ABF, 1996
8. Козлов В.А. Открытые информационные системы. - М: Финансы и статистика, 1999.
9. Коуд П. Объектные модели. Стратегии, шаблоны и приложения. М.: Лори, 1999.
10. Липаев В.В. Системное проектирование сложных программных средств для информационных систем. - М.: Синтег, 1999.
11. Львов В. Создание систем поддержки принятия решений на основе хранилищ данных. Системы управления базами данных. 1997, №3.
12. Маклаков С.В. BPWin и ERWin. CASE-средства разра-ботки информационных систем. М.: ДИАЛОГ_МИФИ, 2000.
13. Мельников В.В. Защита информации в компьютерных системах. М.: Финансы и статистика, 1997.
14. Ойхман Е.Г., Попов Э.В. Реинжиниринг бизнеса: реин-жиниринг организаций и информационные технологии.- М.: Финансы и статистика, 1997.
15. Полковников А.В., Корпоративная система управления проектами, Электронный офис, №10, 1997.
16. Тельнов Ю.Ф. Интеллектуальные информационные си-стемы в экономике. Учебное пособие. Серия «Информатизация России на пороге ХХI века». – М.: СИНТЕГ, 1999.
17. Хотяшов Э.Н. Основы проектирования систем машинной обработки данных. М.: «Финансы и статистика», 1981.
18. Автоматизация управления предприятием/ Баронов В.В., Калянов Г.Н., Попов Ю.Н, Рыбников А.И., Титовский И. Н. – М.: ИНФРА-М, 2000.
19. Автоматизированные системы управления предприятиями. Под редакцией Г.А.Титоренко. М., Финансы и статистика, 1983.
20. Атре Ш. Структурный подход к организации баз данных. - М.: «Финансы и статистика»,1983.
21. Гост 19.101-77. Единая система программной документации. Виды программ и программных документов. М. Издательство стандартов. 1994.
22. Гост 19.701-90. Единая система программной документации. Схемы алгоритмов, программ данных и систем. Условные обозначения и правила выполнения. М. Издательство стандартов. 1994.
23. Гост 34.201-89. Виды, комплектность и обозначение документов при создании Автоматизированных систем. М. Издательство стандартов. - 1991.
24. Гост 34.602-89. Техническое задание на создание Автоматизированной системы. М. Издательство стандартов. - 1991.
25. Гостехкомиссия России. Руководящий документ. Кон-цепция защиты СВТ и АС от НСД к информации. - М.: Воениздат, 1992.
26. Ефимова О.А. Технология проектирования и внедрения информационных систем – интегрированная технология ARIS. - В кн.: «Реинжиниринг бизнес-процессов предприятий на основе современных информационных технологий». Сб. научных трудов 3-й Российской научно-практической конференции. - М.: МЭСИ, 1999.
27. Калянов Г.Н. Консалтинг при автоматизации предприятий: Научно-практическое издание. Серия «Информатизация России на пороге ХХI века». - М.: СИНТЕГ, 1997.
28. Левин В.К. Защита информации в информационно-вычислительных системах и сетях. // "Программирование", М 5, 1994.
29. Марка Д.А., МакГоун К. Методология структурного системного анализа и проектирования SADT. Пер. с англ. М.: Метатехнология, 1993.
30. Полковников А.В., Управление проектами - выбор, внедрение и использование ПО в России, PC WEEK/RU, 1996, № 34-35.
31. Тиори Т., Фрай Д. Проектирование структур баз данных - М.: «Мир».1984.
32. Хаббард Дж. Автоматизированное проектирование структур баз данных. - М.: «Мир».1984.
33. CASE. Аналитик. Версия 1.1. Руководство аналитика. М., НТП ЭЙТЭКС, 1995.

ПРИЛОЖЕНИЯ

Модуль формы меню (Unit1)

//-----------------------------------------------------------------

#include <vcl.h>

#pragma hdrstop

#include "Unit1.h"

#include "Unit22.h"

#include "Unit3.h"

#include "Unit4.h"

#include "Unit5.h"

#include "Unit6.h"

#include "Unit7.h"

#include "Unit8.h"

#include "Unit9.h"

#include "Unit10.h"

#include "Unit12.h"

#include "Unit11.h"

#include "Unit17.h"

//-----------------------------------------------------------------

#pragma package(smart_init)

#pragma resource "*.dfm"

TForm1 *Form1;

//-----------------------------------------------------------------

__fastcall TForm1::TForm1(TComponent* Owner)

: TForm(Owner)

{

}

//-----------------------------------------------------------------

void __fastcall TForm1::N11111Click(TObject *Sender)

{

if (!Form2->Visible) Form2->Show();

}

//-----------------------------------------------------------------

void __fastcall TForm1::N2Click(TObject *Sender)

{

if (!Form5->Visible) Form5->Show();

}

//-----------------------------------------------------------------

void __fastcall TForm1::N3Click(TObject *Sender)

{

if (!Form3->Visible) Form3->Show();

}

//-----------------------------------------------------------------

void __fastcall TForm1::N4Click(TObject *Sender)

{

if (!Form6->Visible) Form6->Show();

}

//-----------------------------------------------------------------

void __fastcall TForm1::N1Click(TObject *Sender)

{

if (!Form7->Visible) Form7->Show();

}

//-----------------------------------------------------------------

void __fastcall TForm1::N11Click(TObject *Sender)

{

Form11->Show();

}

//-----------------------------------------------------------------

void __fastcall TForm1::N9Click(TObject *Sender)

{

Form17->Show();

}

//-----------------------------------------------------------------

void __fastcall TForm1::N8Click(TObject *Sender)

{

Form1->Close();

}

//-----------------------------------------------------------------

void __fastcall TForm1::N7Click(TObject *Sender)

{

Form12->Show();

}

//-----------------------------------------------------------------

void __fastcall TForm1::N5Click(TObject *Sender)

{

Form10->Show();

}

//-----------------------------------------------------------------

Модуль формы документа "Оприходование материалов"(Unit22)

//-----------------------------------------------------------------

#include <vcl.h>

#include <math.h>

#pragma hdrstop

#include "Unit22.h"

#include "Unit3.h"

#include "Unit1.h"

#include "Unit4.h"

#include "Unit5.h"

#include "Unit8.h"

#include "Unit12.h"

#include "Unit15.h"

//-----------------------------------------------------------------

#pragma package(smart_init)

#pragma resource "*.dfm"

TForm2 *Form2;

//-----------------------------------------------------------------

__fastcall TForm2::TForm2(TComponent* Owner)

: TForm(Owner)

{

}

//-----------------------------------------------------------------

void __fastcall TForm2::Button2Click(TObject *Sender)

{

if (!Form3->Visible) Form3->Show();

}

//-----------------------------------------------------------------

void __fastcall TForm2::Button1Click(TObject *Sender)

{

Table1->Append();

Button5->Enabled = true;

Button1->Enabled = false;

}

//-----------------------------------------------------------------

void __fastcall TForm2::Button3Click(TObject *Sender)

{

if (!Form5->Visible) Form5->Show();

}

//-----------------------------------------------------------------

void __fastcall TForm2::Edit2Change(TObject *Sender)

{

Edit4->Text =Edit1->Text+ " от "+DateToStr(DateTimePicker1->Date);

}

//-----------------------------------------------------------------

void __fastcall TForm2::Button4Click(TObject *Sender)

{

float s;

s=0;

Table2->Append();

Table2->Edit();

Table2->FieldByName("Nom")->AsString = Edit1->Text;

Table2->FieldByName("Name")->AsString = Edit6->Text;

Table2->FieldByName("Nom_mat")->AsString = Edit5->Text;

Table2->FieldByName("Ed_izm")->AsString = Edit7->Text;

Table2->FieldByName("Kol")->AsInteger = StrToInt(Edit8->Text);

Table2->FieldByName("Cena")->AsFloat = StrToFloat(Edit9->Text);

Table2->FieldByName("Summa")->AsFloat = StrToFloat(Edit10->Text);

Table2->FieldByName("St_NDS")->AsInteger = 18;

Table2->FieldByName("Sum_NDS")->AsFloat = StrToFloat(Edit13->Text);

Table2->FieldByName("Sum_s_NDS")->AsFloat = StrToFloat(Edit14->Text);

Table2->Post();

Table2->First();

while (!Table2->Eof)

{

s=s+ Table2->FieldByName("Summa")->AsFloat;

Table2->Next();

}

Table2->First();

Edit12->Text = s*1.18;

Edit15->Text = Edit13->Text;

}

//-----------------------------------------------------------------

void __fastcall TForm2::Edit9Change(TObject *Sender)

{

if (Edit9->Text!="")

{

Edit10->Text = FloatToStr(StrToFloat(Edit8->Text)*StrToFloat(Edit9->Text));

}

}

//-----------------------------------------------------------------

void __fastcall TForm2::Edit8Change(TObject *Sender)

{

int kol;

float cena;

if (Edit8->Text!="")

{

kol=StrToInt(Edit8->Text);

if (Edit9->Text=="")

cena=0;

else

cena=StrToFloat(Edit9->Text);

Edit10->Text =kol*cena;

//Edit10->Text = FloatToStr(StrToFloat(Edit8->Text)*StrToFloat(Edit9->Text));

}

}

//----------------------------------------------------------------- void __fastcall TForm2::Edit10Change(TObject *Sender)

{

float a,b;

if (Edit10->Text!="")

{

a = StrToFloat(Edit10->Text)*StrToFloat(Edit11->Text)/100;

b = StrToFloat(Edit10->Text)+a;

Edit13->Text = ceil(a*100)/100;

Edit14->Text = ceil(b*100)/100;

}

}

//-----------------------------------------------------------------

void __fastcall TForm2::Button5Click(TObject *Sender)

{

Table1->Edit();

Table1->FieldByName("Nom")->AsString =Edit1->Text;

Table1->FieldByName("Data")->AsDateTime =DateTimePicker1->Date;

Table1->FieldByName("Nazv_post")->AsString =Edit3->Text;

Table1->FieldByName("S_fakt")->AsString =Edit4->Text;

Table1->FieldByName("Vsego")->AsFloat =StrToFloat(Edit12->Text);

Table1->FieldByName("NDS")->AsFloat =StrToFloat(Edit15->Text);

Table1->Post();

Button5->Enabled = false;

Button1->Enabled = true;

}

//-----------------------------------------------------------------

void __fastcall TForm2::DateTimePicker1Change(TObject *Sender)

{

Edit4->Text =Edit1->Text+ " от "+DateToStr(DateTimePicker1->Date);

}

//-----------------------------------------------------------------

void __fastcall TForm2::Button6Click(TObject *Sender)

{

Table1->Filter ="Nom='"+Edit1->Text+"'";

Table1->Filtered =true;

Table2->Filter ="Nom='"+Edit1->Text+"'";

Table2->Filtered =true;

Form8->QuickRep1->Preview();

Table1->Filtered =false;

Table2->Filtered =false;

}

//-----------------------------------------------------------------

void __fastcall TForm2::FormShow(TObject *Sender)

{

Table2->Filter="Nom='"+Edit1->Text+"'";

Table2->Filtered =true;

}

//-----------------------------------------------------------------

void __fastcall TForm2::FormDeactivate(TObject *Sender)

{

//Table2->Filtered =false;

}

//-----------------------------------------------------------------

void __fastcall TForm2::Edit1Change(TObject *Sender)

{

Table2->Filter="Nom='"+Edit1->Text+"'";

Table2->Filtered =true;

}

//-----------------------------------------------------------------

void __fastcall TForm2::Button7Click(TObject *Sender)

{

if ( Application->MessageBox(

"Провести документ?",

"Подтвердите решение",

MB_YESNO+MB_ICONEXCLAMATION)==IDYES)

Table3->Append();

Table3->Edit();

Table3->FieldByName("Data")->AsDateTime =DateTimePicker1->Date;

Table3->FieldByName("Doc")->AsString = "Оприходование материалов";

Table3->FieldByName("Nom")->AsString =Edit1->Text;

Table3->FieldByName("Deb")->AsString = "10";

Table3->FieldByName("Kred")->AsString = "60";

Table3->FieldByName("Summa")->AsString = Edit12->Text;

Table3->Post();

Form12->Show();

}

//-----------------------------------------------------------------

void __fastcall TForm2::Button8Click(TObject *Sender)

{

if (!Form15->Visible) Form15->Show();

}

//-----------------------------------------------------------------

Модуль формы справочника "Поставщики" (Unit3)

//-----------------------------------------------------------------

#include <vcl.h>

#pragma hdrstop

#include "Unit3.h"

#include "Unit22.h"

#include "Unit1.h"

#include "Unit4.h"

#include "Unit7.h"

//-----------------------------------------------------------------

#pragma package(smart_init)

#pragma resource "*.dfm"

TForm3 *Form3;

//-----------------------------------------------------------------

__fastcall TForm3::TForm3(TComponent* Owner)

: TForm(Owner)

{

}

//-----------------------------------------------------------------

void __fastcall TForm3::FormCreate(TObject *Sender)

{

Table1->Active = true;

}

//-----------------------------------------------------------------

void __fastcall TForm3::FormDeactivate(TObject *Sender)

{

if (Form2->Visible)

{

Form2->Edit3->Text = Table1->FieldByName("Nazv_postav")->AsString;

}

Диаграммы предметной области AS-IS

Контекстная диаграмма

Диаграмма декомпозиции А0

Диаграмма декомпозиции А1

Диаграмма декомпозиции А3

Диаграмма декомпозиции А4.

Диаграмма декомпозиции А5.

Диаграмма декомпозиции А6.