Разработка электронного пособия

3. Требования электробезопасности

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

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

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

2. Во избежание повреждения изоляции проводов и возникновения коротких замыканий не разрешается:

1. вешать что-либо на провода;

2. закрашивать и белить шнуры и провода;

3. закладывать провода и шнуры за газовые и водопроводные трубы, за батареи отопительной системы;

4. выдергивать штепсельную вилку из розетки за шнур, усилие должно быть приложено к корпусу вилки.

3. Для исключения поражения электрическим током запрещается:

1. часто включать и выключать компьютер без необходимости;

2. прикасаться к экрану и к тыльной стороне блоков компьютера;

3. работать на средствах вычислительной техники и периферийном оборудовании мокрыми руками;

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

5. класть на средства вычислительной техники и периферийное оборудование посторонние предметы.

3. Запрещается под напряжением очищать от пыли и загрязнения электрооборудование.

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

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

6. Недопустимо под напряжением проводить ремонт средств вычислительной техники и периферийного оборудования.

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

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

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

10. Спасение пострадавшего при поражении электрическим током главным образом зависит от быстроты освобождения его от действия током.

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

4. Требования по обеспечению пожарной безопасности

На рабочем месте запрещается иметь огнеопасные вещества

В помещениях запрещается:

1. зажигать огонь;

2. включать электрооборудование, если в помещении пахнет газом;

3. курить;

4. сушить что-либо на отопительных приборах;

5. закрывать вентиляционные отверстия в электроаппаратуре.

Источниками воспламенения являются:

1. искра при разряде статического электричества;

2. искры от электрооборудования;

3. искры от удара и трения;

4. открытое пламя.

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

Помещения с электрооборудованием должны быть оснащены огнетушителями типа ОУ-2 или ОУБ-3.

4. Система гигиенических требований.

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

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

5. Требования к видеосистеме.

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

1. Монитор компьютера должен удовлетворять следующим между народным стандартам безопасности:

· по уровню электромагнитных излучений -- ТСО 03;

· по параметрам качества изображения (яркость, контрастность, мерцание, антибликовые свойства и др. ) -- ТСО 06.

Узнать о соответствии конкретной модели данным стандартам можно в сопроводительной документации. Для работы с мониторами, удовлетворяющими данным стандартам, специальные защитные экраны не требуется.

2. На рабочем месте монитор должен устанавливаться таким образом, чтобы исключить возможность отражения от его экрана в сторону пользователя источников общего освещения помещения.

3. Расстояние от экрана монитора до глаз пользователя должно составлять от 50 до 70 см. Не надо стремиться отодвинуть монитор как можно дальше от глаз, опасаясь вредных излучений (по бытовому опыту общения с телевизором), потому что для глаза важен также угол обзора наиболее характерных объектов. Оптимально, размещение монитора на расстоянии 1,5 D от глаз пользователя, где D -- размер экрана монитора, измеренный по диагонали. Сравните эту рекомендацию с величиной 3...5 D, рекомендованной для бытовых телевизоров, и сопоставьте размеры символов на экране монитора (наиболее характерный объект, требующий концентрации внимания) с размерами объектов, характерных для телевидения (изображения людей, сооружений, объектов природы). Завышенное расстояния от глаз до монитора приводит к дополнительному напряжению органов зрения, сказывается на затруднении перехода от работы с монитором к работе с книгой и проявляется в преждевременном развитии дальнозоркости.

4. Важным параметром является частота кадров, которая зависит от свойств монитора, видеоадаптера и программных настроек видеосистемы. Для работы с текстами минимально допустима частота кадров 72 Гц. Для работы с графикой рекомендуется частота кадров от 85 Гц и выше.

6. Требования к рабочему месту.

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

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

Рисунок 14 Правильная и неправильная установка монитора

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

Рисунок 15 Правильное посадочное место

3. Если при правильной установке монитора относительно уровня глаз выясняется, что ноги пользователя не могут свободно покоиться на полу, следует установить подставку для ног, желательно наклонную. Если ноги не имеют надежной опоры, это непременно ведет к нарушению осанки и утомлению позвоночника. Удобно, когда компьютерная мебель (стол и рабочее кресло) имеют средства для регулировки по высоте. В этом случае проще добиться оптимального положения.

4. Клавиатура должна быть расположена на такой высоте, чтобы пальцы рук располагались на ней свободно, без напряжения, а угол между плечом и предплечьем составлял 100° -- 110°. При использовании обычных письменных столов добиться одновременно правильного " положения и монитора, и клавиатуры практически невозможно. Для работы рекомендуется использовать специальные компьютерные столы, имеющие выдвижные полочки для клавиатуры.

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

Рисунок 16 Правильная посадка за компьютером

5. При длительной работе с клавиатурой возможно утомление сухожилий кистевого сустава. Известно тяжелое профессиональное заболевание -- кистевой туннельный синдром, связанное с неправильным положением рук на клавиатуре. Во избежание чрезмерных нагрузок на кисть желательно предоставить рабочее кресло с подлокотниками, уровень высоты которых, замеренный от пола, совпадает с уровнем высоты расположения клавиатуры.

6. При работе с мышью рука не должна находиться на весу. Локоть руки или хотя бы запястье должны иметь твердую опору. Если предусмотреть необходимое расположение рабочего стола и кресла затруднительно, рекомендуется применить коврик для мыши, имеющий специальный опорный валик. Нередки случаи, когда в поисках опоры для руки (обычно правой) располагают монитор сбоку от пользователя (соответственно, слева), чтобы он работал вполоборота, опирая локоть или запястье правой руки о стол. Этот прием недопустим. Монитор должен обязательно находиться прямо перед пользователем.

7. Требования к организации занятий.

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

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

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

Рисунок 17 Правильная и неправильная расстановка компьютеров в аудитории

Заключение

По результатам разработки электронного пособия по дисциплине «Компьютерные сети» было разработано следующее:

1. Теоретический раздел пособия с вопросами для самоконтроля;

2. Глоссарий.

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

Электронное пособие может использоваться как на аудиторных занятиях преподавателем, так и в домашних условиях. В пособии излагается весь курс дисциплины «Компьютерные сети», который необходимо знать студентам специальности 230103 «Автоматизированный системы обработки информации и управления» (по отраслям).

Список используемых источников

1. Разработка и эксплуатация автоматизированных информационных систем: учеб. пособие / Под ред. проф. Л. Г. Гагариной. М.: ИД «ФОРУМ»: ИНФРА-М, 2009. 384 с: ил.

2. Проектирование информационных систем на железнодорожном транспорте: Учебник для вузов ж.-д. Транспорта / Э.К. Лецкий, З.А. Крепкая, И.В. Маркова и др.; Под редакцией Э.К. Лецкого. М.: Маршрут, 2003. 408 с.

3. Гвоздева В.А., Лаврентьева И.Ю. Основы построения автоматизированных информационных систем: учебник.-М.:ИД «ФОРУМ»: ИНФРА-М, 2009. 320 с.:ил.

4. Технология разработки программных продуктов: учеб. Пособие для студ. Проф.образования /А.В. Рудаков.-4-е изд., стер. М.: Издательский центр «Академия», 2008. 208 с.

5. Одинцов И.О. Профессиональное программирование. Системный подход. СПб.: БХВ-Петербург, 2012. 512 с.:ил.

6. Программное обеспечение: учебное пособие/О.Л. Голицина, Т.Л. Партыка, И.И. Попов. 3-е изд., перераб. И доп. М.: ФОРУМ, 2010 448 с.: ил.

7. Компьютерные сети: Учебное пособие. М.: ФОРУМ: ИНФАР-М, 2010. - 336 с.: ил -- (Серия «Профессиональное образование»).

8. Одинцов И.О. Профессиональное программирование. Системный подход. Спб.: БХВ- Петербург, 2012. 512 стр.:ил.

9. http://www.delphisources.ru - Сайт с документацией по Delphi.

10. http://www.delphiexpert.ru - Сайт с компонентами и документацией по Delphi.

Приложение

Листинг программы

Код главного окна пособия

unit glavnaya;

interface

uses

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

Dialogs, StdCtrls, AdvGlowButton, jpeg, ExtCtrls;

type

TForm1 = class(TForm)

Image1: TImage;

AdvGlowButton1: TAdvGlowButton;

AdvGlowButton2: TAdvGlowButton;

AdvGlowButton3: TAdvGlowButton;

AdvGlowButton4: TAdvGlowButton;

AdvGlowButton5: TAdvGlowButton;

Label1: TLabel;

Label2: TLabel;

procedure AdvGlowButton1Click(Sender: TObject);

procedure AdvGlowButton5Click(Sender: TObject);

procedure AdvGlowButton2Click(Sender: TObject);

procedure AdvGlowButton4Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form1: TForm1;

implementation

uses glossary, teoriya, Unit4;

{$R *.dfm}

procedure TForm1.AdvGlowButton1Click(Sender: TObject);

begin

Close;

end;

procedure TForm1.AdvGlowButton5Click(Sender: TObject);

begin

Form2.Show;

Form1.Hide;

end;

procedure TForm1.AdvGlowButton2Click(Sender: TObject);

begin

Form1.Hide;

Form3.Show;

end;

procedure TForm1.AdvGlowButton4Click(Sender: TObject);

begin

Form4.Show;

Form1.Hide;

end;

end.

Код окна - Теория

unit teoriya;

interface

uses

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

Dialogs, Menus, AdvMenuStylers, AdvMenus, StdCtrls, RxRichEd,

AdvOfficeStatusBar, AdvOfficeStatusBarStylers;

type

TForm3 = class(TForm)

AdvMainMenu1: TAdvMainMenu;

AdvMenuOfficeStyler1: TAdvMenuOfficeStyler;

N1: TMenuItem;

N2: TMenuItem;

N3: TMenuItem;

N4: TMenuItem;

N5: TMenuItem;

style: TMenuItem;

help1: TMenuItem;

Help2: TMenuItem;

Office1: TMenuItem;

Office2003Blue1: TMenuItem;

Office2003Olive1: TMenuItem;

Office2003Silver1: TMenuItem;

OfficeXP1: TMenuItem;

Office2007Obsidian1: TMenuItem;

AdvMenuFantasyStyler1: TAdvMenuFantasyStyler;

RxRichEdit1: TRxRichEdit;

N11: TMenuItem;

N21: TMenuItem;

N31: TMenuItem;

N41: TMenuItem;

N51: TMenuItem;

N61: TMenuItem;

N71: TMenuItem;

N111: TMenuItem;

N121: TMenuItem;

N6: TMenuItem;

N7: TMenuItem;

N8: TMenuItem;

N9: TMenuItem;

N10: TMenuItem;

N211: TMenuItem;

N221: TMenuItem;

N12: TMenuItem;

N241: TMenuItem;

N251: TMenuItem;

N31RS232C1: TMenuItem;

N321: TMenuItem;

N331: TMenuItem;

N341: TMenuItem;

BBS1: TMenuItem;

N411: TMenuItem;

N421: TMenuItem;

N431: TMenuItem;

N441: TMenuItem;

N51internet1: TMenuItem;

N52Internet1: TMenuItem;

N53SLIP1: TMenuItem;

N541: TMenuItem;

N551: TMenuItem;

N561: TMenuItem;

N61Telnet1: TMenuItem;

N621: TMenuItem;

N63Usenet1: TMenuItem;

N641: TMenuItem;

N65FTP1: TMenuItem;

N71WWW1: TMenuItem;

N72HTML1: TMenuItem;

N73HTMLhyperTextTransferProtokol1: TMenuItem;

N74WorldWideWeb1: TMenuItem;

N751: TMenuItem;

N13: TMenuItem;

N77Intranet1: TMenuItem;

N78Internet1: TMenuItem;

N14: TMenuItem;

N15: TMenuItem;

N16: TMenuItem;

N22: TMenuItem;

N17: TMenuItem;

N32: TMenuItem;

N18: TMenuItem;

N42: TMenuItem;

N19: TMenuItem;

N52: TMenuItem;

N20: TMenuItem;

N62: TMenuItem;

N23: TMenuItem;

N72: TMenuItem;

N4311: TMenuItem;

N24: TMenuItem;

N25: TMenuItem;

N26: TMenuItem;

procedure N4Click(Sender: TObject);

procedure Office2003Blue1Click(Sender: TObject);

procedure Office2003Olive1Click(Sender: TObject);

procedure Office2003Silver1Click(Sender: TObject);

procedure OfficeXP1Click(Sender: TObject);

procedure Office2007Obsidian1Click(Sender: TObject);

procedure FormShow(Sender: TObject);

procedure N2Click(Sender: TObject);

procedure N211Click(Sender: TObject);

procedure N221Click(Sender: TObject);

procedure N12Click(Sender: TObject);

procedure N241Click(Sender: TObject);

procedure N251Click(Sender: TObject);

procedure N22Click(Sender: TObject);

procedure N71WWW1Click(Sender: TObject);

procedure N72HTML1Click(Sender: TObject);

procedure N73HTMLhyperTextTransferProtokol1Click(Sender: TObject);

procedure N74WorldWideWeb1Click(Sender: TObject);

procedure N751Click(Sender: TObject);

procedure N13Click(Sender: TObject);

procedure N77Intranet1Click(Sender: TObject);

procedure N78Internet1Click(Sender: TObject);

procedure N72Click(Sender: TObject);

procedure N111Click(Sender: TObject);

procedure N121Click(Sender: TObject);

procedure N6Click(Sender: TObject);

procedure N7Click(Sender: TObject);

procedure N8Click(Sender: TObject);

procedure N9Click(Sender: TObject);

procedure N10Click(Sender: TObject);

procedure N15Click(Sender: TObject);

procedure N411Click(Sender: TObject);

procedure N421Click(Sender: TObject);

procedure N4311Click(Sender: TObject);

procedure N24Click(Sender: TObject);

procedure N25Click(Sender: TObject);

procedure N26Click(Sender: TObject);

procedure N441Click(Sender: TObject);

procedure N42Click(Sender: TObject);

procedure N51internet1Click(Sender: TObject);

procedure N52Internet1Click(Sender: TObject);

procedure N53SLIP1Click(Sender: TObject);

procedure N541Click(Sender: TObject);

procedure N551Click(Sender: TObject);

procedure N561Click(Sender: TObject);

procedure N52Click(Sender: TObject);

procedure N61Telnet1Click(Sender: TObject);

procedure N621Click(Sender: TObject);

procedure N63Usenet1Click(Sender: TObject);

procedure N641Click(Sender: TObject);

procedure N65FTP1Click(Sender: TObject);

procedure N62Click(Sender: TObject);

procedure N31RS232C1Click(Sender: TObject);

procedure N321Click(Sender: TObject);

procedure N331Click(Sender: TObject);

procedure N341Click(Sender: TObject);

procedure BBS1Click(Sender: TObject);

procedure N32Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form3: TForm3;

implementation

uses glavnaya;

{$R *.dfm}

procedure TForm3.N4Click(Sender: TObject);

begin

Form3.Close;

Form1.Close;

end;

procedure TForm3.Office2003Blue1Click(Sender: TObject);

begin

if (AdvMainMenu1.MenuStyler = AdvMenuFantasyStyler1) then

begin

AdvMainMenu1.MenuStyler:= AdvMenuOfficeStyler1;

(Sender as TMenuItem).Parent.Checked:= true;

end;

AdvMenuOfficeStyler1.Style:= TOfficeStyle((Sender as TMenuItem).Tag);

(Sender as TMenuItem).Checked:= true;

end;

procedure TForm3.Office2003Olive1Click(Sender: TObject);

begin

if (AdvMainMenu1.MenuStyler = AdvMenuFantasyStyler1) then

begin

AdvMainMenu1.MenuStyler:= AdvMenuOfficeStyler1;

(Sender as TMenuItem).Parent.Checked:= true;

end;

AdvMenuOfficeStyler1.Style:= TOfficeStyle((Sender as TMenuItem).Tag);

(Sender as TMenuItem).Checked:= true;

end;

procedure TForm3.Office2003Silver1Click(Sender: TObject);

begin

if (AdvMainMenu1.MenuStyler = AdvMenuFantasyStyler1) then

begin

AdvMainMenu1.MenuStyler:= AdvMenuOfficeStyler1;

(Sender as TMenuItem).Parent.Checked:= true;

end;

AdvMenuOfficeStyler1.Style:= TOfficeStyle((Sender as TMenuItem).Tag);

(Sender as TMenuItem).Checked:= true;

end;

procedure TForm3.OfficeXP1Click(Sender: TObject);

begin

if (AdvMainMenu1.MenuStyler = AdvMenuFantasyStyler1) then

begin

AdvMainMenu1.MenuStyler:= AdvMenuOfficeStyler1;

(Sender as TMenuItem).Parent.Checked:= true;

end;

AdvMenuOfficeStyler1.Style:= TOfficeStyle((Sender as TMenuItem).Tag);

(Sender as TMenuItem).Checked:= true;

end;

procedure TForm3.Office2007Obsidian1Click(Sender: TObject);

begin

if (AdvMainMenu1.MenuStyler = AdvMenuFantasyStyler1) then

begin

AdvMainMenu1.MenuStyler:= AdvMenuOfficeStyler1;

(Sender as TMenuItem).Parent.Checked:= true;

end;

AdvMenuOfficeStyler1.Style:= TOfficeStyle((Sender as TMenuItem).Tag);

(Sender as TMenuItem).Checked:= true;

end;

procedure TForm3.FormShow(Sender: TObject);

begin

RxRichEdit1.Lines.LoadFromFile('Resources\vvedenie.rtf');

end;

procedure TForm3.N2Click(Sender: TObject);

begin

Form1.Show;

Form3.Close;

end;

procedure TForm3.N211Click(Sender: TObject);

begin

RxRichEdit1.Lines.LoadFromFile('Resources\razdel_2\lek_1.rtf');

end;

procedure TForm3.N221Click(Sender: TObject);

begin

RxRichEdit1.Lines.LoadFromFile('Resources\razdel_2\lek_2.rtf');

end;

procedure TForm3.N12Click(Sender: TObject);

begin

RxRichEdit1.Lines.LoadFromFile('Resources\razdel_2\lek_3.rtf');

end;

procedure TForm3.N241Click(Sender: TObject);

begin

RxRichEdit1.Lines.LoadFromFile('Resources\razdel_2\lek_4.rtf');

end;

procedure TForm3.N251Click(Sender: TObject);

begin

RxRichEdit1.Lines.LoadFromFile('Resources\razdel_2\lek_5.rtf');

end;

procedure TForm3.N22Click(Sender: TObject);

begin

RxRichEdit1.Lines.LoadFromFile('Resources\razdel_2\kontrol_2.rtf');

end;

procedure TForm3.N71WWW1Click(Sender: TObject);

begin

RxRichEdit1.Lines.LoadFromFile('Resources\razdel_7\lek_1.rtf');

end;

procedure TForm3.N72HTML1Click(Sender: TObject);

begin

RxRichEdit1.Lines.LoadFromFile('Resources\razdel_7\lek_2.rtf');

end;

procedure TForm3.N73HTMLhyperTextTransferProtokol1Click(Sender: TObject);

begin

RxRichEdit1.Lines.LoadFromFile('Resources\razdel_7\lek_3.rtf');

end;

procedure TForm3.N74WorldWideWeb1Click(Sender: TObject);

begin

RxRichEdit1.Lines.LoadFromFile('Resources\razdel_7\lek_4.rtf');

end;

procedure TForm3.N751Click(Sender: TObject);

begin

RxRichEdit1.Lines.LoadFromFile('Resources\razdel_7\lek_5.rtf');

end;

procedure TForm3.N13Click(Sender: TObject);

begin

RxRichEdit1.Lines.LoadFromFile('Resources\razdel_7\lek_6.rtf');

end;

procedure TForm3.N77Intranet1Click(Sender: TObject);

begin

RxRichEdit1.Lines.LoadFromFile('Resources\razdel_7\lek_7.rtf');

end;

procedure TForm3.N78Internet1Click(Sender: TObject);

begin

RxRichEdit1.Lines.LoadFromFile('Resources\razdel_7\lek_8.rtf');

end;

procedure TForm3.N72Click(Sender: TObject);

begin

RxRichEdit1.Lines.LoadFromFile('Resources\razdel_7\kontrol_7.rtf');

end;

procedure TForm3.N111Click(Sender: TObject);

begin

RxRichEdit1.Lines.LoadFromFile('Resources\razdel_1\lek_1.rtf');

end;

procedure TForm3.N121Click(Sender: TObject);

begin

RxRichEdit1.Lines.LoadFromFile('Resources\razdel_1\lek_2.rtf');

end;

procedure TForm3.N6Click(Sender: TObject);

begin

RxRichEdit1.Lines.LoadFromFile('Resources\razdel_1\lek_3.rtf');

end;

procedure TForm3.N7Click(Sender: TObject);

begin

RxRichEdit1.Lines.LoadFromFile('Resources\razdel_1\lek_4.rtf');

end;

procedure TForm3.N8Click(Sender: TObject);

begin

RxRichEdit1.Lines.LoadFromFile('Resources\razdel_1\lek_5.rtf');

end;

procedure TForm3.N9Click(Sender: TObject);

begin

RxRichEdit1.Lines.LoadFromFile('Resources\razdel_1\lek_6.rtf');

end;

procedure TForm3.N10Click(Sender: TObject);

begin

RxRichEdit1.Lines.LoadFromFile('Resources\razdel_1\lek_7.rtf');

end;

procedure TForm3.N15Click(Sender: TObject);

begin

RxRichEdit1.Lines.LoadFromFile('Resources\razdel_1\kontrol_1.rtf');

end;

procedure TForm3.N411Click(Sender: TObject);

begin

RxRichEdit1.Lines.LoadFromFile('Resources\razdel_4\lek_1.rtf');

end;

procedure TForm3.N421Click(Sender: TObject);

begin

RxRichEdit1.Lines.LoadFromFile('Resources\razdel_4\lek_2.rtf');

end;

procedure TForm3.N4311Click(Sender: TObject);

begin

RxRichEdit1.Lines.LoadFromFile('Resources\razdel_4\lek_3.rtf');

end;

procedure TForm3.N24Click(Sender: TObject);

begin

RxRichEdit1.Lines.LoadFromFile('Resources\razdel_4\lek_3_hub.rtf');

end;

procedure TForm3.N25Click(Sender: TObject);

begin

RxRichEdit1.Lines.LoadFromFile('Resources\razdel_4\lek_3_switch.rtf');

end;

procedure TForm3.N26Click(Sender: TObject);

begin

RxRichEdit1.Lines.LoadFromFile('Resources\razdel_4\lek_3_router.rtf');

end;

procedure TForm3.N441Click(Sender: TObject);

begin

RxRichEdit1.Lines.LoadFromFile('Resources\razdel_4\lek_4.rtf');

end;

procedure TForm3.N42Click(Sender: TObject);

begin

RxRichEdit1.Lines.LoadFromFile('Resources\razdel_4\kontrol_4.rtf');

end;

procedure TForm3.N51internet1Click(Sender: TObject);

begin

RxRichEdit1.Lines.LoadFromFile('Resources\razdel_5\lek_1.rtf');

end;

procedure TForm3.N52Internet1Click(Sender: TObject);

begin

RxRichEdit1.Lines.LoadFromFile('Resources\razdel_5\lek_2.rtf');

end;

procedure TForm3.N53SLIP1Click(Sender: TObject);

begin

RxRichEdit1.Lines.LoadFromFile('Resources\razdel_5\lek_3.rtf');

end;

procedure TForm3.N541Click(Sender: TObject);

begin

RxRichEdit1.Lines.LoadFromFile('Resources\razdel_5\lek_4.rtf');

end;

procedure TForm3.N551Click(Sender: TObject);

begin

RxRichEdit1.Lines.LoadFromFile('Resources\razdel_5\lek_5.rtf');

end;

procedure TForm3.N561Click(Sender: TObject);

begin

RxRichEdit1.Lines.LoadFromFile('Resources\razdel_5\lek_6.rtf');

end;

procedure TForm3.N52Click(Sender: TObject);

begin

RxRichEdit1.Lines.LoadFromFile('Resources\razdel_5\kontrol_5.rtf');

end;

procedure TForm3.N61Telnet1Click(Sender: TObject);

begin

RxRichEdit1.Lines.LoadFromFile('Resources\razdel_6\lek_1.rtf');

end;

procedure TForm3.N621Click(Sender: TObject);

begin

RxRichEdit1.Lines.LoadFromFile('Resources\razdel_6\lek_2.rtf');

end;

procedure TForm3.N63Usenet1Click(Sender: TObject);

begin

RxRichEdit1.Lines.LoadFromFile('Resources\razdel_6\lek_3.rtf');

end;

procedure TForm3.N641Click(Sender: TObject);

begin

RxRichEdit1.Lines.LoadFromFile('Resources\razdel_6\lek_4.rtf');

end;

procedure TForm3.N65FTP1Click(Sender: TObject);

begin

RxRichEdit1.Lines.LoadFromFile('Resources\razdel_6\lek_5.rtf');

end;

procedure TForm3.N62Click(Sender: TObject);

begin

RxRichEdit1.Lines.LoadFromFile('Resources\razdel_6\kontrol_6.rtf');

end;

procedure TForm3.N31RS232C1Click(Sender: TObject);

begin

RxRichEdit1.Lines.LoadFromFile('Resources\razdel_3\lek_1.rtf');

end;

procedure TForm3.N321Click(Sender: TObject);

begin

RxRichEdit1.Lines.LoadFromFile('Resources\razdel_3\lek_2.rtf');

end;

procedure TForm3.N331Click(Sender: TObject);

begin

RxRichEdit1.Lines.LoadFromFile('Resources\razdel_3\lek_3.rtf');

end;

procedure TForm3.N341Click(Sender: TObject);

begin

RxRichEdit1.Lines.LoadFromFile('Resources\razdel_3\lek_4.rtf');

end;

procedure TForm3.BBS1Click(Sender: TObject);

begin

RxRichEdit1.Lines.LoadFromFile('Resources\razdel_3\lek_5.rtf');

end;

procedure TForm3.N32Click(Sender: TObject);

begin

RxRichEdit1.Lines.LoadFromFile('Resources\razdel_3\kontrol_3.rtf');

end;

end.

Код окна глоссария

unit glossary;

interface

uses

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

Dialogs, Menus, AdvMenus, StdCtrls, ComCtrls, AdvMenuStylers;

type

TForm2 = class(TForm)

AdvMainMenu1: TAdvMainMenu;

N1: TMenuItem;

RichEdit1: TRichEdit;

AdvMenuOfficeStyler1: TAdvMenuOfficeStyler;

procedure N1Click(Sender: TObject);

procedure FormShow(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form2: TForm2;

implementation

uses glavnaya;

{$R *.dfm}

procedure TForm2.N1Click(Sender: TObject);

begin

Form1.Show;

Form2.Close;

end;

procedure TForm2.FormShow(Sender: TObject);

begin

RichEdit1.Lines.LoadFromFile('resources\glossary\glossary.rtf');

end;

end.

Размещено на Allbest.ru