Проект автоматизированного рабочего места специалиста по формированию программ радиовещания

акустической обработки составляет:

= 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 баллов. В этих условиях интегральная балльная оценка тяжести труда Ит, которая позволяет определить влияние условий труда на работоспособность человека, вычисляется по следующей формуле:

,

Где

.

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

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

R1 = 100 - 64 =46; R2 = 100 - 16 = 84.

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

,

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

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

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

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

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

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

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

Выводы

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

Справочник по охране труда на промышленном предприятии / К.Н. Ткачук, Д.Ф. Иванчук, Р.В. Сабарно, А.Г. Степанов. - Киев: Техника, 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);

Applicationn;

end.

unit uMain;

interface

uses

Windows, Messages, SysUtils, Variants,>

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

Mask, uConnect, ShellAPI, uReport;

type

TfrmMain =>

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,>

type

TfrmDataModule =>

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,>

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

type

TfrmConnect =>

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.