Материал: Автоматизация процессов управления в ИТ отделе финансовой компании

Внимание! Если размещение файла нарушает Ваши авторские права, то обязательно сообщите нам
100
дополненное / В.И. Дубейковский. М.: Диалог-МИФИ, 2015. 384 с.
13. Дунаев В.В. Базы данных. Язык SQL для студента Издательство:
БХВ, 2014 г. - 196 с.
14. Дюваль П.М. Непрерывная интеграция. Улучшение качества
программного обеспечения и снижение риска - СПб: Вильямс, 2015 г. - 497 c.
15. Дятлова Е.П., Новиков А.И. Вычислительные сети в системах
управления. – СПб.: ВШТЭ СПбГУПТД, 2017. 84 с.
16. Зиндер Е., Революционные изменения базовых стандартов в области системного
проектирования. //Директор информационной службы. 2018. № 5. С. 81-85.
17. Крылов Д.К. Разработка информационной системы для
автоматизации процессов охраны труда на предприятии // Ползуновский
альманах. 2016. № 2. С. 254-256.
18. Никифорова Е.В. Необходимость автоматизации процесса проверок
соблюдения правил охраны труда // В сб.: Наука промышленность оборона: труды
XIX Всероссийской научно-технической конференции: в 4 томах. / Под ред. С.Д.
Саленко. 2018. С. 80-81.
19. Охрана труда: за автоматизацией будущее // Охрана труда и техника
безопасности на промышленных предприятиях. 2018. № 9. С. 55-58.
20. Утюганова В.В. Формирование культуры безопасности через
автоматизацию процессов охраны труда // Безопасность и охрана труда. 2018.
4 (77). С. 27-29.
21. Шамбер О.Ю. Особенности автоматизации предметной области
специалиста в сфере охраны труда // Постулат. 2018. № 6 (32). С. 129.
22. Вендров, А.М. CASE технологии. Современные методы и средства
проектирования информационных систем / А.М. Вендров. Москва: Финансы и
статистика, 2017.
23. Уткин, В. Информационные системы в экономике / В. Уткин, К.
Балдин. - Москва: Academia, 2016. - 288с.
24. Официальный сайт ГБУ «Жилищник района Чертаново
Центральное» [Электронный ресурс]. – Режим доступа http://gbuchc.ru/
25. Учебник по языку SQL (DDL, DML) на примере диалекта MS SQL
Server. Часть первая. [Электронный ресурс] Режим доступа URL:
101
https://habr.com/ru/post/255361/
26. История языков программирования: C# - впереди планеты всей.
[Электронный ресурс] – Режим доступа URL: https://habr.com/ru/post/313694/
27. История языков программирования: Delphi больше, чем просто
язык. [Электронный ресурс] Режим доступа URL:
https://habr.com/ru/post/316492/
28. Сайт разработчиков 1С: Предприятие 8. «Охрана труда»
[Электронный ресурс] Режим доступа URL: http://www.ot-soft.ru/product/product.
29. Сайт разработчиков «ЭРМ по ОТ» [Электронный ресурс] Режим
доступа URL: http://eohranatruda.ru.
30. Сайт разработчиков «Ассистент ТБ» [Электронный ресурс] Режим
доступа URL: http://www.assisttb.com/descript.html.
102
Приложение
Фрагмент исходного кода приложения
unit uMain;
interface
uses
Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants,
System.Classes, Vcl.Graphics,
Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Data.DB, Vcl.StdCtrls, Vcl.DBCtrls,
Vcl.Grids, Vcl.DBGrids, Vcl.ComCtrls, Vcl.Menus, Vcl.ExtCtrls, Vcl.Mask;
type
TfrmMain = class(TForm)
mm: TMainMenu;
imMain: TMenuItem;
imSchedule1: TMenuItem;
imSchedule2: TMenuItem;
N1: TMenuItem;
imInstruction: TMenuItem;
N2: TMenuItem;
imClose: TMenuItem;
imLibrary: TMenuItem;
imLibrary1: TMenuItem;
imLibrary2: TMenuItem;
N3: TMenuItem;
imLibrary3: TMenuItem;
N4: TMenuItem;
imLibrary4: TMenuItem;
N5: TMenuItem;
imLibrary5: TMenuItem;
103
N6: TMenuItem;
imPersonal: TMenuItem;
imReport: TMenuItem;
imReport1: TMenuItem;
imReport2: TMenuItem;
imReport3: TMenuItem;
imSetting: TMenuItem;
imLinking: TMenuItem;
pnlGrid: TPanel;
pnlMain: TPanel;
pnlSub: TPanel;
Label1: TLabel;
Label2: TLabel;
Label3: TLabel;
Label4: TLabel;
btnSave: TButton;
btnCancel: TButton;
pmMain: TPopupMenu;
pmSub: TPopupMenu;
dtpDate: TDateTimePicker;
dtpTime: TDateTimePicker;
grdMain: TDBGrid;
grdSub: TDBGrid;
cbTypeIncident: TDBLookupComboBox;
mmDescription: TDBMemo;
cbTravma: TDBCheckBox;
imAddMain: TMenuItem;
imEditMain: TMenuItem;
imDeleteMain: TMenuItem;
imAddSub: TMenuItem;
imDeleteSub: TMenuItem;
DBEdit1: TDBEdit;
104
Label6: TLabel;
imReport4: TMenuItem;
imLibrary6: TMenuItem;
imUser: TMenuItem;
procedure imScheduleClick(Sender: TObject);
procedure imInstructionClick(Sender: TObject);
procedure imAddSubClick(Sender: TObject);
procedure imAddMainClick(Sender: TObject);
procedure FormShow(Sender: TObject);
procedure imEditMainClick(Sender: TObject);
procedure imDeleteMainClick(Sender: TObject);
procedure btnSaveClick(Sender: TObject);
procedure btnCancelClick(Sender: TObject);
procedure imLinkingClick(Sender: TObject);
procedure imDeleteSubClick(Sender: TObject);
procedure imPersonalClick(Sender: TObject);
procedure imLibraryClick(Sender: TObject);
procedure imCloseClick(Sender: TObject);
procedure pmMainPopup(Sender: TObject);
procedure pmSubPopup(Sender: TObject);
procedure imReportClick(Sender: TObject);
procedure imUserClick(Sender: TObject);
private
procedure ModeView(mode: boolean); //true - Veiw; false - Modify
public
{ Public declarations }
end;
var
frmMain: TfrmMain;
implementation
Источник: https://baza.diplomsite.ru/previewfile/2160