Подпункты Резервное копирование и Восстановить позволяют путем вызова соответствующей функции Windows API осуществить резервное копирование файлов БД вместе с файлами индексов, которые зачастую разрушаются при работе с локальными БД с использованием машины баз данных фирмы Borland (BDE). Данное действие выполняется следующим образом:
CopyFile ('peredachi. db','copyperedachi. db', false);
На главной форме расположен компонент TPageControl, с помощью которого организована визуализация и возможность редактирования содержимого таблиц БД АРМ. Этот компонент является компонентом, позволяющим отказаться от использования множества форм. Он включает в себя коллекцию объектов типа TtabSheet, каждый из которых является отдельной страницей многостраничного компонента со своим набором элементов управления.
Переход между содержимым таблиц осуществляется с помощью закладок с поясняющими надписями (рисунки 2.11 - 2.16). Компоненты TDBGrid, с помощью которых выполнено табличное представление содержимого таблиц, позволяют ввести русскоязычные заголовки колонок и отформатировать их по желанию.
Рисунок 2.11 - Вид главной формы приложения при активной закладке Передачи.
Рисунок 2.12 - Вид главной формы приложения при активной закладке Элементы вещания.
Рисунок 2.13 - Вид главной формы приложения при активной закладке Поставщики.
Рисунок 2.14 - Вид главной формы приложения при активной закладке Сот рудники.
Рисунок 2.15 - Вид главной формы приложения для работы с БД при активной закладке Включение в сценарий.
Рисунок 2.16 - Вид главной формы приложения для работы с БД при активной закладке Обработка.
На рисунках 2.15-2.16, в табличных формах, соответствующих таблицам БД "Включение в сценарий" и "Обработка", с помощью которых осуществляется связь между основными таблицами БД, а также в таблицу "Элементы", распахивающиеся списки Наименование элемента, ФИО сотрудника и Наименование поставщика. Для этого в списки статических полей соответствующих компонентов TTable, располагающихся в модуле данных, добавлены Look-up-поля, которые в физической таблице БД не существуют, но позволяют пользователю выбирать из списка [12-13]. Например, выбираем в табличной форме Элементы вещания из списка поставщика элемента вещания его наименование, а в таблицу "Элементы" в поле Код поставщика автоматически будет внесен код, соответствующий выбору пользователя. Реализация в данном приложении такой технологии ведения БД и организации связи между записями различных таблиц существенно облегчают работу пользователя.
Для связного просмотра содержимого таблиц в данном проекте использована технология установления связей "Главная-подчиненная" ("Master-Detail") между наборами данных, представленными компонентами TTable, что позволяет пользователю видеть весь набор записей главной таблицы, менять в ней текущую запись, а в подчиненных таблицах видеть только записи, связанные с этой текущей. Связь "Передачи" - "Включение" - "Элементы вещания" - "Обработка" - "Сотрудники" организована программно:
frmDataModule. tbVkljuchenie. MasterSource: =frmDataModule. dsPeredachi;
frmDataModule. tbVkljuchenie. MasterFields: ='Cod_peredachi';
frmDataModule. tbElementy. MasterSource: =frmDataModule. dsVkljuchenie;
frmDataModule. tbElementy. MasterFields: ='Cod_elementa';
frmDataModule. tbObrabotka. MasterSource: =frmDataModule. dsElementy;
frmDataModule. tbObrabotka. MasterFields: ='Cod_elementa';
frmDataModule. tbSotrudniki. MasterSource: =frmDataModule. dsObrabotka;
frmDataModule. tbSotrudniki. MasterFields: ='Tab_nomer';
Форма для организации связи представлена на рисунке 2.17.
Рисунок 2.17 - Внешний вид диалогового окна для связного просмотра данных по выбранной передаче и входящих в нее элементах вещания.
Сортировка данных в табличных формах, представляемых пользователю в главном окне приложения, осуществляется в обработчике нажатия на независимый переключатель путем подключения созданных ранее индексов таблиц. Программно это происходит следующим образом.
procedure TfrmMain. CheckBox1Click (Sender: TObject);
begin
if CheckBox1. Checked=True
then
frmDataModule. tbPeredachi. IndexName: ='ixNaimen_Peredachi'
else
frmDataModule. tbPeredachi. IndexName: ='';
end;
Фильтрация данных в табличных формах, представляемых пользователю в главном окне приложения, осуществляется в обработчике нажатия на независимый переключатель путем заполнения свойства Filter компонентов TTable соответствующими значениями [14-15]. Программно это происходит следующим образом.
procedure TfrmMain. Button1Click (Sender: TObject);
try
StrToDate (MaskEdit2. Text);
frmDataModule. tbVkljuchenie. Filter: =' [Data_prinjatia] ='+''''+MaskEdit2. Text+'''';
frmDataModule. tbVkljuchenie. Filtered: =True;
except
ShowMessage ('Введите правильную дату! ');
Запрос при разработке приложения в 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 - Результат выдачи данных о заполнении планируемой передачи элементами вещания по запросу
Второй запрос. Определить количество элементов вещания, поставленных каждым поставщиком.
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 - Результат выдачи данных о количестве элементов вещания, поставленных каждым поставщиком.
Третий запрос. Предъявить пользователю суммарные объемы обработки сотрудниками элементов вещания, сгруппированные по форматам их хранения.
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 - Результат выдачи данных о суммарных объемах обработки сотрудниками элементов вещания, сгруппированных по форматам их хранения
Отчет с помощью компонентов Delphi закладки QReport организуется на отдельной форме, которая пользователю в процессе работы не предъявляется [15]. Внешний вид формы на этапе проектирования приведен на рисунке 2.21.
Рисунок 2.21 - Формы отчета на этапе проектирования
Просмотр и, по желанию пользователя, печать отчета осуществляется с помощью вызова метода frmReport. QuickRep1. Preview. Результат его выполнения приведен на рисунке 2.22.
Рисунок 2.22 - Внешний вид отчета "Обработка элементов вещания"
Пользователь может получить справку по работе с приложением при выборе соответствующего пункта главного меню окна приложения. При этом запускается Internet-броузер (программа для просмотра файлов в формате HTML, в данном проекте - это Internet Explorer) пользователю предоставляется справочный файл в виде гипертекстового документа. Он содержит общую информацию о предметной области, структуру таблиц, входящих в базу данных, а также формы приложения и комментарии по работе с ними. Использование данной справки позволит пользователю получить необходимую помощь в затруднительных ситуациях как с точки зрения пользовательского интерфейса, так и работы по формированию программ радиовещания и учета данных об этом бизнес-процессе.
Работа с приложением баз данных АРМ специалиста по формированию программ радиовещания должна начинаться с запуска исполняемого файла ARM_Radio. exe, находящемся в основном каталоге приложения (каталог, или папка, может размещаться на любом диске персонального компьютера и иметь любое название). Для нормальной работы приложения на компьютере требуется наличие Borland Database Engine. Создания псевдонима БД в системе не требуется.
После запуска исполняемого файла пользователь имеет возможность работать с главным окном приложения, в котором располагается многостраничный элемент управления, каждая страница которого представляет собой отдельное диалоговое окно. В них располагаются табличные формы с данными об основных объектах предметной области - о передачах, элементах вещания, поставщиках этих элементов, сотрудниках радиостанции, а также о связях между ними - включении элементов вещания в передачи и обработке элементов сотрудниками. Установление связей между объектами и назначение возможных значений таких полей, как Формат хранения, Должность, Вид передачи (элемента, поставщика), облегчено использованием распахивающихся списков непосредственно в ячейках табличных форм.
На закладках Включение в сценарий и Обработка многостраничного элемента управления имеется возможность выполнить фильтрацию записей в табличных формах с помощью установленных независимых переключателей, полей ввода текста и командных кнопок.
Страницы: 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14
