94
13. Информационные системы и технологии: Научное издание. / Под ред. Ю.Ф.
Тельнова. - М.: ЮНИТИ, 2016. - 303 c.
14. Каймин В.А. Информатика: Учебник/ Каймин В. А., 6-е изд. - М.: НИЦ
ИНФРА-М, 2015. - 285 с.
15. Клочкова, Е. Н. Экономика предприятия / Е. Н. Клочкова, В. И. Кузнецов, Т.
Е. Платонова. - М.: Юрайт, 2014. - 448 с.
16. Коберн, А. Быстрая разработка программного обеспечения / А. Коберн. – М. :
Лори, 2013. – 314 c.
17. Кузин А.В. Базы данных: учебное пособие для студентов высшего учебного
заведения. / А.В. Кузин, С.В. Левонисова – М.: Академия, 2012 – 320с.
18. Кузнецов С. Д. Базы данных. Модели и языки – М.: Бином-Пресс, 2013 г. -
720 с.
19. Леонтьев В.П. Работа на компьютере 2014. Windows 8.1. Office 2013. Office
365 – М.: Олма Медиа Групп, 2014. – 643 с.
20. Малюк А.А. Теория защиты информации. – М.:Горячая линия - Телеком,
2012. – 184 с.
21. Модели разработки и тестирования по: итеративная модель [Электронный
ресурс] URL: https://bytextest.ru/2017/12/21/iterative-model/ (дата обращения:
19.01.2019)
22. Нестеров С.А. Базы данных. – СПб.: Изд-во Полит. Ун-та, 2013. – 150с.
23. Орлов С. А. Технологии разработки программного обеспечения: Учебник для
вузов. 3-е издание. - СПб.: Питер, 2011.- 528 с.:
24. Программа Hardware Inspector 5.7. [Электронный ресурс] URL: www.it-lab.ru
(дата обращения 25.01.2019)
25. Программа IT Invent Учет компьютеров, оборудования и IT инфраструктуры
[Электронный ресурс] URL: http://it-invent.ru/ (дата обращения 25.01.2019)
26. Программа Total Network Inventory 2. Total Network Inventory [Электронный
ресурс] URL: https://www.softinventive.ru/products/total-network-inventory/
(дата обращения 25.01.2019)
27. Проектирование информационных систем. Лекции [Электронный ресурс]
URL: https://sites.google.com/site/anisimovkhv/learning/pris/lecture/tema3 (дата
обращения: 29.01.2019)
95
28. Процессный подход к управлению. Моделирование бизнес-процессов /
В.Г. Елиферов, В.В. Репин. – М.:Манн, Иванов и Фербер, 2013. – 186 с.
29. Пташинский В. Самоучитель Office 2013. – М.: Эксмо, 2013. – 290 с.
30. Солонин Е. Б. Современные методики разработки информационных систем
[Электронный ресурс] : учебное электронное текстовое издание / Е. Б.
Солонин - Екатеринбург : УрФУ, 2015. – 45 с. URL:
http://study.urfu.ru/Aid/ViewFiles/13395 (дата обращения: 22.01.2019)
31. Технические средства информатизации. Практикум. Лавровская О.Б. 2-е изд.,
стер. – М.: Академия, 2013. – 208 с.
32. Технология разработки программного обеспечения: Учеб. пос. /
Л.Г. Гагарина, Е.В. Кокорева, Б.Д. Виснадул– М.: Инфра-М, 2013. - 400 с.
33. Федотова, Е.Л. Информационные технологии и системы: Учебное пособие /
Е.Л. Федотова. - М.: ИД ФОРУМ, 2013. - 352 c.
34. Шаньгин В.Ф. Защита информации в компьютерных системах и сетях – М.:
ДМК Пресс, 2012. - 592 с.
35. Экономика и финансы предприятия / под ред. Т.С. Новашиной. - М.:
Синергия, 2014. - 344 с
36. ГОСТ 19.103-77 ЕСПД. Обозначение программ и программных документов.
96
ПРИЛОЖЕНИЯ
Приложение А
Рисунок А1– Заявка на ремонт/обслуживание на технику или По
Рисунок А2 – Акт выполненных работ
97
Рисунок А3 – Акт выполненных работ заменой комплектующих
Рисунок А4 – Счет-фактура
98
Рисунок А5 – Акт выполненных работ в программе MS Excel 2010
99
Приложение Б
Папка Шаблоны должна лежать в одном каталоге с ехе-файлом
Service.exe. Шаблоны удалять нельзя. Формы отчетов в Шаблонах
переименовывать нельзя, изменять можно, но нельзя менять в них число
столбцов и строк (необходимо хранить где-нибудь резервные копии).
Таблица Б1
Пользователи-мастера:
ФИО
специализация
Логин
Пароль
Александрова Дарья Евгеньевна
Главный
программист
aleksdasha
1
Амелина Лия Андреевна
Инженер-техник
amelina
2
Аристова Дарья Никитична
Инженер
aristova
3
Бабенко Жанна Юрьевна
Программист
jannabab
4
Батурин Сергей Владимирович
Начальник отдела
baturin
5
Бессарабенко Алла Макаровна
Системный
администратор
bessarab
6
Божко Валентин Андреевич
Заместитель
начальника отдела
bozhko
7
Бусин Евгений Николаевич
Инженер
busin
8
Бушилова Анна Сергеевна
Главный инженер
bushilova
9
Волкова Анна Сергеевна
Инженер-
схемотехник
volkova
10
Володина Наталья Владимировна
Инженер
volodina
11
Таблица Б2
Пользователи-приемщики:
ФИО
специализация
Логин
Пароль
Герасимов Павел Иванович
Приемщик
gerasimov
21
Голыбина Людмила Антоновна
Приемщик
golybina
22
Грачева Евгения Александровна
Приемщик
gracheva
23
Таблица Б3
Администратор:
ФИО
специализация
Логин
Пароль
Греченко Владислав Алексеевич
Администратор
admin
admin
100
Приложение В
Листинг программного кода
unit ClientUnit;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, ExtCtrls, Grids, DBGrids, DBCtrls, StdCtrls, Buttons, Mask;
type
TfmClients = class(TForm)
Panel1: TPanel;
DBNavigator1: TDBNavigator;
Panel2: TPanel;
DBGrid1: TDBGrid;
bbtGo: TBitBtn;
bbtPrint: TBitBtn;
BitBtn1: TBitBtn;
procedure FormShow(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure bbtPrintClick(Sender: TObject);
procedure DBGrid1TitleClick(Column: TColumn);
procedure BitBtn1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
fmClients: TfmClients;
implementation
uses DMUnit, ReportsUnit, ADODB, OrderUnit, OrderListUnit;
{$R *.dfm}
procedure TfmClients.FormShow(Sender: TObject);
begin
DM.tbClients.Open;
DM.tbClients.Sort := 'ФИО_Наименование';
end;
procedure TfmClients.FormClose(Sender: TObject; var Action: TCloseAction);
begin
//Набор данных закрывается, если он не используется в других формах:
if (not fmOrderList.Showing) and (not fmOrder.Showing) then
DM.tbClients.Close;
end;
101
procedure TfmClients.bbtPrintClick(Sender: TObject);
begin
Rep_Any(DBGrid1, 7, Self.Caption);
end;
//Сортировка данных в таблице по выбранному столбцу:
procedure TfmClients.DBGrid1TitleClick(Column: TColumn);
begin
try
(DBGrid1.DataSource.DataSet as TADOTable).Sort := Column.FieldName;
except
Application.MessageBox('Сортировка по данному полю невозможна',
'Информация', MB_OK+MB_ICONINFORMATION)
end;
end;
procedure TfmClients.BitBtn1Click(Sender: TObject);
begin
Close;
end;
end.
unit DiapasonUnit;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, ComCtrls, Buttons;
type
TfmDiapason = class(TForm)
Label1: TLabel;
Label2: TLabel;
dtpDateFrom: TDateTimePicker;
dtpDateTo: TDateTimePicker;
bbtCancel: TBitBtn;
bbtOK: TBitBtn;
private
{ Private declarations }
public
{ Public declarations }
end;
function GetDiapason(var DateFrom, DateTo: TDate): Boolean;
var
fmDiapason: TfmDiapason;
implementation
{$R *.dfm}
102
//Функция возвращает диапазон дат, заданный пользователем:
function GetDiapason(var DateFrom, DateTo: TDate): Boolean;
begin
fmDiapason.dtpDateFrom.Date := DateFrom;
fmDiapason.dtpDateTo.Date := DateTo;
if fmDiapason.ShowModal = mrOK then begin
DateFrom := fmDiapason.dtpDateFrom.Date;
DateTo := fmDiapason.dtpDateTo.Date;
Result := True;
end
else
Result := False;
end;
end.
unit DMUnit;
interface
uses
SysUtils, Classes, DB, ADODB;
type
TDM = class(TDataModule)
ADOConnection1: TADOConnection;
tbManagers: TADOTable;
dsManagers: TDataSource;
tbManagersN: TAutoIncField;
tbManagersDSDesigner: TWideStringField;
tbSpec: TADOTable;
dsSpec: TDataSource;
tbSpecID: TAutoIncField;
tbSpecDSDesigner: TWideStringField;
tbClients: TADOTable;
dsClients: TDataSource;
tbRequisite: TADOTable;
dsRequisite: TDataSource;
tbStore: TADOTable;
dsStore: TDataSource;
tbStoreDSDesigner: TAutoIncField;
tbStoreDSDesigner2: TWideStringField;
tbStoreDSDesigner3: TWideStringField;
tbStoreDSDesigner4: TWideStringField;
tbStoreDSDesigner5: TIntegerField;
tbStoreDSDesigner6: TBCDField;
tbPrice: TADOTable;
dsPrice: TDataSource;
tbStaff: TADOTable;
dsStaff: TDataSource;
tbStaffN: TAutoIncField;
tbStaffDSDesigner: TWideStringField;
103
tbStaffID: TIntegerField;
tbStaffIntegerField: TStringField;
tbStoreField: TCurrencyField;
tbPriceDSDesigner: TAutoIncField;
tbPriceDSDesigner2: TWideStringField;
tbPriceDSDesigner3: TWideStringField;
tbPriceDSDesigner4: TFloatField;
tbPriceDSDesigner5: TBCDField;
dsOrders: TDataSource;
dstOrders: TADODataSet;
dstOrdersN: TAutoIncField;
dstOrdersDSDesigner: TDateTimeField;
dstOrdersDSDesigner2: TDateTimeField;
dstOrdersID: TIntegerField;
dstOrdersID2: TIntegerField;
dstOrdersID3: TIntegerField;
dstOrdersDSDesigner3: TBCDField;
dstOrdersField: TStringField;
dstOrdersField2: TStringField;
dstOrdersIntegerField: TStringField;
dsJobs: TDataSource;
dstJobs: TADODataSet;
dstJobsN: TIntegerField;
dstJobsID: TIntegerField;
dstJobsDSDesigner: TDateTimeField;
dstJobsID2: TIntegerField;
dstJobsDSDesigner3: TBCDField;
dstJobsField: TStringField;
dstJobsStringField: TStringField;
dstJobsField2: TCurrencyField;
dstJobsDSDesigner2: TFloatField;
dsMat: TDataSource;
dstMat: TADODataSet;
dstMatN: TIntegerField;
dstMat_ID: TIntegerField;
dstMatDSDesigner: TIntegerField;
dstMatDSDesigner2: TBCDField;
dstMatCurrencyField: TCurrencyField;
dstMatStringField: TStringField;
dstOrderJobSum: TADODataSet;
dstOrderJobSumSum1: TFloatField;
dstOrderMatSum: TADODataSet;
FloatField1: TFloatField;
dstStatEmp: TADODataSet;
dstStatJobs: TADODataSet;
dstStatEmpDSDesigner2: TFloatField;
dstStatEmpField: TStringField;
dstStatJobsDSDesigner2: TFloatField;
dstStatJobsField: TStringField;
dstStatOrderSum: TADODataSet;
BCDField2: TBCDField;
StringField2: TStringField;