98
Заключение
Информация – это самостоятельный производственный фактор,
потенциальные возможности которого открывают широкие перспективы для
укрепления конкурентоспособности фирм. Потоки информации являются теми
связующими нитями, на которые нанизываются все подразделения компании. По
итогу анализа текущей технологии управления были составлены цели и назначение
создаваемого автоматизированного варианта решения указанной задачи, а также
выведен ряд проектных решений по информационному, техническому,
программному и технологическому обеспечению.
Для создаваемой ИС была подготовлена информационная модель, создана
локальная система кодирования и классификации. Также были приняты решения
по методике хранения и представления данных. Создана инфологическая схема БД.
В рамках ПО были построены дерево функций и сценарий диалога работы
ИС по учету затрат по местам возникновения, создана структурная схема пакета:
схема взаимосвязи модулей и файлов программы и дерево вызова процедур.
Для технологического обеспечения была создана схема организации
методики нахождения, отправки, изучения и представления информации для
рассматриваемого проекта.
В рамках анализа предметной области и данных, выведенных путем
тестирования программного решения, была выражена ожидаемая экономическая
эффективность предлагаемого решения. Ее уровень дает возможность говорить о
рентабельности рассматриваемого проекта. Было получено снижение как
стоимостных, так и трудовых затрат.
Последующее развитие представленной ИС пройдет по направлению к
расширению ее функциональности, а также объединением с существующей
системой компании.
Цели создания разработанной информационной системы документооборота
неликвидного товара учета:
обеспечить конкурентоспособность и выживаемость фирмы;
обеспечить работникам нормальный трудовой процесс;
99
устранить несогласованность в получении и использовании
информации;
повысить достоверность используемой информации;
расширить функций предприятия в соответствии с требованиями
рынка.
Важность разработанной информационной системы прежде всего
заключается в том, что на ней базируется подсистема управления компанией
соответствующего уровня. Это связано со спецификой работы рассматриваемой
компании. И от степени наполнения информационной системы, качества и
своевременности информации зависит эффективность системы управления в
целом.
В основу построения информационной системы заложены следующие
принципы:
Полнота и пригодность информации для пользователя.
Точность.
Своевременность.
Ориентированность.
Гибкость.
Подходящий формат данных.
В результате получения программно-аппаратных средств удовлетворяющих
поставленным целям упраздняется рутинная работа по оформлению документов,
канцелярских и бумажных учетов, отпадает множество операций и формальностей.
К достоинствам автоматизированной информационной системы можно
отнести – удобство и высокую скорость обмена информацией между
информационными потоками или между сотрудничающими компаниями
(арендатор, арендодатель и клиент) и большой объем передачи данных,
практически без запаздываний, что приводит к значительным усилениям систем с
обратной связью.
В результате проведенной работы ясно, что основные задачи дипломного
проекта — анализ деятельности предприятия, выявление существующих
100
недостатков в текущей технологии управления предприятием, разработка
информационной системы учета ремонта техники, в дипломной работе выполнены.
В ВКР рассмотрена деятельность ОАО «Samsung service» , организационно-
штатная структура управления предприятием, особо выделены функции учета
выполнения специальных работ, обоснована необходимость его автоматизации.
Далее описана существующая информационная структура предприятия,
включающая в себя локальную вычислительную четь, серверное оборудование и
рабочие станции пользователей, приведено описание основных типов
используемого программного обеспечения.
Содержание работы с системой подробно описано в контрольном примере
реализации проекта.
Расчет экономической эффективности показал, что окупаемость затрат на
внедрение проекта составляет около 15 месяцев, то есть проект является
экономически выгодным с точки зрения снижения трудовых и стоимостных затрат.
Разработанная информационная система доступна пользователям с любым
уровнем подготовки, не требует специальных знаний для ее использования.
Разработанный проект в полной мере соответствует требованиям задания на
дипломное проектирование.
101
Список использованной литературы
22. Авдошин А.А., Песоцкая Е.В.: Информатизация бизнеса. Управление
рисками, - М., ДМК-Пресс, 2011 , 176 с.
23. Алекс Эллайн: C++. От ламера до программера (включая C++11), - М.,
Издательство: Питер, 2015 , 480 с.
24. Аникеев С. П., Маркин Н.В.: Разработка приложений баз данных в
Delphi. Самоучитель, - М.,Диалог-МИФИ, 2013 , 160 с.
25. Арнольд Виллемер: Программирование на С++, - М., Эксмо, 2013 , 528
с.
26. Брюс Тейт: Семь языков за семь недель. Практическое руководство по
изучению языков программирования, - М., Издательство: ДМК-Пресс, 2014 , 384 с.
27. Васвани В.А.: MySQL: использование и администрирование, СПб,
Питер, 2011 , 368 с.
28. Васильев А.В: Самоучитель C++ с примерами и задачами, - М., Наука
и Техника, 2015 , 480 с.
29. Вигерс, Битти: Разработка требований к программному обеспечению, -
М., Издательство: BHV, 2014 , 736 с.
30. Герберт Шилдт: С++ для начинающих, - М., Эком, 2011 , 640 с.
31. ГолощаповА. Р.: MicrosoftVisualStudio 2011, - М., BHV, 2011 , 544 с.
32. ГурвицЕ.: Microsoft Access 2011. Разработка приложений на реальном
примере, - М., BHV, 2011 , 424 с.
33. Дейтел, Дейтел: Как программировать на Visual C# 2012. Включая
работу на Windows 7 и Windows 8, - М., Питер, 2014 , 864 с.
34. Джо Майо: Самоучитель MicrosoftVisualStudio 2011, - М., BHV, 2011 ,
464 с.
35. Исаев А.: Информационные системы в экономике. Учебник, - М.,
Омега-Л, 2013 , 462 с.
36. Исаев А.: Проектирование информационных систем. Учебное пособие,
- М., Омега-Л, 2015 , 424 с.
102
37. ИэнГриффитс: Программирование на C# 5.0, - М., Эксмо, 2014 , 1135
с.
38. Курлов А.А, Петров Е.А.: Методология информационной аналитики, -
М.,Проспект, 2014 , 384 с.
39. Мартынов Н.А: Программирование для Windows на С\С++. В 2-х
томах, - М., Бином, 2013 , 480 с.
40. Ошероув Р.О: Искусство автономного тестирования с примерами на
С#, - М., ДМК-Пресс, 2014 , 360 с.
41. Паттерсон, Хеннесси: Архитектура компьютера и проектирование
компьютерных систе- М. Классика ComputersScience, Спб Питер, , 2012 , 784 с.
42. Пирогов В.А.: Информационные системы и базы данных: организация
и проектирование, - М., BHV, 2009 , 528 с.
43. Полубенцева - М. П.: С/С++ Процедурное программирование, - М.,
BHV, 2014 , 432 с.
44. Потопахин В.С.: Искусство алгоритмизации, - М., Издательство:
ДМК-Пресс, 2014 , 320 с.
45. Пугачев Е.К., Шериев Ш.К., Кичинский Е.А.: Разработка приложений
для Windows 8 на языке C#, - М., BHV, 2013 , 416 с.
46. Роберт Дж. Мюллер, Проектирование баз данных и UML, - М., Лори,
2013 год, 432 с.
47. Роберт Лафоре: Объектно-ориентированное программирование в С++,
- М., Питер, 2013 , 928 с.
48. СурядныйА.Е.: Microsoft Access 2011. Лучший самоучитель, - М.,
Астрель, 2012 , 448 с.
49. Таненбаум А.А, Бос Е.В.: Современные операционные системы, Спб,
Питер, 2015 , 1120 стр
50. Тахагхогхи, Вильямс: Руководство по MySQL, - М., BHV, 2011 , 544 с.
51. Тимофеев В. А: Самоучитель С++ как он есть, - М., Бином, 2009 , 336
с.
52. Тюгашев А. Е.: Языки программирования. Учебное пособие. Стандарт
третьего поколения, - М., Издательство: Питер, 2014 336 с.
103
53. Ховард, Лебланк, Виега: Как написать безопасный код на С++, Java,
Perl, PHP, ASP.NET, - М., ДМК-Пресс, 2014 , 288 с.
54. Чистов Д.А: Экономическая информатика (для бакалавров). Учебное
пособие, - М., Кнорус, 2014 , 512 с.
55. Эндрю Стиллмен: Изучаем C#, - М., Питер, 2014 , 816 с.
56. Энтони Молинаро, SQL. Сборник рецептов, - М., Символ-Плюс,2011 ,
672 с.
57. Энтони Уильямс: Параллельное программирование на С++ в действии.
Практика разработки многопоточных программ, - М., ДМК-Пресс, 2014 , 672 с.
104
Приложение. Листинг программных модулей
unit uAnalysisSaver;
interface
uses Classes, DB, ADODB, SysUtils, Dialogs;
type
TAnalysisSaver = class
//
private
FConnection : TADOConnection;
FAnalysis : TADOTable;
FAnalysisDish : TADOTable;
FAnalysisProduct : TADOTable;
function GetQuery (SQL : String) : TADOQuery;
procedure AddDishProducts (Date : TDate; DishID : Integer ; Count :
Integer);
procedure Clear;
procedure ActiveTables (Value : Boolean);
public
constructor Create (Connection : TADOConnection);
destructor Destroy;
procedure CreateAnalysis (FirstDate : TDateTime; DaysCount : Integer);
procedure Save (Date : TDate; DishID : Integer ; Count : Integer);
105
end;
implementation
function TAnalysisSaver.GetQuery (SQL : String) : TADOQuery;
begin
//
Result := TADOQuery.Create(nil);
try
Result.Connection := FConnection;
Result.SQL.Text := SQL;
Result.Open;
except
//
on E : Exception do
begin
//
Result.Free;
raise Exception.Create(E.Message);
end;
end;
end;
constructor TAnalysisSaver.Create (Connection : TADOConnection);
begin
//
FConnection := Connection;
FAnalysis := TADOTable.Create (nil);
FAnalysis.Connection := FConnection;
FAnalysis.TableName := 'Анализ';
FAnalysisDish := TADOTable.Create (nil);
106
FAnalysisDish.Connection := FConnection;
FAnalysisDish.TableName := 'Анализ_Блюда';
FAnalysisProduct := TADOTable.Create (nil);
FAnalysisProduct.Connection := FConnection;
FAnalysisProduct.TableName := 'Анализ_Продукты';
end;
procedure TAnalysisSaver.ActiveTables (Value : Boolean);
begin
//
FAnalysis.Active := Value;
FAnalysisDish.Active := Value;
FAnalysisProduct.Active := Value;
end;
destructor TAnalysisSaver.Destroy;
begin
//
end;
procedure TAnalysisSaver.AddDishProducts (Date : TDate; DishID : Integer ;
Count : Integer);
var
//
Q : TADOQuery;
I : Integer;
VA : array of Variant;
begin
//
107
try
Q := GetQuery('SELECT * FROM Состав_блюда WHERE Код_Блюдо = '
+ IntToStr (DishID) + ';');
for I := 1 to Q.RecordCount do
begin
//
Q.RecNo := I;
SetLength(VA, 3);
VA[0] := Date;
VA[1] := Q.FieldByName('Код_Продукт').AsInteger;
VA[2] := Q.FieldByName('Код_Единица').AsInteger;
FAnalysisProduct.Filter := 'Дата = ' + #39 + DateToStr(Date) + #39 + ' and
Код_Продукт = ' + IntToStr (Q.FieldByName('Код_Продукт').AsInteger) + ' and
Код_Единица = ' + IntToStr (Q.FieldByName('Код_Единица').AsInteger);
FAnalysisProduct.Filtered := True;
if FAnalysisProduct.RecordCount = 0 then
begin
FAnalysisProduct.Insert;
FAnalysisProduct.FieldByName ('Дата').AsDateTime := Date;
FAnalysisProduct.FieldByName ('Код_Продукт').Value :=
Q.FieldByName('Код_Продукт').AsInteger;
FAnalysisProduct.FieldByName ('Код_Единица').Value :=
Q.FieldByName('Код_Единица').AsInteger;
FAnalysisProduct.FieldByName ('Количество').Value :=
Q.FieldByName('Количество').AsFloat*(Count + 0.0);
FAnalysisProduct.Post;
end
else
begin
//