68
В программе для работы с таблицами, добавления, удаления,
редактирования записей используется универсальный язык запросов SQL.
Данный язык позволяет разработчику полностью абстрагироваться от формата и
месторасположения базы данных и одинаково обращаться к данным из баз
разного формата. Таким образом, использование данного универсального языка
позволяет решить поставленную нам задачу: разработать универсальное
приложение, которое смогло бы работать с базой данных любого формата, не
меняя при этом исходный код приложения.
Таблицы по работе с данными пользователей
Для поиска пользователя по фамилии разработан следующий запрос:
ADOQuery1.SQL.Add('SELECT * FROM Пользователи');
ADOQuery1.SQL.Add('WHERE [ФИО пользователя] LIKE
('+#39+'%'+UpperCase(Edit41.Text)+'%'+#39+')');
Данные извлекаются из таблицы «Пользователи» базы данных, для
выполнения запроса необходимо заполнить поле поиска. Результат выполнения
запроса будет представлен в следующем виде (рисунок 1.13).
Рисунок 1.13 Результат выполнения запроса к сущности «Пользователи»
(фрагмент)
Также можно организовать поиск и по другим критериям, а конкретно:
Год рождения пользователя
Год приёма пользователя на работу
Паспортные данные (серия и номер паспорта) пользователя
Перечень полей, отображаемых при выполнении запросов, не меняется,
все таблицы - результаты выполнения запроса, дальнейшему хранению не
подлежат и очищаются пользователем ИСАУ (системным администратором).
Таблицы по работе с данными поставщиков оборудования
Для поиска поставщика по наименованию разработан следующий запрос:
ADOQuery2.SQL.Add('SELECT * FROM Поставщик');
69
ADOQuery2.SQL.Add('WHERE [Наименование поставщика] LIKE
('+#39+'%'+UpperCase(Edit42.Text)+'%'+#39+')');
Данные извлекаются из таблицы «Поставщики» базы данных, для
выполнения запроса необходимо заполнить поле поиска. Результат выполнения
запроса будет представлен в следующем виде (рисунок 1.14).
Рисунок 1.14 Результат выполнения запроса к сущности «Поставщики» (фрагмент)
Список полей, получаемых при выполнении запроса (не отражены в
полном объеме на рисунке в силу масштабирования):
1) Код поставщика
2) Наименование поставщика
3) Юридический адрес
4) Сайт
5) Телефон
6) Менеджер фирмы
7) Дата заключения договора
Также можно организовать поиск и по другим критериям, а конкретно:
Фамилия менеджера фирмы
Год заключения договора с поставщиком
Перечень полей, отображаемых при выполнении запросов, не меняется,
все таблицы - результаты выполнения запроса, дальнейшему хранению не
подлежат и очищаются пользователем ИСАУ (системным
администратором).
Таблицы по работе с данными оборудования
Для поиска оборудования по фамилии пользователя, ответственного за данное
оборудование, разработан следующий запрос:
ADOQuery3.SQL.Add('SELECT [№ серийный], [Наименование], [Количество],
[Стоимость], [Итог], [Дата закупки], [Дата начала гарантии], [Дата окончания
гарантии],'+
'[Продолжительность гарантии], [Код поставщика], [Оборудование].[Код
пользователя], [ФИО пользователя] FROM Оборудование, Пользователи');
70
ADOQuery3.SQL.Add('WHERE [Пользователи].[Код
пользователя]=[Оборудование].[Код пользователя] and [ФИО пользователя]
LIKE ('+#39+'%'+UpperCase(Edit46.Text)+'%'+#39+')');
Данные извлекаются из таблицы «Оборудование» базы данных, для
выполнения запроса необходимо заполнить поле поиска. Результат выполнения
запроса будет представлен в следующем виде (рисунок 1.15).
Рисунок 1.15 Результат выполнения запроса к сущности «Оборудование»
(фрагмент)
Список полей, получаемых при выполнении запроса (не отражены в
полном объеме на рисунке в силу масштабирования):
1) № серийный
2) Наименование
3) Количество
4) Стоимость
5) Итог
6) Дата закупки
7) Дата начала гарантии
8) Дата окончания гарантии
9) Продолжительность гарантии
10) Код поставщика
11) Код пользователя
12) ФИО пользователя
Также можно организовать поиск и по другим критериям, а конкретно:
Наименование оборудования
Год закупки оборудования
Наименование поставщика оборудования
Перечень полей, отображаемых при выполнении запросов, не меняется,
все таблицы - результаты выполнения запроса, дальнейшему хранению не
71
подлежат и очищаются пользователем ИСАУ (системным
администратором).
Таблицы по работе с данными программного обеспечения
Для поиска программного обеспечения по наименованию фирмы-
поставщика разработан следующий запрос:
ADOQuery4.SQL.Add('SELECT [№ лицензии], [Наименование ПО],
[Стоимость ПО], [Количество], [Итог], [Дата закупки], [Начало лицензии],
[Окончание лицензии], '+
'[Продолжительность лицензии], [Программное обеспечение].[Код
поставщика], [Поставщик].[Наименование поставщика], [Код пользователя]
FROM [Программное обеспечение], [Поставщик]');
ADOQuery4.SQL.Add('WHERE [Поставщик].[Код
поставщика]=[Программное обеспечение].[Код поставщика] and [Наименование
поставщика] LIKE ('+#39+'%'+UpperCase(Edit48.Text)+'%'+#39+')');
Данные извлекаются из таблиц «Программное обеспечение»,
«Поставщик» базы данных, для выполнения запроса необходимо заполнить поле
поиска. Результат выполнения запроса будет представлен в следующем виде
(рисунок 1.16).
Рисунок 1.16 Результат выполнения запроса к сущности «Программное
обеспечение» (фрагмент)
Список полей, получаемых при выполнении запроса (не отражены в
полном объеме на рисунке в силу масштабирования):
1) № лицензии
2) Наименование ПО
3) Стоимость ПО
4) Количество
5) Итог
6) Дата закупки
72
7) Начало лицензии
8) Окончание лицензии
9) Продолжительность лицензии
10) Код поставщика
11) Наименование поставщика
12) Код пользователя
Также можно организовать поиск и по другим критериям, а конкретно:
Наименование ПО
Год закупки ПО
Фамилия пользователя, ответственного за ПО
Перечень полей, отображаемых при выполнении запросов, не меняется,
все таблицы - результаты выполнения запроса, дальнейшему хранению не
подлежат и очищаются пользователем ИСАУ (системным
администратором).
Таблицы по работе с данными мастеров по ремонту оборудования
Для поиска мастера по ремонту оборудования по фамилии разработан
следующий запрос:
ADOQuery5.SQL.Add('SELECT * FROM Мастер');
ADOQuery5.SQL.Add('WHERE [ФИО мастера] LIKE
('+#39+'%'+UpperCase(Edit50.Text)+'%'+#39+')');
Данные извлекаются из таблицы «Мастер» базы данных, для выполнения
запроса необходимо заполнить поле поиска. Результат выполнения запроса
будет представлен в следующем виде (рисунок 1.17).
Рисунок 1.17 Результат выполнения запроса к сущности «Мастер» (фрагмент)
Список полей, получаемых при выполнении запроса (не отражены в
полном объеме на рисунке в силу масштабирования):
1) Код мастера
2) ФИО мастера
3) Фирма
4) Юридический адрес
73
5) Телефон
6) Сайт
7) Дата заключения договора
Также можно организовать поиск и по другим критериям, а конкретно:
Название фирмы
Год заключения договора
Перечень полей, отображаемых при выполнении запросов, не меняется,
все таблицы - результаты выполнения запроса, дальнейшему хранению не
подлежат и очищаются пользователем ИСАУ (системным
администратором).
Таблицы по работе с данными ремонтов оборудования
Для поиска ремонта оборудования по фамилии мастера разработан следующий
запрос:
ADOQuery6.SQL.Add('SELECT [Оборудование].[№ серийный],
[Оборудование].[Наименование], [Ремонт].[Дата начала],
[Ремонт].[Стоимость],'+
'[Ремонт].[Ремонт окончен], [Мастер].[Код мастера], [Мастер].[ФИО мастера],
[Мастер].[Фирма], [Пользователи].[Код пользователя], [Пользователи].[ФИО
пользователя] FROM [Оборудование], [Ремонт], [Мастер], [Пользователи]');
ADOQuery6.SQL.Add('WHERE [Оборудование].[№ серийный]=[Ремонт].[№
серийный] and [Пользователи].[Код пользователя]=[Ремонт].[Код пользователя]
and [Мастер].[Код мастера]=[Ремонт].[Код мастера] and [Мастер].[ФИО мастера]
LIKE ('+#39+'%'+UpperCase(Edit54.Text)+'%'+#39+')');
Данные извлекаются из таблицы «Мастер», «Оборудование», «Ремонт»,
«Пользователи». Результат выполнения запроса будет представлен в следующем
виде (рисунок 1.18).
Рисунок 1.18 Результат выполнения запроса по данным о ремонте (фрагмент)
Список полей, получаемых при выполнении запроса (не отражены в
полном объеме на рисунке в силу масштабирования):
74
1) № серийный
2) Наименование
3) Дата начала
4) Стоимость ремонта
5) Ремонт окончен
6) Код мастера
7) ФИО мастера
8) Фирма
9) Код пользователя
10) ФИО пользователя
Также можно организовать поиск и по другим критериям, а конкретно:
Наименование оборудования
Год начала ремонта
Какое оборудование ожидает ремонта
Какое оборудование отремонтировано
Перечень полей, отображаемых при выполнении запросов, не меняется,
все таблицы - результаты выполнения запроса, дальнейшему хранению не
подлежат и очищаются пользователем ИСАУ (системным
администратором).
Таблицы, полученные в результате анализа надёжности поставщиков
оборудования (кластеризация k-means)
Для анализа перспективности фирм-поставщиков оборудования необходимо
получить данные для анализа. Этими данными являются: общее количество
поставленного оборудования (в шт.), общая продолжительность гарантийного
срока (в годах) и общая сумма денежных средств, затраченных на ремонт
оборудования (в тысячах рублей). Для выборки необходимых для анализа
данных разработан следующий запрос:
SELECT [Поставщик].[Код поставщика], [Наименование поставщика],[Общее
количество],[Общая гарантия],IIF(ISNULL([Общая стоимость
ремонта]),0,[Общая стоимость ремонта]) AS [Общая стоимость ремонта]
FROM (SELECT [Поставщик].[Код поставщика], [Наименование
поставщика],sum([Оборудование].[Количество]) as [Общее количество],sum
75
([Оборудование].[Продолжительность гарантии]) as [Общая гарантия], sum
([Ремонт].[Стоимость]) AS [Общая стоимость ремонта]
FROM ([Поставщик] Left Outer Join [Оборудование] ON [Поставщик].[Код
поставщика]=[Оборудование].[Код поставщика]) Left Outer Join [Ремонт] ON
[Ремонт].[№ серийный] = [Оборудование].[№ серийный]
GROUP BY [Поставщик].[Код поставщика], [Поставщик].[Наименование
поставщика]) AS MyTable
Данные извлекаются из таблиц «Поставщик», «Оборудование», «Ремонт».
Результат выполнения запроса будет представлен в следующем виде (рисунок
1.19).
Рисунок 1.19 Выборка необходимых данных для анализа (кластеризации k-
means) поставщиков
Представленные данные будут использованы для анализа
перспективности поставщиков оборудования (кластеризации).
76
После анализа (кластеризации) будут получены данные следующего вида
(рисунок 1.20):
Рисунок 1.20 Результаты анализа (кластеризации) поставщиков
В представленной таблице перспективные поставщики выделяются
зелёным цветом, не перспективные – красным.
Вполне логично дальнейшее отображение контактных данных перспективных
фирм – поставщиков (рисунок 1.21):
77
Рисунок 1.21 Контактные данные надёжных поставщиков
Список полей, получаемых при выполнении запроса (не отражены в
полном объеме на рисунке в силу масштабирования):
1) Наименование поставщика
2) Юридический адрес
3) Сайт
4) Телефон
5) Менеджер фирмы
Таким образом, организовано программное взаимодействие пользователя
(системного администратора) с БД. Представленные запросы позволяют
получать оперативную информацию о состоянии информационно-технического
обеспечения информационно-технического обеспечения ООО «СуперБолт»
В качестве результатной информации с точки зрения учета
информационно-технического обеспечения выступают отчеты, создаваемые
посредством разработанного программного приложения.
Отчёты по работе с пользователями
Отчёт «Список с данными всех пользователей информационно-технической
инфраструктуры компании» включает следующую информацию:
1) ФИО пользователя
2) Серия паспорта
3) Номер паспорта
4) Дата рождения
5) Возраст
6) Адрес
7) Телефон
8) Должность
9) Дата приёма на работу
Для данного отчета разработан следующий запрос:
ADOQuery10.SQL.Add('SELECT [ФИО пользователя], [Серия паспорта], [Номер
паспорта], [Дата рождения], [Возраст], [Адрес], [Телефон], [Должность], [Дата
приёма на работу], [Стаж работы]');