77
Рисунок 27. Затраты по базовому и проектному варианту
Индекс снижения стоимостных затрат (YC):
YC = C0 / C1 = 210630 руб. / 84252 руб. = 2,5
Приведённые расчёты позволяют сделать вывод о высокой экономической
эффективности разработанного проекта.
78
ЗАКЛЮЧЕНИЕ
Основные задачи ВКР – анализ деятельности предприятия, выявление
существующих недостатков в текущей технологии управления предприятием,
разработка автоматизированного рабочего места оператора почтового отделения №56
Почта России в ВКР выполнены.
Проанализировав текущие технологии управления, нами были сформированы
цели и определено назначение разрабатываемой информационной системы для
решения поставленной задачи, проведено аналитическое сравнение со схожими
системами решения данной задачи, проведены и сформированы расчеты
результатных показателей, выбрана наиболее подходящая технология
проектирования; помимо этого, был принят определенный набор проектных решений
по технологическому, программному, информационному и техническому
обеспечению.
В части программного обеспечения нами были спроектированы: дерево
функций и сценарий диалога, системы учета затрат в местах их возникновения;
разработана необходимая структурная схема пакета: дерево вызова процедур, а также
схема взаимосвязи программных модулей и файлов.
Внедрение системы принесет не только заметный экономический эффект, но
весьма быстро окупит затраты на ее разработку, создание и внедрение.
С каждым годом сфера деятельности почты становится все сложнее. Также
свою роль играет и расширение обязанностей оператора, которые появляются в
процессе развития почтовых услуг
Закономерно, что чем больше клиентов – тем сложнее создать систему приема
почтовых отправлений, которая бы отвечала всем современным стандартам.
Решением может стать автоматизация приема, обработки и выдачи почтовых
отправлений.
Подобная автоматизация не только снизит количество ошибок, но и повысит
доходность почты.
Разработанная система обеспечивает качественную регистрацию почтовых
отправлений, мгновенный поиск по дате автоматизированный учет отправлений всех
79
категорий и составление статистических справок, что существенно упрощает работу и
увеличивает производительность компании.
Кроме того, внедрение системы позволит сократить площади, на которых
хранится информация, ведь отпадет необходимость ведения бумажных журналов
регистрация поступающих документов.
А если учесть, что с каждым годом объем обрабатываемой информации будет
только возрастать, становится очевидным, что внедрение автоматизированной
системы обработки почтовых отправлений является ключом к эффективной работе и
в будущем.
80
СПИСОК ИСПОЛЬЗОВАННОЙ ЛИТЕРАТУРЫ
1. ГОСТ Р ИСО/МЭК 12207-2010 Информационная технология. Системная и
программная инженерия. Процессы жизненного цикла программных средств.
2. Аппаратное обеспечение вычислительных систем / Д.В. Денисов, В.А. Артюхин,
М.Ф. Седненков; под ред. Д.В. Денисова. – М.: Маркет ДС, 2010. – 184 с.
(Университетская серия.)
3. Архипенков, С. Хранилища данных. От концепции до внедрения / С. Архипенков,
Д. Голубев, О. Максименко. - М.: Диалог-Мифи, 2017. - 528 c
4. Белоногов, Г.Г. Автоматизация процессов накопления, поиска и обобщения
информации / Г.Г. Белоногов, А.П. Новоселов. - М.: Наука, 2012. - 256 c
5. Беленькая, М.Н., Малиновский, С.Т., Яковенко, Н.В. Администрирование в
информационных системах. Научно-популярное издание. – М.: Горячая линия -
Телеком, 2011. – 300 с.
6. Бодров, О.А. Предметно-ориентированные экономические информационные
системы: Учебник для вузов / О.А. Бодров. - М.: Гор. линия-Телеком, 2013. – 244
c.
7. Брусакова, И. А. Информационные системы и технологии в экономике / И.А.
Брусакова, В.Д. Чертовской. - М.: Финансы и статистика, 2017. - 352 c.
8. Бородацкий Ю. В., Лободинский Ю. Г. Информационные технологии: Методы,
процессы, системы / Ю.В. Бородацкий, Ю.Г. Лободинский. – М.: Радио и связь,
2014. – 371 с.
9. Васильков, А. В. Безопасность и управление доступом в информационных
системах / А.В. Васильков, И.А. Васильков. - М.: Форум, 2015. - 368 c
10. Варфоломеева, А.О. Информационные системы предприятия: Учебное пособие /
А.О. Варфоломеева, А.В. Коряковский, В.П. Романов. - М.: НИЦ ИНФРА-М,
2013. – 283 c.
11. Грекул, В.И., Денищенко, Г.Н., Коровкина, Н.Л. Проектирование
информационных систем – М.: ИУИТ, 2012. – 300 с.
12. Голицына, О.Л., Попов, И.И., Максимов, Н.В. Базы данных. Учебное пособие. –
3-е изд., перераб. и доп. – М.: ФОРУМ, 2012. – 400 с.
81
13. Гришин, А.В. Промышленные информационные системы и сети: практическое
руководство / А.В. Гришин. - М.: Радио и связь, 2010. – 176 c.
14. Информационная безопасность и защита информации / В.П. Мельников. – М.:
Академия, 2012. – 336 с.
15. Кузнецов, С.Д. Базы данных. Модели и языки. – М.: Бином-Пресс, 2013. – 720 с.
16. Култыгин, О.П. Администрирование баз данных. СУБД MS SQL Server. – М:
Московская финансово-промышленная академия, 2012. – 232 с. (Университетская
серия).
17. Мезенцев, К.Н. Автоматизированные информационные системы: Учебник для
студентов учреждений среднего профессионального образования / К.Н. Мезенцев.
- М.: ИЦ Академия, 2013. – 176 c.
18. Норенков, И.П. Автоматизированные информационные системы: Учебное
пособие / И.П. Норенков. - М.: МГТУ им. Баумана, 2011. – 342 c.
19. . Пестриков, Виктор Delphi на примерах / Виктор Пестриков , Артур Маслобоев. -
М.: БХВ-Петербург, 2017. - 496 c.
20. Устройство и функционирование информационных систем / Н.З. Емельянова, Т.Л.
Партыка, И.И. Попов. Учебное пособие. – М.: ФОРУМ, НИЦ, ИНФРА-М. – 2012.
– 448 с.
21. Федорова, Г.Н. Информационные системы: Учебник для студ. учреждений сред.
проф. образования / Г.Н. Федорова. - М.: ИЦ Академия, 2013. – 208 c.
22. Вильданов, А. Н. Разработка приложений в DELPHI [Электронный ресурс]: учеб.
пособие / А. Н. Вильданов; БашГУ. — Уфа: РИЦ БашГУ, 2012 — 95 с. —
Электронная версия печатной публикации. —
<URL:https://elib.bashedu.ru/dl/read/VildanovRazrabPrilDelphi.pdf>
82
ПРИЛОЖЕНИЕ 1
unit Unit16;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, ComCtrls, StdCtrls;
type
TForm16 = class(TForm)
Edit1: TEdit;
Edit2: TEdit;
Edit3: TEdit;
Label1: TLabel;
Label2: TLabel;
Label3: TLabel;
Label4: TLabel;
Button1: TButton;
Button2: TButton;
DateTimePicker1: TDateTimePicker;
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form16: TForm16;
implementation
uses Unit1;
{$R *.dfm}
procedure TForm16.Button1Click(Sender: TObject);
begin
Close;
end;
procedure TForm16.Button2Click(Sender: TObject);
begin
Form1.AdoTable5.Insert;
83
Form1.AdoTable5.FieldByName('Код_товара').Text:=Edit1.Text;
Form1.AdoTable5.FieldByName('Код_продавца').Text:=Edit2.Text;
Form1.AdoTable5.FieldByName('Количество').Text:=Edit3.Text;
Form1.AdoTable5.FieldByName('Дата_продажи').AsDateTime:=DateTimePicker1.Date;
if Form1.AdoTable5.Modified
then Form1.AdoTable5.Post;
close;
end;
end.
unit Unit17;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs,Unit1, StdCtrls, Mask, DBCtrls;
type
TForm17 = class(TForm)
Label1: TLabel;
Label2: TLabel;
Label3: TLabel;
Label4: TLabel;
DBEdit1: TDBEdit;
DBEdit2: TDBEdit;
DBEdit3: TDBEdit;
DBEdit4: TDBEdit;
Button1: TButton;
Button2: TButton;
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form17: TForm17;
implementation
84
{$R *.dfm}
procedure TForm17.Button1Click(Sender: TObject);
begin
if form1.ADOTable5.Modified
then form1.ADOTable5.Post;
end;
procedure TForm17.Button2Click(Sender: TObject);
begin
Close;
end;
end.
unit Unit2;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, jpeg, ExtCtrls, Menus, DB, ADODB;
type
TForm1 = class(TForm)
Image1: TImage;
Button1: TButton;
Button2: TButton;
Button3: TButton;
Button4: TButton;
Button5: TButton;
Button6: TButton;
Button7: TButton;
MainMenu1: TMainMenu;
N1: TMenuItem;
N2: TMenuItem;
N3: TMenuItem;
N4: TMenuItem;
N5: TMenuItem;
N6: TMenuItem;
85
N7: TMenuItem;
N8: TMenuItem;
N9: TMenuItem;
N10: TMenuItem;
N11: TMenuItem;
N12: TMenuItem;
N13: TMenuItem;
N14: TMenuItem;
ADOConnection1: TADOConnection;
DataSource1: TDataSource;
ADOTable1: TADOTable;
ADOTable2: TADOTable;
DataSource2: TDataSource;
ADOTable3: TADOTable;
DataSource3: TDataSource;
ADOTable4: TADOTable;
DataSource4: TDataSource;
ADOTable5: TADOTable;
DataSource5: TDataSource;
DataSource6: TDataSource;
ADOTable6: TADOTable;
ADOTable7: TADOTable;
DataSource7: TDataSource;
ADOTable8: TADOTable;
DataSource8: TDataSource;
ADOTable9: TADOTable;
DataSource9: TDataSource;
ADOTable10: TADOTable;
ADOTable11: TADOTable;
DataSource10: TDataSource;
DataSource11: TDataSource;
procedure N10Click(Sender: TObject);
procedure Button7Click(Sender: TObject);
procedure Button1Click(Sender: TObject);
procedure N4Click(Sender: TObject);
procedure Button3Click(Sender: TObject);
procedure N6Click(Sender: TObject);
procedure Button4Click(Sender: TObject);
procedure N7Click(Sender: TObject);
procedure Button6Click(Sender: TObject);
procedure N9Click(Sender: TObject);
procedure Button5Click(Sender: TObject);
procedure N8Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
procedure N5Click(Sender: TObject);
procedure N12Click(Sender: TObject);
86
procedure N13Click(Sender: TObject);
procedure N14Click(Sender: TObject);
procedure N11Click(Sender: TObject);
procedure N3Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
uses Unit2, Unit3, Unit4, Unit5, Unit6, Unit7, Unit8, Unit9, Unit10,
Unit11, Unit12;
{$R *.dfm}
procedure TForm1.N10Click(Sender: TObject);
begin
Form2.Showmodal;
end;
procedure TForm1.Button7Click(Sender: TObject);
begin
Form2.Showmodal;
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
Form3.ShowModal;
end;
procedure TForm1.N4Click(Sender: TObject);
begin
Form3.ShowModal;
end;
procedure TForm1.Button3Click(Sender: TObject);
begin
Form4.ShowModal;
end;
procedure TForm1.N6Click(Sender: TObject);