Просмтор этого файла доступен только зарегистрированным пользователям. Но у нас супер быстрая регистрация: достаточно только электронной почты!

Текст из файла (страница 15)

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

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

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

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

M = 0.12 * 12 = 1.44 г

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

2. Заключение

В разделе «Безопасность жизнедеятельности» проведен анализ вредных факторов, оказывающих влияние на органы зрения пользователя ПЭВМ.

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

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

2. Приложения

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.

1. Листинг созданного 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.

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

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;

Характеристики

Список файлов ВКР