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

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

Обычно проект состоит из 4 частей: светотехнической, электрической, конструктивной и сметно-финансовой.

Светотехническая часть предполагает:

- ознакомление с объектом проектирования

- выбор системы освещения, определяемый требованиями к качеству освещения и экономичности осветительной установки

- выбор источника света

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

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

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

После выбора основных параметров осветительной установки проектируют к светотехническим расчетам.

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

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

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

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

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

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

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

Древесные культуры способны изолировать шум. Доказано, что наивысшее звукоизолирующие способностью обладают зеленые перегородки из клена (до 15 дБ снижает уровень шума), далее располагается тополь (до 11 дБ), липа (до 9 дБ), ель (5 дБ). В целом в городских, где распространению и усилению шума способствуют здание и асфальтовое покрытие дорог и тротуаров, зеленые насаждения при их правильной планировки и размещения способных снизить уровень шума до 15 дБ, а наибольшая оптимальная ширина протвошумной зеленой полосы 20-25 м.

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

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

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

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

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

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

4. Взаимное расположение цехов предприятия должно быть таким, чтобы при направлении ветра в сторону жилых массивов их выбросы не объединялись.

Для защиты населения от вредного воздействия вредных веществ, предприятия отделяют от жилой застройки санитарно-защитными зонами (СЗЗ).

СЗЗ – это территория, отводимая предприятию для защиты населения от вредных и неприятно пахнущих веществ, за границами которой должно выполняться неравенство:

С + Сф ≤ ПДКмр (4.2.2)

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

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

При эксплуатации транспорта в атмосферу выделяются оксид углерода СО, углеводороды СН, оксиды азота NO₂ и свинец.

При этом автотранспорт является главным поставщиком свинца в атмосферу.

При работе тепловозов в атмосферу выделяются и нормируются оксид серы SO₂, оксиды азота NO₂ , оксид углерода СО и сажа.

Меры по снижению загрязнения атмосферы транспортом:

1. Градостроительные мероприятия: озеленение дорог, транспортные развязки, оьъездные дороги;

2. Автоматизирование системы управления транспортным потоком. Включает в себя десятки тысяч датчиков, смонтированные в полотно дороги – ЭВМ, в программу которой заложено время года, суток, погодные условия – светофоры и знаки переменной символики;

3. Регулировка двигателей;

4. Использование различных присадок;

5. Нейтрализация выбросов. Различают нейтрализаторы коталективного действия, активизирующие окисление углеводородов и разложение NO₂. Пламенные нейтрализаторы – дожигание газов в открытом пламени. Термически нейтрализаторы – окисление продуктов горения путем введения в систему избытка воздуха. Жидкостные нейтрализаторы – связывание продуктов горения жидкими реагентами.

6. Совершенствование конструкции двигателя.

7.

5.4 Расчетная часть.

Выполнить расчет освещения рабочего помещения

Решение:

1) Согласно рис.4.1 помещения имеет Г-образную форму, с длиной большего отрезка 36 м и длиной меньшего отрезка 8 м. Высота помещении 3,5 м.

2) Примем для освещения помещения лампы накаливания Г-200 со световым потоком Ф_л=2800 лм, установленные в светильниках типа У. Согласно нормативным документам нормативная освещенность главных помещении при использовании ламп накаливания Е_н=300 лк на уровни пола. Коэффициент запаса К_з=1,5. Коэффициент μ, учитывающий действие удаленных источников и отраженного света, примем равным 1.

3) Условную горизонтальную освещенность в контрольной точке определим, преобразуя формулу 4.4.1:

Σе=2е= 1000 Е_н К_з / Ф_л μ= 1000*300* 1,5/2800*1= 160,71 лк

Следовательно е=80,35 лк.

4) Примем свес светильника h_c=0.8м. Тогда высота подвеса светильника

h_p=H-h_c=3,5-0,8=2,7 м.

Используя метод интерполяции, определим расстояние d от светильника до контрольной точки- d=2,5м. Максимальное расстояние между светильниками не должно превышать 2d=5м. Общее количество светильников для большего отрезка помещении определим, исходя из его длины n_c==36/5=7,2. Размещая один светильник в точке поворота коридора, определяем, что для освещения меньшего отрезка коридора необходимо один светильник, расположенный на расстоянии 5м, установленного в точке поворота. Таким образом, для освещения помещении требуется 11 светильников У с лампами накаливания Г-200.

Заключение.

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

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

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

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

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

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

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

Каждая реализация единицы готовой продукции сопровождается оформлением накладной и счета-фактуры типовой формы.

Автоматизация управления процессами в предприятии «Азия Хит» повышает его оперативность и эффективность.

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

Критериями выбора технических средств являются:

• надежность функционирования системы;

• функциональная полнота системы;

• быстродействие;

• минимизация затрат на стоимость: аппаратных средств, прикладных сис­тем, сопровождения системы, развития системы.

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

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

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

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

Список литературы.

1. Бобровский С. Delphi 5: Учебный курс. - СПб.: Питер, 2000.

2. Карпова Т. Базы данных: модели, разработка, реализация. – СПб.: Питер, 2001.

3. Крёнке Д. Теория и практика построения баз данных. 8-е изд., СПб.: Питер, 2003.

4. Граббер М. Understanding SQL. М.: Лори, 1993.

5. Шумаков В., Фаронов П. Delphi 5. Руководство разработчика баз данных. М.: Нолидж, 2000.

6. Кириллов В., Громов Г. Структуризированный язык запросов (SQL)/СПбГИТМО. СПб.

7. Ковязин А., Востриков С. Мир InterBase. 2-е изд. М.: КУДИЦ-ОБРАЗ, 2003.

8. Фаронов В. Программирование баз данных в Delphi 6. Учебный курс. СПб.: Питер, 2002.

9. Скляр А. Введение в InterBase. М.: Горячая линия – Телеком, 2002.

10. Информационный портал www.ibase.ru.

11. Кузнецов С. Язык баз данных SQL/92//www.citforum.ru/database/sqlbook/sqlbook_05.shtml

12. Дарахвелидзе П., Марков Е. Программирование в Delphi 7. СПб.: BHV-Петербург, 2003.

13. Пржиялковский В. Модели, баз данных и СУБД в информационных системах//http://www.ccas.ru/~prz/book2.htm

14. Технология распределенных баз данных//http://ami.nstu.ru/~vms/lecture/lecture10/lecture10.htm

15. Фаронов В. Профессиональная работа в Delphi 6. Библиотека программиста. – СПб.: Питер, 2002.

16. Ливчак И.Ф., Воронов Ю.В. Охрана окружающей среды. М.:Стройиздат, 1988 – 191с.

17. Липаев В.В., Потапов А.И. Оценка затрат на разра­ботку программных средств. – М.: Финансы и стати­стика, 1998.- 180 с.

18. Модин А.А., Яковенко Е.Г., Погребной Е.П. Спра­вочник разработчика АСУ. - М.: Экономика, 1978.

19. Неверова Е.Г. Исследование проблем создания баз данных для информационных систем./ Сборник статей “Информационные системы в экономике”. - Алматы: Экономика – 1997 г. - с.35-42.

20. Неверова Е.Г. Технология проектирования баз дан­ных и знаний, Алматы, 2000.

21. Новое в охране труда и окружающей среды.(материалы 3 международной научно-технической конференции). Алматы, 1998 –248 с.

22. Охрана окружающей среды и рациональное использование природных ресурсов Республики Казахстан. Алматы: Госкомстат Республики Казахстан, 1997 – 191 с.

23. Пушкарева Л.А. Развитие информационной техноло­гии./ Сборник статей “Информационные системы в экономике”. - Алматы: Экономика – 1997 г. - с.42-51.

24. Под ред. А.Н. Наумова. - М.: Фи­нансы и статистика, 1991. – 352 с.

25. Тимофеева Е.П. Некоторые вопросы безопасности ин­формационных систем./ Сборник статей “Информационные системы в экономике”. - Алматы: Экономика – 1997 г. - с.119-124.

Приложение 1

Линстинг программы

unit Unit1;

Function ReadStrParam(sName:string):string;

var

Form1: TForm1; ViruchkaProdaji,ViruchkaZaProkat,KolKomediy,KolMelodram,KolBoevikov,

KolUjasov,KolMult,KolDoc,KolSerialov,KolFantasi,KolTrillerov,KolNauch,KolHistory,KolMus,

IDUser:integer;

implementation

uses Unit2, Unit3, Unit4, Unit6, Unit7, Unit5, Unit8, Unit9, Unit10,

Unit13, Unit12, Unit14, Unit15, Unit16, Unit18, Unit17, Unit20, Unit21,

Unit11, Unit19, Unit22, Unit23, Unit25, Unit24;

{$R *.dfm}

Function ReadStrParam(sName:string):string;

Var Reg:TRegistry;

begin

Reg:=TRegistry.Create;

with reg do

begin

OpenKey('Software\Cinema',True);

Result:=ReadString(sName);

CloseKey;

Free;

end;

end;

procedure TForm1.SpeedButton1Click(Sender: TObject);

begin

form2.show

end;

procedure TForm1.SpeedButton2Click(Sender: TObject);

begin

if messagedlg('Вы уверены?',mtInformation,[mbYes,mbNo],0)= MrYes then

begin

IBStoredProc1.ParamByName('Nazv').AsString:=IBTable1.FieldByName('Namefilm').AsString;

IBStoredProc1.ExecProc;

IBTable1.Refresh;

end;

end;

procedure TForm1.N4Click(Sender: TObject);

begin

form3.Show;

end;

procedure TForm1.N5Click(Sender: TObject);

begin

form4.show;

end;

procedure TForm1.N12Click(Sender: TObject);

begin

form13.show

end;

procedure TForm1.SpeedButton6Click(Sender: TObject);

begin

IBTable1.Cancel;

end;

procedure TForm1.N13Click(Sender: TObject);

begin

form14.show

end;

procedure TForm1.N14Click(Sender: TObject);

begin

form23.show

end;

procedure TForm1.SpeedButton3Click(Sender: TObject);

begin

IBTable1.Refresh;

end;

procedure TForm1.SpeedButton4Click(Sender: TObject);

begin

IBTable1.Next;

end;

procedure TForm1.SpeedButton5Click(Sender: TObject);

begin

IBTable1.Prior;

end;

procedure TForm1.SpeedButton8Click(Sender: TObject);

begin

if messagedlg('Закрыть программы и подсчитать выручку?',mtInformation,[mbOK],0)=mrOK then

begin

ADD_Prognoz.ParamByName('DataPrognoza').AsDate:=DateTimePicker1.Date;

ADD_Prognoz.ParamByName('KolKomediy').AsInteger:=KolKomediy;

ADD_Prognoz.ParamByName('KolMelodram').AsInteger:=KolMelodram;

ADD_Prognoz.ParamByName('KolBoevikov').AsInteger:=KolBoevikov;

ADD_Prognoz.ParamByName('KolUjasov').AsInteger:=KolUjasov;

ADD_Prognoz.ParamByName('KolMult').AsInteger:=KolMult;

ADD_Prognoz.ParamByName('KolDoc').AsInteger:=KolDoc;

ADD_Prognoz.ParamByName('KolSerialov').AsInteger:=KolSerialov;

ADD_Prognoz.ParamByName('KolFantasi').AsInteger:=KolFantasi;

ADD_Prognoz.ParamByName('Koltrilerov').AsInteger:=KolTrillerov;

ADD_Prognoz.ParamByName('KolNauchnih').AsInteger:=KolNauch;

ADD_Prognoz.ParamByName('KolHistory').AsInteger:=KolHistory;

ADD_Prognoz.ParamByName('KolMus').AsInteger:=KolMus;

ADD_Prognoz.ExecProc;

//////////////////////////RaschetViruchki///////////////////////////////////////////

ViruchkaProdaji:=0;

form8.IBTable1.Filter:='DataProdaji='+ CHR(39)+Datetostr(DateTimePicker1.Date)+chr(39);

form8.IBTable1.Filtered:=true;

ViruchkaProdaji:=form14.IBTable1.FieldByName('Nakrutka').AsInteger* form8.IBTable1.RecordCount;

form6.IBTable1.Insert;

form6.IBTable1.FieldByName('Data').AsDateTime:=DateTimePicker1.DateTime;

form6.IBTable1.FieldByName('Summa').AsInteger:=ViruchkaProdaji;

form6.IBTable1.FieldByName('Salon').AsInteger:= strtoint(ReadStrParam('Number Salun'));

form6.IBTable1.Post;

form7.IBTable1.Insert;

form7.IBTable1.FieldByName('Data').AsDateTime:=DateTimePicker1.DateTime;

form7.IBTable1.FieldByName('Summa').AsInteger:=Unit5.ViruchkaZaProkat;

form7.IBTable1.FieldByName('Salon').AsInteger:=strtoint(ReadStrParam('Number Salun'));

form7.IBTable1.Post;

form22.IBTable1.Insert;

form22.IBTable1.FieldByName('Data').AsDateTime:=DateTimePicker1.DateTime;

form22.IBTable1.FieldByName('Summa').AsInteger:=ViruchkaProdaji+Unit5.ViruchkaZaProkat;

form22.IBTable1.FieldByName('Salon').AsInteger:=strtoint(ReadStrParam('Number Salun'));

form22.IBTable1.Post

end;

IBDataBase1.Close;

form5.IBTable1.Close;

form8.IBTable1.Close;

form12.IBTable1.Close;

form13.IBTable1.Close;

form15.IBTable1.Close;

close;

end;

procedure TForm1.SpeedButton9Click(Sender: TObject);

begin

form9.Show;

end;

procedure TForm1.N18Click(Sender: TObject);

begin

form8.Show

end;

procedure TForm1.N20Click(Sender: TObject);

begin

form10.show

end;

procedure TForm1.N6Click(Sender: TObject);

begin

IBTable1.IndexName:='namefilmIndex';

end;

procedure TForm1.N9Click(Sender: TObject);

begin

IBTable1.IndexName:='cenaindex';

end;

procedure TForm1.N7Click(Sender: TObject);

begin

IBTable1.IndexName:='janrindex';

end;

procedure TForm1.N8Click(Sender: TObject);

begin

IBTable1.IndexName:='godvipuskaindex';

end;

procedure TForm1.SpeedButton7Click(Sender: TObject);

begin

If ComboBox1.Text='' then

begin

messagedlg('Введите фамилию продавца!',mtWarning,[mbOK],0);

exit;

end;

IBTable1.Edit;

IBtable1.FieldByName('KolKopiy').AsInteger:=IBtable1.FieldByName('KolKopiy').AsInteger-1;

IBTable1.Post;

///////////////////////////////Favorit////////////////////////////////////////////////

form8.IBTable1.Filter:='NameVideozap='+ CHR(39)+IBtable1.FieldByName('NameFilm').AsString+chr(39);

form8.IBTable1.Filtered:=true;

if form8.IBTable1.RecordCount>form14.IBTable1.FieldByName('KolKOpiyFavorit').AsInteger then

begin

ADD_FAvorit.ParamByName('data').AsDate:=DateTimePicker1.Date;

ADD_Favorit.ParamByName('NameFilm').AsString:=IBTable1.FieldByName('NameFilm').AsString;

ADD_Favorit.ExecProc;

end;

form8.IBTable1.Filtered:=false;

//////////////////////////////Prognoz//////////////////////////////////////////////////

if IBtable1.FieldByName('Janr').asstring='Комедия' then

begin

KOlKomediy:=kolKomediy+1;

end;

if IBtable1.FieldByName('Janr').asstring='Мелодрама' then

begin

KOlMelodram:=kolmelodram+1;

end;

if IBtable1.FieldByName('Janr').asstring='Боевик' then

begin

KOlBoevikov:=kolBoevikov+1;

end;

if IBtable1.FieldByName('Janr').asstring='Ужас' then

begin

KOlUjasov:=kolUjasov+1;

end;

if IBtable1.FieldByName('Janr').asstring='Мультфильм' then

begin

KOLMult:=kolMult+1;

end;

if IBtable1.FieldByName('Janr').asstring='Документальный' then

begin

KOlDoc:=kolDoc+1;

end;

if IBtable1.FieldByName('Janr').asstring='Сериал' then

begin

KOlserialov:=kolSerialov+1;

end;

if IBtable1.FieldByName('Janr').asstring='Фантастика' then

begin

KOlFantasi:=kolFantasi+1;

end;

if IBtable1.FieldByName('Janr').asstring='Триллер' then

begin

KOlTrillerov:=kolTrillerov+1;

end;

if IBtable1.FieldByName('Janr').asstring='Научно-познавательный' then

begin

KOlNauch:=kolNauch+1;

end;

if IBtable1.FieldByName('Janr').asstring='Исторический' then

begin

KOlHistory:=kolHistory+1;

end;

if IBtable1.FieldByName('Janr').asstring='Музыкальный' then

begin

KOlMus:=kolMus+1;

end;

///////////////////////////////////ADD_Prodaja//////////////////////////////

IBStoredProc2.ParamByName('namefilm').AsString:=IBTable1.FieldByName('Namefilm').AsString;

IBStoredProc2.ParamByName('janr').AsString:=IBTable1.FieldByName('janr').AsString;

IBStoredProc2.ParamByName('tipnositelta').AsString:=IBTable1.FieldByName('tipnositelya').AsString;

IBStoredProc2.ParamByName('dataprodaji').AsDate:=DateTimePicker1.Date;

IBStoredProc2.ParamByName('cena').AsSmallInt:=IBTable1.FieldByName('cena').AsInteger;

IBStoredProc2.ParamByName('fioprodovca').AsString:=combobox1.Text;

IBStoredProc2.ExecProc;

/////////////////////////////////////////////////////////////////

///////////////////////////////////////////////////////////////////

if IBTable1.FieldByName('KOlkopiy').AsInteger=1 then

begin IBStoredProc3.ParamByName('Nazv').AsString:=IBTable1.FieldByName('Namefilm').AsString;

IBStoredProc3.ExecProc;

IBTable1.Refresh;

end;

end;

procedure TForm1.N11Click(Sender: TObject);

begin

form8.Show

end;

procedure TForm1.N17Click(Sender: TObject);

begin

form5.Show;

end;

procedure TForm1.N10Click(Sender: TObject);

begin

form12.show;

end;

procedure TForm1.FormShow(Sender: TObject);

Var SystemTime:TSystemTime;

begin

/////////////////////////////RefreshData///////////////////////////////

form16.ShowModal;

form18.Show;

form18.Close;

Unit5.ViruchkaZaProkat:=0;

//form1.Caption:='Ñàëîí íîìåð'+ReadStrParam('Number Salun');

GetLocalTime(SystemTime);

DateTimePicker1.DateTime:=SystemTimeToDateTime(SystemTime);

form6.DateTimePicker1.DateTime:=SystemTimeToDateTime(SystemTime);

form8.DateTimePicker1.DateTime:=SystemTimeToDateTime(SystemTime);

form21.DateTimePicker1.DateTime:=SystemTimeToDateTime(SystemTime);

form9.DateTimePicker1.DateTime:=SystemTimeToDateTime(SystemTime);

form9.DateTimePicker2.DateTime:=SystemTimeToDateTime(SystemTime);

form11.DateTimePicker1.DateTime:=SystemTimeToDateTime(SystemTime);

form11.DateTimePicker1.DateTime:=SystemTimeToDateTime(SystemTime);

form19.DateTimePicker1.DateTime:=SystemTimeToDateTime(SystemTime);

end;

procedure TForm1.N22Click(Sender: TObject);

begin

form18.show;

end;

procedure TForm1.N19Click(Sender: TObject);

begin

form17.show

end;

procedure TForm1.N23Click(Sender: TObject);

begin

form6.Show

end;

procedure TForm1.N24Click(Sender: TObject);

begin

form7.Show

end;

procedure TForm1.N25Click(Sender: TObject);

begin

form22.show;

end;

procedure TForm1.BitBtn1Click(Sender: TObject);

begin

form25.show;

end;

procedure TForm1.N21Click(Sender: TObject);

begin

form20.Show;

end;

procedure TForm1.N26Click(Sender: TObject);

begin

form24.show

end;

procedure TForm1.N27Click(Sender: TObject);

begin

form16.SpeedButton2.Enabled:=false;

form16.Show;

end;

end.

Var

Form5: TForm5;ViruchkaZaProkat:integer;

implementation

uses Unit7, Unit1, Unit11, Unit14;

{$R *.dfm}

procedure TForm5.SpeedButton2Click(Sender: TObject);

begin

If RadioButton1.Checked then

begin

IBTable1.IndexName:='NameVideZapisiIndex'

end;

If RadioButton2.Checked then

begin

IBtable1.IndexName:='DataSdachiVprokatIndex';

end;

If RadioButton3.Checked then

begin

IBTable1.IndexName:='DataVozvrataIndex';

end;

If RadioButton4.Checked then

begin

IBTable1.IndexName:='SummaZalogaIndex';

end;

If RadioButton5.Checked then

begin

IBTable1.IndexName:='CnaProkataIndex';

end;

If RadioButton6.Checked then

begin

IBTable1.IndexName:='FioKlientaIndex';

end;

If RadioButton7.Checked then

begin

IBTable1.IndexName:='DomTelKlientaIndex';

end;

end;

procedure TForm5.SpeedButton3Click(Sender: TObject);

begin

if form1.IBTable1.Locate('NameFilm',IBTable1.fieldByName('Namevidezapisi').AsString,[])=true then

begin

If IBTable1.FieldByName('TipNositelya').AsString='DVD'then

begin

ViruchkaZaProkat:=ViruchkaZaProkat+form14.IBTable1.FieldByName('ProkatDVD').AsInteger;

end;

If IBTable1.FieldByName('TipNositelya').AsString='VHS'then

begin

ViruchkaZaProkat:=ViruchkaZaProkat+form14.IBTable1.FieldByName('ProkatVHS').AsInteger;

end;

If IBTable1.FieldByName('TipNositelya').AsString='VCD'then

begin

ViruchkaZaProkat:=ViruchkaZaProkat+form14.IBTable1.FieldByName('ProkatVCD').AsInteger;

end;

IBStoredProc1.ParamByName('Nazv').AsString:=IBTable1.fieldByName('Namevidezapisi').AsString;

IBStoredProc1.ExecProc;

form1.IBTable1.Edit;

form1.IBtable1.FieldByName('KolKopiy').AsInteger:=form1.IBtable1.FieldByName('KolKopiy').AsInteger+1;

form1.IBTable1.Post;

form1.IBTable1.Refresh;

IBTable1.Refresh;

end;

end;

procedure TForm5.FormShow(Sender: TObject);

begin

IBTable1.Refresh;

end;

procedure TForm5.SpeedButton4Click(Sender: TObject);

begin

close

end;

procedure TForm5.SpeedButton1Click(Sender: TObject);

begin

if (edit1.Text='')and(edit2.Text='') then

begin

messagedlg('Введите информацию поиска!',mtWarning,[mbOK],0);

exit;

end;

if edit2.Text='' then

begin

if IBTable1.Locate('fioklienta',edit1.Text,[])=false then

begin

messagedlg('Ничего не найдено',mtInformation,[mbOK],0);

end;

end;

if edit1.Text='' then

begin

if IBTable1.Locate('Domtelklienta',strtoint(edit2.Text),[])=false then

begin

messagedlg('Ничего не найдено',mtInformation,[mbOK],0);

end;

end;

end;

procedure TForm5.SpeedButton6Click(Sender: TObject);

begin

form11.show;

end;

procedure TForm5.SpeedButton5Click(Sender: TObject);

begin

ProkatRV.Execute;

end;

end.

Var

Form13: TForm13;Cena:integer;

implementation

Uses unit1, Unit14, Unit15,unit12;

{$R *.dfm}

procedure TForm13.SpeedButton2Click(Sender: TObject);

begin

close

end;

procedure TForm13.SpeedButton1Click(Sender: TObject);

var i,CenaDVD,CenaVHS,CenaVCD:integer;

begin

SpeedButton5.Enabled:=true;

CenaDVD:=0;CenaVHS:=0;CenaVCD:=0;

IBTable1.First;

for i:=1 to IBTable1.RecordCount do

begin

if IBTable1.FieldByName('TipNositelya').AsString='DVD'then

begin

IBTable1.Edit;

CenaDVD:=CenaDVD+IBtable1.FieldByName('CenaED').asinteger*IBtable1.fieldByName('Kolkopiy').asinteger;

ibtable1.FieldByName('CenaObsh').AsInteger:=CenaDVD;

end;

if IBTable1.FieldByName('TipNositelya').AsString='VHS'then

begin

IBTable1.Edit;

CenaVHS:=CenaVHS+IBtable1.FieldByName('CenaED').asinteger*IBtable1.fieldByName('Kolkopiy').asinteger;

ibtable1.FieldByName('CenaObsh').AsInteger:=CenaVHS;

end;

if IBTable1.FieldByName('TipNositelya').AsString='VCD'then

begin

IBTable1.Edit;

CenaVCD:=CenaVCD+IBtable1.FieldByName('CenaED').asinteger*IBtable1.fieldByName('Kolkopiy').asinteger;

ibtable1.FieldByName('CenaObsh').AsInteger:=CenaVCD;

end;

IBTable1.next;

end;

Cena:=CenaDVD+CenaVHS+CenaVCD;

Label1.Caption:='Сумма закупки' = '+ inttostr(Cena);

form15.IBTable1.Insert;

form15.IBTable1.FieldByName('Datazakupki').AsDateTime:=IBTable1.FieldByName('DataZakupki').AsDateTime;

form15.IBTable1.FieldByName('Postavshik').AsString:=IBTable1.FieldByName('Postavshik').AsString;

form15.IBTable1.FieldByName('SummaZakupki').AsInteger:=Cena;

end;

procedure TForm13.SpeedButton5Click(Sender: TObject);

var I,Kol:integer;

begin

if MessageDlg('Закупка закончена, перенести информацию в основную базу?',

mtConfirmation, [mbYes, mbNo], 0) = mrYes then

Begin

Kol:=0;

IBTable1.First;

for I:=1 to IBTable1.RecordCount do

begin

Form1.IBTable1.Insert;

Form1.IBTable1.FieldByName('NameFilm').AsString:=IBtable1.fieldbyname('NameFilma').AsString;

Form1.IBTable1.FieldByName('Janr').AsString:=IBtable1.fieldbyname('Janr').AsString;

if IBTable1.FieldByName('TipNositelya').AsString='DVD'then

form1.IBTable1.FieldByName('Cena').AsInteger:=IBTable1.FieldByName('CenaED').AsInteger+strtoint(form14.DBEdit2.text);

if IBTable1.FieldByName('TipNositelya').AsString='VHS'then

form1.IBTable1.FieldByName('Cena').AsInteger:=IBTable1.FieldByName('CenaED').AsInteger+strtoint(form14.DBEdit3.text);

if IBTable1.FieldByName('TipNositelya').AsString='VCD'then

form1.IBTable1.FieldByName('Cena').AsInteger:=IBTable1.FieldByName('CenaED').AsInteger+strtoint(form14.DBEdit4.text);

form1.IBTable1.FieldByName('TipNositelya').AsString:=IBTable1.fieldbyname('TipNositelya').AsString;

form1.IBTable1.FieldByName('KolKopiy').AsInteger:=IBTable1.fieldbyname('KolKopiy').AsInteger;

form1.IBTable1.FieldByName('Sostoyanie').AsString:='1';

form1.IBTable1.Post;

IBtable1.Next;

end;

end;

IBTable1.First;

for I:=1 to IBTable1.RecordCount do

begin

kol:= kol+IBTable1.fieldbyname('KOlKopiy').AsInteger;

IBTable1.Next;

end;

form15.IBTable1.FieldByName('ObsheeKolZakupki').AsInteger:=kol;

form15.IBTable1.Post;

//IBTable1.EmptyTable;/////

end;

procedure TForm13.SpeedButton4Click(Sender: TObject);

begin

form15.show

end;

procedure TForm13.SpeedButton3Click(Sender: TObject);

begin

ZakupkaRV.Execute;

end;

procedure TForm13.FormShow(Sender: TObject);

begin

form12.Show;

form12.Close;

end;

procedure TForm13.IBTable1AfterInsert(DataSet: TDataSet);

begin

GroupBox1.Enabled:=true;

GroupBox2.Enabled:=true;

GroupBox3.Enabled:=true;

end;

procedure TForm13.ComboBox2Change(Sender: TObject);

begin

IBTable1.Edit;

IBTable1.FieldByName('Postavshik').AsString:=ComboBox2.Text;

end;

procedure TForm13.ComboBox1Change(Sender: TObject);

begin

IBTable1.Edit;

IBTable1.FieldByName('Janr').AsString:=ComboBox1.Text;

end;

procedure TForm13.ComboBox3Change(Sender: TObject);

begin

IBTable1.Edit;

IBTable1.FieldByName('TipNositelya').AsString:=ComboBox3.Text;

end;

procedure TForm13.FormClose(Sender: TObject; var Action: TCloseAction);

begin

IBTable1.Edit;

SpeedButton5.Enabled:=false;

end;

end.

procedure WriteStrParam(sName,sValue:string);

Function ReadStrParam(sName:string):string;

Var

Form18: TForm18;

implementation

{$R *.dfm}

uses unit1, Unit20;

Procedure WriteStrParam(sName,sValue:string);

Var Reg:Tregistry;

begin

Reg:=TRegistry.Create;

with Reg do

begin

OpenKey('Software\Cinema',True);

WriteString(sName,sValue);

CloseKey;

Free;

end;

end;

Function ReadStrParam(sName:string):string;

Var Reg:TRegistry;

begin

Reg:=TRegistry.Create;

with reg do

begin

OpenKey('Software\Cinema',True);

Result:=ReadString(sName);

CloseKey;

Free;

end;

end;

procedure TForm18.BitBtn1Click(Sender: TObject);

begin

close

end;

procedure TForm18.SpeedButton1Click(Sender: TObject);

begin

close

end;

procedure TForm18.SpeedButton2Click(Sender: TObject);

var i:integer;

begin

WriteStrParam('Number salun',Spinedit1.Text);

WriteStrParam('KolProdavcov',Spinedit2.Text);

WriteStrParam('KolSalonov',Spinedit3.Text);

ModalResult:=mrOk;

form20.ComboBox1.Items.Clear;

for i:=1 to SpinEdit3.Value do

begin

form20.ComboBox1.Items.Add(inttostr(i));

end;

end;

procedure TForm18.FormShow(Sender: TObject);

var i:integer;

begin

form1.Combobox1.Items.Clear;

IBTable1.Refresh;

IBTable1.First;

for i:=1 to IBTable1.RecordCount do

begin

form1.combobox1.Items.Add(IBTable1.FieldByName('Fio').AsString);

IBTable1.Next;

end;

SpinEdit2.Text:=ReadStrParam('KolProdavcov');

SpinEdit3.Text:=ReadStrParam('Kolsalonov');

end;

procedure TForm18.IBTable1AfterPost(DataSet: TDataSet);

begin

spinedit2.Value:=IBTable1.RecordCount;

end;

end.

var

Form23: TForm23;

implementation

{$R *.dfm}

uses unit1, unit8, Unit25;

procedure TForm23.SpeedButton1Click(Sender: TObject);

begin

chart1.Series[0].Clear;

chart1.Series[1].Clear;

close

end;

procedure TForm23.SpeedButton2Click(Sender: TObject);

begin

form25.show

end;

procedure TForm23.FormShow(Sender: TObject);

begin

chart1.Series[0].Clear;

chart1.Series[1].Clear;

IBTable1.Refresh

end;

procedure TForm23.SpeedButton3Click(Sender: TObject);

Var i,min1,sr,max1,recKolKomediy1,recKolKomediy2,recKolKomediy3,RecKolMelodram1,RecKolMelodram2,RecKolMelodram3,

RecKolBoevikov1,RecKolBoevikov2,RecKolBoevikov3,RecKolUjasov1,RecKolUjasov2,RecKolUjasov3,RecKolMult1,

RecKolMult2,RecKolMult3, RecKolDoc1,RecKolDoc2,RecKolDoc3,RecKolSerialov1,RecKolSerialov2,RecKolSerialov3,

RecKolFantasi1,RecKolFantasi2,RecKolFantasi3,RecKolTrilerov1,RecKolTrilerov2,RecKolTrilerov3,RecKolHistory1,

RecKolHistory2,ReckolHistory3,RecKolMus1,RecKolMus2,recKolMus3,ReckolNauchnih1,ReckolNauchnih2,ReckolNauchnih3:integer;

SrKolMelodram1,SrKolMelodram2,SrKolMelodram3,SrKolKomediy1,SrKolKomediy2,SrKolKomediy3,

SrKolBoevikov1,SrKolBoevikov2,SrKolBoevikov3:extended;SrKolUjasov1,SrKolUjasov2,SrKolUjasov3,

SrKolMult1,SrKolMult2,SrKolMult3,SrKolDoc1,SrKolDoc2,SrKolDoc3,SrKolSerialov1,SrKolSerialov2,SrKolSerialov3,

SrKolFantasi1,SrKolFantasi2,SrKolfantasi3,SrKolTrilerov1,SrkolTrilerov2,SrKolNauchnih1,SrkolNauchnih2,

SrkolNauchnih3,SrKolTrilerov3,SrKolHistory1,

SrKolHistory2,SrKolHistory3,SrkolMus1,SrKolMus2,SrKolMus3:extended;

begin

min1:=36;sr:=50;max1:=65;

SrKolKomediy1:=0;

SrKolKomediy2:=0;

SrKolKomediy3:=0;

Prognoz.Last;//

for i:=1 to 92 do

begin

prognoz.Prior;// end;

for i:=1 to 30 do// begin

KolKomediy1:=SRKolKomediy1+Prognoz.FieldByName('KolKomediy').AsInteger;

Prognoz.Next;

end;

SrKolKomediy1:=SrKolKomediy1/30;

for i:=1 to 30 do //// begin

SRKolKomediy2:=SRKolKomediy2+Prognoz.FieldByName('KolKomediy').AsInteger;

Prognoz.Next;

end;

SrKolKomediy2:=SrKolKomediy2/30;

for i:=1 to 30 do//

begin

SRKolKomediy3:=SRKolKomediy3+Prognoz.FieldByName('KolKomediy').AsInteger;

Prognoz.Next;

end;

SrKolKomediy3:=SrKolKomediy3/30;

chart1.Series[0].AddXY(2,SRKolkomediy1,'',ClTeeColor);

chart1.Series[0].AddXY(4,SRKolkomediy2,'',ClTeeColor);

chart1.Series[0].AddXY(6,SRKolkomediy3,'',ClTeeColor);

/////////////////////////////// //////////////////////////////////

if SrKolKomediy3>sr then

begin

if SrKolKomediy2>sr then

begin

if SrKolKomediy1<sr then

begin

RecKolKomediy1:=min1;

end;

end;

end;

if SrKolKomediy3>sr then

begin

if SrKolKomediy2>sr then

begin

if SrKolKomediy1>sr then

begin

RecKolKomediy1:=min1;

end;

end;

end;

if SrKolKomediy3>sr then

begin

if SrKolKomediy2<sr then

begin

if SrKolKomediy1<sr then

begin

RecKolKomediy1:=max1;

end;

end;

end;

if SrKolKomediy3<sr then

begin

if SrKolKomediy2<sr then

begin

if SrKolKomediy1<sr then

begin

RecKolKomediy1:=min1;

end;

end;

end;

if SrKolKomediy3<sr then

begin

if SrKolKomediy2<sr then

begin

if SrKolKomediy1>sr then

begin

RecKolKomediy1:=max1;

end;

end;

end;

if SrKolKomediy3<sr then

begin

if SrKolKomediy2>sr then

begin

if SrKolKomediy1<sr then

begin

RecKolKomediy1:=min1;

end;

end;

end;

if SrKolKomediy3<sr then

begin

if SrKolKomediy2>sr then

begin

if SrKolKomediy1>sr then

begin

RecKolKomediy1:=min1;

end;

end;

end;

if ReckolKomediy1<sr then

begin

if SrKolKomediy3<sr then

begin

if SrKolKomediy2>sr then

begin

RecKolKomediy2:=max1;

end;

end;

end;

if ReckolKomediy1<sr then

begin

if SrKolKomediy3<sr then

begin

if SrKolKomediy2<sr then

begin

RecKolKomediy2:=max1;

end;

end;

end;

if ReckolKomediy1<sr then

begin

if SrKolKomediy3>sr then

begin

if SrKolKomediy2>sr then

begin

RecKolKomediy2:=min1;

end;

end;

end;

if ReckolKomediy1<sr then

begin

if SrKolKomediy3>sr then

begin

if SrKolKomediy2<sr then

begin

RecKolKomediy2:=min1;

end;

end;

end;

if ReckolKomediy1>sr then

begin

if SrKolKomediy3>sr then

begin

if SrKolKomediy2>sr then

begin

RecKolKomediy2:=max1;

end;

end;

end;

if ReckolKomediy1>sr then

begin

if SrKolKomediy3>sr then

begin

if SrKolKomediy2<sr then

begin

RecKolKomediy2:=max1;

end;

end;

end;

if ReckolKomediy1>sr then

begin

if SrKolKomediy3<sr then

begin

if SrKolKomediy2>sr then

begin

RecKolKomediy2:=max1;

end;

end;

end;

if ReckolKomediy1>sr then

begin

if SrKolKomediy3<sr then

begin

if SrKolKomediy2<sr then

begin

RecKolKomediy2:=max1;

end;

end;

end;

if ReckolKomediy2<sr then

begin

if recKolKomediy1<sr then

begin

if SrKolKomediy3<sr then

begin

RecKolKomediy3:=min1;

end;

end;

end;

if ReckolKomediy2<sr then

begin

if recKolKomediy1<sr then

begin

if SrKolKomediy3>sr then

begin

RecKolKomediy3:=min1;

end;

end;

end;

if ReckolKomediy2<sr then

begin

if recKolKomediy1>sr then

begin

if SrKolKomediy3>sr then

begin

RecKolKomediy3:=max1;

end;

end;

end;

if ReckolKomediy2<sr then

begin

if recKolKomediy1>sr then

begin

if SrKolKomediy3<sr then

begin

RecKolKomediy3:=max1;

end;

end;

end;

if ReckolKomediy2>sr then

begin

if recKolKomediy1>sr then

begin

if SrKolKomediy3>sr then

begin

RecKolKomediy3:=max1;

end;

end;

end;

if ReckolKomediy2>sr then

begin

if recKolKomediy1>sr then

begin

if SrKolKomediy3<sr then

begin

RecKolKomediy3:=min1;

end;

end;

end;

if ReckolKomediy2>sr then

begin

if recKolKomediy1<sr then

begin

if SrKolKomediy3<sr then

begin

RecKolKomediy3:=max1;

end;

end;

end;

if ReckolKomediy2>sr then

begin

if recKolKomediy1<sr then

begin

if SrKolKomediy3>sr then

begin

RecKolKomediy3:=max1;

end;

end;

end;

chart1.Series[1].AddXY(6,SrKolKomediy3,'',ClTeeColor);

chart1.Series[1].AddXY(8,RecKolKomediy1,'',ClTeeColor);

chart1.Series[1].AddXY(10,RecKolKomediy2,'',ClTeeColor);

chart1.Series[1].AddXY(12,RecKolKomediy3,'',ClTeeColor);

Приложение 2

Date: 2016-05-25; view: 1439; Нарушение авторских прав