Структура рабочей сети Internet - (диплом)
p>привязанность внимания пользователя к экрану монитора является причиной длительности неподвижности глазных и внутриглазных мышц, что приводит к их ослаблению; длительная и повышенная сосредоточенность органов зрения приводит к большим нагрузкам а, следовательно, к утомлению органов зрения, способствует возникновению близорукости, головной боли и раздраженности, нервного напряжения и стресса;

длительная привязанность внимания пользователя к экрану монитора создает дискомфортное восприятие информации, в отличие от чтения обычной печатной информации;

экран монитора является источником падающего светового потока на органы зрения пользователя, в отличие от обычной печатной информации, которая считывается за счет отраженного светового потока;

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

Мероприятия по предотвращению и уменьшению влияния вредных факторов

    Нормирование искусственного и естественного освещения.

Для снижения нагрузки на органы зрения пользователя при работе на ПЭВМ необходимо соблюдать следующие условия зрительной работы. При работе на ПЭВМ пользователь выполняет работу высокой точности, при минимальном размере объекта различения 0. 3-0. 5 мм (толщина символа на экране), разряда работы III, подразряда работы Г (экран - фон светлый символ - объект различения темным или наоборот).

Естественное боковое освещение должно составлять 2%, комбинированное искусственное освещение 400 лк при общем освещении 200 лк [3. 3. ] Основные требования к искусственному освещению в производственном помещении.

К системам производственного освещения предъявляются следующие основные требования: [2. 4. , 2. 5]

соответствие уровня освещённости рабочих мест характеру выполняемой работы достаточно равномерное распределение яркости на рабочих поверхностях и в окружающем пространстве

отсутствие резких теней, прямой и отражённой блёскости (блёскость – повышенная яркость светящихся поверхностей, вызывающая ослеплённость); оптимальная направленность излучаемого осветительными приборами светового потока.

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

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

Площадь оконных проёмов должна составлять не менее 25% площади пола. В помещении рекомендуется комбинированная система освещения с использованием люминесцентных ламп. Для проектирования местного освещения рекомендуются люминесцентные лампы, светильники которых установлены на столе или его вертикальной панели.

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

    Расчёт искусственного освещения
    Имеется помещение инженера-разработчика размером:
    длина 5 м;
    ширина 4 м;
    высота 3 м.

Потолок, пол и стены окрашены краской. Метод светового потока сводится к определению количества светильников по следующей формуле [3. 5] : N = (*Sп*К*Z) / (F* *n)

где Енорм - нормируемая минимальная освещённость на рабочем месте, лк; Енорм= 400лк;

    Sn - площадь производственного помещения, м2; S=20 м2;

К - коэффициент запаса светового потока, зависящий от степени загрязнения ламп, К=1. 4,

Z – коэффициент минимальной освещенности, для люминесцентных ламп = z = 1. 1 F – световой поток лампы, лм;

    коэффициент использования светового потока ламп;
    n – число ламп в светильнике, n = 2. 4;
    коэффициент затенения, = 0. 9
    Индекс помещения определяется по формуле:
    А и В - длина и ширина помещения, м;

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

    i = (5*4) / (2*(5+4)) = 1. 11

Коэффициенты отражения потолка и пола принимаем 0. 75 и 0. 50 соответственно. В зависимости от индекса помещения и коэффициентов отражения потолка и пола находим коэффициент использования светового потока по таблице [2. 5]

    Выбираем тип люминесцентных ламп низкого давления:
    Лампа ЛТБ-20, световой поток 975 лм;
    Лампа ЛТБ-30, световой поток 1720 лм;
    Лампа ЛТБ-40, световой поток 3000 лм.
    Подставив все значения, найдем количество светильников:

N = (400*20* 1. 4*1. 1)/(975*0. 54*2. 4*0. 9)=10. 8 = 11 шт;

    N = (400*20* 1. 4*1. 1)/(1720*0. 54*2, 4*0. 9)=6. 1 = 6 шт;
    N = (400*20*1. 4*1. 1)/(3000*0. 54*2. 4*0. 9)=3. 52 = 4 шт.
    Из трех вариантов выбираем наиболее экономичный.
    Для определения оптимального варианта надо рассчитать:
    Руд = N*F/Sn
    1. Руд = 11*975 / 20 = 536. 25
    2. Руд = 6*1720 / 20 = 516
    3. Руд = 4*3000 / 20 = 600
    Следовательно, наиболее экономичным будет вариант 2:
    ЛТБ-30, и поэтому конструктивно выбираем его.
    Рациональная планировка рабочих мест.

Для создания равномерной освещённости рабочих мест при общем освещении светильники с люминесцентными лампами встраиваются непосредственно в потолок помещения и располагается в равномерно-прямоугольном порядке. Наиболее желательное расположение светильников в непрерывный сплошной ряд вдоль длинной стороны помещения. Коэффициент наивыгоднейшего расположения светильников определяется по формуле [2. 5]:

    Lm = Lc / Hp ,

где Lm - коэффициент наивыгоднейшего расположения светильников, Lm =1. 3; Lс - расстояние между центрами светильников, м. Отсюда, Lс = l. 3*2 = 2. 6м. Число рядов светильников определяем по формуле:

    m=B/Lс, m=4/2. 6=1. 53=2.
    Число светильников в ряду определяем по формуле:
    M=N/m, М=6/2=3шт.
    Суммарная длина светильников в ряду -1св М, учитывая, что
    1св=[1л+(0. 05-0. 1)],
    где 1св - длина светильника, м ;
    1л - длина лампы, м.
    1св = 0. 909+0. 9=1 м

Отсюда расстояние между светильниками в ряду определим из следующего соотношения:

    A-1св*M
    К = , K = (5-1*3) / (3+1) = 0. 5 м
    M+1
    Схема расположения светильников приведена на рис. 3. 1.
    рис. 3. 1. Схема расположения светильников в помещении.
    1 – оконный проем; 2- светильник; 3 – рабочий стол;
    Утилизация и переработка ртути в люминесцентных лампах

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

Только в приборостроительной области количество используемых люминесцентных ламп исчисляется миллионами и через 1. 5-2 года выбрасывается на свалки. [3. 6]. В связи с этим большое практическое значение приобретает разработка и внедрение технологии извлечений дорогостоящих материалов из люминесцентных ламп после окончания срока их эксплуатации, в частности технология извлечения ртути. Разработка технологии извлечения ртути является составной частью создания ресурсосберегающей технологии и природоохранительной системы. Ртуть (Hg) имеет атомный вес 200, 59. Она мало распространена в природе: ее содержание в земной коре составляет всего 0, 000005 вес. %. Изредка ртуть встречается в самородном виде, вкрапленная в горные породы, но главным образом она находится в природе в виде сульфида ртути HgS , или киновари. Ртуть единственный металл, жидкий при обыкновенной температуре, ее плотность составляет 13, 546г/см3.

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

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

Ртуть относится к веществам первого класса опасности, а ее величина ПДК- 0, 0003 мг/м3согласно СН 245-71 т. е. ртуть является чрезвычайно опасным веществом, оказывающее пагубное влияние на окружающую среду и живой мир, Каждая лампа содержит 60, .. 120мг ртути. Примерно 100г ртути можно получить из 1000 ламп. Испарение такого количества ртути из разбитых ламп приводит к загрязнению 10 млн. м3 воздуха по ПДК.

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

В основу технологии извлечения ртути из люминесцентных ламп лежит способ демеркуризации. (рис. 3. 2)

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

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

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

Операция демеркуризации боя стекла ламп производят помещением контейнера в ванну с демеркуризационным раствором, где его выдерживают в течение 1, 5 часов. В табл 3. 1 приведены типы, химический состав и краткая характеристика демеркуризационных растворов.

    Таблица 3. 1.

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

    Тип раствора

Состав и удельный расход на одну лампу демеркуризационного раствора Состав и удельный расход на одну лампу демеркуризационного раствора Раствор №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 г

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

    Заключение

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

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

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

    Приложения
    Листинг основного файла-проекта
    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.
    Листинг созданного 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.

Модуль блокировки программы от несанкционированного доступа 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.
    Список использованных источников

Дж. Ульман, "Основы систем баз данных", М. :Финансы и статистика, 1983г. Дейт К. , "Введение в системы баз данных", М. : Hаука, 1980 г. Корячко В. П. , Курейчик В. М. , Hоренков И. П. "Теоретические основы САПР", М. : Энергоатомиздат, 1987г.

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

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

Брябрин В. М. , "Программное обеспечение персональных ЭВМ", М. :Hаука, 1989 г. Аппак М. А. , "Автоматизированные рабочие места на основе персональных ЭВМ", М. :'Радио и связь', 1989 г.

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

Шумаков П. В. “Delphi 3. 0 и создание баз данных”. Москва 1997г. Дж. Мартин. , "Организация баз данных в вычислительных системах" М: Мир 1978г. С. М. Диго "Проектирование и использования баз данных". Москва: Финансы и статистика 1995.

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

Д. Веттинг Nowell NetWare для пользователя М. :Радио и связь, 1997 С. И. Казаков Основы сетевых технологий М. :Радио и связь, 1999 Nowell NetWare 4. 02 for Lan Managers” Nowell Corp. Документация к продукту. Кириллов В. В. Структуризованный язык запросов (SQL). – СПб. : ИТМО, 1994. – 80 с. Б. Г. Голованов “ Введение в программирование в сетях 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.

Страницы: 1, 2, 3, 4, 5, 6, 7, 8, 9, 10



Реклама
В соцсетях
рефераты скачать рефераты скачать рефераты скачать рефераты скачать рефераты скачать рефераты скачать рефераты скачать