Реферат: Структура рабочей сети Internet

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

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

освещения.

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

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

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.