Модули, с помощью которых реализовано выполнение и просмотр результатов SQL-запросов к содержимому таблиц БД

5 Модули, с помощью которых реализовано выполнение и просмотр результатов SQL-запросов к содержимому таблиц БД.

6 Модуль, который позволяет просмотреть и распечатать сведения об элементах вещания, из которых составляются передачи, и об их поставщиках, путем построения отчета.

В приложении В приведен листинг основных частей программного комплекса.

 

2.3.2 Реализация структуры БД АРМ "Радио"

Для хранения информации о передачах, составляемых специалистом, чья деятельность автоматизируется, об элементах вещания, включаемых в эти передачи в соответствии со сценарием, о поставщиках элементов вещания и о сотрудниках, которые эти элементы обрабатывают и переводят из одного формата хранения в другой, используются таблицы, схема которых была спроектирована в общей части дипломного проекта. Так, для хранения и обработки данных о передачах создана таблица Peredachi. db в формате хранения Paradox. Схема структуры этой таблицы в виде окна приложения DataBase DeskTop, в которой она была создана, приведена на рисунке 2.2.

Рисунок 2.2 - Схема структуры таблицы "Передачи"

Вторичный индекс (Secondary Indexes) для сортировки записей в приложении БД в алфавитном порядке по наименованию передачи был создан в этой же утилите с использованием соответствующего свойства таблицы (см. на рис.2.2 в правом верхнем углу). Диалоговое окно для создания индекса приведено на рисунке 2.3.

Рисунок 2.3 - Диалоговое окно для создания индекса таблицы "Передачи" с убыванием по полю "Наименование передачи"

Схема структуры таблицы Elementy. db для хранения и обработки данных об элементах вещания приведена на рисунке 2.4.

Рисунок 2.4 - Схема структуры таблицы "Элементы вещания"

Индекс создан по полю "Наименование элемента" (см. рисунок 2.5).

Рисунок 2.5 - Диалоговое окно для создания индекса таблицы "Элементы вещания " с убыванием по полю "Наименование элемента"

Схема структуры таблицы Vkljuchenie. db для сведений о том, какие элементы вещания в какие передачи были включены, приведена на рисунке 2.6.

Рисунок 2.6 - Схема структуры таблицы "Включение элементов"

 

Схема структуры таблицы Postavshiki. db для хранения и обработки данных о поставщиках элементов вещания приведена на рисунке 2.7. Индекс создан по полю "Наименование поставщика".

Рисунок 2.7 - Схема структуры таблицы "Поставщики элементов вещания".

Схема структуры таблицы Sotrudniki. db для хранения и обработки данных о сотрудниках радиостанции приведена на рисунке 2.8 Индекс создан по полю "ФИО сотрудника".

Рисунок 2.8 - Схема структуры таблицы "Сотрудники радиостанции"

Схема структуры таблицы Obrabotka. db для сведений об обработке элементов вещания сотрудниками радиостанции приведена на рисунке 2.9.

Рисунок 2.6 - Схема структуры таблицы "Обработка элементов"

2.4 Решение типичных задач приложения по представлению и обработке данных из БД 2.4.1 Выполнение системных задач. Просмотр и редактирование данных

Рассмотрим содержимое основных пунктов меню главной формы приложения и действия, к которым приводит их выбор. Меню главной формы в различных режимах работы Дизайнера меню на этапе разработки приложения приведено на рисунке 2.10.

Рисунок 2.10 - Меню главной формы на этапе проектирования приложения

Подпункты меню, объединенные в пункт Системные, осуществляют общесистемные действия над содержимым и взаимосвязями файлов проекта. Подпункт Подключить таблицы приводит к проверке прав доступа пользователей и последующей активизации наборов данных для их использования компонентами для просмотра и редактирования данных. Подпункт Отключить таблицы приводит к деактивации наборов данных и к недоступности соответствующих данных в файлах таблиц.

Подпункты Резервное копирование и Восстановить позволяют путем вызова соответствующей функции 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);

begin

try

StrToDate (MaskEdit2. Text);

frmDataModule. tbVkljuchenie. Filter: =' [Data_prinjatia] ='+''''+MaskEdit2. Text+'''';

frmDataModule. tbVkljuchenie. Filtered: =True;

except

ShowMessage ('Введите правильную дату! ');

end;

end;

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 - Внешний вид отчета "Обработка элементов вещания"

 

2.5 Получение справки по работе с приложением

Пользователь может получить справку по работе с приложением при выборе соответствующего пункта главного меню окна приложения. При этом запускается Internet-броузер (программа для просмотра файлов в формате HTML, в данном проекте - это Internet Explorer) пользователю предоставляется справочный файл в виде гипертекстового документа. Он содержит общую информацию о предметной области, структуру таблиц, входящих в базу данных, а также формы приложения и комментарии по работе с ними. Использование данной справки позволит пользователю получить необходимую помощь в затруднительных ситуациях как с точки зрения пользовательского интерфейса, так и работы по формированию программ радиовещания и учета данных об этом бизнес-процессе.

2.6 Краткое руководство пользователя

Работа с приложением баз данных АРМ специалиста по формированию программ радиовещания должна начинаться с запуска исполняемого файла ARM_Radio. exe, находящемся в основном каталоге приложения (каталог, или папка, может размещаться на любом диске персонального компьютера и иметь любое название). Для нормальной работы приложения на компьютере требуется наличие Borland Database Engine. Создания псевдонима БД в системе не требуется.

После запуска исполняемого файла пользователь имеет возможность работать с главным окном приложения, в котором располагается многостраничный элемент управления, каждая страница которого представляет собой отдельное диалоговое окно. В них располагаются табличные формы с данными об основных объектах предметной области - о передачах, элементах вещания, поставщиках этих элементов, сотрудниках радиостанции, а также о связях между ними - включении элементов вещания в передачи и обработке элементов сотрудниками. Установление связей между объектами и назначение возможных значений таких полей, как Формат хранения, Должность, Вид передачи (элемента, поставщика), облегчено использованием распахивающихся списков непосредственно в ячейках табличных форм.

На закладках Включение в сценарий и Обработка многостраничного элемента управления имеется возможность выполнить фильтрацию записей в табличных формах с помощью установленных независимых переключателей, полей ввода текста и командных кнопок.

На всех закладках главной формы имеется возможность включить или отключить сортировку записей в табличных формах по различным критериям, указанным в названии зависимых переключателей.

На закладках Передачи, Элементы вещания, поставщики и Сотрудники имеется возможность поиска нужной записи в табличной форме путем ввода нужного значения в поле ввода текста, причем поиск по ближнему соответствию начинается при вводе уже первого символа.

Приложение дает возможность с помощью пункта меню Выполнение запросов получить данные заполнении планируемой передачи элементами вещания, о количестве поставленных элементов вещания по поставщикам и об объемах обработки, выполненной сотрудниками по форматам хранения.

С помощью пункта меню Выдача отчетов можно получить данные о ходе обработки элементов вещания.

С помощью пункта меню Выдача справки пользователь может получить дополнительные сведения о предметной области и структуре таблиц базы данных.

3. Экономические расчеты

Спроектированное в данном проекте автоматизированное рабочее места специалиста по формированию программ радиовещания позволяет автоматизировать деятельность играющего важную роль в бизнес-процессе радиостанции работника, дает возможность повысить производительность его труда, быстроту и качество принимаемых им решений. Автоматизация деятельности специалиста позволит повысить качество формируемых передач за счет уменьшения количества накладок и использования наиболее подходящих материалов в передачах. Автоматизация учета данных обо всех объектах бизнес-процеса, в котором участвует данный специалист, дает также соответствующий выигрыш за счет централизованного хранения, доступа и поиска данных в электронном виде.

 

3.1 Расчет капитальных затрат на создание программного изделия

Капитальные вложения в создание программного изделия носят единовременный характер и определяются по формуле (3.1) [16]:

K=K₁+K₂+K₃, (3.1)

где К₁ - затраты на оборудование (стоимость приобретения компьютеров, периферийных устройств);

К₂ - затраты на лицензионные программные продукты;

К₃ - затраты на создание программного изделия.

Коэффициент К₁

К₁=SN_i·Ci·k₁·k₂, ₍3.2)

где N_i - количество единиц i - го оборудования, необходимого для реализации программного изделия,

N₁=3020 грн. (стоимость компьютера Athlon 3.0 Ghz);

N₂=809 грн. (стоимость принтера Canon LBP 2900);

N₃=950 грн. (стоимость периферийных устройств).

k₁=1,01; k₂=1,015; По формуле (3.2):

К₁=1*2735*1,01*1,015 + 1*1094*1,01*1,015 + 1*1,01*1,015*950=4118грн.

К₂=1200 грн. (стоимость лицензионного обеспечения Delphi 6.0);

Затраты на создание программного продукта определим по формуле (3.3):

К₃=З₁+З₂+З₃, (3.3)

где З₁ - затраты труда программистов-разработчиков,

З₂ - затраты компьютерного времени,

З₃ - косвенные затраты.

Рассчитаем затраты труда программистов-разработчиков

З₁=N_k·r_k·T_k·kзар_,

где k - количество профессий разработчиков, k=1;

N_k - количество разработчиков k-й профессии, N_k=1 чел.;

r_k - часовая зарплата разработчика k-й профессии;

T_k=t_1k+ t_2k+ … + t_nk- трудоемкость разработки для k-го разработчика (разработчик работает 4 месяца, в месяце 21 рабочих дня по 8часов в день);

t_nk- время затраченное на каждом этапе k-ым разработчиком, час;

t_1k - разработка математической и информационной модели - 1 мес. (168 час);

t_2k- разработка алгоритма и программы - 1 мес. (168 час);

t_3k - отладка программы - 1 мес. (168 час);

t_4k - разработка программной документации - 1 мес. (168 час);

T_k=t_1k+ t_2k+ t_3k+ t_4k= 1+1+1+1=4 (мес);

k_зар - коэффициент начислений на фонд зарплаты, равен 1,475.

Часовую зарплату разработчика определим по формуле (3.4):

r_k=M_k/F_k^мес, (3.4)

где M_k - месячная зарплата k-го разработчика, M_k=800 грн.;

F_k^мес - месячный фонд времени (разработчик работает 21 день в месяц по 8часов в день);

r_k=800/ (21·8) =4,75 грн.

З₁=1·2,5·4·21·8·1,475=4708 грн.

Рассчитаем затраты компьютерного времени по формуле

З₂=С_k·F_о,

где С_k - себестоимость компьютерного часа,

F_o - затраты компьютерного времени на разработку программы (разработчик работает 4 месяца, в месяце 21 рабочих дня по 8 часов в день);

С_k=C_a+C_э;

где С_a - амортизационные отчисления,

C_э - энергозатраты;

C_а=SС_i×N_Аi/F_{год. i},

С_э=P_э·С_квт,

где С_i - балансовая стоимость i - го оборудования, которое использовалось при создании ПИ; С₁=4118 грн., формула (3.2);

N_Аi - годовая норма амортизации оборудования, N_Аi=0,15,F_{год. i} =F_kmes*12 - годовой фонд времени работы i - го оборудования;

F_kmes- месячный часовой фонд работы оборудования, 160 ч (оборудование работает по 8 ч в день, 5 дней в неделю, 4 недели в месяц);

F_{год. i}=160*12=1920 ч (12 месяцев в году);

P_э - расход электроэнергии, потребляемой компьютером, P_э=0,25 кВт/ч,

С_квт - стоимость 1кВт/ч электроэнергии, С_квт=0,25 грн.;

С_k=4118·0,15/1920+0,25·0,25=0,38 грн.;

F_o=4·21·8=672 ч;

З₂=0,38·672=255,4 грн. /ч.

Рассчитаем косвенные затраты по формуле

З₃=С₁+С₂+С_3,

 

где С₁ - затраты на содержание помещений;

С₂ - расходы на освещение, отопление, охрану и уборку помещений;

С₃ - прочие расходы (стоимость различных материалов, используемых при разработке проекта).

Рассчитаем соответственные затраты по формулам:

С₁=2·Ц_зд/100=12000·2/100=240грн.; С₂=0,2·Ц_зд/100=12000·0,2/100=24грн.,

где Ц_зд=12000грн. (стоимость помещения).

В прочие расходы входит стоимость бумаги (5 грн), ручки (0,2 грн), картриджа для принтера (160,75грн), записываемого лазерного диска (2,3грн).

С₃=5+0,2+160,75+2,3=168,25 грн.

З₃=240+24+168,25=432,25 грн.

По формуле (3.3) рассчитаем затраты на разработку программы:

К₃=4708+255,4+432,25=5396 грн.

Исходя из полученных значений по формуле (3.1) получим:

К=4118+1200+5396=10714 грн.

 

3.2 Расчет годовой экономии от автоматизации управленческой деятельности

Основным источником экономии является снижение трудоемкости выполнения рутинных управленческих операций. Годовая экономия от автоматизации управленческой деятельности рассчитывается по формуле

С_m=C_p·St^p_i·k^p_i-C_a·St^a_i·k^a_i,

где t^p_i, t^a_i - трудоемкость выполнения i - й управленческой операции соответственно в ручном и автоматизированном вариантах,

k^p_i,k^a_{i -} повторяемость выполнения i-й операции в единицу времени:

1 операция - оформление бланков (t^р₁=0,8ч., t^а₁=0,25ч., k₁=3000);

2 операция - поиск информации (t^р₂=0,17ч., t^а₂=0,01ч., k₂=3100).

С_p, С_a - часовая себестоимость выполнения операций в ручном и в автоматизированном вариантах.

Значения показателей представлены в таблице, помещенной ниже.

Таблица 3.1- Численные значения показателей

Показатель	tр1, ч.	tа1, ч.	k1	tр2, ч.	tа2, ч.	k2
Величина	0,8	0,25	3000	0,17	0,01	3100

Рассчитаем себестоимость выполнения управленческих операций в ручном варианте по формуле

С_p=C^p₁+C^p_2,

 

где C^p₁ - затраты на оплату труда персонала,

C^p₂ - косвенные расходы,

C^p₁=SN_k·r_k·k_зар, (3.5)

где N_k - количество работников k-й профессии, выполняющих работу, N_k=1 чел.;

r_k - часовая зарплата одного работника k - й профессии, см. формулу (3.5),

где M_k=300 грн. (месячная зарплата),

F_k^мес - месячный фонд времени специалист по формированию передач работает 21 день в месяце по 8часов в день);

k_зар - коэффициент начислений на фонд зарплаты, равный 1,475.

C^p₁=1·300/ (21·8) ·1,475=2,60 грн.;

N₁ - стоимость стола, равная 70 грн.;

N₂ - стоимость стула, равная 25 грн.;

k₁=1,01;

k₂=1,015;

N_Аi - годовая норма амортизации оборудования, N_Аi=0,2;

F_{год. i} - годовой фонд времени работы i - го оборудования, F_{год. i}=1920 ч. (8 ч в день, 5 дней в неделю, 4 недели в месяц, 12 месяцев в году),

P_э - расход потребляемой электроэнергии, P_э=1,5 кВт/ч.,

С_квт - стоимость 1кВт/ч электроэнергии, С_квт=0,25 грн.;

определим C^p₂:

C^p₂= (1·70·1,01·1,015+1·25·1,01·1,015) ·0,2/1920+1,5·0,25=0,385=0,40 грн.

С_p=2,60+0,40=3,00 грн.

Рассчитаем себестоимость выполнения управленческих операций в автоматизированном варианте по формуле

С_а=C^а₁+C^а_2,

 

где C^а₁ - затраты на оплату труда персонала,

C^а₂ - себестоимость компьютерного часа.

По формулам (3.2, 3.4),

где N_k - количество работников k-й профессии, выполняющих работу, N_k=1 чел.;

r_k - часовая зарплата одного работника k - й профессии, см. формулу (3.5),

M_k=300 грн. (месячная зарплата), F_k^мес - месячный фонд времени (21 день в месяц по 8 часов работы в день);

k_зар - коэффициент начислений на фонд зарплаты, равный 1,475,определим C^а₁:

C^а₁=1·300/168·1,475=2,60 грн.;

N_Аi - годовая норма амортизации оборудования, N_Аi=0,02;

F_{год. i} - годовой фонд времени работы i - го оборудования, F_{год. i}=1920 ч (оборудование работает по 8 ч в день, 5 дней в неделю, 4 недели в месяц, 12 месяцев в году),

P_э - расход потребляемой электроэнергии, P_э=0,3 кВт/ч.,

С_квт - стоимость 1кВт/ч электроэнергии, С_квт=0,25грн. Определим C^p₂:

C^а₂= (1·2735·1,01·1,015+1·1054·1,01·1,015) ·0,2/1920+0,3·0,25»0,4 грн.

С_а=2,6+0,4=3,00 грн.

Так как С_а» С_p, то полагаем, что С_а=С_p=С^$=3,00 грн.

С_m= С^$ [ (t^р₁-t^а₁) k₁ + (t^р₂-t^а₂) k₂] =3* [ (0,8-0,25) *3000 + (0,17-0,01) 3100] =6438 грн.

 

3.3 Расчет годового экономического эффекта, коэффициента экономической эффективности и срока окупаемости капиталовложений

Рассчитаем годовой экономический эффект:

Э_ф=Э_г-Е_н·К,

где Е_н - нормативный коэффициент экономической эффективности, Е_н=0,42;

Э_г - годовая экономия от автоматизации управленческой деятельности, равная 6438грн;

К - капитальные затраты, равные 10714 грн. Тогда

Э_ф=6438-0,42·10714=1938,0 грн.

Рассчитаем коэффициент экономической эффективности по формуле:

Е_р=Э_г/К=6438/10714=0,6.

Рассчитаем срок окупаемости капиталовложений, то есть период времени, в течение которого окупаются затраты на программное изделие по формуле:

Т_р=1/Е_р=1/0,6=1,7*12»20=1 год и 8 месяцев.

Таким образом, видно, что рассчитанный срок окупаемости меньше нормативного, равного 2,4 года, то есть капитальные вложения использованы эффективно. Результаты расчетов сведены в таблицу.

Таблица 3.2 - Экономическая эффективность от внедрения АРМ

Элементы расчета	Ручной вариант	Автоматизированный вариант	Единицы измерения
Срок обработки поступающей информации	1	0.00567	час
Затраты времени при поиске и редактировании информации	2	0.0010	час
Годовая экономия от автоматизации процесса учета и ведения документов 6438 грн. Годовой экономический эффект составил 1938 грн Срок окупаемости капиталовложений 1 год и 8 месяцев.

Преимущества АРМ по сравнению с ручной обработкой данных:

ускорение сроков обработки информации;

повышение достоверности учета объектов предметной области;

ликвидация рутинного труда специалиста, связанного с формированием и учетом передач радиовещания;

ликвидация несанкционированного доступа к документации;

обеспечение целостности и сохранности документации.

 

Выводы по разделу

Подтверждена эффективность использования капитальных вложений, так как рассчитанный срок окупаемости (1 год и 8 месяцев) меньше нормативного, равного 2,4 года. Экономическая и организационная эффективность от использования автоматизированного рабочего места специалиста по формированию программ радиовещания заключается в сокращении на несколько порядков затрат времени на обработку данных.

4. Охрана труда

 

4.1 Анализ опасных и вредных производственных факторов

В настоящее время происходит активное внедрение в практику персональных компьютеров и в процессе трудовой деятельности при нарушении безопасных условий труда на человека могут воздействовать опасные и вредные производственные факторы (ОВПФ) (ГОСТ 12.0.003-74 ССБТ. Опасные и вредные производственные факторы) [17-20].

К вредным производственным факторам относятся:

неоптимальный состав и состояние воздуха:

повышенная запыленность воздуха;

повышенная или пониженная влажность;

повышенная подвижность;

неоптимальное освещение;

недостаток освещенности;

неравномерность освещения;

повышенный уровень шума.

электромагнитное излучение;

психоэмоциональное напряжение.

К опасным производственным фактором относятся:

наличие электрического напряжения;

возникновение пожаров.

Один из факторов воздействия внешней среды - микроклиматические условия.

Пары и газы образуют с воздухом смеси, а твердые и жидкие частицы вещества - дисперсные системы: аэрозоли, которые делятся на пыль (размер твердых частиц более 1 мкм), дым (менее 1 мкм) и туман (размер жидких частиц менее 10 мкм). Пыль бывает крупно - (размер частиц более 150 мкм), средне - (50-100 мкм) и мелкозернистой (менее 10 мкм). Источником пыли в машинном зале ВЦ являются трущиеся механические части внешних устройств ЭВМ, бумага для АЦПУ и недостаточное кондиционирование воздуха. Вредные вещества, хорошо растворяясь в биологических средах, способны вступать с ними во взаимодействия, вызывая нарушения нормальной жизнедеятельности. В результате их действия у человека возникает болезненное состояние - отравление, опасность которого зависит от продолжительности воздействия, концентрации и вида вещества.

Человек постоянно находится в процессе теплового взаимодействия с окружающей средой. При воздействии высокой температуры, интенсивного теплового излучения возможен перегрев организма, который характеризуется повышением температуры тела, обильным потовыделением, учащением пульса и повышением частоты дыхания, резкой слабостью, головокружением, а в тяжелых случаях - появлением судорог или теплового удара. Источником высокой температуры в машинном зале ВЦ являются внешние устройства ЭВМ: АЦПУ, дисплеи, а также плохая работа кондиционеров. Влажность воздуха оказывает большое влияние на терморегуляцию организма. Движение воздуха в помещениях является важным фактором, влияющим на тепловое самочувствие человека.

Правильно спроектированное и выполненное освещение на предприятиях машиностроительной промышленности обеспечивает возможность нормальной производственной деятельности. При освещении производственных помещений используют естественное и искусственное освещение. Недостаток естественного света предусматривает применение системы смешанного освещения. Освещенность на рабочем месте должна соответствовать характеру зрительной работы, который определяется следующими тремя параметрами:

объект различения - наименьший размер рассматриваемого предмета;

фон - поверхность, прилегающая непосредственно к объекту различения;

контраст объекта с фоном - характеризуется соотношением яркостей рассматриваемого объекта.

Недостаточное освещение приводит к напряжению зрения, преждевременной усталости и ослабляет внимание. Чрезмерно яркое освещение вызывает ослепление, раздражение и резь в глазах. Неправильное направление света на рабочее место может создать резкие тени, блики и дезориентировать работающего. Это может привести к профессиональным заболеваниям. Сохранность зрения человека, состояние его центральной нервной системы и безопасность на производстве в значительной мере зависят от условий освещения.

Одним из наиболее распространенных факторов внешней среды, неблагоприятно воздействующих на организм человека, является шум.

Шум вредно действует на организм и снижает производительность труда. Шум создает значительные нагрузки на нервную систему человека, оказывает на него психологическое воздействие. Источником шума в машинном зале ВЦ являются механические устройства ЭВМ. Человек, работая при шуме, привыкает к нему, но продолжительное действие сильного шума вызывает общее утомление, может привести к ухудшению слуха, а иногда и к глухоте, нарушается процесс пищеварения, происходит изменение объема внутренних органов. Эти вредные последствия шума тем больше, чем сильнее шум и продолжительнее его действие.

Работая за компьютером, программист испытывает психоэмоциональное напряжение. Увлекаясь работой, человек начинает моргать реже, чем обычно, что приводит к ускоренному высыханию поверхности глаз и в результате к ухудшению зрения. Руки и пальцы должны постоянно бить по клавишам и попадать на нужную. При этом утомляется нервная система и мышцы рук.

Постоянно в напряжении находятся спинные, шейные и другие мышцы, поддерживающие тело программиста в необходимом положении.

При работе за компьютером существует вероятность поражения электрическим током. В целях предупреждения электротравм запрещается работать на незаземленных мониторах, а также на мониторах, у которых нарушен внешний вид (выдвинут вперед экран, повреждена поверхность корпуса и т.п.), имеются нехарактерные сигналы, нестабильное изображение на экране.

Существуют мониторы на которых нанесено антибликовое покрытие. Покрытие обеспечивает снятие электростатического заряда с поверхности экрана и исключать искрение и накопление пыли.

Электробезопасность связана с пожарной безопасностью в помещениях. Для электронных установок характерно частое появление источников открытого огня, при коротких замыканиях, пробоях и перегрузках, однако мощность и продолжительность действия этих источников воспламенения сравнительно малы, поэтому горение, как правило, не развивается. Возникновение пожара в электронных установках возможно, если применяются сгораемые и трудно сгораемые материалы и изделия.

Кабельные линии электропитания состоят из горючего изоляционного материала, поэтому являются наиболее пожароопасными элементами. Надежность работы радиодеталей гарантируется только в определенных интервалах температуры, влажности, силы тока и напряжения. Вследствие возможных отклонений электрических и климатических параметров, а также ухудшения технического состояния устройств элементы электронной схемы являются наиболее вероятными и частыми источниками открытого пламени и высоких температур в РЭА.

Причиной возникновения пожаров в электронике могут быть нарушение правил монтажа. Под воздействием вентиляционных потоков при охлаждении РЭА возможна вибрация элементов аппаратуры, которая может ослабить болтовые соединения деталей и микросхем, вызывая их перегрев.

Количественная оценка условий труда представлена в таблице 4.1.

Таблица 4.1 - Количественная оценка условий труда

Параметры микроклимата в теплый период года				Общая освещеность, Е, лк			Продолжительность сосредоточенного наблюдения, %
Темпе-ратура, оС	Скорость воздуха, м/с	Влажность воздуха, %
20	0,6	50		400			50
Уровень шума, дб А	Характеристика помещений, м					Количество
	Длина		Ширина		Высота	Помещений		Рабочих мест
60	6		3		3	2		4

Оценим категорию тяжести труда оператора. На рабочем месте имеются три элемента условий труда (n = 3), которые формируют их тяжесть: Х₁ - шум - 60 дБ А, Х₂ - скорость воздуха - 0,6 м/с, Х_{3 -} продолжительность сосредоточенного наблюдения - 50%. Продолжительность действия факторов 8 часов. Другие элементы не рассматриваются, так как они оцениваются 1-м баллом.

Решение. Согласно [17] указанные элементы оцениваются соответственно Х₁ = 4, Х₂ = 3, Х₃ = 2.

Элементом условий труда, который получил наибольшую оценку, в данном случае является шум: Х_оп = 4. Средний балл всех элементов условий труда равняется

Интегральную балльную оценку тяжести труда определяем по формуле

. (4.1)

Интегральная оценка тяжести труда в 57 баллов отвечает V категории тяжести труда (согласно [17]).

Таким образом существует необходимость в разработке мероприятий по организации рабочего места, организации режима труда и отдыха, требований к помещению, требований к оборудованию, пожаро - и электробезопасности.

 

4.2 Мероприятия по обеспечению безопасных и комфортных условий труда

Рабочее место программиста, выполняющего разработку программы для ведения БД, находится в машинном зале вычислительного центра. В двух помещениях находятся 4 человека, выполняющих работы, непосредственно связанные с проектированием технологических процессов.

Оборудованием рабочего места программиста являются видеомонитор, клавиатура, рабочий стол, стул, принтер.

Оптимальными параметрами температуры при почти неподвижном воздухе являются 19-21 С, допустимыми - 18 и 22 С в соответствии с ГОСТ 12.1 005-88 ССБТ. - Воздух рабочей зоны. - Санитарно-гигиенические требования.

Комфортное состояние при данных температурах воздуха определяется влагосодержанием, составляющим 10 г/м³, допустимое - не ниже 6 г/м³. Наилучший обмен воздуха осуществляется при сквозном проветривании. Режим работы кондиционера должен обеспечить максимально возможное поступление наружного воздуха, но не менее 50% от производительности кондиционера.

При проектировании помещений предусматривается приточно-вытяжная вентиляция. Подача воздуха производится в верхнюю зону малыми скоростями из расчета создания подвижности воздуха на рабочем месте менее 0.1 м/с, лучше через подшивной перфорированный потолок. Вытяжка естественная из верхней зоны стены, противоположной оконным проемам.

Для обеспечения нормальных условий труда в помещении и повышения трудоспособности работников применяют вентиляцию.

Основная задача вентиляции в помещении - обеспечение чистоты воздуха.

Расчет общеобменной вентиляции сводится к определению количества воздуха, которое необходимо удалить или подать в помещение [17-19].

При отсутствии выделения вредностей расчет общеобменной вентиляции ведется по количеству людей работающих в помещении, по формуле:

, (4.2)

где  - количество работающих людей в помещении, чел.,

 - количество воздуха на одного человека, м/чел час.

Величина  определяется в зависимости от объема помещения, приходящегося на одного человека.

Объем помещения равен:

V=a*b*c,

где a - длина помещения, м

b - ширина помещения, м

c - высота помещения, м.

Используется два помещения. Длина каждого помещения - 6 м, ширина - 3 м, высота - 3 м, количество работающих людей - 4 чел.

V= 2*6*3*3=108 м.

Объем помещения приходящегося на одного человека составляет 27 м.

Так как объем помещения V10 м, то принимаем =10 м/чел час.

Тогда по формуле (4.2)

10*2=20 м/час.

Такое количество воздуха необходимо подать в помещения.

Для повышения влажности воздуха можно использовать увлажнители или устанавливать емкости с водой типа аквариумов вблизи отопительных приборов [17-19].

Содержание кислорода в помещении должно быть в пределах 21-22об.%. Двуокись углерода не должна превышать 0.1об.%, озон - 0.1 мг/м³, фенол - 0.01 мг/м³, хлористый винил - 0.005 мг/м³.

В помещении следует ограничивать использование полимерных материалов для отделки интерьера и оборудования. Не рекомендуется применять для отделки интерьера помещения материалы строительные, содержащие органическое сырье: древесностружечные плиты (ДСП), декоративный бумажный пластик, поливинилхлоридные пленки, моющиеся обои.

Защита от шума имеет большое значение на производстве.

Шум неблагоприятно воздействует на организм человека, вызывает психические и физиологические нарушения, снижающие работоспособность и способствует развитию профессиональных заболеваний и производственного травматизма. На ВЦ шум возникает, в основном, при работе принтеров, вентиляционных установок, компьютера.

Комната, где размещается вычислительная техника, не должна граничить с помещениями, имеющими повышенные уровни воздушного и ударного шума, а также располагаться вблизи этих помещений. Шумящее оборудование, создающее высокие уровни шума, должно размещаться вне помещений.

Основными мерами защиты от шума являются строительно-планировочные методы (акустическая обработка помещений).

Под акустической обработкой помещений понимается облицовка части внутренних поверхностей ограждений звукопоглощающими материалами, а также размещение в помещении штучных поглотителей, представляющих собой свободно подвешенные объемные поглощающие тела различной формы.

Произведем расчет требуемой для рассматриваемого помещения акустической обработки.

Для помещений конструкторских бюро, вычислительный центров, лабораторий для теоретических и исследовательских работ допустимый уровень шума составляет =50 дБ, между тем фактический уровень шума составляет = 60 дБ. Определим требуемое снижение уровня звука:

 = 60 - 50 = 10 дБ.

Перед началом акустической обработки помещения имели следующие коэффициенты поглощения шума: для стен, покрытых обычной штукатуркой =0.03; для потолка, покрытого обычной штукатуркой =0.03; для пола, покрытого линолеумом толщиной в 5 мм =0.03.

При длине помещения = 6 м, ширине = 4 м и высоте = 3 м соответственно звукопоглощение до акустической обработки составляет:

= 0.72+1.8+0.72 = 3.24.

После акустической обработки помещений, когда для стен и потолка использовалась штукатурка акустическая (=0.11, =0.11), а пол был выложен паркетом (=0.06), звукопоглощение составило:

= 1.44+6.6+2.64 = 10.68.

Определим снижение уровня шума после акустической обработки помещений:

= 11.9 дБ.

Полученный результат примерно соответствует требуемому снижению уровня шума = 10 дБ до допустимого для данного класса помещений уровня.

Нормирование освещения осуществляется в соответствии с СНиП II-4-79 “Естественное и искусственное освещение. Нормы проектирования". Hа уровень освещенности помещения оказывает влияние цветовая отделка интерьера и оборудования, их отражающая способность.

Для уменьшения поглощения света потолок и стены выше панелей (1.5-1.7м), если они не облицованы звукопоглощающим материалом, окрашиваются белой водоэмульсионной краской (освещенность, Е не менее 0.7). Допускается окраска стен до потолка цветом панелей. Для окраски стен и панелей рекомендуется применять светлые тона красок (Е = 0.5-0.6). Предпочтение следует отдавать холодным тонам: светло-голубому, светло-зеленому, светло-серому. Допускается окраска стен светло-желтым, светло-бежевым цветом или цветом слоновой кости. Не следует окрашивать стены, расположенные напротив экрана монитора, более темными тонами красок. Оконные переплеты рам, подоконники окрашены белой масляной краской. Коэффициент естественной освещенности не менее 1.5%.

На окнах монтируются занавеси, по цвету гармонирующие с окраской стен. Занавеси не пропускают естественный свет и полностью закрывают оконные проемы. В целях исключения влияния на микроклимат солнечной радиации и создания равномерного естественного освещения оконные проемы помещения ориентированы на северную сторону горизонта.

На ВЦ используют люминесцентные лампы. Эти лампы имеют высокую световую отдачу (до 75 лм/Вт), большой срок службы (до 10000 часов) малая яркость светящейся поверхности, спектральный состав излучаемого света. К недостаткам люминесцентных ламп относятся малая единичная мощность при больших размерах ламп и значительное снижение светового потока к концу срока службы. Для общего и местного освещения помещений общественных и промышленных зданий применяют лампы типа ЛБ 18-1, ЛДЦ 18 и ЛБ 58. В осветительных установках (ОУ) помещения использована система общего освещения, выполненная потолочными или подвесными люминесцентными светильниками, равномерно размещенными по потолку рядами, параллельно светопроемам, так, чтобы экран монитора находился в зоне защитного угла светильника, и его проекция не приходилась на экран монитора. Работающие за видеотерминалами не должны видеть отражение светильников на экране ЭВМ.

Минимальная освещенность рабочей поверхности стола рекомендуется в пределах 400-500 люкс. Яркость экрана устанавливается равной 0.5 или более яркости рабочей поверхности стола при освещенности 400-500 люкс.

Особые требования предъявляются к электробезопасности помещения при комплектации его видеотерминалами с электропитанием 200-230В. В этом случае помещения должны быть оснащены устройствами защитного отключения. Электророзетки, находящиеся на рабочих местах, должны быть расположены в труднодоступном месте. Свободные розетки должны быть закрыты заглушками. Должны быть соблюдены нормы, препятствующие легкому извлечению сетевых вилок из розеток (на розетках устанавливаются защитные кожухи).

Для обеспечения электробезопасности при работе за компьютером необходимо предусмотреть защитное заземление. Защитное заземление - это преднамеренное соединение с заземляющим устройством металлических частей электроустановок и корпусов оборудования, которые вследствие нарушения изоляции могут оказаться под напряжением [17-19].

Электробезопасность тесно связана с пожарной безопасностью в помещениях данного вида. Вычислительные центры и помещения с ЭВМ относятся к пожарноопасным производствам и относятся к категории Д по СHиП П-90-81.

Из средств пожаротушения в помещении необходимо иметь огнетушители углекислотные (ОУ, ОУ-2, ОУ-2а, ОУ-5, ОУ-8, ОУ-2ММ, ОУ-5ММ) или порошковые (ОП-1, ОП-2, ОП-2Б, ОП-8Б, ОП-5, ОП-10), которые позволяют тушить пожары в помещениях с вычислительной техникой.

Предотвращение образования источников зажигания достигается следующими мероприятиями: соответствующим исполнением, применением и режимом эксплуатации машин и механизмов; устройств молниезащиты зданий и сооружений; ликвидация условия для самовозгорания; регламентацией допустимой температуры и энергии теплового разряда. Пожарная защита реализуется следующими мероприятиями: применением негорючих и трудно горючих веществ и материалов; ограничением количества горючих веществ; ограничением распространения пожара; применением средств пожаротушения; регламентация пределов огнестойкости; создание условий для эвакуации людей; применение противодымной защиты; пожарная сигнализация.

Основными огнегасительными веществами являются: вода, водные растворы, водяной пар, пена, углекислота, сжатый воздух, порошки, песок. Углекислота в снегообразном и газообразном состоянии применяется в огнетушителях и стационарных установках для тушения пожаров в закрытых помещениях и небольших открытых загораний. Огнегасительная концентрация углекислоты в воздухе примерно 30% по объему. Углекислота не проводит электрический ток, поэтому ее применяют при тушении электроустановок, находящихся под напряжением.

Для тушения электроустановок, находящихся под напряжением до 1000 Вт и при температуре окружающей среды - 25. .50 градусов, применяются углекислотные огнетушители, огнетушащим средством, в котором является сжиженный углекислый газ. Также можно применять порошковые огнетушители. Из средств пожаротушения в помещении находится углекислотный огнетушитель ОУ-5.

Организацию рабочих мест осуществляют с учетом современных эргономических требований в соответствии с ГОСТ 12.2 032-78 ССБТ “Рабочее место при выполнении работ сидя. Общие эргономические требования”НПАОП 0.00 - 1.31-99. Рабочий стол регулируется по высоте в пределах 680 - 800 мм, при отсутствии такой возможности его высота составляет 720 мм. Оптимальные размеры рабочей поверхности стола 1600-900 мм. Под рабочим столом есть свободное пространство для ног с размерами по высоте не менее 600 мм, по ширине 500 мм, по глубине 650 мм. Ширина сидения составляет не менее 400 мм. Высота и ширина опорной поверхности спинки не менее 300 мм. Расстояние до монитора 60-70 см, экран монитора отклонен назад на 20 градусов. Рабочие места с ПЭВМ располагаются последовательно, свет падает слева. Площадь помещения на одного человека не менее 6м, расстояние от окон не менее одного метра.

Трудоспособность работников увеличивается, если рациональный режим труда и отдыха установлен с учетом психофизиологической напряженности их труда, динамики функционального состояния систем организма и работоспособности, предусматривает строгое соблюдение регламентных перерывов. При этом перерывы организованы для оптимальной длительности работы программиста. Пользователь ЭВМ, занимающийся считыванием и вводом информации, при 8-часовой смене должен иметь перерыв в 15 минут после каждого часа работы (ДСанПіН 3.3.2 - 007 - 98. Державні санітарні правила і норми роботи з візуальними дисплейними терміналами електронно-обчислювальних машин).

 

4.3 Оценка эффективности мероприятий по охране труда

После проведения мероприятий по охране труда и обеспечению соблюдения необходимых норм, показатели, ранее определявшиеся в несколько баллов оценки условий труда, снизились до 2 баллов. В этих условиях интегральная балльная оценка тяжести труда И_т, которая позволяет определить влияние условий труда на работоспособность человека, вычисляется по следующей формуле:

,

Где

.

Определяем степень утомления в условных единицах до и после внедрения мероприятий по охране труда:

Определяем работоспособность персонала в условных единицах до и после внедрения мероприятий по охране труда:

R₁ = 100 - 64 =46; R₂ = 100 - 16 = 84.

Определяем рост производительности труда:

,

где R₁ и R₂ - работоспособность в условных единицах до и после внедрения мероприятий по охране труда, которые снизили тяжесть труда;

0,2 - эмпирический коэффициент, который показывает влияние роста уровня работоспособности на производительность труда.

Для оценки эффективности мероприятий по охране труда определяем также уменьшение тяжести труда и степени утомления:

Расчеты показали эффективность мероприятий по охране труда.

Выявлены опасные факторы, ухудшающие санитарно - гигиенические условия на рабочем месте оператора ПЭВМ.

Установлены оптимальные параметры по помещению, освещению, вентиляции, шуму и режиму труда на рабочем месте.

Эффективность мероприятий по охране труда заключается в повышении производительности труда на 16,5% и уменьшении тяжести труда на 54%.

Выводы

Автоматизированное рабочее места специалиста по формированию программ радиовещания позволяет автоматизировать деятельность играющего важную роль в бизнес-процессе радиостанции работника, дает возможность повысить производительность его труда, быстроту и качество принимаемых им решений.

Разработка и реализация БД об объектах предметной области, связях между ними, обеспечивает информационную поддержку функционирования АРМ. Спроектированный АРМ путем подключения к локальной вычислительной сети входит в аппаратно-программный комплекс автоматизации деятельности небольшой радиостанции. С помощью данного АРМ специалист сможет вести учет элементов вещания, представленных в различных форматах хранения, поставщиков этих элементов, организовывать при необходимости их обработку силами сотрудников радиостанции (перевод из одного формата хранения в другой, улучшение качества и т.д.), а также комплектовать передачи из элементов вещания.

Проектирование АРМ с использованием информационных и логических моделей бизнес-процесса и предметной области дало возможность выявить задачи специалиста, разработать оптимальную структуру базы данных и сформулировать запросы к ней. Использование языка моделирования UML позволило выявить прецеденты использования АРМ, классы программного обеспечения и логику их взаимодействия. С использованием полученных результатов разработано приложение для работы с БД.

Утилиты средства разработки Delphi позволили работать с таблицами БД в различных форматах хранения. Delphi задействовано для реализации структуры БД и приложения для работы с ней. Это средство разработки имеет иерархию классов, которые дали возможность быстро реализовать приложение.

Автоматизация ручного труда специалиста по формированию программ радиовещания дает существенный экономический эффект, что показано соответствующими расчетами. Срок окупаемости капитальных затрат меньше нормативного, что подтверждает эффективность расходов на оборудование и программное обеспечение.

Установлены вредные и опасные факторы, ухудшающие санитарно - гигиенические условия на рабочем месте специалиста как оператора ЭВМ и показаны пути снижения их влияния на пользователя.

Перечень ссылок

1.   Радиовещание и электроакустика: Учебное пособие для вузов связи / С.И. Алябьев, А.В. Выходец, Р. Гермер и др. - М.: Радио и связь, 2002. - 792 с.

2.   Ковалгин Ю. Формирование программ радиовещания и автоматизация процессов их выдачи в эфир / Ковалгин Ю., Пеньшина А. // Звукорежисер. - 2002. - №7. - С.12-18.

3.   Васильев Д. Автоматизация радиостанции: зачем это надо? //: Каталог "Оборудование для радиовещания". - 2005. - №1. - С.66-67.

4.   Правоторхов К. Внедрение систем автоматизации радиокомплекса // Каталог "Оборудование для радиовещания". - 2005. - №1. - С.68-69.

5.   Клевцов П. IT-решения для автоматизации производства информационных программ / Клевцов П., Сологуб Р. // Broadcasting. Телевидение и радиовещание - 2006. - №3. - С.46-47.

6.   Симонович В.С. Информатика. Базовый курс. Учебник для вузов. - СПб.: Издательство "Питер", 1999. - 637 с.

7.   Колесниченко О., Шишигин И. Аппаратные средства РС. Энциклопедия аппаратных ресурсов персонального компьютера. СПб: Питер, 2000. - 1024 с.

8.   Олифер В.Г., Олифер Н.А. Компьютерные сети. Принципы, технологии, протоколы. - СПб.: Питер, 2003. - 864 с.

9.   Конноли Т., Бегг К. Базы данных: проектирование, реализация и сопровождение. Теория и практика. - 2-е изд. - М.: Изд. дом Вильямс, 2000. - 1120 с.

10.      Базы данных: Учебник для вузов / Под ред.А.Д. Хомоненко. - СПб.: Корона принт, 2000. - 416 с.

11.      Буч Г., Рамбо Д., Джекобсон А. Язык UML. Руководство пользователя. - /Пер. с англ. - М.: ДМК, 2000. - 432 с.

12.      Александровский А. Delphi. Разработка корпоративных приложений. - М.: ДМК, 2000. - 512 с.

13.      Канту Марко и др. Delphi. Руководство разработчика. - К.: Век; М.: ЭНТРОП; М.: ДЕСС, 2001. - 752 с.

14.      Баженова И.Ю. Delphi 6. Самоучитель программиста. - М.: КУДИЦ-ОБРАЗ, 2002. - 432 с.

15.      Гофман В.Э., Хоменко А.Д. Delphi 6. - СПб.: БХВ-Петербург, 2002. - 1152 c.

16.      Методические указания к выполнению экономической части дипломных проектов студентами специальности “Компьютерные системы проектирования” /Сост. Скибина А.В., Подгора Е.А. - Краматорск: ДГМА, 1998. - 22 с.

17.      План-пам’ятка до вивчення курсу “Охорона праці в галузі” для студентів спеціальності 7.080402 „Інформаційні технології проектування” / Укл.: Л.В. Дементій, Г.Л. Юсіна, Романьков Д.А. - Краматорськ: ДДМА, 2005. - 60 с.

18.      Основи охорони праці // В.Ц. Жидецький, В.С. Джигерей, О.В. Мельников. Львів: Афіша, 2000. - 350 с.

19.      Сивко В.Й. Розрахунки з охорони праці. - Житомир: ЖІТІ, 2001. - 152 с.

20.      Справочник по охране труда на промышленном предприятии / К.Н. Ткачук, Д.Ф. Иванчук, Р.В. Сабарно, А.Г. Степанов. - Киев: Техника, 1991. - 285 с.

Приложение А

 

ВЕДОМОСТЬ ПРОЕКТА

Формат	№ п/п	Наименование документа	Наименование объекта или изделия	Кол-во листов
	1	Пояснительная записка	КИТ 011з.00.00.00. ДП. ПЗ
Графическая часть
А4	2	Источники информации и их форматы при первичном сборе материалов для радиовещания	КИТ 011з.01.00.00. ДП. ПЛ	1
А4	3	Операции при монтаже и обработке фонограмм	КИТ 011з.02.00.00. ДП. ПЛ	1
А4	4	SADT-диаграмма бизнес-процесса подготовки программ и вещания на радиостанции	КИТ 011з.03.00.00. ДП. ПЛ	1
А4	5	SADT-диаграмма, детализирующая активность "Формирование программ радиовещания"	КИТ 011з.04.00.00. ДП. ПЛ	1
А4	6	ER-диаграмма предметной области работы автоматизированного рабочего места	КИТ 011з.05.00.00. ДП. ПЛ	1
А4	7	Состав таблиц и схема связей между ними для БД АРМ	КИТ 011з.06.00.00. ДП. ПЛ	1
А4	8	Диаграмма прецедентов использования автоматизированного рабочего места	КИТ 011з.07.00.00. ДП. ПЛ	1
А4	9	Диаграмма классов предметной области АРМ "Радио"	КИТ 011з.08.00.00. ДП. ПЛ	1
А4	10	Диаграмма последовательностей АРМ "Радио"	КИТ 011з.09.00.00. ДП. ПЛ	1
А4	11	Интерфейс пользователя приложения БД АРМ "Радио"	КИТ 011з.10.00.00. ДП. ПЛ	1
А4	12	Обработка данных в приложении БД АРМ "Радио"	КИТ 011з.11.00.00. ДП. ПЛ	1
А4	13	Выполнение запросов к БД АРМ "Радио"	КИТ 011з.12.00.00. ДП. ПЛ	1
	14	Дискета		1

Приложение Б

Листинг программного комплекса:

program ARM_Radio;

uses

Forms,

uSotrudniki in 'uSotrudniki. pas' {frmSotrudniki},

uDataModule in 'uDataModule. pas' {frmDataModule: TDataModule},

uConnect in 'uConnect. pas' {frmConnect},

uMain in 'uMain. pas' {frmMain},

uResultSQL1 in 'uResultSQL1. pas' {frmResultSQL1},

uReport in 'uReport. pas' {frmReport},

uPeredachi in 'uPeredachi. pas' {frmPeredachi},

uElementy in 'uElementy. pas' {frmElementy},

uResultSQL2 in 'uResultSQL2. pas' {frmResultSQL2},

uResultSQL3 in 'uResultSQL3. pas' {frmResultSQL3},

uPostavshiki in 'uPostavshiki. pas' {frmPostavshiki};

{$R *. res}

begin

Application. Initialize;

Application. CreateForm (TfrmMain, frmMain);

Application. CreateForm (TfrmSotrudniki, frmSotrudniki);

Application. CreateForm (TfrmDataModule, frmDataModule);

Application. CreateForm (TfrmConnect, frmConnect);

Application. CreateForm (TfrmResultSQL1, frmResultSQL1);

Application. CreateForm (TfrmReport, frmReport);

Application. CreateForm (TfrmPeredachi, frmPeredachi);

Application. CreateForm (TfrmElementy, frmElementy);

Application. CreateForm (TfrmResultSQL2, frmResultSQL2);

Application. CreateForm (TfrmResultSQL3, frmResultSQL3);

Application. CreateForm (TfrmPostavshiki, frmPostavshiki);

Application.run;

end.

unit uMain;

interface

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, StdCtrls, Menus, ExtCtrls, DBCtrls, Grids, DBGrids, ComCtrls, uDataModule,

Mask, uConnect, ShellAPI, uReport;

type

TfrmMain = class (TForm)

PageControl1: TPageControl;

TabSheet1: TTabSheet;

TabSheet2: TTabSheet;

TabSheet3: TTabSheet;

TabSheet4: TTabSheet;

DBGrid1: TDBGrid;

DBNavigator1: TDBNavigator;

MainMenu1: TMainMenu;

N1: TMenuItem;

N2: TMenuItem;

TabSheet5: TTabSheet;

DBGrid2: TDBGrid;

DBNavigator2: TDBNavigator;

DBGrid3: TDBGrid;

DBNavigator3: TDBNavigator;

DBGrid5: TDBGrid;

DBNavigator5: TDBNavigator;

N6: TMenuItem;

N7: TMenuItem;

N8: TMenuItem;

N9: TMenuItem;

N11: TMenuItem;

N21: TMenuItem;

N31: TMenuItem;

Label2: TLabel;

Edit2: TEdit;

Label3: TLabel;

Edit3: TEdit;

Label4: TLabel;

Edit4: TEdit;

N4: TMenuItem;

N5: TMenuItem;

N10: TMenuItem;

N12: TMenuItem;

CheckBox1: TCheckBox;

CheckBox2: TCheckBox;

CheckBox3: TCheckBox;

CheckBox5: TCheckBox;

Button1: TButton;

MaskEdit2: TMaskEdit;

CheckBox7: TCheckBox;

N13: TMenuItem;

N14: TMenuItem;

N3: TMenuItem;

N15: TMenuItem;

TabSheet6: TTabSheet;

CheckBox8: TCheckBox;

MaskEdit3: TMaskEdit;

Button3: TButton;

CheckBox9: TCheckBox;

DBGrid6: TDBGrid;

DBNavigator6: TDBNavigator;

DBGrid4: TDBGrid;

Label1: TLabel;

Edit1: TEdit;

CheckBox4: TCheckBox;

DBNavigator4: TDBNavigator;

procedure N6Click (Sender: TObject);

procedure N7Click (Sender: TObject);

procedure N5Click (Sender: TObject);

procedure N10Click (Sender: TObject);

procedure N12Click (Sender: TObject);

procedure CheckBox1Click (Sender: TObject);

procedure CheckBox2Click (Sender: TObject);

procedure CheckBox3Click (Sender: TObject);

procedure CheckBox4Click (Sender: TObject);

procedure CheckBox5Click (Sender: TObject);

procedure Edit2Change (Sender: TObject);

procedure Edit4Change (Sender: TObject);

procedure Edit3Change (Sender: TObject);

procedure CheckBox7Click (Sender: TObject);

procedure Button1Click (Sender: TObject);

procedure N8Click (Sender: TObject);

procedure N9Click (Sender: TObject);

procedure N11Click (Sender: TObject);

procedure N13Click (Sender: TObject);

procedure N14Click (Sender: TObject);

procedure N21Click (Sender: TObject);

procedure N31Click (Sender: TObject);

procedure N3Click (Sender: TObject);

procedure CheckBox9Click (Sender: TObject);

procedure CheckBox8Click (Sender: TObject);

procedure Edit1Change (Sender: TObject);

procedure Button3Click (Sender: TObject);

procedure N15Click (Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

frmMain: TfrmMain;

implementation

uses uResultSQL1, uResultSQL2, uResultSQL3,uPeredachi, uElementy, uSotrudniki, uPostavshiki;

{$R *. dfm}

procedure TfrmMain. N6Click (Sender: TObject);

begin

if InputBox ('Аутентификация пользователя','Введите пароль! ','') ='12345' then

begin

frmDataModule. tbPeredachi. Active: =True;

frmDataModule. tbVkljuchenie. Active: =True;

frmDataModule. tbElementy. Active: =True;

frmDataModule. tbObrabotka. Active: =True;

frmDataModule. tbSotrudniki. Active: =True;

frmDataModule. tbPostavshiki. Active: =True;

end;

end;

procedure TfrmMain. N7Click (Sender: TObject);

begin

frmDataModule. tbPeredachi. Active: =False;

frmDataModule. tbVkljuchenie. Active: =False;

frmDataModule. tbElementy. Active: =False;

frmDataModule. tbObrabotka. Active: =False;

frmDataModule. tbSotrudniki. Active: =False;

frmDataModule. tbPostavshiki. Active: =False;

end;

procedure TfrmMain. N5Click (Sender: TObject);

begin

frmPeredachi. ShowModal;

end;

procedure TfrmMain. N10Click (Sender: TObject);

begin

frmElementy. ShowModal;

end;

procedure TfrmMain. N12Click (Sender: TObject);

begin

frmSotrudniki. ShowModal;

end;

procedure TfrmMain. N15Click (Sender: TObject);

begin

frmPostavshiki. ShowModal;

end;

procedure TfrmMain. CheckBox1Click (Sender: TObject);

begin

if CheckBox1. Checked=True

then

frmDataModule. tbPeredachi. IndexName: ='ixNaimen_Peredachi'

else

frmDataModule. tbPeredachi. IndexName: ='';

end;

procedure TfrmMain. CheckBox2Click (Sender: TObject);

begin

if CheckBox2. Checked=True

then

frmDataModule. tbElementy. IndexName: ='ixNaimen_Elementy'

else

frmDataModule. tbElementy. IndexName: ='';

end;

procedure TfrmMain. CheckBox3Click (Sender: TObject);

begin

if CheckBox3. Checked=True

then

frmDataModule. tbSotrudniki. IndexName: ='ixFIO_Sotrudniki'

else

frmDataModule. tbSotrudniki. IndexName: ='';

end;

procedure TfrmMain. CheckBox4Click (Sender: TObject);

begin

if CheckBox4. Checked=True

then

frmDataModule. tbPostavshiki. IndexName: ='ixNaimen_Postavshiki'

else

frmDataModule. tbPostavshiki. IndexName: ='';

end;

procedure TfrmMain. CheckBox5Click (Sender: TObject);

begin

if CheckBox5. Checked=True

then

frmDataModule. tbVkljuchenie. IndexName: ='ixDate_Vkljuchenie'

else

frmDataModule. tbVkljuchenie. IndexName: ='';

end;

procedure TfrmMain. CheckBox9Click (Sender: TObject);

begin

if CheckBox9. Checked=True

then

frmDataModule. tbObrabotka. IndexName: ='ixDate_Obrabotka'

else

frmDataModule. tbObrabotka. IndexName: ='';

end;

procedure TfrmMain. Edit2Change (Sender: TObject);

begin

CheckBox1. Checked: =True;

frmDataModule. tbPeredachi. IndexName: ='ixNaimen_Peredachi';

frmDataModule. tbPeredachi. FindNearest ([Edit2. Text]);

end;

procedure TfrmMain. Edit4Change (Sender: TObject);

begin

CheckBox2. Checked: =True;

frmDataModule. tbElementy. IndexName: ='ixNaimen_Elementy';

frmDataModule. tbElementy. FindNearest ([Edit4. Text]);

end;

procedure TfrmMain. Edit3Change (Sender: TObject);

begin

CheckBox3. Checked: =True;

frmDataModule. tbSotrudniki. IndexName: ='ixFIO_Sotrudniki';

frmDataModule. tbSotrudniki. FindNearest ([Edit3. Text]);

end;

procedure TfrmMain. Edit1Change (Sender: TObject);

begin

CheckBox4. Checked: =True;

frmDataModule. tbPostavshiki. IndexName: ='ixNaimen_Postavshiki';

frmDataModule. tbPostavshiki. FindNearest ([Edit1. Text]);

end;

procedure TfrmMain. CheckBox7Click (Sender: TObject);

begin

if CheckBox7. Checked=False then

begin

frmDataModule. tbVkljuchenie. Filter: ='';

frmDataModule. tbVkljuchenie. Filtered: =False;

Button1. Visible: =False;

MaskEdit2. Visible: =False;

end

else

begin

Button1. Visible: =True;

MaskEdit2. Visible: =True;

MaskEdit2. Text: ='';

end;

end;

procedure TfrmMain. CheckBox8Click (Sender: TObject);

begin

if CheckBox8. Checked=False then

begin

frmDataModule. tbObrabotka. Filter: ='';

frmDataModule. tbObrabotka. Filtered: =False;

Button3. Visible: =False;

MaskEdit3. Visible: =False;

end

else

begin

Button3. Visible: =True;

MaskEdit3. Visible: =True;

MaskEdit3. Text: ='';

end;

end;

procedure TfrmMain. Button1Click (Sender: TObject);

begin

try

StrToDate (MaskEdit2. Text);

frmDataModule. tbVkljuchenie. Filter: =' [Data_prinjatia] ='+''''+MaskEdit2. Text+'''';

frmDataModule. tbVkljuchenie. Filtered: =True;

except

ShowMessage ('Введите правильную дату! ');

end;

end;

procedure TfrmMain. Button3Click (Sender: TObject);

begin

try

StrToDate (MaskEdit3. Text);

frmDataModule. tbObrabotka. Filter: =' [Data_obrabotki] ='+''''+MaskEdit3. Text+'''';

frmDataModule. tbObrabotka. Filtered: =True;

except

ShowMessage ('Введите правильную дату! ');

end;

end;

procedure TfrmMain. N8Click (Sender: TObject);

begin

N7Click (Self);

CopyFile ('Peredachi. db','copyPeredachi. db', false);

CopyFile ('Peredachi. px','copyPeredachi. px', false);

CopyFile ('Peredachi. XG0','copyPeredachi. XG0', false);

CopyFile ('Peredachi. YG0','copyPeredachi. YG0', false);

CopyFile ('Vkljuchenie. db','copyVkljuchenie. db', false);

CopyFile ('Vkljuchenie. px','copyVkljuchenie. px', false);

CopyFile ('Vkljuchenie. XG0','copyVkljuchenie. XG0', false);

CopyFile ('Vkljuchenie. YG0','copyVkljuchenie. YG0', false);

CopyFile ('Elementy. db','copyElementy. db', false);

CopyFile ('Elementy. px','copyElementy. px', false);

CopyFile ('Elementy. XG0','copyElementy. XG0', false);

CopyFile ('Elementy. YG0','copyElementy. YG0', false);

CopyFile ('Postavshiki. db','copyPostavshiki. db', false);

CopyFile ('Postavshiki. px','copyPostavshiki. px', false);

CopyFile ('Postavshiki. XG0','copyPostavshiki. XG0', false);

CopyFile ('Postavshiki. YG0','copyPostavshiki. YG0', false);

CopyFile ('Obrabotka. db','copyObrabotka. db', false);

CopyFile ('Obrabotka. px','copyObrabotka. px', false);

CopyFile ('Obrabotka. XG0','copyObrabotka. XG0', false);

CopyFile ('Obrabotka. YG0','copyObrabotka. YG0', false);

CopyFile ('Sotrudniki. db','copySotrudniki. db', false);

CopyFile ('Sotrudniki. px','copySotrudniki. px', false);

CopyFile ('Sotrudniki. XG0','copySotrudniki. XG0', false);

CopyFile ('Sotrudniki. YG0','copySotrudniki. YG0', false);

ShowMessage ('Резервное копирование завершено! ');

end;

procedure TfrmMain. N9Click (Sender: TObject);

begin

N7Click (Self);

CopyFile ('copyPeredachi. db','Peredachi. db', false);

CopyFile ('copyPeredachi. px','Peredachi. px', false);

CopyFile ('copyPeredachi. XG0','Peredachi. XG0', false);

CopyFile ('copyPeredachi. YG0','Peredachi. YG0', false);

CopyFile ('copyVkljuchenie. db','Vkljuchenie. db', false);

CopyFile ('copyVkljuchenie. px','Vkljuchenie. px', false);

CopyFile ('copyVkljuchenie. XG0','Vkljuchenie. XG0', false);

CopyFile ('copyVkljuchenie. YG0','Vkljuchenie. YG0', false);

CopyFile ('copyElementy. db','Elementy. db', false);

CopyFile ('copyElementy. px','Elementy. px', false);

CopyFile ('copyElementy. XG0','Elementy. XG0', false);

CopyFile ('copyElementy. YG0','Elementy. YG0', false);

CopyFile ('copyPostavshiki. db','Postavshiki. db', false);

CopyFile ('copyPostavshiki. px','Postavshiki. px', false);

CopyFile ('copyPostavshiki. XG0','Postavshiki. XG0', false);

CopyFile ('copyPostavshiki. YG0','Postavshiki. YG0', false);

CopyFile ('copyObrabotka. db','Obrabotka. db', false);

CopyFile ('copyObrabotka. px','Obrabotka. px', false);

CopyFile ('copyObrabotka. XG0','Obrabotka. XG0', false);

CopyFile ('copyObrabotka. YG0','Obrabotka. YG0', false);

CopyFile ('copySotrudniki. db','Sotrudniki. db', false);

CopyFile ('copySotrudniki. px','Sotrudniki. px', false);

CopyFile ('copySotrudniki. XG0','Sotrudniki. XG0', false);

CopyFile ('copySotrudniki. YG0','Sotrudniki. YG0', false);

ShowMessage ('Восстановление прошло успешно! ');

end;

procedure TfrmMain. N11Click (Sender: TObject);

begin

frmResultSQL1. ShowModal;

end;

procedure TfrmMain. N13Click (Sender: TObject);

begin

frmConnect. ShowModal;

end;

procedure TfrmMain. N14Click (Sender: TObject);

begin

ShellExecute (Application. MainForm. Handle,'open','Справка по работе с приложением БД АРМ Радио. htm',nil,nil,SW_SHOWNORMAL);

end;

procedure TfrmMain. N21Click (Sender: TObject);

begin

frmResultSQL2. ShowModal;

end;

procedure TfrmMain. N31Click (Sender: TObject);

begin

frmResultSQL3. ShowModal;

end;

procedure TfrmMain. N3Click (Sender: TObject);

begin

frmReport. QuickRep1. Preview;

end;

end.

unit uDataModule;

interface

uses

SysUtils, Classes, DB, DBTables;

type

TfrmDataModule = class (TDataModule)

dsPeredachi: TDataSource;

dsVkljuchenie: TDataSource;

dsElementy: TDataSource;

dsPostavshiki: TDataSource;

dsObrabotka: TDataSource;

dsSotrudniki: TDataSource;

tbPeredachi: TTable;

tbPeredachiCod_peredachi: TAutoIncField;

tbPeredachiVid_peredachi: TStringField;

tbPeredachiNaimen_peredachi: TStringField;

tbPeredachiDlitelnoct: TIntegerField;

tbVkljuchenie: TTable;

tbVkljuchenieCod_peredachi: TIntegerField;

tbVkljuchenieCod_elementa: TIntegerField;

tbVkljuchenieNomer_documenta: TStringField;

tbVkljuchenieData_prinjatia: TDateField;

tbVkljuchenieDlitelnost_v_peredache: TIntegerField;

tbVkljuchenieNomer_po_porjadku: TSmallintField;

tbElementy: TTable;

tbPostavshiki: TTable;

tbPostavshikiCod_postavshika: TAutoIncField;

tbPostavshikiVid_postavshika: TStringField;

tbPostavshikiNaimen_postavshika: TStringField;

tbPostavshikiCharakteristiki: TStringField;

tbObrabotka: TTable;

tbObrabotkaCod_elementa: TIntegerField;

tbObrabotkaTab_nomer: TIntegerField;

tbObrabotkaNomer_narjada: TStringField;

tbObrabotkaData_obrabotki: TDateField;

tbObrabotkaVid_obrabotki: TStringField;

tbSotrudniki: TTable;

tbSotrudnikiTab_nomer: TAutoIncField;

tbSotrudnikiFIO: TStringField;

tbSotrudnikiDoljnost: TStringField;

tbSotrudnikiObrazovanie: TStringField;

tbSotrudnikiCharakteristiki: TStringField;

tbElementyCod_elementa: TAutoIncField;

tbElementyVid_elementa: TStringField;

tbElementyNaimen_elementa: TStringField;

tbElementyFormat_chranenia: TStringField;

tbElementyEd_izmerenia: TStringField;

tbElementyObjem: TIntegerField;

tbElementyCod_postashika: TIntegerField;

tbVkljuchenieNaimen_peredachi: TStringField;

tbVkljuchenieNaimen_elementa: TStringField;

tbElementyNaimen_postavshika: TStringField;

tbObrabotkaNaimen_elementa: TStringField;

tbObrabotkaFIO_sotrudnika: TStringField;

private

{ Private declarations }

public

{ Public declarations }

end;

var

frmDataModule: TfrmDataModule;

implementation

{$R *. dfm}

end.

unit uConnect;

interface

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, DBCtrls, Grids, DBGrids, ExtCtrls, uDataModule;

type

TfrmConnect = class (TForm)

Panel1: TPanel;

DBGrid1: TDBGrid;

DBNavigator1: TDBNavigator;

Panel3: TPanel;

DBGrid3: TDBGrid;

DBNavigator3: TDBNavigator;

Panel5: TPanel;

DBGrid5: TDBGrid;

DBNavigator5: TDBNavigator;

Panel2: TPanel;

DBGrid2: TDBGrid;

DBNavigator2: TDBNavigator;

Panel4: TPanel;

DBGrid4: TDBGrid;

DBNavigator4: TDBNavigator;

procedure FormShow (Sender: TObject);

procedure FormDeactivate (Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

frmConnect: TfrmConnect;

implementation

{$R *. dfm}

procedure TfrmConnect. FormShow (Sender: TObject);

begin

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';

end;

procedure TfrmConnect. FormDeactivate (Sender: TObject);

begin

frmDataModule. tbVkljuchenie. MasterSource: =nil;

frmDataModule. tbVkljuchenie. MasterFields: ='';;

frmDataModule. tbElementy. MasterSource: =nil;

frmDataModule. tbElementy. MasterFields: ='';;

frmDataModule. tbObrabotka. MasterSource: =nil;

frmDataModule. tbObrabotka. MasterFields: ='';;

frmDataModule. tbSotrudniki. MasterSource: =nil;

frmDataModule. tbSotrudniki. MasterFields: ='';;

end;

end.