Дипломная работа: Автоматизация учета посещений клиентов на примере предприятия «Медицинский центр "Семейный доктор"»

Внимание! Если размещение файла нарушает Ваши авторские права, то обязательно сообщите нам
93
CПИСОК ИСПОЛЬЗОВАННОЙ ЛИТЕРАТУРЫ
1. Белл Ч., Киндал М., Талманн Л. Обеспечение высокой доступности
систем на основе MySQL/ Белл Ч.-СпБ. Русская редакция, БХВ-Петербург, 2012
-624 с.
2. Поль М. Дюваль, Стивен Матиас, Эндрю Гловер. Непрерывная
интеграция. Улучшение качества программного обеспечения и снижение риска/
Поль М. Дюваль, Стивен Матиас – М.Вильямс, 2017 – 240 с.
3. Прамодкумар Дж. Садаладж, Мартин Фаулер. NoSQL. Новая
методология разработки нереляционных баз данных/ Дмитрий Клюшин –
М.Вильямс, 2017 -192 с.
4. Бен Форта. Освой самостоятельно SQL за 10 минут/ В. Гинзбург –
М.Вильямс, 2017 -288 с.
5. К. Дж. Дэйт. Введение в системы баз данных/ К. Дж. Дэйт –
М.Вильямс.,2017 -1328 с.
6. Джефф Карпентер, Эбен Хьюитт/ А. Слинкин – М.ДМК Пресс, 2017
-400 с.
7. Дэви Силен, Арно Мейсман, Мохамед Али. Основы Data Science и
Big Data. Python и наука о данных/ Дэви Силен, Арно Мейсман – СПб. Питер,
2017 – 336 с.
8. Максим Бабенко, Михаил Левин. Введение в теорию алгоритмов и
структур данных/ Максим Бабенко, Михаил Левин – М. МЦНМО., 2017 – 144 с.
9. Томас Коннолли, Каролин Бегг. Базы данных. Проектирование,
реализация и сопровождение. Теория и практика./ Томас Коннолли, Каролин
Бегг – М. Вильямс, 2017 – 1440 с.
10. Джоэл Грас. Data Science. Наука о данных с нуля./ Андрей
Логунов.-СПб., БХВ-Петербург,2017 – 336 с.
94
11. Скотт Амблер, Прамодкумар Дж. Садаладж. Рефакторинг баз
данных. Эволюционное проектирование/ Константин Птицын –М. Вильямс,
2016 -368 с.
12. Мартин Фаулер, Дейвид Райс, Мэттью Фоммел, Эдвард Хайет,
Роберт Ми, Рэнди Стаффорд. Шаблоны корпоративных приложений / Мэттью
Фоммел, Эдвард Хайет – М.Вильямс,2016 – 544 с.
13. Бабаш А., Баранова Е. Криптографические методы защиты
информации / А.Бабаш, Е.Баранова - М.: КноРус, 2017. - 192 c.
14. Валях Е. Последовательно-параллельные вычисления, - М.: Мир,
2015.
15. Васильев В. Интеллектуальные системы защиты информации.
Учебное пособие / В. Васильев. - М.: Инновационное машиностроение, 2017. -
202 c.
16. Васильков А., Васильков И. Безопасность и управление доступом в
информационных системах. Учебное пособие / А.Васильков. - М.: Форум
Инфра-М, 2017. - 368 c.
17. Внуков А. Защита информации. Учебное пособие/ А.Внуков. - М.:
Юрайт, 2017. - 242 c.
18. Зверева В. Участие в планировании и организации работ по
обеспечению защиты объекта. Учебник/ В.Зверева. - М: Курс, 2017. - 320 c.
19. Кондратьев, А.В. Организация и содержание работ по выявлению и
оценке основных видов ТКУИ, защита информации от утечки: Справочное
пособие / А.В. Кондратьев. - М.: МАСКОМ, 2014. - 256 c.
20. Максименко, В.Н. Защита информации в сетях сотовой подвижной
связи / В.Н. Максименко. - М.: ГЛТ, 2017. - 360 c.
21. Максименко, В.Н. Защита информации в сетях сотовой подвижной
связи / В.Н. Максименко. - М.: Горячая линия -Телеком, 2017. - 34 c.
95
22. Максименко, В.Н. Защита информации в сетях сотовой подвижной
связи. / В.Н. Максименко, В.В. Афанасьев, Н.В. Волков. - М.: Горячая линия -
Телеком , 2017. - 34 c.
23. Малюк, А.А. Защита информации в информационном обществе:
Учебное пособие для вузов / А.А. Малюк. - М.: ГЛТ, 2015. - 230 c.
24. Микаэлян А.Л. Оптические методы в информатике. - М.: Наука,
2014.
25. Некраха, А.В. Организация конфиденциального делопроизводства и
защита информации / А.В. Некраха. - М.: Академический проект, 2017. - 224 c.
26. Нестеров С. Информационная безопасность. Учебник и практикум /
С.Нестеров. - М.: Юрайт, 2017. - 322 c.
96
ПРИЛОЖЕНИЕ
unit UnAdmin;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, DBCtrls, Grids, DBGrids, ExtCtrls, StdCtrls,DB, Buttons, jpeg;
type
TFmAdmin = class(TForm)
Panel1: TPanel;
Panel2: TPanel;
Panel3: TPanel;
DBGrid1: TDBGrid;
DBNavigator1: TDBNavigator;
RadioGroup1: TRadioGroup;
Edit1: TEdit;
Label1: TLabel;
Image1: TImage;
procedure RadioGroup1Click(Sender: TObject);
procedure Edit1Change(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
FmAdmin: TFmAdmin;
implementation
97
uses UnDM;
{$R *.dfm}
procedure TFmAdmin.RadioGroup1Click(Sender: TObject);
var Filter : string;
begin
DM.TbAdmin.Filtered := false;
Case RadioGroup1.ItemIndex of
0 : Filter := ''; //Нет фильтра
1 : Filter := 'u_type = '+QuotedStr('Администратор'); //Только администраторы
2 : Filter := 'u_type = '+QuotedStr('Регистратор');//Только регистраторы
3 : Filter := 'u_type = '+QuotedStr('Врач');//Только врачи
end;
DM.TbAdmin.Filter := Filter;
DM.TbAdmin.Filtered := true;
end;
procedure TFmAdmin.Edit1Change(Sender: TObject);
begin
//Поиск по фамилии
DM.TbAdmin.Locate('u_fio',Edit1.Text,[loCaseInsensitive, loPartialKey]);
end;
end.
unit UnAdrEd;
interface
uses
Источник: https://baza.diplomsite.ru/previewfile/2410