Рефераты. АИС "Отдел кадров"

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.


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



2012 © Все права защищены
При использовании материалов активная ссылка на источник обязательна.