97
Заключение
В итоге выполненной работы становится ясно, что главные задачи
дипломной работы — анализ деятельности компании, описание присутствующих
недостатков в текущих принципах управления компанией, создание АРМ
менеджера склада, в рамках дипломного проекта выполнены.
В этом дипломе описана деятельность ТОО «Korea Motors — ASTANA».
В работе проанализирована организационно-штатная структура управления
компанией, особое внимание уделено функциям складского учета.
В процессе исследования деятельности предприятия выявлено, что
проблемным местом является организация процесса складского учета, то есть
учета движения товаров на складе предприятия. Также было выяснено, что по
итогам применения неэффективных бизнес-процессов в компании предприятии
крайне неправильно используется рабочее время работников склада.
После анализа требований к техническому обеспечению становится ясно,
что внедрение какого-либо аппаратного обеспечения в целях автоматизации
задачи в уже используемую информационную систему не требуется.
Затем приводится примерный состав справочников и классификаторов
системы, а далее в ходе сравнения и анализа, определяется язык
программирования и наиболее оптимальная СУБД.
В отдельном разделе в процессе описания информационного обеспечения
задачи показываются сама информационная модель, классификаторы и системы
кодирования, а также дается характеристика входной, справочной и результатной
информации, описывается структура пакета программ.
В созданной системе итоговой информацией становятся данные о
поступающей, хранимой и отправляемой номенклатуре любых товаров.
В процессе характеристики ПО задачи приводится дерево функций
системы, описание диалога пользователя и системы, используемой базы данных,
в том числе присутствует ее ER-диаграмма и имеется описание реквизитного
состава каждой таблицы (по каждому полю, типу и назначению), также
присутствует описание структурной схемы пакета и программных модулей.
Подробности взаимодействия работы с системой описаны в контрольном
примере реализации проекта.
98
Спроектированная ИС доступна пользователям с любым уровнем
подготовки, не требует отдельного обучения и специальных знаний для ее
повседневного использования.
Созданный проект полностью соответствует требованиям представленного
на дипломное проектирование задания.
В процессе разработки пользовательского интерфейса использовались
общие требования к дизайну и юзабилити.
В процессе создания ПО применялся язык программирования Delphi, а
также популярная система управления базами данных MS Access 2010.
Применение созданной ИС возможно в любой компании, имеющей
аналогичные бизнес-процессы, с минимальными доработками или даже вовсе
без них.
Цели и задачи дипломного проекта можно считать выполненными.
На основании анализа предметной области и данных, полученных путем
испытания программного решения, была рассчитана ожидаемая экономическая
эффективность проекта. Ее уровень позволяет говорить о рентабельности
данного проекта. Было отмечено снижение как стоимостных, так и трудовых
затрат.
Таким образом, основные задачи дипломного проекта — анализ
деятельности предприятия, выявление существующих недостатков в текущей
технологии управления магазина компьютерной техники, разработка системы
для автоматизации процессов, связанных с реализацией товаров, выполнены, а
цели достигнуты.
99
Список использованной литературы
1. Баодин Лю, Теория и практика неопределенного программирования,
М., Бином. Лаборатория знаний, 2017 г, 416 с.
2. Барт Бэзинс, Эйми Бэкил, Зеппе Ванден Бруке, Java для
начинающих. Объектно-ориентированный подход, М., Питер, 2018 г, 688 с.
3. Березин С.А., Березин Б.А., Начальный курс С и С++, М., Диалог-
МИФИ, 2017 г., 288 с.
4. Брайан У. Керниган, Деннис М. Ритчи, Язык программирования C,
М., Вильямс, 2017 г, 288 с.
5. Брайан У. Керниган, Роб Пайк, Практика программирования, М.,
Вильямс, 2017 г., 288 с.
6. Бунаков П.А., Лопатин А. В, Практикум по решению задач на ЭВМ
в среде Delphi. Учебное пособие, М., Инфра-М, 2018 г, 304 с.
7. Бэнкс, Порселло: React и Redux. Функциональная веб-разработка,
М. Питер, 2018 г., 336 с.
8. Васильев Р.А, Калянов Г.А., Левочкина Г.А., Стратегическое
управление информационными системами, М, Интернет-университет
информационных технологий, Бином. Лаборатория знаний, 2017 г, 512 с.
9. Вон Вернон, Реализация методов предметно-ориентированного
проектирования, М, Вильямс, 2017 г, 688 с.
10. Габасов Р.А., Кириллова Ф.А., Методы линейного
программирования. Часть 1. Общие задачи, М., Либроком, 2018 г, 176 с.
11. Габасов Р.А., Кириллова Ф.А., Методы линейного
программирования. Часть 3. Специальные задачи, М., Либроком, 2018 г, 368 с.
12. Гольштейн Е.А., Юдин Д.А., Специальные направления в линейном
программировании, М, Красанд, Editorial URSS, 2018 г, 526 с.
13. Грацианова Т.А., Программирование в примерах и задачах, М.,
Лаборатория знаний, 2018 г, 368 с.
14. Данилин А.А., Слюсаренко А. В., Архитектура и стратегия. "Инь" и
"янь" информационных технологий, М, Интернет-университет информационных
технологий, 2017 г, 506 с.
100
15. Джеффри Рихтер, CLR via C#. Программирование на платформе
Microsoft.NET Framework 4.5 на языке C#, М., Питер, 2017 г, 896 с.
16. Джон Дакетт: Javascript и jQuery. Интерактивная веб-разработка, М.
Эксмо, 2017 г., 640 с.
17. Джон Скит, C# для профессионалов. Тонкости программирования,
М., Вильямс, 2017 г, 608 с.
18. Джоэл Грас, Data Science. Наука о данных с нуля, М, БХВ-
Петербург, 2018, 336 с.
19. Иванова Г.А., Технология программирования, М, КноРус, 2018 г, 336
с.
20. Исаев Г.А, Теоретико-методологические основы качества
информационных систем, М. Инфра-М, 2018 г. 258 с.
21. Ли Атчисон, Масштабирование приложений. Выращивание
сложных систем, М, Питер, 2018 г, 256 с.
22. Мартин Фаулер, Предметно-ориентированные языки
программирования, М., Вильямс, 2017 г, 576 с.
23. Окулов С.А., Пестов О.Г, Динамическое программирование, М.,
Бином. Лаборатория знаний, 2017 г, 296 с.
24. Панюкова Т.А. Панюков А.С., Языки и методы программирования.
Путеводитель по языку С++, М., Ленанд, 2018 г, 216 с.
25. Подбельский В.А, Курс программирования на языке Си, М.,
ДМК Пресс, 2018 г, 384 с.
26. Поль М. Дюваль, Стивен Матиас, Эндрю Гловер, Непрерывная
интеграция. Улучшение качества программного обеспечения и снижение риска,
М., Вильямс, 2017 г, 240 с.
27. Стенли Б. Липпман, Жози Лажойе, Заря Э. Му, Язык
программирования C++. Базовый курс, М, Вильямс, 2017 г, 1120 с.
28. Фредерик Брукс, Проектирование процесса проектирования.
Записки компьютерного эксперта, М., Вильямс, 2017 г, 464 с.
101
Приложение. Листинг программных модулей
//---------------------------------------------------------------------------
#include <vcl.h>
#pragma hdrstop
#include "ufRefBooks.h"
#include "ufData.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TfRefBooks *fRefBooks;
//---------------------------------------------------------------------------
__fastcall TfRefBooks::TfRefBooks(TComponent* Owner)
: TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TfRefBooks::PagesVisible (bool Value)
{
//
for (int I = 0; I < pcRefBooks->PageCount - 1; I ++)
{
//
pcRefBooks->Pages[I]->TabVisible = Value;
}
}
void __fastcall TfRefBooks::bLoadClick(TObject *Sender)
{
//
if ( (fData->InSystem != true) ) return;
if ( (opdRefBooks->Execute() == true) )
{
//
TFileStream *FS = new TFileStream (opdRefBooks->FileName,
fmOpenRead);
try {
FS->Position = 0;
fData->tDetails->Edit();
fData->tDetailsЛоготип->LoadFromStream(FS);
FS->Free();
} catch (...) /*finally*/ {
102
//
FS->Free();
throw;
}
}
}
void __fastcall TfRefBooks::bClearClick(TObject *Sender)
{
if ( (fData->InSystem != true) ) return;
fData->tDetails->Edit();
fData->tDetailsЛоготип->Clear();
}
void __fastcall TfRefBooks::FormActivate(TObject *Sender)
{
if ( (TabIndex > -1) && (TabIndex < pcRefBooks->PageCount) )
{
//
PagesVisible (false);
pcRefBooks->Pages[TabIndex]->TabVisible = true;
}
else
//
PagesVisible (true);
}
void __fastcall TfRefBooks::FormCreate(TObject *Sender)
{
TabIndex = -1;
}
void __fastcall TfRefBooks::FormKeyPress(TObject *Sender,
System::WideChar &Key)
{
if ( (Key == Char(27)))
Close ();
}
// ---------------------------------------------------------------------------
#include <vcl.h>
#pragma hdrstop
#include "ufStatSale.h"
// ---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TfStatSale *fStatSale;
103
// ---------------------------------------------------------------------------
__fastcall TfStatSale::TfStatSale(TComponent* Owner) : TForm(Owner) {
}
// ---------------------------------------------------------------------------
UnicodeString GetList(TStringList *L) {
//
L->Insert(0, "");
UnicodeString Result = L->Text;
L->Free();
return Result;
}
void __fastcall TfStatSale::Load()
{
try {
//
if (fData->tStatSale->Active) {
fData->tStatSale->Close();
fData->tStatSale->Open();
}
cbStaff->Enabled = fData->UserType == utAdmin;
cbCode->Items->Text =
GetList(fData->GetStringsForQuery
("SELECT Артикул FROM Запрос_Статистика_продаж
GROUP BY Артикул ORDER BY Артикул ASC")
);
cbDate->Items->Text =
GetList(fData->GetStringsForQuery
("SELECT cast(Дата AS DATE) AS Выражение1 FROM
Запрос_Статистика_продаж GROUP BY cast(Дата AS DATE) ORDER BY
cast(Дата AS DATE)")
);
cbClient->Items->Text =
GetList(fData->GetStringsForQuery
("SELECT Запрос_Статистика_продаж.Клиент FROM
Запрос_Статистика_продаж GROUP BY Запрос_Статистика_продаж.Клиент
ORDER BY Запрос_Статистика_продаж.Клиент")
);
cbCommodityType->Items->Text =
GetList(fData->GetStringsForQuery
("SELECT Запрос_Статистика_продаж.Тип_товара
FROM Запрос_Статистика_продаж GROUP BY
104
Запрос_Статистика_продаж.Тип_товара ORDER BY
Запрос_Статистика_продаж.Тип_товара")
);
cbStaff->Items->Text =
GetList(fData->GetStringsForQuery
("SELECT Запрос_Статистика_продаж.Сотрудник
FROM Запрос_Статистика_продаж GROUP BY
Запрос_Статистика_продаж.Сотрудник ORDER BY
Запрос_Статистика_продаж.Сотрудник")
);
cbProductType->Items->Text =
GetList(fData->GetStringsForQuery
("SELECT Тип_продукта FROM
Запрос_Статистика_продаж GROUP BY Тип_продукта ORDER BY
Тип_продукта ASC")
);
Filter();
}
catch (...) {
}
}
// ---------------------------------------------------------------------------
void __fastcall TfStatSale::cbCodeChange(TObject *Sender) {
//
Filter();
}
// ---------------------------------------------------------------------------
void __fastcall TfStatSale::Filter() {
//
try {
UnicodeString S = "";
UnicodeString F = "";
if (fData->UserType == utAdmin) {
if ((cbStaff->Text != "")) {
//
if (S != "")
S = S + ", ";
S = S + "Сотрудник '" + cbStaff->Text + "'";
if (F != "")
F = F + " and ";
F = F + "Сотрудник = " + QuotedStr(cbStaff-
>Text);
105
}
}
else {
//
if (F != "")
F = F + " and ";
F = F + "Код_Сотрудник = " + IntToStr(fData->UserID);
}
if ((cbCode->Text != "")) {
//
if (S != "")
S = S + ", ";
S = S + "Артикул '" + cbCode->Text + "'";
if (F != "")
F = F + " and ";
F = "Артикул = " + cbCode->Text;
}
if ((cbDate->Text != "")) {
//
if (S != "")
S = S + ", ";
S = S + "Дата '" + cbDate->Text + "'";
if (F != "")
F = F + " and ";
F = F + "Дата_ = " + QuotedStr(cbDate->Text);
}
if ((cbClient->Text != "")) {
//
if (S != "")
S = S + ", ";
S = S + "Клиент '" + cbClient->Text + "'";
if (F != "")
F = F + " and ";
F = F + "Клиент = " + Char (39) + cbClient->Text + Char
(39);
}
if ((cbCommodityType->Text != "")) {
//
if (S != "")
S = S + ", ";
S = S + "Категория товара '" + cbCommodityType->Text
106
+ "'";
if (F != "")
F = F + " and ";
F = F + "Тип_товара = " + QuotedStr(cbCommodityType-
>Text);
}
if ((cbProductType->Text != "")) {
//
if (S != "")
S = S + ", ";
S = S + "Тип продукта '" + cbProductType->Text + "'";
if (F != "")
F = F + " and ";
F = F + "Тип_продукта = " + QuotedStr(cbProductType-
>Text);
}
if (dtpLimit1->Checked) {
//
if (S != "")
S = S + ", ";
S = S + "Дата начала периода '" + DateToStr (dtpLimit1-
>DateTime) + "'";
if (F != "")
F = F + " and ";
F = F + "Дата_ >= " + QuotedStr(DateToStr(dtpLimit1-
>DateTime));
}
if (dtpLimit2->Checked) {
//
if (S != "")
S = S + ", ";
S = S + "Дата окончания периода '" + DateToStr
(dtpLimit2->DateTime) + "'";
if (F != "")
F = F + " and ";
F = F + "Дата_ <= " + QuotedStr(DateToStr(dtpLimit2-
>DateTime));
}
fData->cdsParams->Edit();
fData->cdsParamsSortType->Value = "Выборка: " + S;