Файл: Анализ и оценка средств реализации структурных методов анализа и проектирования экономической информационной системы (Каноническая технологическая сеть проектирования экономической информационной системы).pdf
Добавлен: 26.06.2023
Просмотров: 152
Скачиваний: 2
СОДЕРЖАНИЕ
1.1 Каноническая технологическая сеть проектирования экономической информационной системы
2.1 Технико-экономическое обоснование
2.2.1 Описание и проектирование инфологической модели предметной области
2.1.3.2. Макеты отображения результатов в виде твердых копий или на экране дисплея
2.2.3 Описание схемы функций и взаимосвязи программный модулей и массивов базы данных
2.2.4 Описание блок-схемы программного модуля
2.2.5 Описание диалога и схемы технологического процесса решения задачи в диалоговом режиме
- Нвыр.6 =3600/((Взз*Кзс+Вп)*Кс)= 3600/((0,4 *60+ 2)*55) = 3600/1430=2,5,
где Вп - время поиска записи в накладной на списание материалов в производство.
- Нвыр.7=3600/((Взз * Кзс) * Кс ) = 3600/((0,4 * 60) * 55)= 3600/1800= 2,7
- Нвыр.8=3600/((Взз *Кзс +Ввыч1)* Кс+ Ввыч2+Ввыч3)=3600/ ((0,4 * 60+6)* 55+ + 8 * 5 + 8 * 10)=3600/1770 = 2
- Нвыр.9 принимается исходя из имеющегося опыта равным 40.
Средняя з/пл операторов = з/пл за месяц/(количество дней*длительность рабочей смены) =2200/(21*8) =13 рублей.
Накладные расходы = 60% от основной з/пл =13* 0,6 =7,8 рубля.
Среднегодовые затраты при ручной обработке информации (Зб) равны сумме затрат по всем операциям: 32272 рубля.
Наименования работ, трудовые, стоимостные затраты на эти работы, результаты расчетов при ручной обработке информации приведены в табл. 9.
Таблица 9
Машинная обработка
№ п/п |
Наименование операции технологического процесса решения комплекса задач |
Оборудование |
Ед. изм. |
Объем работы |
Норма выработки в час |
Трудоемкость (гр.5:гр.6) |
1 |
2 |
3 |
4 |
5 |
6 |
7 |
1. |
Прием и регистрация первичных документов |
- |
док-т |
70 |
100 |
0,700 |
2. |
Сортировка |
- |
док-т |
70 |
720 |
0,097 |
3. |
Ввод данных в ЭВМ |
ПЭВМ IBM PC Pentium IV |
знак |
10000 |
3600 |
2,778 |
4. |
Визуальный контроль введенных данных и корректировка в случае обнаружения ошибки |
ПЭВМ IBM PC Pentium IV |
знак |
8000 |
600 |
13,333 |
5. |
Получение счетов-фактур и накладных – обработка исходных данных |
ПЭВМ IBM PC Pentium IV |
док-т |
70 |
6000 |
0,012 |
6. |
Печать выходных форм |
ПЭВМ IBM PC Pentium IV |
док-т |
250 |
100 |
2,500 |
7. |
Контроль, регистрация, выдача документов |
док-т |
250 |
15 |
16,667 |
|
Одноразовое решение: |
36,09 |
|||||
Итого за год: |
433,04 |
№ п/п |
Среднечасовая з/пл оператора (руб.) |
Амортизация (руб.) |
Часовая стоимость накладных расходов (руб.) |
Стоимость работы оборудования (гр.8+гр.9+ гр.10) (руб.) |
Стоимостные затраты (гр.7хгр.11) (руб.) |
1. |
13,10 |
0 |
7,86 |
20,95 |
14,67 |
2. |
13,10 |
0 |
7,86 |
20,95 |
2,04 |
3. |
13,10 |
1,8 |
7,86 |
22,75 |
63,20 |
4. |
13,10 |
1,8 |
7,86 |
22,75 |
303,37 |
5. |
13,10 |
1,8 |
7,86 |
22,75 |
0,27 |
6. |
13,10 |
1,8 |
7,86 |
22,75 |
56,88 |
7. |
13,10 |
0 |
7,86 |
20,95 |
349,21 |
Одноразовое решение: |
789,62 |
||||
Итого за год: |
9475,47 |
Пояснения к таблице 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 месяцев.
В работе также приведен обширный теоретический материал, дающий полное представление о предметной области, в которой разрабатывалась данная автоматизированная система.
В связи с поставленной целью мною были решены следующие задачи:
- Проанализирована технологическая сеть процесса проектирования канонической технологии и проведено описание процесса создания выбранного компонентов ЭИС,
- Проведено описание состава показателей обоснования технико-экономической эффективности выбранной технологии проектирования и методики их расчета,
- Разработано технико-экономическое обоснование, включающее в свою характеристику основные компоненты информационных систем;
- Разработано программное обеспечение соответствующей модели спроектированной информационной системы.
Список литературы
- Автоматизированные информационные технологии в экономике: Учебник / Под ред. Проф. Г.А. Титоренко.- М.: Компьютер, ЮНИТИ, 2008.
- Благодатских В.А., Енгибарян М.А., Ковалевская Е.В. и др. Экономика, разработка и использование программного обеспечения ЭВМ.- М.: Финансы и статистика, 2005.
- Буч Г. Объектно-ориентированное проектирование с примерами применения. / Пер. с англ. - М.: Конкорд, 2002.
- Вендров А.М. CASE – технологии. Современные методы и средства проектирования информационных систем. – М.: Финансы и статистика, 1998.
- Гайкович В., Першин А. Безопасность электронных банковских систем. - Москва, "Единая Европа", 1994.
- Диго С.М. Проектирование и эксплуатация баз данных. М.: Финансы и статистика, 1995.
- Жельников В. Криптография от папируса до компьютера,М., ABF, 1996
- Козлов В.А. Открытые информационные системы. - М: Финансы и статистика, 1999.
- Коуд П. Объектные модели. Стратегии, шаблоны и приложения. М.: Лори, 1999.
- Липаев В.В. Системное проектирование сложных программных средств для информационных систем. - М.: Синтег, 1999.
- Львов В. Создание систем поддержки принятия решений на основе хранилищ данных. Системы управления базами данных. 1997, №3.
- Маклаков С.В. BPWin и ERWin. CASE-средства разра-ботки информационных систем. М.: ДИАЛОГ_МИФИ, 2000.
- Мельников В.В. Защита информации в компьютерных системах. М.: Финансы и статистика, 1997.
- Ойхман Е.Г., Попов Э.В. Реинжиниринг бизнеса: реин-жиниринг организаций и информационные технологии.- М.: Финансы и статистика, 1997.
- Полковников А.В., Корпоративная система управления проектами, Электронный офис, №10, 1997.
- Тельнов Ю.Ф. Интеллектуальные информационные си-стемы в экономике. Учебное пособие. Серия «Информатизация России на пороге ХХI века». – М.: СИНТЕГ, 1999.
- Хотяшов Э.Н. Основы проектирования систем машинной обработки данных. М.: «Финансы и статистика», 1981.
- Автоматизация управления предприятием/ Баронов В.В., Калянов Г.Н., Попов Ю.Н, Рыбников А.И., Титовский И. Н. – М.: ИНФРА-М, 2000.
- Автоматизированные системы управления предприятиями. Под редакцией Г.А.Титоренко. М., Финансы и статистика, 1983.
- Атре Ш. Структурный подход к организации баз данных. - М.: «Финансы и статистика»,1983.
- Гост 19.101-77. Единая система программной документации. Виды программ и программных документов. М. Издательство стандартов. 1994.
- Гост 19.701-90. Единая система программной документации. Схемы алгоритмов, программ данных и систем. Условные обозначения и правила выполнения. М. Издательство стандартов. 1994.
- Гост 34.201-89. Виды, комплектность и обозначение документов при создании Автоматизированных систем. М. Издательство стандартов. - 1991.
- Гост 34.602-89. Техническое задание на создание Автоматизированной системы. М. Издательство стандартов. - 1991.
- Гостехкомиссия России. Руководящий документ. Кон-цепция защиты СВТ и АС от НСД к информации. - М.: Воениздат, 1992.
- Ефимова О.А. Технология проектирования и внедрения информационных систем – интегрированная технология ARIS. - В кн.: «Реинжиниринг бизнес-процессов предприятий на основе современных информационных технологий». Сб. научных трудов 3-й Российской научно-практической конференции. - М.: МЭСИ, 1999.
- Калянов Г.Н. Консалтинг при автоматизации предприятий: Научно-практическое издание. Серия «Информатизация России на пороге ХХI века». - М.: СИНТЕГ, 1997.
- Левин В.К. Защита информации в информационно-вычислительных системах и сетях. // "Программирование", М 5, 1994.
- Марка Д.А., МакГоун К. Методология структурного системного анализа и проектирования SADT. Пер. с англ. М.: Метатехнология, 1993.
- Полковников А.В., Управление проектами - выбор, внедрение и использование ПО в России, PC WEEK/RU, 1996, № 34-35.
- Тиори Т., Фрай Д. Проектирование структур баз данных - М.: «Мир».1984.
- Хаббард Дж. Автоматизированное проектирование структур баз данных. - М.: «Мир».1984.
- 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;
}
//-----------------------------------------------------------------