Промышленная экология. 
Разработка автоматизированной информационной системы управления персоналом

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

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

• — компьютер имеет сразу два источника излучения (монитор и системный блок);
• — пользователь ПК практически лишен возможности работать на расстоянии;
• — очень длительное время воздействия [10].

Разброс электростатических потенциалов пользователей колеблется в диапазоне от -3 до +5 кВ. Когда ЭСтП субъективно ощущается, потенциал пользователя служит решающим фактором при возникновении неприятных субъективных ощущений. Заметный вклад в общее электростатическое поле вносят электризующиеся от трения поверхности клавиатуры и мыши. Эксперименты показывают, что даже после работы с клавиатурой, электростатическое поле быстро возрастает с 2 до 12 кВ/м. На отдельных рабочих местах в области рук регистрировались напряженности статических электрических полей более 20 кВ/м.

На расстоянии 50 см от экрана напряжённость электрического поля имеет значение от меньших единицы до 10 В/м, а магнитная индукция — от 10−8 до 10−7 Тл. В радиодиапазоне они продуцируются катодной трубкой; основной же источник — горизонтальные и вертикальные отклоняющие катушки, которые обеспечивают сканирование электронного луча по экрану в диапазоне 15 — 35 кГц. Видеотерминалы излучают также переменные электрические и магнитные поля с частотой 50 или 60 Гц и их гармоники.

Принципы защиты от электромагнитных излучений:

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

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

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

Нормируемой характеристикой постоянного шума на рабочих местах являются уровни звукового давления L, дБ в октавных полосах со среднегеометрическими частотами 63, 125, 250, 1000, 2000, 4000 и 8000 Гц. Используется также принцип, который базируется на уровне звука в дБА и измеряется при включении коррективной частотной характеристики «А» шумомера. В этом случае осуществляется интегральная оценка всего шума в отличие от спектральной.

Помещения, в которых работают инженерно-технические работники, осуществляющие лабораторный, аналитический или измерительный контроль, уровень шума не должен превышать 60 дБА, в помещениях операторов ЭВМ (без дисплеев) уровень шума не должен превышать 65 дБА.

В помещениях для размещения шумных агрегатов вычислительных машин уровень шума не должен превышать 75 дБА.

Для снижения уровня шума, для отделки помещений используются звукопоглощающие материалы, разрешенные к использованию в Республики Казахстан, занавеси из плотной ткани, подвешенные складкой на расстоянии 15−20 сантиметров от ограждении. Ширина занавеси должна быть в 2 раза больше ширины окна. Уровни вибраций в производственных помещений с ПК и ВТ не должны превышать допустимых значений для категории 3 типа «В» указанных в таблице настоящих санитарных правил.

Требованиях СанПин РК № 3073. В производственных помещениях где работа на ПК и ВТ является основной в соответствующих помещениях организаций образования, дошкольных организаций, компьютерных клубов уровень звука на рабочем месте не должен превышать 60 децибел. При выполнении инженерно-технических работ, при осуществлении лабораторного, аналитического и измерительного контроля уровень шума в помещении с ВТ и ПК не должен превышать 65 децибел. На рабочих местах в помещениях, где размещены шумные агрегаты вычислительных машин, уровень шума не должен превышать 75 децибел [9].

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

Уровень шума от нескольких источников с различными уровнями звука расположенных на одинаковом расстоянии от расчётной точки, определяется по формуле:

(6.1).

В нашем помещении находиться 2 источника звука по 60 дБ.

дБ.

Расчет шума в помещении.

Средний коэффициент звукопоглощения в помещении определяется формулой:

.

где — суммарная площадь поверхностей, ограждающих помещение, ,.

— коэффициент звукопоглощения i-ой ограждающей поверхности помещения (таблица 6.1) площадью, .

Таблица 6.1. Зависимость звукопоглощения некоторых материалов.

Частота работы компьютера приблизительно равно 1000 Гц, а в качестве звукопоглощающего материала используется: Шторы у стены, Ковёр, 2-а Стула с тканевой спинкой. Площадь штор равна 15, ковра 21, стула 2. Общая площадь равна 38 .

В итоге получаем:

Ч15:38+0,43Ч21:38+0,17Ч2:38=0,07+0,24+0,009=0,319.

Акустическая постоянная переменная рассчитывается по формуле:

.

Получается:

.

Шум в РТ замкнутого объема определяется по свойствам пространства и помещений. Шум в замкнутом объеме определяется по формуле:

дБ где X-коэффициент шума, учитывающий размеры источника шума (рисунок 1),.

— коэффициент, учитывающий характер звукового поля в помещении (рисунок 2),.

Ф — фактор направленности (для ненаправленных Ф=1), определяемый экспериментально,.

r — расстояние от источника шума до РТ, м.

Рисунок 6.1 — Зависимость коэффициента X от отношения расстояния R к максимальному линейному размеру источника.

Расстояние R=3 м, максимальный линейный размер источника =1 м. Следовательно, рисунку 6.1.

X=1.

Рисунок 6.2- Зависимость коэффициента от акустической постоянной помещения к его площади.

=42 м.

.

Следовательно рисунку 6.2, =0,68.

63−5,85=57,15 дБ По СанПин РК № 3073 уровень звука не должен превышать 50 децибел, на нашем рабочем месте уровень звука равен 57,15 дБ [9].

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

При выполнении инженерно-технических работ, при осуществлении лабораторного, аналитического и измерительного контроля уровень шума в помещении с ВТ и ПК не должен превышать 60 дБА. В помещениях операторов уровень шума не должен превышать 65 дБА. На рабочих местах в помещениях, где размещены шумные агрегаты вычислительных машин уровень шума не должен превышать 75 дБА.

В целях снижения уровня шума, для отделки помещений используются звукопоглощающие материалы, разрешенные к применению в Республике Казахстан, занавеси из плотной ткани, подвешенные складкой на расстоянии 15−20 сантиметров (далее — см) от ограждения. Ширина занавеси должна быть в 2 раза больше ширины окна. Оборудование, создающее шум выше допустимого уровня (шумные агрегаты вычислительных машин, серверы с агрегатами обеспечения климатических параметров и другие), размещается вне помещений с ПК и ВТ.

Уровни вибрации в производственных помещениях с ПК, ВТ не должны превышать допустимых значений для категории 3 тип «в» указанных в приложении 4 к настоящим санитарным правилам. Для соответствующих помещений в организациях образования, дошкольных организациях общественных зданиях и компьютерных клубах уровни вибрации должны соответствовать параметрам, указанным в приложении 5 к настоящим санитарным правилам.

Допустимые уровни неионизирующих электромагнитных излучений на рабочих местах у ВТ и ПК приведены в приложении 6 к настоящим санитарным правилам. Методика проведения инструментального контроля уровней электромагнитных полей (далее — ЭМП) на рабочих местах пользователей ПК приведена в приложении 7 к настоящим санитарным правилам.

Шум (звук), инфразвуки, ультразвук по своей физической сущности являются акустическими колебаниями, то есть волнообразно распространяющимися колебаниями плотности упругих сред, в том числе воздуха. Акустические колебания, лежащие в зоне 16 Гц — 20 кГц, воспринимаются человеком с нормальным слухом как звук и называются звуковыми. Акустические колебания с частотой менее 16 Гц не воспринимается ухом человека и называются инфразвуком, выше 20 кГЦ — ультразвуком.

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

Ухо человека может воспринимать и анализировать звуки в широком диапазоне частот и интенсивностей. Границы частотного восприятия существенно зависят от возраста человека и состояния органа слуха. У лиц среднего и пожилого возраста верхняя граница слышимой области понижается до 12−10 кГц.

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

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

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

• — уменьшение уровня шума в источнике его возникновения;
• — рациональное размещение оборудования;
• — борьба с шумом на путях его распространения;
• — изменение направленности излучения шума;
• — использование средств звукоизоляции и звукопоглощения;
• — установка глушителей шума;
• — акустическая обработка поверхностей помещения [10].

Наиболее эффективным средством является борьба с шумом в источнике его возникновения. Шум механизмов возникает вследствие упругих колебаний как всего механизма, так и отдельных его деталей. Причины возникновения шума — механические, аэродинамические и электрические явления, определяемые конструктивными и технологическими особенностями оборудования, а также условиями эксплуатации. В связи с этим различают шумы механического, гидродинамического, аэродинамического и электрического происхождения. Для уменьшения механического шума необходимо своевременно проводить ремонт оборудования, заменять ударные процессы на безударные, шире использовать принудительное смазывание трущихся поверхностей, применять балансировку вращающихся частей. Значительное снижение шума достигается при замене подшипников качения на подшипники скольжения, зубчатых и цепных передач клиноременными и зубчатоременными передачами, металлических деталей деталями из пластмасс. Снижения аэродинамического шума можно добиться уменьшением скорости газового потока, улучшением аэродинамики конструкции, звукоизоляции и установки глушителей. Электромагнитные шумы снижают конструктивными изменениями в электрических машинах. Широкое распространение получили методы снижения шума на пути его распространения посредством установки звукоизолирующих и звукопоглощающих преград в виде экранов, перегородок, кабин и др. Степень вредности и опасности условий труда при действии виброакустических факторов устанавливается с учетом их временных характеристик (постоянный, непостоянный шум, вибрация и т. д.). Предельно допустимые уровни шума на рабочих местах установлены с учетом тяжести и напряженности трудовой деятельности. Длительное воздействие вибрации высоких уровней на организм человека приводит к развитию преждевременного утомления, росту заболеваемости. Вибрация — это механическое колебательное движение системы с упругими связями. В комплексе мероприятий важная роль отводится разработке и внедрению научно обоснованных режимов труда и отдыха. Например, суммарное время контакта с вибрацией не должно превышать 3/3 продолжительности рабочей смены, рекомендуется устанавливать 2 регламентируемых перерыва для активного отдыха, проведение физиопрофилактических процедур, производственной гимнастики по специальному комплексу [10].

Снижение неблагоприятного действия вибрации ручных механизированных инструментов на оператора достигается путем технических решений:

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

ЭМП характеризуется интенсивностью излучения (поверхностная плотность потока энергии или вектор Умова-Пойтинга), выражаемых в ваттах на квадратный метр — Вт/. В случае одновременной работы нескольких источников берётся суммарная интенсивность излучений N-источников.

Во время работы компьютера дисплей создает ЭМ излучение, при повышении плотности которого >10 Вт/, оно становиться для человека вредным фактором. В нашем случае интенсивность излучения равна 6 Вт/.ЭМ излучения от других источников незначительны, поэтому в расчётах они не учитываются. Отсюда получаем, что суммарная интенсивность излучений от двух источников равна 20 ватт на метр квадратный.

.

10+10=20 Вт/.

По СанПин РК № 3073 излучение должно быть не более 50 Вт/.

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

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

Рассмотрен вопрос о влиянии жизнедеятельности человека на окружающую среду. Также был рассмотрен вопрос о вредном влиянии персональных компьютеров не только на окружающую нас среду, но и на здоровье человека. Если существуют данные проблемы, то должны быть методы и средства их решения, что также отражено в данном разделе диплома.

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

Заключение

Разработанный программный продукт позволяет автоматизировать работу отдела кадров. Разработанная система облегчает работу с документацией для сотрудников областных органов управления: «Управление природных ресурсов и регулирования природопользования Карагандинской области».

В процессе создания системы в соответствии с заданием были разработаны: модель вариантов использования, концептуальная модель предметной области, диаграммы деятельности, реляционная модель данных, диаграмма состояний интерфейса, формы интерфейса, диаграмма компонентов и диаграмма развертывания. Была выполнена проверка и отладка системы.

Система позволяет:

• — специалисту отдела кадров создавать, редактировать, просматривать необходимые для работы документы: личные карточки, трудовые договоры, штатное расписание, график отпусков, приказы;
• — начальству следить за работой специалиста;
• — сотрудникам Управления просматривать необходимую им информацию.

В дипломной работе было проведено программирование на языке Delphi. Программный продукт содержит форму авторизации пользователей, которая открывается после запуска приложения. Данная форма содержит поля для ввода пользователем своего логина и пароля.

Таким образом, в работе удалось реализовать информационную систему отдела кадров Управления природных ресурсов и регулирования природопользования Карагандинской области, которая удовлетворяет заданным требованиям.

• 1. Архангельский А. Я. Программирование в Delphi. Учебник по классическим версиям Delphi. — М.: Бином, 2006.
• 2. Буч Г., Рамбо Д., Джекобсон А. Язык UML. Руководство пользователя. — М.: ДМК Пресс, 2001.
• 3. Вендров A.M. Проектирование программного обеспечения экономических информационных систем: Учеб. — М.: Финансы и статистика, 2000.
• 4. Кватрани Т. Rational Rose 2000 и UML. Визуальное моделирование. — М.: ДМК Пресс, 2001.
• 5. Ларман К. Применение UML и шаблонов проектирования. — М.: Издательский дом «Вильяме», 2001.
• 6. Леоненков А. В. Самоучитель UML. — СПб.: БХВ-Петербург, 2001.
• 7. Мандел Т. Разработка пользовательского интерфейса. — М: ДМК Пресс, 2001.
• 8. Мартин Дж. Организация баз данных в вычислительных системах. — М.: Мир, 1980.
• 9. Чен П. Модель «сущность-связь» — шаг к единому представлению данных // СУБД. 1995. № 3. С. 137−158.
• 10. ГОСТ 12.1. 004 — 2002. Пожарная безопасность. М.: Изд-во стандартов.
• 11. ГОСТ 12.1.030−2002. ССБТ. Электробезопасность. Защитное заземление, зануление. М.: Изд-во стандартов.
• 12. ГОСТ 12.1.003−2002. ССБТ. Шум Общие требования безопасности. М.: Изд-во стандартов.
• 13. ГОСТ 12.1.005−2002. ССБТ. Воздух рабочей зоны. Общие санитарно — гигиенические требования. М.: Изд-во стандартов.
• 14. ГОСТ 12.2.032 2002. Требования к организации и оборудованию рабочего места сотрудника вычислительного центра. М.: Изд-во стандартов.
• 15. СанПиН 2.2.2/2.4.1340−03 «Гигиенические требования к видеодисплейным терминалам, персональным электронно-вычислительным машинам и организации работ»
• 16. Бройдо В. Л., Ильина О. П. Вычислительные системы, сети и телекоммуникации: Учебник для вузов. 4-е изд. — Спб.: Питер, 2011.

Приложения Приложение, А Личная карточка работника.

Рисунок А1 — Личная карточка работника.

Рисунок А2. — Личная карточка работника (продолжение).

Рисунок А3 — Личная карточка работника (продолжение).

Приложение Б Текст программы.

unit Unit2;

interface.

uses.

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

Dialogs, StdCtrls, Buttons, Mask, ExtCtrls, jpeg;

type.

TForm2 = class (TForm).

Panel1: TPanel;

MaskEdit1: TMaskEdit;

Label2: TLabel;

Label1: TLabel;

ComboBox1: TComboBox;

BitBtn1: TBitBtn;

Label4: TLabel;

Label5: TLabel;

Label6: TLabel;

Image1: TImage;

Image2: TImage;

Label3: TLabel;

Label7: TLabel;

procedure BitBtn1Click (Sender: TObject);

procedure BitBtn2Click (Sender: TObject);

private.

{ Private declarations }.

public.

{ Public declarations }.

end;

var.

Form2: TForm2;

implementation.

uses unit1, unit3, unit4, unit5, unit6, unit7, unit9, unit10;

{$R *.dfm}.

procedure TForm2. BitBtn1Click (Sender: TObject);

begin.

If (ComboBox1.ItemIndex=0) and (MaskEdit1.Text='1234') then.

begin.

Application.CreateForm (TFOrm1,Form1);

Form1.Show;

form2.Hide;

end.

else.

Application.MessageBox ('Неверный пароль','Внимание!', MB_ICONEXCLAMATION);

end;

procedure TForm2. BitBtn2Click (Sender: TObject);

begin.

close;

end;

end.

unit Unit1;

interface.

uses.

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

Dialogs, StdCtrls, ExtCtrls;

type.

TForm1 = class (TForm).

RadioGroup1: TRadioGroup;

Button1: TButton;

procedure Button1Click (Sender: TObject);

private.

{ Private declarations }.

public.

{ Public declarations }.

end;

var.

Form1: TForm1;

implementation.

uses Unit3, Unit2, Unit4, unit5, unit6, unit7, Unit9, Unit10;

{$R *.dfm}.

procedure TForm1. Button1Click (Sender: TObject);

begin.

if RadioGroup1. ItemIndex=4 then.

begin.

Form1.Hide;

Frm4.Show;

end;

if RadioGroup1. ItemIndex=1 then.

begin.

Form1.Hide;

Form10.Show;

end;

end;

end.

unit Unit8;

interface.

uses.

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

Dialogs, DB, ADODB, StdCtrls, Mask, DBCtrls, Grids, DBGrids, ExtCtrls,.

DBTables;

type.

TForm8 = class (TForm).

Panel2: TPanel;

ADOConnection1: TADOConnection;

BookTable: TADOTable;

DataSource1: TDataSource;

ADOConnection2: TADOConnection;

PereTable: TADOTable;

DataSource2: TDataSource;

DBGrid1: TDBGrid;

Button2: TButton;

BookTable_: TAutoIncField;

BookTable₂: TDateTimeField;

BookTableDSDesigner: TWideStringField;

BookTableDSDesigner2: TWideStringField;

BookTableDSDesigner3: TWideStringField;

BookTableDSDesigner4: TDateTimeField;

BookTableDSDesigner5: TWideStringField;

BookTableDSDesigner6: TWideStringField;

BookTableDSDesigner7: TWideStringField;

BookTableDSDesigner8: TWideStringField;

BookTableDSDesigner9: TIntegerField;

BookTableDSDesigner10: TWideStringField;

BookTableDSDesigner11: TWideStringField;

BookTable₃: TWideStringField;

PereTable_: TAutoIncField;

PereTable₂: TDateTimeField;

PereTableDSDesigner: TWideStringField;

PereTableDSDesigner2: TWideStringField;

PereTableDSDesigner3: TWideStringField;

PereTableDSDesigner4: TDateTimeField;

PereTableDSDesigner5: TWideStringField;

PereTableDSDesigner6: TWideStringField;

PereTableDSDesigner7: TWideStringField;

PereTableDSDesigner8: TWideStringField;

PereTableDSDesigner9: TIntegerField;

PereTableDSDesigner10: TWideStringField;

PereTableDSDesigner11: TWideStringField;

PereTable₃: TWideStringField;

Query2: TQuery;

ADOQuery1: TADOQuery;

Edit1: TEdit;

Button1: TButton;

ADOQuery1DSDesigner: TWideStringField;

ADOQuery1DSDesigner2: TWideStringField;

ADOQuery1DSDesigner3: TWideStringField;

ADOQuery1DSDesigner4: TDateTimeField;

ADOQuery1_: TWideStringField;

ADOQuery1DSDesigner5: TWideStringField;

ADOQuery1DSDesigner6: TWideStringField;

procedure Button2Click (Sender: TObject);

procedure Button1Click (Sender: TObject);

private.

{ Private declarations }.

public.

{ Public declarations }.

end;

var.

Form8: TForm8;

implementation.

uses Unit9, Unit10;

{$R *.dfm}.

procedure TForm8. Button2Click (Sender: TObject);

begin.

Form10.Show;

Form8.Hide;

end;

procedure TForm8. Button1Click (Sender: TObject);

begin.

Adoquery1.Parameters.ParamByName ('par1').Value:=Edit1.text;

Adoquery1.Open;

dbgrid1.DataSource.DataSet.Active:=true;

end;

end.

unit Unit9;

interface.

uses.

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

Dialogs, DB, ADODB, Grids, DBGrids, StdCtrls, Mask, DBCtrls, ExtCtrls;

type.

TForm9 = class (TForm).

ADOConnection1: TADOConnection;

BookTable: TADOTable;

DataSource1: TDataSource;

Panel2: TPanel;

ADOConnection2: TADOConnection;

PereTable: TADOTable;

DataSource2: TDataSource;

DBGrid2: TDBGrid;

FindSource: TDataSource;

FindQuery: TADOQuery;

FindQueryID_: TIntegerField;

FindQueryDSDesigner: TDateTimeField;

FindQueryDSDesigner2: TDateTimeField;

FindQueryDSDesigner3: TWideStringField;

FindQueryID₂: TIntegerField;

FindQueryID₃: TIntegerField;

Button1: TButton;

Button2: TButton;

BookTable_: TAutoIncField;

BookTable₂: TDateTimeField;

BookTableDSDesigner: TWideStringField;

BookTableDSDesigner2: TWideStringField;

BookTableDSDesigner3: TWideStringField;

BookTableDSDesigner4: TDateTimeField;

BookTableDSDesigner5: TWideStringField;

BookTableDSDesigner6: TWideStringField;

BookTableDSDesigner7: TWideStringField;

BookTableDSDesigner8: TWideStringField;

BookTableDSDesigner9: TIntegerField;

BookTableDSDesigner10: TWideStringField;

BookTableDSDesigner11: TWideStringField;

BookTable₃: TWideStringField;

PereTable_: TAutoIncField;

PereTable₂: TDateTimeField;

PereTableDSDesigner: TWideStringField;

PereTableDSDesigner2: TWideStringField;

PereTableDSDesigner3: TWideStringField;

PereTableDSDesigner4: TDateTimeField;

PereTableDSDesigner5: TWideStringField;

PereTableDSDesigner6: TWideStringField;

PereTableDSDesigner7: TWideStringField;

PereTableDSDesigner8: TWideStringField;

PereTableDSDesigner9: TIntegerField;

PereTableDSDesigner10: TWideStringField;

PereTableDSDesigner11: TWideStringField;

PereTable₃: TWideStringField;

Button3: TButton;

procedure Button1Click (Sender: TObject);

procedure Button2Click (Sender: TObject);

procedure Button3Click (Sender: TObject);

private.

{ Private declarations }.

public.

{ Public declarations }.

end;

var.

Form9: TForm9;

implementation.

uses Unit1, Unit2, unit3, Unit4, unit5, unit6, unit7, unit10, Unit12, Unit8;

{$R *.dfm}.

procedure TForm9. Button1Click (Sender: TObject);

begin.

if PereTable. Modified then.

PereTable.Post;

end;

procedure TForm9. Button2Click (Sender: TObject);

begin.

Form10.Show;

Form9.Hide;

end;

procedure TForm9. Button3Click (Sender: TObject);

begin.

if Application. MessageBox (Pchar ('Действительно хотите удалить ?'),'Внимание!', MB_OKCANCEL)=id_Ok then.

PereTable.Delete;

end;

end.

unit Unit10;

interface.

uses.

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

Dialogs, StdCtrls, Mask, DBCtrls, ExtCtrls;

type.

TForm10 = class (TForm).

Panel1: TPanel;

Label1: TLabel;

Label2: TLabel;

Label3: TLabel;

DBLookupComboBox1: TDBLookupComboBox;

DBEdit1: TDBEdit;

DBEdit2: TDBEdit;

Button1: TButton;

Label4: TLabel;

Button2: TButton;

Button3: TButton;

procedure Button2Click (Sender: TObject);

procedure Button3Click (Sender: TObject);

procedure Button1Click (Sender: TObject);

private.

{ Private declarations }.

public.

{ Public declarations }.

end;

var.

Form10: TForm10;

implementation.

uses Unit1, Unit2, unit3, Unit4, unit5, unit6, unit7, unit9, Unit8, Unit12;

{$R *.dfm}.

procedure TForm10. Button2Click (Sender: TObject);

begin.

Form9.Show;

Form10.Hide;

end;

procedure TForm10. Button3Click (Sender: TObject);

begin.

Form8.Show;

Form10.Hide;

end;

procedure TForm10. Button1Click (Sender: TObject);

begin.

Form12.Show;

Form10.Hide;

end;

end.

unit Unit12;

interface.

uses.

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

Dialogs, DB, ADODB, StdCtrls, Grids, DBGrids, ExtCtrls;

type.

TForm12 = class (TForm).

Panel2: TPanel;

DBGrid2: TDBGrid;

Button1: TButton;

Button2: TButton;

ADOConnection1: TADOConnection;

BookTable: TADOTable;

DataSource1: TDataSource;

ADOConnection2: TADOConnection;

PereTable: TADOTable;

DataSource2: TDataSource;

FindSource: TDataSource;

Button3: TButton;

BookTable_: TAutoIncField;

BookTable₂: TDateTimeField;

BookTableDSDesigner: TWideStringField;

BookTableDSDesigner2: TWideStringField;

BookTableDSDesigner3: TWideStringField;

BookTableDSDesigner4: TDateTimeField;

BookTableDSDesigner5: TWideStringField;

BookTableDSDesigner6: TWideStringField;

BookTableDSDesigner7: TWideStringField;

BookTableDSDesigner8: TWideStringField;

BookTableDSDesigner9: TIntegerField;

BookTableDSDesigner10: TWideStringField;

BookTableDSDesigner11: TWideStringField;

BookTable₃: TWideStringField;

PereTable_: TAutoIncField;

PereTable₂: TDateTimeField;

PereTableDSDesigner: TWideStringField;

PereTableDSDesigner2: TWideStringField;

PereTableDSDesigner3: TWideStringField;

PereTableDSDesigner4: TDateTimeField;

PereTableDSDesigner5: TWideStringField;

PereTableDSDesigner6: TWideStringField;

PereTableDSDesigner7: TWideStringField;

PereTableDSDesigner8: TWideStringField;

PereTableDSDesigner9: TIntegerField;

PereTableDSDesigner10: TWideStringField;

PereTableDSDesigner11: TWideStringField;

PereTable₃: TWideStringField;

BookTable₄: TIntegerField;

procedure Button2Click (Sender: TObject);

procedure Button1Click (Sender: TObject);

procedure Button3Click (Sender: TObject);

private.

{ Private declarations }.

public.

{ Public declarations }.

end;

var.

Form12: TForm12;

implementation.

uses Unit10;

{$R *.dfm}.

procedure TForm12. Button2Click (Sender: TObject);

begin.

Form10.Show;

Form12.Hide;

end;

procedure TForm12. Button1Click (Sender: TObject);

begin.

PereTable.Insert;

DBGrid2.SetFocus;

end;

procedure TForm12. Button3Click (Sender: TObject);

begin.

if PereTable. Modified then.

if dbgrid2.Columns.Items[5]=nil then showmessage ('Введите данные');

PereTable.Post;

end.