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
' Кнопка3_Click
Private Sub Кнопка3_Click()
On Error GoTo Кнопка3_Click_Err
DoCmd.OpenForm "Отчеты", acNormal, "", "", , acNormal
Кнопка3_Click_Exit:
Кнопка3_Click_Err:
Resume Кнопка3_Click_Exit
' Кнопка5_Click
Private Sub Кнопка5_Click()
On Error GoTo Кнопка5_Click_Err
DoCmd.OpenForm "ВВод и редактирование", acNormal, "", "", , acNormal
Кнопка5_Click_Exit:
Кнопка5_Click_Err:
Resume Кнопка5_Click_Exit
' Кнопка7_Click
Private Sub Кнопка7_Click()
On Error GoTo Кнопка7_Click_Err
DoCmd.Quit acExit
Кнопка7_Click_Exit:
Кнопка7_Click_Err:
Resume Кнопка7_Click_Exit
' Кнопка9_Click
Private Sub Кнопка9_Click()
On Error GoTo Кнопка9_Click_Err
DoCmd.Close acForm, "ГЛАВНАЯ"
Кнопка9_Click_Exit:
Кнопка9_Click_Err:
Resume Кнопка9_Click_Exit
Ввод и редактирование данных
ЗАСТАВКА
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:
Err_Кнопка2_Click:
MsgBox Err.Description
Resume Exit_Кнопка2_Click
On Error GoTo Err_Кнопка3_Click
stDocName = ChrW(1057) & ChrW(1076) & ChrW(1077) & ChrW(1083) & ChrW(1082) & ChrW(1080)
Exit_Кнопка3_Click:
Err_Кнопка3_Click:
Resume Exit_Кнопка3_Click
Private Sub Кнопка12_Click()
On Error GoTo Err_Кнопка12_Click
stDocName = ChrW(1047) & ChrW(1072) & ChrW(1082) & ChrW(1091) & ChrW(1087) & ChrW(1082) & ChrW(1080)
Exit_Кнопка12_Click:
Err_Кнопка12_Click:
Resume Exit_Кнопка12_Click
Private Sub Кнопка13_Click()
On Error GoTo Err_Кнопка13_Click
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)
Exit_Кнопка13_Click:
Err_Кнопка13_Click:
Resume Exit_Кнопка13_Click
Private Sub Кнопка22_Click()
On Error GoTo Err_Кнопка22_Click
DoCmd.OpenReport stDocName, acPreview
Exit_Кнопка22_Click:
Err_Кнопка22_Click:
Resume Exit_Кнопка22_Click
Private Sub Кнопка26_Click()
On Error GoTo Err_Кнопка26_Click
stDocName = ChrW(1042) & ChrW(1099) & ChrW(1095) & ChrW(1080) & ChrW(1089) & ChrW(1083) & ChrW(1077) & ChrW(1085) & ChrW(1080) & ChrW(1077)
Exit_Кнопка26_Click:
Err_Кнопка26_Click:
Resume Exit_Кнопка26_Click
Private Sub Кнопка28_Click()
On Error GoTo Err_Кнопка28_Click
DoCmd.Close
Exit_Кнопка28_Click:
Err_Кнопка28_Click:
Resume Exit_Кнопка28_Click
Private Sub Кнопка33_Click()
On Error GoTo Err_Кнопка33_Click
stDocName = ChrW(1052) & ChrW(1072) & ChrW(1082) & ChrW(1088) & ChrW(1086) & ChrW(1089) & ChrW(49)
DoCmd.RunMacro stDocName
Exit_Кнопка33_Click:
Err_Кнопка33_Click:
Resume Exit_Кнопка33_Click
ПРИЛОЖЕНИЕ Б
Результат работы программы
ОТЧЁТ
Список литературы
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.
Страницы: 1, 2, 3, 4, 5, 6, 7
