126
СПИСОК ИСПОЛЬЗУЕМЫХ ИСТОЧНИКОВ
Нормативные документы:
1. ГОСТ 34.601-90 «Информационные технологии. Комплекс стандартов на
автоматизированные системы. Автоматизированные системы. Стадии создания».
2. ГОСТ 34.602-89 «Информационные технологии. Комплекс стандартов на
автоматизированные системы. Техническое задание на создание автоматизирован-
ной системы».
Специальная научная литература:
3. Агальцов, В.П. Базы данных. В 2-х т. Т. 2. Распределенные и удаленные ба-
зы данных: Учебник / В.П. Агальцов. - М.: ИД ФОРУМ, НИЦ ИНФРА-М, 2013. -
272 c.
4. Буч Г. Объектно-ориентированный анализ и проектирование с примерами
приложений, 3-е изд. / Г. Буч и др. // Пер. с англ. – М.: «И.Д. Вильямс», 2010. – 720
с.
5. Вдовин В. М. Предметно-ориентированные экономические информацион-
ные системы [Электронный ресурс]: учебное пособие / В. М. Вдовин, Л. Е. Сурко-
ва, А. А. Шурупов. - 3-е изд. - Москва: Дашков и К°, 2013. - 388 с. : ил. - ISBN 978-
5-394-02262-3.
6. Голицына, О.Л. Базы данных: Учебное пособие / О.Л. Голицына, Н.В. Мак-
симов, И.И. Попов. - М.: Форум, 2012. - 400 c.
7. Диго С.М. Базы данных: проектирование и использование: уч-к.- Москва:
Финансы и статистика, 2015. - 595C.
8. Избачков Ю.С. Информационные системы: учебник для вузов / Ю.С. Из-
бачков, В.Н. Петров. - 2-е изд.- Санкт-Петербург: Питер, 2015. – 656 с.
9. Карпова, И.П. Базы данных: Учебное пособие / И.П. Карпова. - СПб.: Пи-
тер, 2013. - 240 c.
10. Кэнту М. Borland Delphi 7: Для профессионалов. - Санкт-Петербург: Пи-
тер, 2014.
11. Ларман К. Применение UML 2.0 и шаблонов проектирования. Введение в
объектно-ориентированный анализ, проектирование и итеративную разработку. –
М.: Вильямс, 2013. – 736с.
127
12. Леоненков А. - Самоучитель UML – СПб.: БХВ-Петербург, 2013 – 576 с.
13. Мейер Б. Объектно-ориентированное конструирование программных си-
стем. М.: Русская редакция, 2005, ISBN 5-7502-0255-0, 0-13- 62155-4
14. Пирогов, В.Ю. Информационные системы и базы данных: организация и
проектирование: Учебное пособие / В.Ю. Пирогов. - СПб.: БХВ-Петербург, 2009. -
528 c.
15. Тоу Д. Настройка SQL: для профессионалов. - Санкт-Петербург: Питер,
2014. - 333C.
16. Шеер Август-Вильгельм. Моделирование бизнес - процессов. М.: Весть-
МетаТехнология, 2010. -175 С.
Методические, справочные и нормативные материалы, статьи периоди-
ческой печати:
17. Буга В.Д., Дерябин А.И. информационная безопасность на предприятии:
что ей угрожает? средства защиты в сфере информационных технологий: какой
антивирус наиболее эффективен? // Молодежный научный форум: Технические и
математические науки: электр. сб. ст. по мат. XI междунар. студ. науч.-практ. конф.
№ 4(11) RL: https://nauchforum.ru/archive/MNF_tech/4(11).pdf (дата обращения:
23.01.2018)
18. ООО «СпекТек» [Электронный ресурс]. URL: спектек.рф (дата обраще-
ния: 05.03.2018).
19. ООО «СпекТек». Устав компании.
20. Плещев В.В. Базы данных. Visual FoxPro, Access, SQL Server, Oracle:
Учеб. пособие. Екатеринбург: Изд-во Урал. гос. экон. ун-та, 2014.
21. Плещев В.В. Сравнительный анализ программных средств разработки
приложений и баз данных, журнал ИЗВЕСТИЯ УрГЭУ 7/2013.
22. Русинов С. Обеспечение информационной безопасности предприятий тор-
говли, торговых сетей и их инфраструктуры [Электронный ресурс] // URL:
http://www.itsec.ru/articles2/Inf_security/infosec-torg (дата обращения: 23.01.2018
23. Система «1С: ServiseDesk» [Электронный ресурс]. URL: http://www.audit-
escort.ru/programms/servicedesk-sluzhba-podderzhki/#tabs1-css (дата обращения:
25.11.2017).
128
24. Система «HelpDesk» [Электронный ресурс]. URL: https://it-
guild.com/services/implementation/helpdesk/ (дата обращения: 05.01.2018)
25. Система «ServiceNow» [Электронный ресурс]. URL: https://itsm365.ru/tour/
(дата обращения: 05.01.2018).
26. Система «WorkFlowSoft» [Электронный ресурс]. URL:
https://workflowsoft.ru/requests (дата обращения: 06.01.2018).
27. Стоимость системы «WorkFlowSoft» [Электронный ресурс]. URL:
https://workflowsoft.ru/pricing (дата обращения: 05.01.2018).
129
ПРИЛОЖЕНИЯ
Приложение 1
Описание обозначений базы данных
Primary key (PRI) – первичный ключ.
Foreign key (MUL) – внешний ключ.
Unsigned – данное свойство означает, что в столбце запрещены отрица-
тельные значения.
Auto_increment – данное свойство обеспечивает автоматическую нумера-
цию строк таблицы.
Описание типов данных:
Integer или Int – целое число в диапазоне либо от -2 147 483 648 до 2 147
483 647, либо (если указано свойство Unsigned) от 0 до 4 294 967 295.
Date - lата в формате «yyyy-mm-dd», в диапазоне от «0000-01-01» до
«9999-12-31».
Varchar – символьная строка переменной длины, содержащая не более
указанного количества символов (от 0 до 65 535).
Mediumblob – строковый тип. Текст длиной от 0 до 16777215 0символов.
Используется для графических материалов.
130
Приложение 2
Перечень форм разработанной программы
Форма
Название
Unit 1
Вход в систему
Unit 2
Заставка
Unit 3
Модуль "Исполнитель"
Unit 4
Модуль "Пользователь"
Unit 5
Справочник "ПО"
Unit 6
Ввод названия ПО
Unit 7
Справочник "Клиенты"
Unit 8
Ввод данных о клиенте
Unit 9
Справочник "Сотрудники"
Unit 10
Ввод данных о сотруднике
Unit 11
Модуль «Ответственный»
Unit 12
Информация о пользователе
Unit 13
Выбор исполнителя
Unit 14
Информация об исполнителе
Unit 15
Заявки (Модуль "Ответственный")
Unit 16
Выбор модуля
Unit 17
Корзина
Unit 18
Уведомление о новых заявках (для ответственного)
Unit 19
Справочник "Темы заявок"
Unit 20
Ввод темы заявки
Unit 21
Модуль базы данных
Unit 22
Изменить исполнителя
Unit 23
Уведомление о новых заявках (для исполнителя)
Unit 24
Параметры приоритетов
Unit 25
Уведомление о новых сообщениях для пользователя
Unit 26
Уведомление о новых сообщениях для исполнителя
Unit 27
Отчет по заявкам
Unit 28
Отчет по исполнителям
Unit 29
Отчет по просроченным заявкам
Unit 30
Заявки (Модуль "Пользователь")
Unit 31
Параметры заявки
Unit 32
Ввод сообщения
Unit 33
Прикрепление файла
Unit 34
Заявки (Модуль "Исполнитель")
Unit 35
О программе
Unit 36
Руководство пользователя
Unit 37
Отчет по клиентам
Unit 38
Задачи
Unit 39
Параметры задачи
Unit 40
Параметры входа в систему
Unit 41
Ввод данных о пользователе
131
Приложение 3
Листинг программы
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, Buttons, XPMan;
type
TForm1 = class(TForm)
Label1: TLabel;
Label2: TLabel;
Edit1: TEdit;
Edit2: TEdit;
BitBtn2: TBitBtn;
Edit5: TEdit;
Edit6: TEdit;
Button1: TButton;
Button2: TButton;
Button3: TButton;
Edit3: TEdit;
Edit4: TEdit;
Button4: TButton;
Button5: TButton;
XPManifest1: TXPManifest;
procedure BitBtn2Click(Sender: TObject);
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
procedure Button3Click(Sender: TObject);
procedure Button4Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
uses Unit21, Unit3, Unit4, Unit32, Unit11, Unit16, Unit15, Unit34, Unit30;
{$R *.dfm}
procedure TForm1.BitBtn2Click(Sender: TObject);
begin
if (Edit1.Text=EmptyStr) or (Edit2.Text=EmptyStr) then begin ShowMessage('Введите логин и пароль');
end
else begin
dm.t7.Close;
dm.t7.SQL.Clear;
dm.t7.SQL.Add('Select * from sotrudniki where login LIKE '''+Edit1.Text+''' and parol LIKE '''+Edit2.Text+'''');
dm.t7.Open;
if dm.t7.RecordCount=0 then begin ShowMessage('Неверный логин или пароль. Попробуйте еще раз.');
end
else begin
Edit3.Text:=dm.t7.FieldByName('id_sotrud').Value;
132
Edit5.Text:=dm.t7.FieldByName('fio').Value;
Edit6.Text:=dm.t7.FieldByName('rol').Value;
Edit4.Text:=dm.t7.FieldByName('id_otdela').Value;
Button1.Click;
end
end
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
if Edit6.Text='Исполнитель' then begin Button2.Click;
end
else if Edit6.Text='Пользователь' then begin Button3.Click;
end
else if Edit6.Text='Ответственный' then begin Button4.Click;
end
else begin Form16.Show;
end
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
Form3.WindowState:=wsMaximized;
Form3.Label1.Caption:=Edit5.Text;
Form3.Label2.Caption:=Edit3.Text;
Form3.Label3.Caption:=Edit4.Text;
Form32.Edit1.Text:=Edit3.Text;
Form3.show;
Form34.ToolButton4.Click;
Form1.Hide;
end;
procedure TForm1.Button3Click(Sender: TObject);
begin
Form4.WindowState:=wsMaximized;
Form4.Label1.Caption:=Edit5.Text;
Form4.Label2.Caption:=Edit3.Text;
Form4.Label3.Caption:=Edit4.Text;
Form32.Edit1.Text:=Edit3.Text;
Form4.show;
Form30.ToolButton4.Click;
Form1.Hide;
end;
procedure TForm1.Button4Click(Sender: TObject);
begin
Form11.WindowState:=wsMaximized;
Form11.Label1.Caption:=Edit5.Text;
Form11.Label2.Caption:=Edit3.Text;
Form11.Label3.Caption:=Edit4.Text;
Form32.Edit1.Text:=Edit3.Text;
Form11.show;
Form15.ToolButton4.Click;
Form1.Hide;
end;
end.
unit Unit2;
133
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, jpeg, ExtCtrls;
type
TForm2 = class(TForm)
Timer1: TTimer;
Image1: TImage;
procedure Timer1Timer(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form2: TForm2;
implementation
{$R *.dfm}
procedure TForm2.Timer1Timer(Sender: TObject);
begin
Timer1.Enabled := false;
end;
end.
unit Unit3;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, Menus, StdCtrls, ExtCtrls;
type
TForm3 = class(TForm)
ScrollBox1: TScrollBox;
Panel1: TPanel;
Label1: TLabel;
Label2: TLabel;
MainMenu1: TMainMenu;
N3: TMenuItem;
N9: TMenuItem;
N10: TMenuItem;
N21: TMenuItem;
N22: TMenuItem;
Label3: TLabel;
N1: TMenuItem;
procedure N11Click(Sender: TObject);
procedure N26Click(Sender: TObject);
procedure N7Click(Sender: TObject);
procedure N15Click(Sender: TObject);
procedure N8Click(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction);
134
procedure N22Click(Sender: TObject);
procedure N10Click(Sender: TObject);
procedure N9Click(Sender: TObject);
procedure N18Click(Sender: TObject);
procedure N1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form3: TForm3;
implementation
uses Unit21, Unit5, Unit7, Unit9, Unit11, Unit13, Unit15, Unit17, Unit19,
Unit22, Unit25, Unit1, Unit30, Unit34, Unit36, Unit35, Unit37, Unit38,
Unit39, Unit31, Unit40;
{$R *.dfm}
procedure TForm3.N11Click(Sender: TObject);
begin
Form11.Parent:=Form3.ScrollBox1;
Form11.show;
end;
procedure TForm3.N26Click(Sender: TObject);
begin
Form13.Parent:=Form3.ScrollBox1;
Form13.show;
end;
procedure TForm3.N7Click(Sender: TObject);
begin
Form15.Parent:=Form3.ScrollBox1;
Form15.show;
end;
procedure TForm3.N15Click(Sender: TObject);
begin
Form17.Parent:=Form3.ScrollBox1;
Form17.show;
end;
procedure TForm3.N8Click(Sender: TObject);
begin
Form25.Parent:=Form3.ScrollBox1;
Form25.show;
end;
procedure TForm3.FormClose(Sender: TObject; var Action: TCloseAction);
begin
Form1.close;
end;
procedure TForm3.N22Click(Sender: TObject);
begin
Form34.Parent:=Form3.ScrollBox1;
dm.t5.Close;
135
dm.t5.SQL.Clear;
dm.t5.SQL.Add('SELECT * FROM zayavki where (id_ispolnit like '''+Form3.Label2.Caption+''') AND (status
like "Зарегистрирована")');
dm.t5.Open;
Form34.Show;
Form31.ToolButton10.Visible:=false;
Form31.ToolButton11.Visible:=false;
Form31.DBEdit6.Enabled:=false;
Form31.BitBtn1.Visible:=false;
Form31.BitBtn3.Visible:=false;
Form31.BitBtn5.Visible:=false;
Form31.DBLookupComboBox2.Enabled:=false;
Form31.DBLookupComboBox1.Enabled:=false;
Form31.DBEdit8.Enabled:=false;
Form31.DBMemo1.Enabled:=false;
Form31.cxGridDBTableView3Column2.Visible:=false;
end;
procedure TForm3.N10Click(Sender: TObject);
begin
Form36.Parent:=Form3.ScrollBox1;
Form36.WebBrowser1.Navigate(ExtractFilePath(Application.ExeName) + 'Помощь.htm');
Form36.Show;
end;
procedure TForm3.N9Click(Sender: TObject);
begin
Form35.Parent:=Form3.ScrollBox1;
Form35.Show;
end;
procedure TForm3.N18Click(Sender: TObject);
begin
Form22.Parent:=Form3.ScrollBox1;
Form22.show;
end;
procedure TForm3.N1Click(Sender: TObject);
begin
Form40.Parent:=Form3.ScrollBox1;
dm.t19.Close;
dm.t19.SQL.Clear;
dm.t19.SQL.Add('Select * from sotrudniki where id_sotrud LIKE ''%'+Label2.Caption+'%''');
dm.t19.Open;
Form40.show;
end;
end.
unit Unit4;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, Menus, StdCtrls, ExtCtrls;
type
TForm4 = class(TForm)
ScrollBox1: TScrollBox;
Panel1: TPanel;