|
|
Рекомендации по уменьшению воздействия опасных и вредных факторов на человека и окружающую среду. ⇐ ПредыдущаяСтр 8 из 8
При проектировании осветительных установок необходимы, соблюдения нормы и правила, определить потребности в осветительных приборах, установочных материалах и конструкциях, а также в электроэнергии. Обычно проект состоит из 4 частей: светотехнической, электрической, конструктивной и сметно-финансовой. Светотехническая часть предполагает: - ознакомление с объектом проектирования - выбор системы освещения, определяемый требованиями к качеству освещения и экономичности осветительной установки - выбор источника света - определение норм освещенности и других нормативных параметров освещения для данного вида работ в соответствии с точностью работ, системой освещения и выбранными источниками света - выбор осветительного прибора, регламентируемый его конструктивными использованием по условиям среды - выбор высоты подвеса светильников, осуществляемый, как правило, совместно с выбором варианта их размещения и определяемый в основном наивыгоднейшим отношением, а также условиями ослепительности. После выбора основных параметров осветительной установки проектируют к светотехническим расчетам. Методы и средства борьбы с шумом принято подразделять на: методы снижения шума в источнике его образования; средства защиты от шума. Средства борьбы с шумом в зависимости от числа лиц, для которых они предназначены, подразделяются на средства индивидуальной защиты и на средства коллективной защиты. В зависимости от способа реализации средства коллективной защиты могут быть акустическими, архетиктурно-планировочными и организационно-техническими. В зависимости от принципа действия акустические средства борьбы с шумом подразделяются на средства звукоизоляции, звукопоглощения, виброизоляции, вибродемпфирования. Снижения шума источники достигаются путем его конструктивных изменений. Это обеспечивается заменой возвратно поступательного перемещения деталей вращательным; заменой ударных процессов безударными; повышением качества балансировки вращающихся деталей и классов точности изготовление деталей; улучшением смазки и класса частоты трущихся поверхностей; заменой материала, а также зубчатых передач клиноременными и гидравлическими; изменением конфигурации быстровращающихся и т.д. Снижение шума на пути его распространения от источника в значительной степени достигается проведением строительно-акустических мероприятий. Методы снижения шума на пути его распространения реализуются применением кожухов, экранов, кабин наблюдения (при дистанционном управлении), звукоизолирующих перегородок между помещениями, звукопоглощающих облицовок, глушителей шума. Проблема защиты от неблагоприятного действия шума стала международной и находится в центре внимания многих общественных организации и частных инстанции. Транспортные средства трамвайные пути, технологическое оборудование в целях снижения шума при их эксплуатации должны быть приведены в надлежащее состояние. В ночное время следует сократить, а по возможности запретить выполнение на улицах и Вов дворах различных работ, шум от которых превышает предельно допустимые нормы. Необходимо принять меры к снижению шума от железных дорого и речного транспорта, а диспетчерская связь осуществлять по радио. Спортивные площадки должны быть хорошо озеленены, что уменьшит шум в жилых микрорайонах. Древесные культуры способны изолировать шум. Доказано, что наивысшее звукоизолирующие способностью обладают зеленые перегородки из клена (до 15 дБ снижает уровень шума), далее располагается тополь (до 11 дБ), липа (до 9 дБ), ель (5 дБ). В целом в городских, где распространению и усилению шума способствуют здание и асфальтовое покрытие дорог и тротуаров, зеленые насаждения при их правильной планировки и размещения способных снизить уровень шума до 15 дБ, а наибольшая оптимальная ширина протвошумной зеленой полосы 20-25 м. Для выполнения названных мероприятии имеются все социальные условия, многие города и населенные пункты пока строятся, формируются или расширяются за счет микрорайонов и урбанизация их еще находится в начальной стадии. Шуму должна быть объявлена настоящая война во всех сферах жизни. Необходимо создать здоровую акустическую среду. Шум – не меньший враг для здоровья человека, чем загазованный воздух, загрязненные вода и почва. Для снижения воздействия вредных выбросов на окружающую среду большое значение имеют планировочные мероприятия, позволяющие при постоянстве валовых выбросов снизить воздействие загрязненного воздуха на человека. Особое внимание следует выделять выбору площадки для промышленного предприятия и взаимному расположению производственных зданий и жилых массивов. 1. Промышленное предприятие должно быть расположено на ровном, возвышенном хорошо продуваемом ветром месте. Площадка жилой застройки не должна быть выше промышленной площадки предприятия, т.к. в противном случае преимущество высоких труб, обеспечивающих рассеивание выбросов практически сводится на нет.
2. Взаимное расположение предприятий и жилых массивов определяется по розе ветров теплого периода года. Целесообразно располагать промышленные предприятия, выделяющие вредные вещества, за чертой населенных пунктов, с подветренной стороны от жилых массивов, чтобы выбросы предприятия сносило ветром в противоположную сторону.
3. Цеха, выделяющие наибольшее количество вредных веществ, следует располагать на краю производственных территорий со стороны, противоположной жилому массиву.
4. Взаимное расположение цехов предприятия должно быть таким, чтобы при направлении ветра в сторону жилых массивов их выбросы не объединялись.
Для защиты населения от вредного воздействия вредных веществ, предприятия отделяют от жилой застройки санитарно-защитными зонами (СЗЗ). СЗЗ – это территория, отводимая предприятию для защиты населения от вредных и неприятно пахнущих веществ, за границами которой должно выполняться неравенство: С + Сф ≤ ПДКмр (4.2.2) Размеры СЗЗ устанавливаются в зависимости от мощности предприятия, условия осуществления технологического процесса, количества и класса опасности выделяющихся вредных веществ. Для ослабления влияния загрязнений территория СЗЗ должна быть благоустроена и озеленена газоустойчивыми породами деревьев и кустарников. Со стороны жилого массива ширина полосы озеленения должна быть не менее 50 м, а при нормативном размере СЗЗ до ста метров не менее двадцати метров. При эксплуатации транспорта в атмосферу выделяются оксид углерода СО, углеводороды СН, оксиды азота NO2 и свинец. При этом автотранспорт является главным поставщиком свинца в атмосферу. При работе тепловозов в атмосферу выделяются и нормируются оксид серы SO2, оксиды азота NO2 , оксид углерода СО и сажа. Меры по снижению загрязнения атмосферы транспортом: 1. Градостроительные мероприятия: озеленение дорог, транспортные развязки, оьъездные дороги; 2. Автоматизирование системы управления транспортным потоком. Включает в себя десятки тысяч датчиков, смонтированные в полотно дороги – ЭВМ, в программу которой заложено время года, суток, погодные условия – светофоры и знаки переменной символики; 3. Регулировка двигателей; 4. Использование различных присадок; 5. Нейтрализация выбросов. Различают нейтрализаторы коталективного действия, активизирующие окисление углеводородов и разложение NO2. Пламенные нейтрализаторы – дожигание газов в открытом пламени. Термически нейтрализаторы – окисление продуктов горения путем введения в систему избытка воздуха. Жидкостные нейтрализаторы – связывание продуктов горения жидкими реагентами. 6. Совершенствование конструкции двигателя. 7.
Выполнить расчет освещения рабочего помещения Решение: 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) Примем свес светильника hc=0.8м. Тогда высота подвеса светильника hp=H-hc=3,5-0,8=2,7 м. Используя метод интерполяции, определим расстояние d от светильника до контрольной точки- d=2,5м. Максимальное расстояние между светильниками не должно превышать 2d=5м. Общее количество светильников для большего отрезка помещении определим, исходя из его длины nc==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   Что делает отдел по эксплуатации и сопровождению ИС? Отвечает за сохранность данных (расписания копирования, копирование и пр.)...  Что способствует осуществлению желаний? Стопроцентная, непоколебимая уверенность в своем...  ЧТО И КАК ПИСАЛИ О МОДЕ В ЖУРНАЛАХ НАЧАЛА XX ВЕКА Первый номер журнала «Аполлон» за 1909 г. начинался, по сути, с программного заявления редакции журнала...  ЧТО ПРОИСХОДИТ, КОГДА МЫ ССОРИМСЯ Не понимая различий, существующих между мужчинами и женщинами, очень легко довести дело до ссоры... Не нашли то, что искали? Воспользуйтесь поиском гугл на сайте:
|
5.4 Расчетная часть.