2.4.2 Запросы к таблицам бд арм Радио
Запрос при разработке приложения в Delphi осуществляется с использованием компонента Tquery, который ответственен за реляционную обработку данных в таблицах. Построение запросов осуществляется статически, динамически (формируется программно) и параметрически (используются параметры, вводимые пользователем в компоненты). В данном дипломном проекте реализован статический запрос с использованием параметров, вводимых пользователем. В свойство SQL компонента Tquery записывается непосредственно текст запроса [13].
В качестве примеров обработки данных в БД АРМ реализованы следующие запросы.
Первый запрос. Выдать данные о заполнении планируемой передачи элементами вещания с подсчетом суммарного времени вещания.
Реализация запроса на языке SQL.
select a. Cod_peredachi, a. Naimen_peredachi, a. Dlitelnoct, sum (b. Dlitelnost_v_peredache) as Tekushaja_dlitelnost
from Peredachi a, Vkljuchenie b
where a. Cod_peredachi=b. Cod_peredachi and a. Naimen_peredachi=: Par1
group by a. Cod_peredachi, a. Naimen_peredachi, a. Dlitelnoct
В данной реализации параметр: Par1 задается пользователем с помощью компонента ТEdit:
Query1. ParamByName ('Par1'). Value: =Edit1. Text;
Результат выполнения приведен на рисунке 2.18.
Рисунок 2.18 - Результат выдачи данных о заполнении планируемой передачи элементами вещания по запросу
Второй запрос. Определить количество элементов вещания, поставленных каждым поставщиком.
Реализация запроса на языке SQL.
Select a. Cod_postavshika, a. Naimen_postavshika, count (*) as Kolvo_postavlennych_elementov
from Postavshiki a, Elementy b
where a. Cod_postavshika=b. Cod_postashika
group by a. Cod_postavshika, a. Naimen_postavshika
В данной реализации параметры не используются.
Результат выполнения приведен на рисунке 2.19.
Рисунок 2.19 - Результат выдачи данных о количестве элементов вещания, поставленных каждым поставщиком.
Третий запрос. Предъявить пользователю суммарные объемы обработки сотрудниками элементов вещания, сгруппированные по форматам их хранения.
Реализация запроса на языке SQL.
Select a. Format_chranenia, a. Ed_izmerenia, sum (a. "Ob,jem") as Obshij_objem_obrabotki
from Elementy a, Obrabotka b, Sotrudniki c
where b. Tab_nomer=c. Tab_nomer and b. Cod_elementa=a. Cod_elementa
group by a. Format_chranenia, a. Ed_izmerenia
В данной реализации параметры не используются.
Результат приведен на рисунке 2.20.
Рисунок 2.20 - Результат выдачи данных о суммарных объемах обработки сотрудниками элементов вещания, сгруппированных по форматам их хранения
2.4.3 Просмотр и печать результатов формирования отчета
Отчет с помощью компонентов Delphi закладки QReport организуется на отдельной форме, которая пользователю в процессе работы не предъявляется [15]. Внешний вид формы на этапе проектирования приведен на рисунке 2.21.
Рисунок 2.21 - Формы отчета на этапе проектирования
Просмотр и, по желанию пользователя, печать отчета осуществляется с помощью вызова метода frmReport. QuickRep1. Preview. Результат его выполнения приведен на рисунке 2.22.
Рисунок 2.22 - Внешний вид отчета "Обработка элементов вещания"