85
Заключение
В работе была спроектирована и разработана система учета ремонта
компьютерной техники в ООО УК «Логус-Групп».
В первой главе была дана общая характеристика объекта автоматизации –
ООО УК «Логус-Групп». Приведена организационная структура, программная и
техническая архитектура. Выявлено, что в компании имеется локальная сеть,
используются различные программные и технические средства автоматизации.
Также в первой главе подробно рассмотрены бизнес-процессы по учету
ремонта компьютерного оборудования. В результате анализа бизнес-процессов
выявлены следующие недостатки:
сведения о проведении ТО хранятся на бумажных носителях, или такую
информацию передают словесно, соответственно сохранность данной
информации зависит от человеческого фактора, а именно:
могут быть утеряны бумажные носители;
сотрудник может забыть, у какой техники последний раз делалось ТО;
в случае, если руководство потребует отчета по проведению ТО, может
быть такая ситуация, когда словесную информацию нечем подкрепить.
Для решения выявленных проблем было решено разработать и внедрить
автоматизированную систему. Был проведен обзор готовых информационных
систем. Это такие системы, как программное обеспечение IT Invent, Hardware
Inspector и конфигурация 1С: Учёт компьютеров и оборудования 8.1. Все
рассмотренные информационные системы содержат все необходимые функции
для учета компьютерной техники предприятия. Все они многофункциональны,
удобны и просты в использовании, с интуитивно понятным интерфейсом.
Единственный общий недостаток всех программ – это то, что все они платные.
Были рассмотрены различные способы автоматизации: покупка готовой
системы, покупка и доработка, разработка собственной системы. На основании
сравнения вариантов способов приобретения информационных систем, было
принято решение о разработке собственной информационной системы. Выбор
обоснован тем, что в компании имеется собственный ИТ-отдел с
высококвалифицированными специалистами, и рассмотренные готовые системы
86
имеют высокую стоимость.
Для выбора стратегии автоматизации рассмотрены такие стратегии, как
хаотичная, по направлениям, по участкам, полная. В компании «Логус» работа
всех отделов уже автоматизирована. Необходимость автоматизации учета и
обработки заявок появилась в связи с развитием компании и ростом количества
рабочих мест. Поэтому в качестве стратегии автоматизации в ГК «Логус»
выбран проект автоматизации по участкам.
Также в первой главе определены основные проектные решения, что стало
основанием для разработки, отладки программной части и для конструирования
эксплуатационной документации.
В качестве средства для разработки программного проекта был выбран
язык программирования Delphi, в качестве средства разработки баз данных
СУБД MS Access.
Вторая глава посвящена непосредственно разработке проекта
автоматизации. Выбран стандарт проектирования, модель жизненного цикла ИС.
Построена информационная модель, разработана база данных. Построено дерево
функций системы. Разработаны алгоритмы и программные модули.
В третьей главе рассчитаны экономические показатели. Система окупится
уже через полгода.
Cистема учета ремонта компьютерной техники ООО УК «Логус-Групп»
позволит повысить производительность труда менеджера, увеличит объем
продаваемой продукции на 25%, увеличит прибыль фирмы на 10%, сократить
время работы менеджера с документами, и поиск заявок в среднем на 25% за
счет автоматического анализа информации, имеющейся в базе данных.
Использование информационной системы позволит более глубоко и в
полном объеме собирать и анализировать необходимую информацию о заявках
на техническое обслуживание и ремонт.
Отмечено также повышение эффективности учета движения заявок. Для
быстрой и полной адаптации пользователя к системе был разработан удобный
дружественный интерфейс пользователя и подробное описание работы с
системой в контрольном примере.
Считаю, что созданная в работе система учета ремонта в отделе ИТ ООО
87
«Логус-Групп» полностью соответствует информационным требованиям
предприятия и сможет поддерживать это соответствие в течение всего
жизненного цикла системы.
88
Список использованной литературы
1. ГОСТ Р ИСО/МЭК 12207-2010. Информационная технология. Системная
и программная инженерия. Процессы жизненного цикла программных
средств
2. ГОСТ Р 50922-2006. Защита информации. Основные термины и
определения
3. Методология функционального моделирования IDEF0, Руководящий
документ, Госстандарт России
4. Аткинсон Л. MySQL. Библиотека профессионала - СПб: Вильямс, 2014. -
624 c.
5. Бритов Г., Осипова Т. Моделирование бизнес-процессов. - М.:LAP, 2014.
– 124 с.
6. Варфоломеева Е.В. Информационные системы в экономике: Учебное
пособие / Е.В. Варфоломеева, Т.В. Воропаева и др.; Под ред. Д.В. Чистова
- М.: НИЦ ИНФРА-М, 2015. - 234 с.
7. Вдовенко Л.А. Информационная система предприятия: Учебное
пособие/Вдовенко Л. А. - 2 изд., перераб. и доп. - М.: Вузовский учебник,
НИЦ ИНФРА-М, 2015. - 304 с.
8. Гвоздева В.А. Базовые и прикладные информационные технологии:
Учебник / Гвоздева В. А. - М.: ИД ФОРУМ, НИЦ ИНФРА-М, 2015. - 384
с.
9. Гвоздева В.А. Информатика, автоматизированные информационные
технологии и системы: Учебник / В.А. Гвоздева. - М.: ИД ФОРУМ: НИЦ
ИНФРА-М, 2015. - 544 с.
10. Грофф Д., Вайнберг П., Оппель Э. SQL. Полное руководство. - СПб.:
Вильямс, 2014. - 960с.
11. Дейт К.Дж. Введение в системы баз данных. - К.: Диалектика, 2012. - 360
c.
12. Дунаев В.В. Базы данных. Язык SQL для студента – Издательство: БХВ,
2013. - 196 с.
89
13. Заботина Н.Н. Проектирование информационных систем: Учебное
пособие / Н.Н. Заботина. - М.: ИНФРА-М, 2011. - 331 с.
14. Затонский А.В. Информационные технологии: разработка
информационных моделей и систем: Учеб. пос. / А.В.Затонский - М.: ИЦ
РИОР: НИЦ ИНФРА-М, 2014 - 344с.
15. Информационные системы в экономике: Учебник / К.В. Балдин, В.Б.
Уткин. - 7-e изд. - М.: Дашков и К, 2012. - 395 с.
16. Исаев Г. Проектирование информационных систем. Учебное пособие. -
М.: Омега-Л, 2015. - 432с.
17. Коваленко В.В. Проектирование информационных систем: Учебное
пособие / В.В. Коваленко. - М.: Форум: НИЦ ИНФРА-М, 2014. - 320 с.
18. Пирогов, В.Ю. Информационные системы и базы данных: организация и
проектирование: Учебное пособие / В.Ю. Пирогов. - СПб.: БХВ-
Петербург, 2014. - 528 c.
19. Уткин В., Балдин К. Информационные системы в экономике. - М.:
Academia, 2014. - 288с.
20. Федотова Е. Информационные технологии и системы: Учебное пособие /
Е.Л. Федотова. - М.: ИД ФОРУМ: НИЦ ИНФРА-М, 2014. - 352 с
21. Федотова Е.Л. Информационные технологии в профессиональной
деятельности: Учебное пособие / Е.Л. Федотова. - М.: ИД ФОРУМ: НИЦ
ИНФРА-М, 2015. - 368 с.
22. Фуфаев, Э.В. Базы данных: Учебное пособие для студентов учреждений
среднего профессионального образования / Э.В. Фуфаев, Д.Э. Фуфаев. -
М.: ИЦ Академия, 2014. - 320 c.
23. Шаймарданов Р.Б. Моделирование и автоматизация проектирования
структур баз данных - М.: Юнити, 2016. - 469 c.
90
Приложение
Листинг разработанной программы
unit Unit1;
interface
uses
Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes,
Vcl.Graphics,
Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Data.DB, Data.Win.ADODB, Vcl.StdCtrls,
Vcl.ExtCtrls;
type
TAddOrg = class(TForm)
Panel1: TPanel;
Label1: TLabel;
Label2: TLabel;
Label3: TLabel;
eNaz: TEdit;
eTip: TEdit;
eMesto: TEdit;
BtnAdd: TButton;
ADOConnection1: TADOConnection;
ADOQuery1: TADOQuery;
procedure BtnAddClick(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
AddOrg: TAddOrg;
implementation
{$R *.dfm}
procedure TAddOrg.BtnAddClick(Sender: TObject);
begin
ADOQuery1.SQL.Clear;
ADOQuery1.SQL.Add('INSERT INTO Оргтехника(Название,Тип,Месторасположение)
VALUES(:n,:tip,:mesto)');
ADOQuery1.Parameters.ParamByName('n').Value:=eNaz.Text;
ADOQuery1.Parameters.ParamByName('tip').Value:=eTip.Text;
ADOQuery1.Parameters.ParamByName('mesto').Value:=eMesto.Text;
ADOQuery1.ExecSQL;
Application.MessageBox('Данные сохранены!','Уведомление');
end;
end.
unit Unit2;
interface
91
uses
Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes,
Vcl.Graphics,
Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Data.DB, Data.Win.ADODB, Vcl.StdCtrls,
Vcl.ExtCtrls;
type
TAddKomp = class(TForm)
Panel1: TPanel;
Label1: TLabel;
Label2: TLabel;
eIm: TEdit;
ePrim: TEdit;
btnAdd: TButton;
ADOConnection1: TADOConnection;
ADOQuery1: TADOQuery;
Label3: TLabel;
eRasp: TEdit;
procedure btnAddClick(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
AddKomp: TAddKomp;
implementation
{$R *.dfm}
procedure TAddKomp.btnAddClick(Sender: TObject);
begin
ADOQuery1.SQL.Clear;
ADOQuery1.SQL.Add('INSERT INTO
Комп_техника(Сетевое_имя,Месторасположение,Примечание) VALUES(:im,:r,:prim)');
ADOQuery1.Parameters.ParamByName('im').Value:=eIm.Text;
ADOQuery1.Parameters.ParamByName('r').Value:=eRasp.Text;
ADOQuery1.Parameters.ParamByName('prim').Value:=ePrim.Text;
ADOQuery1.ExecSQL;
Application.MessageBox('Данные сохранены!','Уведомление');
end;
end.
unit Unit3;
interface
uses
Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes,
Vcl.Graphics,
Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Data.DB, Data.Win.ADODB, Vcl.StdCtrls,
Vcl.ExtCtrls;
type
TAddPO = class(TForm)
Panel1: TPanel;
92
Label1: TLabel;
Label2: TLabel;
Label3: TLabel;
btnAdd: TButton;
eNaz: TEdit;
ePok: TEdit;
eOk: TEdit;
ADOConnection1: TADOConnection;
ADOQuery1: TADOQuery;
Label4: TLabel;
eLic: TEdit;
procedure btnAddClick(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
AddPO: TAddPO;
implementation
{$R *.dfm}
procedure TAddPO.btnAddClick(Sender: TObject);
begin
ADOQuery1.SQL.Clear;
ADOQuery1.SQL.Add('INSERT INTO
ПО(Название,Дата_покупки,Дата_окончания,Количество_лицензий)
VALUES(:naz,:pok,:ok,:l)');
ADOQuery1.Parameters.ParamByName('naz').Value:=eNaz.Text;
ADOQuery1.Parameters.ParamByName('pok').Value:=ePok.Text;
ADOQuery1.Parameters.ParamByName('ok').Value:=eOk.Text;
ADOQuery1.Parameters.ParamByName('l').Value:=eLic.Text;
ADOQuery1.ExecSQL;
Application.MessageBox('Данные сохранены!','Уведомление');
end;
end.
unit Unit4;
interface
uses
Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes,
Vcl.Graphics,
Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Data.DB, Data.Win.ADODB, Vcl.StdCtrls,
Vcl.ExtCtrls;
type
TTOOrg = class(TForm)
Panel1: TPanel;
Label1: TLabel;
cbSotr: TComboBox;
btnAdd: TButton;
ADOConnection1: TADOConnection;
ADOQuery1: TADOQuery;
Label2: TLabel;
93
cbTeh: TComboBox;
cbRab: TComboBox;
Работа: TLabel;
eData: TEdit;
Дата: TLabel;
procedure FormCreate(Sender: TObject);
procedure btnAddClick(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
TOOrg: TTOOrg;
implementation
{$R *.dfm}
procedure TTOOrg.btnAddClick(Sender: TObject);
var
tempQuery:TADOQuery;
s,rab:integer;
begin
try
tempQuery:=TADOQuery.Create(self);
tempQuery.Connection:=ADOConnection1;
tempQuery.SQL.Clear;
tempQuery.SQL.Add('Select Код FROM Сотрудники WHERE ФИО=:fio');
tempQuery.Parameters.ParamByName('fio').Value:=cbSotr.Text;
tempQuery.Open;
with tempQuery do
begin
First;
s:=FieldByName('Код').AsInteger;
end;
tempQuery.SQL.Clear;
tempQuery.SQL.Add('Select Код FROM Виды_ТО WHERE Наименование=:n');
tempQuery.Parameters.ParamByName('n').Value:=cbRab.Text;
tempQuery.Open;
with tempQuery do
begin
First;
rab:=FieldByName('Код').AsInteger;
end;
finally
tempQuery.Active:=False;
tempQuery.Free;
end;
ADOQuery1.SQL.Clear;
ADOQuery1.SQL.Add('INSERT INTO
ТО_Орг(Код_сотрудника,Код_оргтехники,Код_работы,Дата)
VALUES(:sotr,:teh,:rab,:data)');
ADOQuery1.Parameters.ParamByName('sotr').Value:=s;
ADOQuery1.Parameters.ParamByName('teh').Value:=StrToInt(cbTeh.Text);
ADOQuery1.Parameters.ParamByName('rab').Value:=rab;
ADOQuery1.Parameters.ParamByName('data').Value:=eData.Text;
ADOQuery1.ExecSQL;
94
Application.MessageBox('Данные сохранены!','Уведомление');
end;
procedure TTOOrg.FormCreate(Sender: TObject);
begin
try
ADOQuery1.SQL.Clear;
ADOQuery1.SQL.Add('Select ФИО FROM Сотрудники');
ADOQuery1.Open;
with ADOQuery1 do
begin
First;
cbSotr.Items.Clear;
while not eof do
begin
cbSotr.Items.Add(FieldByName('ФИО').AsString);
Next;
end;
end;
//-----------------
ADOQuery1.SQL.Clear;
ADOQuery1.SQL.Add('Select Код FROM Оргтехника');
ADOQuery1.Open;
with ADOQuery1 do
begin
First;
cbTeh.Items.Clear;
while not eof do
begin
cbTeh.Items.Add(FieldByName('Код').AsString);
Next;
end;
end;
//-----------------
ADOQuery1.SQL.Clear;
ADOQuery1.SQL.Add('Select Наименование FROM Виды_ТО');
ADOQuery1.Open;
with ADOQuery1 do
begin
First;
cbRab.Items.Clear;
while not eof do
begin
cbRab.Items.Add(FieldByName('Наименование').AsString);
Next;
end;
end;
finally
end;
end;
end.
unit Unit5;
interface
uses
Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes,
Vcl.Graphics,