97
Рисунок 3.1 Диаграмма сравнения базового и проектного варианта
трудовых затрат обработки информации.
Рисунок 3.2 Диаграмма сравнения базового и проектного варианта
стоимостных затрат обработки информации.
Срок окупаемости затрат на использование проекта машинной обработки
информации: Т
ок
= 252439/281268=0,9 года или 10 месяцев.
4928,92
3530,90
1398,02
0,00
1000,00
2000,00
3000,00
4000,00
5000,00
6000,00
Базовый вариант Проектный вариант Снижение затрат
часов
4958247,07
3800871,42
1157375,65
0
1000000
2000000
3000000
4000000
5000000
6000000
Базовый вариант Проектный вариант Снижение затрат
тенге
98
Заключение
В результате проведенной работы ясно, что основные задачи дипломного
проекта — анализ деятельности предприятия, выявление существующих
недостатков в текущей технологии управления предприятием, разработка
информационной подсистемы для организации учета рабочего времени, в
дипломной работе выполнены.
В данной дипломной работе рассмотрена деятельность ТОО «Центр Элит
НС». В работе рассмотрена организационно-штатная структура управления
предприятием.
В качестве комплекса задач автоматизации был выбран процесс учета
рабочего времени сотрудников компании.
В работе подробно описана экономическая сущность задачи, проведен
анализ существующих программных аналогов, проведена формализация расчета
показателей.
Далее проведены обоснования по техническому, информационному и
программному обеспечению задачи.
Были определены требования к необходимому техническому обеспечению,
такие элементы информационного обеспечения, как классификаторы, основные
справочники и модули информационной системы.
В ходе определения требований к программному обеспечению были
выбран язык программирования Delphi и СУБД MS SQL.
При рассмотрении требований к техническому обеспечению стало ясно, что
добавления какого-либо аппаратного обеспечения в целях выполнения
автоматизируемой задачи в существующую информационную систему не
требуется.
Далее приведен примерный состав справочников и классификаторов
системы, а также, в ходе сравнения и анализа, выбраны язык программирования и
система управления базами данных.
В проектной части в ходе описания информационного обеспечения задачи
описана информационная модель, классификаторы и системы кодирования, дана
99
характеристика входной, нормативно-справочной информации, результатной
информации.
При описании программного обеспечения задачи приведено дерево
функций системы, сценарий диалога пользователя и системы, дана
характеристика базы данных, в том числе показана ее ER-диаграмма и приведено
описание реквизитного состава каждой таблицы (наименование поля, его тип и
назначение), дано описание структурной схемы пакета и программных модулей.
Расчет экономической эффективности показал, что окупаемость затрат на
внедрение проекта составляет около 2 месяцев, а значение расчетного
коэффициента эффективности капитальных затрат – 0,7, то есть проект является
экономически выгодным с точки зрения снижения трудовых и стоимостных
затрат.
Разработанная информационная система доступна пользователям с любым
уровнем подготовки, не требует специальных знаний для ее использования.
Разработанный проект в полной мере соответствует требованиям задания
на дипломное проектирование.
.
100
Список использованной литературы
1. Алистер Коберн, Современные методы описания функциональных
требований к системам, М. , Лори, 2017 г., 288 с.
2. Антониоу, Грос, Хоекстра: Семантический веб, М, ДМК-Пресс, 2016
г., 240 с.
3. Баодин Лю, Теория и практика неопределенного программирования,
М., Бином. Лаборатория знаний, 2017 г, 416 с.
4. Барт Бэзинс, Эйми Бэкил, Зеппе Ванден Бруке, Java для начинающих.
Объектно-ориентированный подход, М., Питер, 2018 г, 688 с.
5. Березин С.А., Березин Б.А., Начальный курс С и С++, М., Диалог-
МИФИ, 2017 г., 288 с.
6. Брайан У. Керниган, Деннис М. Ритчи, Язык программирования C,
М., Вильямс, 2017 г, 288 с.
7. Брайан У. Керниган, Роб Пайк, Практика программирования, М.,
Вильямс, 2017 г., 288 с.
8. Бунаков П.А., Лопатин А. В, Практикум по решению задач на ЭВМ
в среде Delphi. Учебное пособие, М., Инфра-М, 2018 г, 304 с.
9. Бэнкс, Порселло: React и Redux. Функциональная веб-разработка, М.
Питер, 2018 г., 336 с.
10. Васильев Р.А, Калянов Г.А., Левочкина Г.А., Стратегическое
управление информационными системами, М, Интернет-университет
информационных технологий, Бином. Лаборатория знаний, 2017 г, 512 с.
11. Вон Вернон, Реализация методов предметно-ориентированного
проектирования, М, Вильямс, 2017 г, 688 с.
12. Габасов Р.А., Кириллова Ф.А., Методы линейного
программирования. Часть 1. Общие задачи, М., Либроком, 2018 г, 176 с.
13. Габасов Р.А., Кириллова Ф.А., Методы линейного
программирования. Часть 3. Специальные задачи, М., Либроком, 2018 г, 368 с.
14. Гольштейн Е.А., Юдин Д.А., Специальные направления в линейном
программировании, М, Красанд, Editorial URSS, 2018 г, 526 с.
101
15. Грацианова Т.А., Программирование в примерах и задачах, М.,
Лаборатория знаний, 2018 г, 368 с.
16. Данилин А.А., Слюсаренко А. В., Архитектура и стратегия. "Инь" и
"янь" информационных технологий, М, Интернет-университет информационных
технологий, 2017 г, 506 с.
17. Джеффри Рихтер, CLR via C#. Программирование на платформе
Microsoft.NET Framework 4.5 на языке C#, М., Питер, 2017 г, 896 с.
18. Джон Дакетт: Javascript и jQuery. Интерактивная веб-разработка, М.
Эксмо, 2017 г., 640 с.
19. Джон Скит, C# для профессионалов. Тонкости программирования,
М., Вильямс, 2017 г, 608 с.
20. Джоэл Грас, Data Science. Наука о данных с нуля, М, БХВ-Петербург,
2018, 336 с.
21. Иванова Г.А., Технология программирования, М, КноРус, 2018 г, 336
с.
22. Исаев Г.А, Теоретико-методологические основы качества
информационных систем, М. Инфра-М, 2018 г. 258 с.
23. Ли Атчисон, Масштабирование приложений. Выращивание сложных
систем, М, Питер, 2018 г, 256 с.
24. Мартин Фаулер, Предметно-ориентированные языки
программирования, М., Вильямс, 2017 г, 576 с.
25. Окулов С.А., Пестов О.Г, Динамическое программирование, М.,
Бином. Лаборатория знаний, 2017 г, 296 с.
26. Панюкова Т.А. Панюков А.С., Языки и методы программирования.
Путеводитель по языку С++, М., Ленанд, 2018 г, 216 с.
27. Подбельский В.А, Курс программирования на языке Си, М.,
ДМК Пресс, 2018 г, 384 с.
28. Поль М. Дюваль, Стивен Матиас, Эндрю Гловер, Непрерывная
интеграция. Улучшение качества программного обеспечения и снижение риска,
М., Вильямс, 2017 г, 240 с.
29. Стенли Б. Липпман, Жози Лажойе, Заря Э. Му, Язык
программирования C++. Базовый курс, М, Вильямс, 2017 г, 1120 с.
102
30. Фредерик Брукс, Проектирование процесса проектирования. Записки
компьютерного эксперта, М., Вильямс, 2017 г, 464 с.
103
Приложение. Листинг программного модуля
unit uCommon;
interface
uses DB, ADODB, DBGrids, Windows, SysUtils, ShellAPI, Forms, Variants, Dialogs,
DBClient;
procedure ClearMemory (Obj : TObject);
procedure DataSetLocateKey (DS : TDataSet; KeyName : Variant; KeyValue : Variant);
procedure DataSetReload (DS : TDataSet);
procedure dbgTitleClick (Column: TColumn);
function GetTempDir : WideString; stdcall;
function ExecuteFile(const FileName, Params, DefaultDir: string; ShowCmd: Integer): THandle;
implementation
procedure ClearMemory (Obj : TObject);
begin
//
if (Obj <> nil) then Obj.Free;
end;
procedure DataSetLocateKey (DS : TDataSet; KeyName : Variant; KeyValue : Variant);
begin
//
if (DS.Locate(KeyName, KeyValue, []) = false) then
raise Exception.Create('Не удалось найти строку с сохраненным значением ключа');
end;
procedure DataSetReload (DS : TDataSet);
var
//
KeyName, KeyValue : Variant;
I : Integer;
F : TField;
begin
//
KeyName := '';
KeyValue := NULL;
for I := 0 to DS.FieldCount - 1 do
begin
//
F := DS.Fields.FieldByNumber (I);
if (F is TAutoIncField) then
begin
//
KeyName := F.FieldName;
KeyValue := F.Value;
end;
end;
104
DS.Close;
DS.Open;
if (KeyName <> '') then
begin
if (DS.Locate(KeyName, KeyValue, []) = false) then
raise Exception.Create('Не удалось найти строку с сохраненным значением ключа');
end;
end;
procedure dbgTitleClick (Column: TColumn);
var
//
T : TClientDataSet;
SortType : TIndexOptions;
procedure ClearAllTags ();
var
I : Integer;
C : TDBGridColumns;
begin
//
C := (Column.Grid as TDBGrid).Columns;
for I := 0 to C.Count - 1 do
begin
//
if (C[I].Field.FieldName <> Column.Field.FieldName) then
begin
//
C[I].Field.Tag := 0;
C[I].Title.Caption := C[I].Field.DisplayName;
end
else
begin
//
end;
end;
end;
begin
//
T := Column.Field.DataSet as TClientDataSet;
Column.Field.Tag := Column.Field.Tag + 1;
ClearAllTags ();
if (Column.Field.Tag = 1) then
begin
SortType := [];
Column.Title.Caption := Column.Field.DisplayName + ' (по возр.)';
end;
if (Column.Field.Tag = 2) then
begin
105
SortType := [ixDescending];
Column.Title.Caption := Column.Field.DisplayName + ' (по убыв.)';
end;
if (Column.Field.FieldKind = fkData) then
begin
//
T.IndexDefs.Clear;
try
T.DeleteIndex('IX');
except
end;
T.AddIndex ('IX', Column.Field.FieldName, SortType + [ixCaseInsensitive]);
T.IndexName := 'IX';
end;
if (Column.Field.FieldKind = fkLookup) then
begin
//
T.IndexDefs.Clear;
try
T.DeleteIndex('IX');
except
end;
T.AddIndex ('IX', Column.Field.KeyFields, SortType + [ixCaseInsensitive]);
T.IndexName := 'IX';
end;
if (Column.Field.Tag >= 2) then Column.Field.Tag := 0;
end;
function GetTempDir : WideString; stdcall;
var
Buffer : array[0..1023] of Char;
begin
//
GetTempPath (1024 - 1, &Buffer);
SetString(Result, Buffer, Length(Buffer));
Result := Trim (Result);
end;
function ExecuteFile(const FileName, Params, DefaultDir: string; ShowCmd: Integer): THandle;
var
zFileName, zParams, zDir: array[0..79] of Char;
begin
Result := ShellExecute(Application.MainForm.Handle, nil,
StrPCopy(zFileName, FileName), StrPCopy(zParams, Params),
StrPCopy(zDir, DefaultDir), ShowCmd);
end;
106
end.
unit ufRefBooks;
interface
uses
Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes,
Vcl.Graphics,
Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.Grids, Vcl.DBGrids, Vcl.ComCtrls,
Vcl.DBClientActns, Vcl.DBActns, Vcl.ActnList,
Vcl.PlatformDefaultStyleActnCtrls, Vcl.ActnMan, Vcl.ImgList, Vcl.ToolWin,
Vcl.StdCtrls, Vcl.Mask, Vcl.DBCtrls, Vcl.ExtCtrls, Vcl.ExtDlgs, DBGridEhGrouping, ToolCtrlsEh,
DBGridEhToolCtrls, DynVarsEh, EhLibVCL, GridsEh, DBAxisGridsEh,
DBGridEh;
type
TfRefBooks = class(TForm)
PageControl2: TPageControl;
TabSheet7: TTabSheet;
TabSheet10: TTabSheet;
TabSheet2: TTabSheet;
TabSheet4: TTabSheet;
TabSheet1: TTabSheet;
DBGridEh1: TDBGridEh;
DBGridEh3: TDBGridEh;
DBGridEh4: TDBGridEh;
DBGridEh5: TDBGridEh;
TabSheet3: TTabSheet;
DBGridEh6: TDBGridEh;
TabSheet5: TTabSheet;
DBGridEh7: TDBGridEh;
TabSheet8: TTabSheet;
DBGridEh9: TDBGridEh;
DBGridEh2: TDBGridEh;
TabSheet6: TTabSheet;
DBGridEh8: TDBGridEh;
private
{ Private declarations }
public
{ Public declarations }
end;
var
fRefBooks: TfRefBooks;
implementation
{$R *.dfm}
uses udmData, uCommon;
end.