АИС "Отдел кадров"

20. Соблюдать порядок включения частей ПЭВМ в следующей последовательности: вначале системный блок или UPS, затем монитор и другие периферийные устройства (принтер, модем и т.д.)

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

Во время работы следует соблюдать следующие требования безопасности:

1 Выполнять только порученную работу.

2 Не допускать к работе на ПЭВМ посторонних лиц.

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

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

5 При внезапном (более 3 минут) падении напряжения отключить ПЭВМ от сети. При появлении напряжения дождаться его стабилизации и только тогда включить ПЭВМ снова.

6 При обнаружении неисправности в ПЭВМ отключить ее от электросети, доложить руководителю и вызвать техперсонал. Не работать на неисправных ПЭВМ и периферийных устройствах.

7 При эксплуатации ПЭВМ запрещается:

7.4 переносить и передвигать с установленных мест блоки ПЭВМ, включенные в сеть, т.е. находящиеся под напряжением;

7.5 подключать или отключать блоки комплекта при работающей ПЭВМ;

7.6 оставлять включенный в электросеть компьютер без наблюдения;

7.7 вскрывать корпуса ПЭВМ и периферийных устройств;

7.8 работать на ПЭВМ со вскрытыми корпусами;

7.9 производить на ПЭВМ какие бы то ни было ремонтные работы, эту работу выполняют специальные лица;

7.10 дотрагиваться до движущихся механизмов внешних и внутренних устройств;

7.11 чистить ПЭВМ и внешние устройства на ходу;

7.12 браться руками одновременно за ПЭВМ и заземленные конструкции: трубы отопительной системы, водопроводные трубы, шины заземления.

8 Не прикасаться к металлическим частям корпуса влажными и мокрыми руками.

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

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

11 Для снижения напряженности труда чередовать характер деятельности - работу за пультом ПЭВМ и ручную обработку документации.

12 В целях пожарной безопасности следует избегать перегрева оборудования, для этого:

12.1 устанавливайте устройства в места, обеспечивающие свободную циркуляцию воздуха;

12.2 не перекрывайте вентиляционные устройства и верхние панели работающих устройств воздухо- и теплоизоляционными материалами;

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

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

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

15 После работы отключать устройства от сети, в том числе выключать все периферийные устройства и устройства питания.

16 В том случае, если в течение 2-3 часов не используется оборудование, завершить все работающие задачи и выключить компьютер.

17 Употребление пищи, напитков, курение во время работы с ВДТ ПЭВМ строго запрещается, для этого используются отведенные перерывы в работе и отведенные для этого места и помещения.

18 Решетки, установленные на оконные проемы, должны свободно открываться при пожарной опасности.

19 В помещении вычислительного центра либо помещении, в котором находится 5 и более рабочих мест с ПЭВМ должен находиться огнетушитель, либо в смежном с ВЦ коридоре.

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

Требования безопасности в аварийных ситуациях:

1. В случае возникновения после включения ПЭВМ повышенного уровня шума, вибрации блоков, искрения отключите ПЭВМ от сети и вызовите техперсонал.

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

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

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

5. При работе на устройствах ПЭВМ возможны иные аварийные ситуации: попадание корпуса устройства под напряжение при коротком замыкании в электросистеме, пробоев изоляции и отсутствии или неисправности заземления; поломки отдельных узлов устройства от перегрузки, нарушения правил пользования и др.

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

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

7. О случаях травматизма доложите руководителю работ.

Требования безопасности по окончании работ:

1. Выключите компьютер.

2. Отключите сетевые фильтры от сети напряжения или выключите тумблер UPS или рубильника.

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

ПРИЛОЖЕНИЕ А

Текст программы

Private Sub Form_Load()

End Sub

'------------------------------------------------------------

' Кнопка1_Click

'

'------------------------------------------------------------

Private Sub Кнопка1_Click()

On Error GoTo Кнопка1_Click_Err

DoCmd.OpenForm "Запросы", acNormal, "", "", , acNormal

Кнопка1_Click_Exit:

Exit Sub

Кнопка1_Click_Err:

MsgBox Error$

Resume Кнопка1_Click_Exit

End Sub

'------------------------------------------------------------

' Кнопка3_Click

'

'------------------------------------------------------------

Private Sub Кнопка3_Click()

On Error GoTo Кнопка3_Click_Err

DoCmd.OpenForm "Отчеты", acNormal, "", "", , acNormal

Кнопка3_Click_Exit:

Exit Sub

Кнопка3_Click_Err:

MsgBox Error$

Resume Кнопка3_Click_Exit

End Sub

'------------------------------------------------------------

' Кнопка5_Click

'

'------------------------------------------------------------

Private Sub Кнопка5_Click()

On Error GoTo Кнопка5_Click_Err

DoCmd.OpenForm "ВВод и редактирование", acNormal, "", "", , acNormal

Кнопка5_Click_Exit:

Exit Sub

Кнопка5_Click_Err:

MsgBox Error$

Resume Кнопка5_Click_Exit

End Sub

'------------------------------------------------------------

' Кнопка7_Click

'

'------------------------------------------------------------

Private Sub Кнопка7_Click()

On Error GoTo Кнопка7_Click_Err

DoCmd.Quit acExit

Кнопка7_Click_Exit:

Exit Sub

Кнопка7_Click_Err:

MsgBox Error$

Resume Кнопка7_Click_Exit

End Sub

'------------------------------------------------------------

' Кнопка9_Click

'

'------------------------------------------------------------

Private Sub Кнопка9_Click()

On Error GoTo Кнопка9_Click_Err

DoCmd.Close acForm, "ГЛАВНАЯ"

Кнопка9_Click_Exit:

Exit Sub

Кнопка9_Click_Err:

MsgBox Error$

Resume Кнопка9_Click_Exit

End Sub

Ввод и редактирование данных

Private Sub Form_Load()

End Sub

'------------------------------------------------------------

' Кнопка1_Click

'

'------------------------------------------------------------

Private Sub Кнопка1_Click()

On Error GoTo Кнопка1_Click_Err

DoCmd.OpenForm "Запросы", acNormal, "", "", , acNormal

Кнопка1_Click_Exit:

Exit Sub

Кнопка1_Click_Err:

MsgBox Error$

Resume Кнопка1_Click_Exit

End Sub

'------------------------------------------------------------

' Кнопка3_Click

'

'------------------------------------------------------------

Private Sub Кнопка3_Click()

On Error GoTo Кнопка3_Click_Err

DoCmd.OpenForm "Отчеты", acNormal, "", "", , acNormal

Кнопка3_Click_Exit:

Exit Sub

Кнопка3_Click_Err:

MsgBox Error$

Resume Кнопка3_Click_Exit

End Sub

'------------------------------------------------------------

' Кнопка5_Click

'

'------------------------------------------------------------

Private Sub Кнопка5_Click()

On Error GoTo Кнопка5_Click_Err

DoCmd.OpenForm "ВВод и редактирование", acNormal, "", "", , acNormal

Кнопка5_Click_Exit:

Exit Sub

Кнопка5_Click_Err:

MsgBox Error$

Resume Кнопка5_Click_Exit

End Sub

'------------------------------------------------------------

' Кнопка7_Click

'

'------------------------------------------------------------

Private Sub Кнопка7_Click()

On Error GoTo Кнопка7_Click_Err

DoCmd.Quit acExit

Кнопка7_Click_Exit:

Exit Sub

Кнопка7_Click_Err:

MsgBox Error$

Resume Кнопка7_Click_Exit

End Sub

'------------------------------------------------------------

' Кнопка9_Click

'

'------------------------------------------------------------

Private Sub Кнопка9_Click()

On Error GoTo Кнопка9_Click_Err

DoCmd.Close acForm, "ГЛАВНАЯ"

Кнопка9_Click_Exit:

Exit Sub

Кнопка9_Click_Err:

MsgBox Error$

Resume Кнопка9_Click_Exit

End Sub

ЗАСТАВКА

Private Sub Кнопка2_Click()

On Error GoTo Err_Кнопка2_Click

Dim stDocName As String

Dim stLinkCriteria As String

stDocName = ChrW(1055) & ChrW(1086) & ChrW(1089) & ChrW(1090) & ChrW(1072) & ChrW(1074) & ChrW(1097) & ChrW(1080) & ChrW(1082) & ChrW(1080)

DoCmd.OpenForm stDocName, , , stLinkCriteria

Exit_Кнопка2_Click:

Exit Sub

Err_Кнопка2_Click:

MsgBox Err.Description

Resume Exit_Кнопка2_Click

End Sub

Private Sub Кнопка3_Click()

On Error GoTo Err_Кнопка3_Click

Dim stDocName As String

Dim stLinkCriteria As String

stDocName = ChrW(1057) & ChrW(1076) & ChrW(1077) & ChrW(1083) & ChrW(1082) & ChrW(1080)

DoCmd.OpenForm stDocName, , , stLinkCriteria

Exit_Кнопка3_Click:

Exit Sub

Err_Кнопка3_Click:

MsgBox Err.Description

Resume Exit_Кнопка3_Click

End Sub

Private Sub Кнопка12_Click()

On Error GoTo Err_Кнопка12_Click

Dim stDocName As String

Dim stLinkCriteria As String

stDocName = ChrW(1047) & ChrW(1072) & ChrW(1082) & ChrW(1091) & ChrW(1087) & ChrW(1082) & ChrW(1080)

DoCmd.OpenForm stDocName, , , stLinkCriteria

Exit_Кнопка12_Click:

Exit Sub

Err_Кнопка12_Click:

MsgBox Err.Description

Resume Exit_Кнопка12_Click

End Sub

Private Sub Кнопка13_Click()

On Error GoTo Err_Кнопка13_Click

Dim stDocName As String

Dim stLinkCriteria As String

stDocName = ChrW(1050) & ChrW(1086) & ChrW(1084) & ChrW(1087) & ChrW(1087) & ChrW(1083) & ChrW(1077) & ChrW(1082) & ChrW(1090) & ChrW(1091) & ChrW(1102) & ChrW(1097) & ChrW(1080) & ChrW(1077)

DoCmd.OpenForm stDocName, , , stLinkCriteria

Exit_Кнопка13_Click:

Exit Sub

Err_Кнопка13_Click:

MsgBox Err.Description

Resume Exit_Кнопка13_Click

End Sub

Private Sub Кнопка22_Click()

On Error GoTo Err_Кнопка22_Click

Dim stDocName As String

stDocName = ChrW(1050) & ChrW(1086) & ChrW(1084) & ChrW(1087) & ChrW(1087) & ChrW(1083) & ChrW(1077) & ChrW(1082) & ChrW(1090) & ChrW(1091) & ChrW(1102) & ChrW(1097) & ChrW(1080) & ChrW(1077)

DoCmd.OpenReport stDocName, acPreview

Exit_Кнопка22_Click:

Exit Sub

Err_Кнопка22_Click:

MsgBox Err.Description

Resume Exit_Кнопка22_Click

End Sub

Private Sub Кнопка26_Click()

On Error GoTo Err_Кнопка26_Click

Dim stDocName As String

Dim stLinkCriteria As String

stDocName = ChrW(1042) & ChrW(1099) & ChrW(1095) & ChrW(1080) & ChrW(1089) & ChrW(1083) & ChrW(1077) & ChrW(1085) & ChrW(1080) & ChrW(1077)

DoCmd.OpenForm stDocName, , , stLinkCriteria

Exit_Кнопка26_Click:

Exit Sub

Err_Кнопка26_Click:

MsgBox Err.Description

Resume Exit_Кнопка26_Click

End Sub

Private Sub Кнопка28_Click()

On Error GoTo Err_Кнопка28_Click

DoCmd.Close

Exit_Кнопка28_Click:

Exit Sub

Err_Кнопка28_Click:

MsgBox Err.Description

Resume Exit_Кнопка28_Click

End Sub

Private Sub Кнопка33_Click()

On Error GoTo Err_Кнопка33_Click

Dim stDocName As String

stDocName = ChrW(1052) & ChrW(1072) & ChrW(1082) & ChrW(1088) & ChrW(1086) & ChrW(1089) & ChrW(49)

DoCmd.RunMacro stDocName

Exit_Кнопка33_Click:

Exit Sub

Err_Кнопка33_Click:

MsgBox Err.Description

Resume Exit_Кнопка33_Click

End Sub

ПРИЛОЖЕНИЕ Б

Результат работы программы



ОТЧЁТ



Список литературы

1. Голицына О. Л., Максимов Н. В., Попов И. И. Базы данных: Учебное пособие. - М.: ФОРУМ: ИНФРА-М, 2004

2. Шкарина Л. Язык SQL:учебный курс. - СПб.: Питер, 2001.

3. Карпова Т. С. Базы данных: модели, разработка, реализация. - СПб: Питер, 2001.

4. Боровиков В. В. MS ACCESS 2002. программирование и разработка баз данных и приложений. - СОЛОН-Р, 2002.

5. Астахова И. Ф., Толстобров А. П. , Мельников В. М. SQL в примерах и задачах: Учеб. пособие.- Мн.: Новое знание,2002.

6. Бекаревич Ю. Б., Пушкина Н. В. MS ACCESS 2000 за 30 занятий. - СПб.: БХВ- Петербург,2001.

7. Леоненков А. В. Самоучитель UML. - СПб: БХВ - Петербург, 2002.

8. Иванова Г. С. Технология программирования: Учебник для вузов. - М.: Изд-во МГТУ им. Баумана, 2003.

9. Орлов С. А. Технология разработки программного обеспечения: Учебник. - СПб.: Питер, 2002.

10. Вендров А. М. Проектирование программного обеспечения экономических информационных систем: Учебник. - М.: Финансы и статистика, 2002.