82
Список использованной литературы
1. Методы и средства проектирования информационных систем и
технологий: учебное пособие / Федеральное государственное автономное
образовательное учреждение высшего профессионального образования «Северо-
Кавказский федеральный университет», Министерство образования и науки
Российской Федерации ; авт.-сост. Е.В. Крахоткина. - Ставрополь : СКФУ, 2015. -
152 с. : ил. - Библиогр. в кн. ; То же [Электронный ресурс]. -
URL: http://biblioclub.ru/index.php?page=book&id=458082 (14.08.2019).
2. Баландин К.В. Информационные системы и технологии в экономике :
учебник / К.В. Балдин, В.Б. Уткин. - М.: ЮНИТИ-ДАНА, 2017. - 335 с. : ил. -
Библиогр. в кн. – ISBN 5-238-00577-6; То же [Электронный ресурс]. -
http://www.iprbookshop.ru/71196.html. (21.08.2019).
3. Информационные системы и технологии управления : учебник / под ред.
Г.А. Титоренко. - 3-е изд., перераб. и доп. - М. : Юнити-Дана, 2015. - 591 с. : ил.,
табл., схемы - (Золотой фонд российских учебников). - ISBN 978-5-238-01766-2; То
же [Электронный ресурс]. –URL: http://biblioclub.ru/
index.php?page=book&id=115159 (14.08.2019).
4. Гринберг, А.С. Информационный менеджмент : учебное пособие /
А.С. Гринберг, И.А. Король. - М. : Юнити-Дана, 2015. - 415 с. -
(Профессиональный учебник: Информатика). - Библиогр.: с. 292-295. - ISBN 5-238-
00614-4; То же [Электронный ресурс]. - URL: http://biblioclub.ru/
index.php?page=book&id=114421(14.08.2019).
5. Кузнецов, А.С. Теория вычислительных процессов : учебник /
А.С. Кузнецов, Р.Ю. Царев, А.Н. Князьков ; Министерство образования и науки
Российской Федерации, Сибирский Федеральный университет. - Красноярск :
Сибирский федеральный университет, 2015. - 184 с. : табл., схем. - Библиогр. в кн. -
ISBN 978-5-7638-3193-1; То же [Электронный ресурс]. -
URL: http://biblioclub.ru/index.php?page=book&id=435696(14.08.2019).
6. Карпова, Т.С. Базы данных: модели, разработка, реализация : учебное
пособие / Т.С. Карпова. - 2-е изд., исправ. - М. : Национальный Открытый
83
Университет «ИНТУИТ», 2016. - 241 с. : ил. ; То же [Электронный ресурс]. -
URL: http://biblioclub.ru/index.php?page=book&id=429003 (14.08.2019).
7. Кузнецов, С. Введение в реляционные базы данных / С. Кузнецов. - 2-е
изд., исправ. - М.: Национальный Открытый Университет «ИНТУИТ», 2016. - 248
с.: ил. - (Основы информационных технологий). - Библиогр. в кн.; То же
[Электронный ресурс]. -
URL: http://biblioclub.ru/index.php?page=book&id=429088 (14.08.2019).
8. Загинайлов, Ю.Н. Основы информационной безопасности: курс визуальных
лекций : учебное пособие / Ю.Н. Загинайлов. - М. ; Берлин : Директ-Медиа, 2015. - 105
с.: ил. - Библиогр. в кн. - ISBN 978-5-4475-3947-4; То же [Электронный ресурс]. -
URL: http://biblioclub.ru/index.php?page=book&id=362895 (14.08.2019).
9. Грекул В.И., Денищенко Г.Н., Коровкина Н.Л. Проектирование
информационных систем - М.: ИУИТ, 2012 - 300 с.
10. ГОСТ Р ИСО/МЭК 12207-2010 Информационная технология. Системная и
программная инженерия. Процессы жизненного цикла программных средств.
[Электронный ресурс]. - URL: http://docs.cntd.ru/document/1200082859 (14.08.2019).
11. Информационная безопасность и защита информации / Мельников В. П.–
М.: Академия, 2012. - 336 с.[Электронный ресурс]. http://academia-
moscow.ru/ftp_share/_books/fragments/fragment_17644.pdf (14.08.2019).
12. Методология функционального моделирования IDEF0, Руководящий
документ. М.: Госстандарт России– 75 с. [Электронный ресурс].-
URL:https://nsu.ru/smk/files/idef.pdf(14.08.2019).
13. Microsoft Solutions Framework. Модель процессов MSFвер. 3.1 --
[Электронный ресурс]. –
URL:https://docviewer.yandex.ru/view/1130000021626252/?*=dnrb%2BXaandfttcqtfZu
VHgBrDBF7InVybCI6InlhLWJyb3dzZXI6Ly80RFQxdVhFUFJySlJYbFVGb2V3cnVE
Nndqa1lVRVBjX1hCOF9TWUtiMWtvQWI3dHZkQmhmVk5qeXA2SWk2UndQS2Vo
SXN2U09CQnhYN2ZTSWlYcTBMSTlnRWhpcjJVTDc0NmdJSEZVUFNYampIR01Z
UF9ydUlOUkhVOFh6VFczLXRrUnEwQ253OEF4Y2tWUzdKME4wMnc9PT9zaWduP
WJYSG9pNmc4ZmFqSE0zNVRnaVVCelpjMFQ0UnVvOEZkZV81WTBlbV9kcWM9I
iwidGl0bGUiOiJNU0ZfcHJvY2Vzc19tb2RlbF9ydXMuZG9jIiwibm9pZnJhbWUiOmZh
84
bHNlLCJ1aWQiOiIxMTMwMDAwMDIxNjI2MjUyIiwidHMiOjE1NjYyMDM0MzkxN
zAsInl1IjoiODI3Nzg0OTAwMTU2MDQwMzEwNCJ9(14.08.2019).
14. Култыгин О.П. Администрирование баз данных. СУБД MS SQL Server. -
М: Московская финансово-промышленная академия, 2012. -232 с. [Электронный
ресурс]. - URL:https://znanium.com/catalog/product/451114 (14.08.2019).
85
Приложения
1.Листинг основного программного модуля
program Dokumenty;
uses
Forms,
Unit1 in 'Unit1.pas' {Form1},
Unit2 in 'Unit2.pas' {Form2},
Unit3 in 'Unit3.pas' {Form3},
Unit4 in 'Unit4.pas' {Form4},
Unit5 in 'Unit5.pas' {Form5},
Unit6 in 'Unit6.pas' {Form6},
DataMod in 'DataMod.pas' {DataModule7: TDataModule},
Unit7 in 'Unit7.pas' {Form7},
Unit8 in 'Unit8.pas' {Form8},
Unit9 in 'Unit9.pas' {Form9},
Unit10 in 'Unit10.pas' {Form10},
Unit11 in 'Unit11.pas' {Form11},
Unit12 in 'Unit12.pas' {Form12},
Unit13 in 'Unit13.pas' {Form13},
Unit14 in 'Unit14.pas' {Form14},
Unit15 in 'Unit15.pas' {Form15},
Unit16 in 'Unit16.pas' {Form16},
Unit17 in 'Unit17.pas' {Form17},
Unit18 in 'Unit18.pas' {Form18},
Unit19 in 'Unit19.pas' {Form19},
Unit20 in 'Unit20.pas' {Form20},
Unit21 in 'Unit21.pas' {Form21},
Unit22 in 'Unit22.pas' {Form22},
Unit23 in 'Unit23.pas' {Form23},
86
Unit24 in 'Unit24.pas' {Form24},
Unit25 in 'Unit25.pas' {QuickReport25: TQuickRep},
Unit26 in 'Unit26.pas' {Form26},
Unit27 in 'Unit27.pas' {Form27};
{$R *.res}
begin
Application.Initialize;
Application.CreateForm(TForm1, Form1);
Application.CreateForm(TForm2, Form2);
Application.CreateForm(TForm3, Form3);
Application.CreateForm(TForm4, Form4);
Application.CreateForm(TForm5, Form5);
Application.CreateForm(TForm6, Form6);
Application.CreateForm(TDataModule7, DataModule7);
Application.CreateForm(TForm7, Form7);
Application.CreateForm(TForm8, Form8);
Application.CreateForm(TForm9, Form9);
Application.CreateForm(TForm10, Form10);
Application.CreateForm(TForm11, Form11);
Application.CreateForm(TForm12, Form12);
Application.CreateForm(TForm13, Form13);
Application.CreateForm(TForm14, Form14);
Application.CreateForm(TForm15, Form15);
Application.CreateForm(TForm16, Form16);
Application.CreateForm(TForm17, Form17);
Application.CreateForm(TForm18, Form18);
Application.CreateForm(TForm19, Form19);
Application.CreateForm(TForm20, Form20);
Application.CreateForm(TForm21, Form21);
Application.CreateForm(TForm22, Form22);
87
Application.CreateForm(TForm23, Form23);
Application.CreateForm(TForm24, Form24);
Application.CreateForm(TQuickReport25, QuickReport25);
Application.CreateForm(TForm26, Form26);
Application.CreateForm(TForm27, Form27);
Application.Run;
end.
2.Листингмодуляавторизации
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;
type
TForm1 = class(TForm)
Edit1: TEdit;
Edit2: TEdit;
Label1: TLabel;
Label2: TLabel;
Button1: TButton;
Button2: TButton;
Label3: TLabel;
Label4: TLabel;
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
private
{ Private declarations }
public
88
{ Public declarations }
end;
var
Form1: TForm1;
implementation
uses DataMod, Unit2, Unit3, Unit4, Unit5, Unit6;
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
begin
if (Edit1.Text<>'') and (Edit2.Text<>'') then
DataModule7.ADOQuery1.SQL.Clear;
DataModule7.ADOQuery1.SQL.Add('SELECT Отдел, Должность, Телефон, Логин,
Пароль, Роль FROM Sotrudniki WHERE Логин='+#39+Edit1.Text+#39);
DataModule7.ADOQuery1.Open;
if DataModule7.ADOQuery1.IsEmpty
then ShowMessage('Пользователь '+Edit1.Text+' незарегистрирован ');
if DataModule7.ADOQuery1.FieldByName('Пароль').Value <> Edit2.Text
then
ShowMessage('Вы ввели неверный пароль!')
else
if DataModule7.ADOQuery1['Роль'] = 'user' then Form2.Show
else
if DataModule7.ADOQuery1['Роль'] = 'adm' then Form3.Show
else
if DataModule7.ADOQuery1['Роль'] = 'dir' then Form4.Show
else
if DataModule7.ADOQuery1['Роль'] = 'rukotd' then Form5.Show
89
else
if DataModule7.ADOQuery1['Роль'] = 'kadry' then Form6.Show
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
close;
end;
end.
3.Листинг модуля соединения с базой данных
unit DataMod;
interface
uses
SysUtils, Classes, ADODB, DB;
type
TDataModule7 = class(TDataModule)
ADOConnection1: TADOConnection;
ADOQuery1: TADOQuery;
ADOTable1: TADOTable;
ADOTable2: TADOTable;
ADOTable3: TADOTable;
private
{ Private declarations }
public
{ Public declarations }
end;
90
var
DataModule7: TDataModule7;
implementation
{$R *.dfm}
end.
4.Листинг модуля основного меню для пользователей типа
«пользователь»
unit Unit2;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;
type
TForm2 = class(TForm)
Label1: TLabel;
Button1: TButton;
Button2: TButton;
Button3: TButton;
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
procedure Button3Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
91
end;
var
Form2: TForm2;
implementation
uses Unit7, Unit8;
{$R *.dfm}
procedure TForm2.Button1Click(Sender: TObject);
begin
Form7.Show;
end;
procedure TForm2.Button2Click(Sender: TObject);
begin
Form8.Show;
end;
procedure TForm2.Button3Click(Sender: TObject);
begin
close;
end;
end.
5.Листинг основного модуля для пользователей типа «администратор»
unit Unit3;