Ламп.Испарение такого количества ртути из разбитых ламп приводит к

1000 ламп.Испарение такого количества ртути из разбитых ламп приводит к

загрязнению 10 млн.м3 воздуха по ПДК.

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

Отделение по извлечению ртути из люминесцентных ламп может располагаться на

территориипредприятия по изготовлению ламп или на предприятии любой отрасли, где

эксплуатируется большое количество люминесцентных ламп

В основу технологии извлечения ртути из люминесцентных ламп лежит способ

демеркуризации.(рис.3.2)

Демеркуризация боя ламп в ванне с раствором в течении 1.5 часа

Рис 3.2 Схема демеркуризации люминесцентных ламп

Операция дробления ламп осуществляется в барабане, при вращении лопастей

которогопроисходит измельчение стекла ламп.

Операция погрузки в контейнер осуществляется перемещением боя стекла ламп и

арматуры пожелобу.

Операция демеркуризации боя стекла ламп производят помещением контейнера в ванну

сдемеркуризационным раствором, где его выдерживают в течение 1,5 часов.

В табл 3.1 приведены типы, химический состав и краткая характеристика

демеркуризационныхрастворов.

Таблица 3.1.

3.3.5Химический состав и удельный расход демеркуризационныхрастворов

Тип раствора Состав и удельный расход на одну лампу демеркуризационного

раствора Состав и удельный расход на одну лампу демеркуризационного

раствора

Раствор №1, Температура Раствора 280° Перманганат калия Ктп04-0.00025г/л

Соляная кислота НС1 -0,000125г/л Техническая вода-0,0375г/л Ионы в

перечете на металлическую ртуть: KMn04-0.5* 10г/л НС1-0.25* 10г/л

Раствор №2, Температура Раствора 28° Хлорное железо Fed * 6Н20 - 0.0025г/л

Карбонат кальция СаСОз-0,0015г/л Техническая вода -0,0375 г/л Ионы в

пересчете на металлическую ртуть: Fed * 6Н2О - 0.25 * 10г/л, СаСОз -3.75*

10г/л

Операция установки контейнера на лотке преследует цель стока

демеркуризационногораствора.

Операция сбора демеркуризационного раствора производится в приемный бак емкостью

1,6м3.

Операция перекачки отработанного раствора производится насосом в ионообменный

фильтр ссульфоуглем типа ККУ-2, предварительно прошедшем регенерацию раствором

СаСОз.

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

сульфоуглем, которое производится один раз в два года.

Наряду с основными операциями имеются дополнительные.

Отработанныйдемеркуризационный раствор может быть направлен в бак емкостью 1,6м3

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

системыхозяйственно-фекальной канализации предприятия.

Массу подвергают обработке (отделению металлической арматуры от боя стекла).

Бой стекла ламп направляют для переработки на предприятие по производству ламп

или напредприятие стеклянных изделий.

Металлическую арматуру направляют для переплава на

машиностроительные и металлургические предприятия.

Общее количество ртути, которое может быть извлечено при демеркуризации

люминесцентных ламп определяют поформуле:

М = m * N,

где М - общее количество ртути, которое может быть извлечено из люминесцентных

ламп.

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

Количество ртути в одной люминесцентной лампе - 0,05-0,12г.

После подстановки известных значений получаем :

M = 0.12 * 12 = 1.44 г

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

созданиюприродоохранной системы.

Заключение

В разделе «Безопасность жизнедеятельности» проведен анализ вредных факторов,

оказывающихвлияние на органы зрения пользователя ПЭВМ.

Сформированы общие требования к помещению и произведен расчет искусственного

освещения.

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

производственном помещении.

4 Приложения

4.1.1Листингосновного файла-проекта

program deports;

uses

Forms,

sysutils,

mainform in 'mainform.pas' {form1},

PasswordsDB in '..\library\PasswordsDB.pas' {Passwords_: TDataModule},

PasswordChange in '..\library\PasswordChange.pas' {PasswordChange_},

Login in '..\library\Login.pas' {Login_},

NEUser in '..\library\NEUser.pas' {NEUser_},

Variables in '..\library\Variables.pas',

utils in '..\library\utils.pas',

keygenDB in '..\library\keygenDB.pas' {keygen_: TDataModule},

JornalDB in '..\library\JornalDB.pas' {Jornal_: TDataModule},

ViewJornal in '..\library\ViewJornal.pas' {ViewJornal_},

BureausDB in '..\library\BureausDB.pas' {Bureaus_: TDataModule},

viewBureaus in '..\library\viewBureaus.pas' {ViewBureaus_},

NewBureau in '..\library\NewBureau.pas' {NewBureau_},

MainBD in '..\library\MainBD.pas' {MainDB: TDataModule},

mailer in '..\library\mailer.pas' {Mailer_},

UsersMonitor in '..\library\UsersMonitor.pas' {UsersMonitor_},

educationDB in '..\library\educationDB.pas' {edu_: TDataModule},

ViewEdu in '..\library\viewedu.pas' {ViewEdu_},

NewEdu in '..\library\Newedu.pas' {Newedu_},

InstitutesDB in '..\library\InstitutesDB.pas' {Institutes_: TDataModule},

ViewInstitutes in '..\library\viewInstitutes.pas' {ViewInstitutes_},

NewInstitute in '..\library\NewInstitute.pas' {NewInstitute_},

DipSpcDB in '..\library\DipSpcDB.pas' {DipSpc_: TDataModule},

ViewDipSpc in '..\library\viewDipSpc.pas' {ViewDipSpc_},

NewDipSpc in '..\library\NewDipSpc.pas' {NewDipSpc_},

qualifDB in '..\library\QualifDB.pas' {qualif_: TDataModule},

Viewqualif in '..\library\viewQualif.pas' {Viewqualif_},

Newqualif in '..\library\NewQualif.pas' {Newqualif_},

WkSpcDB in '..\library\wkSpcDB.pas' {WkSpc_: TDataModule},

ViewWkSpc in '..\library\viewwkSpc.pas' {ViewWkSpc_},

NewWkSpc in '..\library\NewwkSpc.pas' {NewWkSpc_},

ITRSpcDB in '..\library\ITRSpcDB.pas' {ITRSpc_: TDataModule},

ViewITRSpc in '..\library\viewITRSpc.pas' {ViewITRSpc_},

NewITRSpc in '..\library\NewITRSpc.pas' {NewITRSpc_},

AroundsDB in '..\library\AroundsDB.pas' {Arounds_: TDataModule},

ViewArounds in '..\library\viewArounds.pas' {ViewArounds_},

NewAround in '..\library\NewAround.pas' {NewAround_},

NewStreet in '..\library\Newstreet.pas' {NewStreet_},

WarBursDB in '..\library\WarBursDB.pas' {WarBurs_: TDataModule},

ViewWarBurs in '..\library\viewWarBurs.pas' {ViewWarBurs_},

NewWarBur in '..\library\NewWarBur.pas' {NewWarBur_},

WarGrpsDB in '..\library\WarGrpsDB.pas' {WarGrps_: TDataModule},

ViewWarGrps in '..\library\viewWarGrps.pas' {ViewWarGrps_},

NewWarGrp in '..\library\newWarGrp.pas' {NewWarGrp_},

ContsDB in '..\library\ContsDB.pas' {Conts_: TDataModule},

ViewConts in '..\library\viewConts.pas' {ViewConts_},

NewCont in '..\library\NewCont.pas' {NewCont_},

NewWarName in '..\library\NewWarName.pas' {NewWarName_},

NeedDB in '..\library\NeedDB.pas' {Needs_: TDataModule},

ViewQuestions in '..\library\viewQuestions.pas' {ViewQuestions_},

NewQuestion in '..\library\NewQuestion.pas' {NewQuestion_},

Answer in '..\library\Answer.pas' {Answer_},

NationsDB in '..\library\NationsDB.pas' {Nations_: TDataModule},

ViewNations in '..\library\viewNations.pas' {ViewNations_},

NewNation in '..\library\NewNation.pas' {NewNation_},

CountrysDB in '..\library\CountrysDB.pas' {Countrys_: TDataModule},

viewCountrys in '..\library\viewCountrys.pas' {ViewCountrys_},

NewCountry in '..\library\NewCountry.pas' {NewCountry_},

FamalysDB in '..\library\FamalysDB.pas' {Famalys_: TDataModule},

ViewFamalys in '..\library\viewFamalys.pas' {ViewFamalys_},

NewFamaly in '..\library\NewFamaly.pas' {NewFamaly_},

ViewExcesses in '..\library\viewExcesses.pas' {ViewExcesses_},

ExcessesDB in '..\library\ExcessesDB.pas' {Excesses_: TDataModule},

NewExcess in '..\library\NewExcess.pas' {NewExcess_},

MeedsDB in '..\library\MeedsDB.pas' {Meeds_: TDataModule},

ViewMeeds in '..\library\viewMeeds.pas' {ViewMeeds_},

NewMeed in '..\library\NewMeed.pas' {NewMeed_},

emeritusDB in '..\library\emeritusDB.pas' {emeritus_: TDataModule},

viewemeritus in '..\library\viewemeritus.pas' {Viewemeritus_},

Newemeritus in '..\library\Newemeritus.pas' {Newemeritus_},

CardsDB in 'CardsDB.pas' {Cards_: TDataModule},

LoadLed in '..\library\LoadLed.pas' {LoadLed_},

ViewCards in 'viewcards.pas' {ViewCards_},

ViewCard in 'viewcard.pas' {ViewCard_},

NewChild in 'Newchild.pas' {NewChild_},

NewCardsEdu in 'newcardsedu.pas' {NewCardsEdu_},

NewWorkMove in 'Newworkmove.pas' {NewWorkMove_},

NewcommonWork in 'Newcommonwork.pas' {NewcommonWork_},

lockScreen_ in 'lockScreen_.pas' {lockScreen__},

Newleaf in 'Newleaf.pas' {Newleaf_},

NewPunishment in 'Newpunishment.pas' {NewPunishment_},

DisPunishment in 'Dispunishment.pas' {DisPunishment_},

 NewOutCountry in 'NewOutCountry.pas' {NewOutCountry_},

Newplantmeed in 'Newplantmeed.pas' {Newplantmeed_},

Newcardmeed in 'Newcardmeed.pas' {Newcardmeed_},

search in 'search.pas' {Search_},

Newcardemeritus in 'Newcardemeritus.pas' {Newcardemeritus_},

MainTable in 'MainTable.pas' {MainTable_: TQuickRep},

PRNTitle in 'PRNTitle.pas' {PRNTitle_},

cards_Main in 'cards_Main.pas' {cards_main_: TQuickRep},

MainPFTable in 'MainPFTable.pas' {MainPFTable_: TQuickRep},

viewcdpf in 'viewcdpf.pas' {viewcdpf_},

viewcdedu in 'viewcdedu.pas' {viewcdedu_},

Statedu in 'Statedu.pas' {StatEdu_},

MaineduTable in 'MaineduTable.pas' {MaineduTable_: TQuickRep},

Statqual in 'Statqual.pas' {Statqual_},

viewcdqual in 'viewcdqual.pas' {viewcdqual_},

MainqualTable in 'MainqualTable.pas' {MainqualTable_: TQuickRep},

StatAround in 'Stataround.pas' {StatAround_},

Statbur in 'Statbur.pas' {Statbur_},

s13_thpayment in 's13_thpayment.pas' {s13_thpayment_: TQuickRep},

PRNSTG13 in 'PRNSTG13.pas' {PRNSTG13_},

viewWarNames in '..\library\viewWarNames.pas' {ViewWarNames_},

megastat in 'megastat.pas' {megaStat_},

MaininvalTable in 'MaininvalTable.pas' {MaininvalTable_: TQuickRep},

viewcdinval in 'viewcdinval.pas' {viewcdinval_},

viewarchive in 'viewarchive.pas' {viewarchive_},

wait in 'wait.pas' {Wait_},

setingsdb in '..\library\setingsdb.pas' {Setings_: TDataModule},

s14_thpayment in 's14_thpayment.pas' {s14_thpayment_: TQuickRep},

Warreport in 'Warreport.pas' {WarReport_: TQuickRep},

MedTable in 'MedTable.pas' {MedTable_: TQuickRep},

helper in '..\library\helper.pas' {Form2};

{$R *.RES}

begin

Application.Initialize;

Application.CreateForm(Tform1, form1);

Application.Run;

end.

4.1.2Листинг созданного VCL-компонента.

unit DBSearchEdit;

interface

uses

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

DBTables,

DB,stdctrls;

type

TDBSearchEdit = class(TEdit)

procedure onchange_ (sender : TObject);

procedure onkeypress_ (Sender: TObject; var Key: Char);

private

needsearch_ : boolean;

table1_ : Ttable;

keyFieldName_,textFieldName_ : TField;

indexname_ : string;

onchange2 : tnotifyevent;

srch,ch : integer;

onkeypress2 : TKeyPressEvent;

{ Private declarations }

protected

{ Protected declarations }

public

constructor Loaded;

constructor Create(aOwner: TComponent); override;

destructor destroy;

{ Public declarations }

published

property needsearch : boolean read needsearch_ write needsearch_;

property Dataset : Ttable read table1_ write table1_;

property KeyFieldName : TField read keyfieldname_ write keyfieldname_;

property TextFieldName : TField read textfieldname_ write textfieldname_;

property indexname : string read indexname_ write indexname_;

property newonkeypress : TKeyPressEvent read onkeypress2 write onkeypress2;

property newonchange : TNotifyEvent read onchange2 write onchange2;

{ Published declarations }

end;

procedure Register;

implementation

function compress(s : shortstring):shortstring;

var

s2 : shortstring;

x : integer;

begin

s2 :='';

for x:=1 to length(s) do if s[x]<>' ' then s2:=s2+s[x];

s2:=s2+#0;

s2:=ansistrupper(@s2[1]);

compress:=s2;

end;

constructor TDBSearchEdit.Loaded;

begin

inherited loaded;

end;

procedure TDBSearchEdit.onchange_(sender : tobject);

var

s1,s : shortstring;

poz : integer;

begin

if srch=0 then exit;

srch:=0;

if ch=1 then exit;

ch:=1;

if assigned(onchange2) then onchange2(sender);

if not TDBSearchEdit(sender).needsearch_ then exit;

try

s1:=table1_.Indexname;

table1_.indexname:=indexname_;

s:=compress(TDBSearchEdit(sender).text);

table1_.findnearest([s]);

if pos(s,table1_.fieldbyname(keyfieldname_.fieldname).asstring)=1 then

begin

poz:=length(TDBSearchEdit(sender).text);

TDBSearchEdit(sender).text:=Table1_.fieldbyname(textfieldname_.fieldname).asstring;

TDBSearchEdit(sender).perform(em_setsel,poz,length(TDBSearchEdit(sender).text));

end

else begin beep; beep; beep; beep; beep; beep; end;

finally

try

ch:=0;

table1_.indexname:=s1

except

end;

end;

end;

procedure TDBSearchEdit.onkeypress_(Sender: TObject; var Key: Char);

begin

if assigned(onkeypress2) then onkeypress2(sender,key);

if key<>#8 then srch:=1;

end;

constructor TDBSearchEdit.Create(aOwner: TComponent);

begin

inherited create(aOwner);

needsearch:=true;

onchange:=onchange_;

onkeypress:=onkeypress_;

end;

destructor TDBSearchEdit.destroy;

begin

inherited destroy;

end;

procedure Register;

begin

RegisterComponents('Diplom',[TDBSearchEdit]);

end;

end.

4.1.3Модульблокировки программы от несанкционированного доступа

unit lockScreen_;

interface

uses

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

StdCtrls, ExtCtrls,variables;

type

TlockScreen__ = class(TForm)

Panel1: TPanel;

Label1: TLabel;

Edit1: TEdit;

procedure Edit1KeyPress(Sender: TObject; var Key: Char);

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

procedure FormCreate(Sender: TObject);

procedure FormResize(Sender: TObject);

procedure WNDPROC(var m : tmessage); override;

private

canclose : integer;

{ Private declarations }

public

{ Public declarations }

end;

var

lockScreen__: TlockScreen__;

implementation

{$R *.DFM}

procedure TlockScreen__.WNDPROC(var m : tmessage);

begin

inherited wndproc(m);

end;

procedure TlockScreen__.Edit1KeyPress(Sender: TObject; var Key: Char);

begin

if key=#13 then

begin

if edit1.text=password__ then

begin

canclose:=1;

close;

end else edit1.text:='';

end;

end;

procedure TlockScreen__.FormClose(Sender: TObject;

var Action: TCloseAction);

begin

if canclose=1 then action:=cafree else action:=canone;

end;

procedure TlockScreen__.FormCreate(Sender: TObject);

begin

canclose:=0;

end;

procedure TlockScreen__.FormResize(Sender: TObject);

begin

panel1.left:=(clientwidth-panel1.width) div 2;

panel1.top:=(clientheight-panel1.height) div 2;

end;

end.

5 Список использованных источников

1.1 Дж.Ульман, "Основы систем баз данных", М.:Финансы и статистика,1983г.

1.2 Дейт К., "Введение в системы баз данных", М.: Hаука, 1980 г.

1.3 Корячко В.П., Курейчик В.М., Hоренков И.П. "Теоретические основы САПР", М.:

Энергоатомиздат, 1987г.

1.4 Когаловский М.Р., "Технология баз данных на персональных ЭВМ",

М.:Финансы и статистика, 1992 г.

1.5 А.H.Hаумов, А.М.Вендров и др., "Системы управления базами данных и знаний",

М.:Финансы и статистика, 1991г.

1.6 Брябрин В.М., "Программное обеспечение персональных ЭВМ", М.:Hаука, 1989 г.

1.7 Аппак М.А., "Автоматизированные рабочие места на основе персональных

ЭВМ", М.:'Радио и связь', 1989 г.

1.8 Крайзмер Л.П., Кулик Б.А., "Персональный компьютер на вашем рабочем месте",

'Лениздат', 1991 г.

1.9 Шумаков П. В. “Delphi 3.0 и создание баз данных”. Москва 1997г.

1.10 Дж. Мартин., "Организация баз данных в вычислительных системах" М: Мир

1978г.

1.11 С.М.Диго "Проектирование и использования баз данных". Москва: Финансы и

статистика 1995.

1.12 A.M.Епанешников., "Программирование в среде Delphi 2.0"

1.13 Д.Веттинг Nowell NetWare для пользователя М.:Радио и связь, 1997

1.14 С.И.Казаков Основы сетевых технологий М.:Радио и связь, 1999

1.15 Nowell NetWare 4.02 for Lan Managers” Nowell Corp. Документация к

продукту.

1.16 Кириллов В.В. Структуризованный язык запросов (SQL). – СПб.: ИТМО, 1994. –

80 с.

1.17 Б.Г. Голованов “ Введение в программирование в сетях Nowell NetWare

С-П.: Питер, 2000.

3.1 ГОСТ 12.0.003-74. ССБТ Опасные и вредные факторы.Классификация.

3.2 Шумилин В.К., Гетия И.Г. Охрана труда при работе на ПЭВМ

и ЭВМ. Учебное пособие (часть 1).- М.: МИП, 1994г.

3.3 СНиП23-05-95. Естественное и искусственное освещение.

Нормы проектирования.

3.4 СанПиН 2.2.2 542-96 Санитарные правила и нормы. Гигиенические

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

электронно-вычислительным машинам и организации работ.

3.5.И.Г.Гетия, И.Н.Леонтьева, Е.Н.Кулемина. Учебное пособие. Проектирование

вентиляциии кондиционирование воздуха, искусственного и естественного освещения

в помещении ВЦ (спец.01.02; 21.01;21.03;21.06; 22.01; 22.03;

23.03)-М:МГАПИ,1995.

3.6 И.Г. Гетия, В.К. Шумилин, И.Н. Леонтьева и др. Экология компьютерной

техники: - М.:МГАПИ,1996.