5.2.3 Специальные требования

Знать и выполнять инструкции по эксплуатации электронных устройств.

Помнить, что при выключении переключателя «Сеть» на устройствах, розетки питания 220 В остаются под напряжением.

Помнить, что опасность представляют первичные цепи блоков питания, подключенные к трехфазному напряжению 380/220В 50 Гц.

На рабочем месте должны быть:

• заземляющая шина, соединенная с общим контуром заземления;

• резиновый коврик.

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

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

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

Убедиться в том, что рабочее место достаточно освещено и убраны все мешающие предметы.

При эксплуатации ПЭВМ ЗАПРЕЩАЕТСЯ включать электронные устройства при неисправной защите электропитания.

Обо всех замеченных недостатках и неисправностях в оборудовании сообщить своему начальнику.

Заключение

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

Разработка программного продукта велась в соответствии с техническим заданием и отвечает всем его требованиям.

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

Данная информационная система не требует специальной подготовки для работы с ней. Это позволяет использовать её без предварительного освоения, людям, имеющим опыт работы с Microsoft Access.

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

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

Приложение Программное представление формы

Форма «Титульный лист»

Option Compare Database

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

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

Dim stDocName As String

Dim stLinkCriteria As String

stDocName = ChrW(1054) & ChrW(1089) & ChrW(1085) & ChrW(1086) & ChrW(1074) & ChrW(1085) & ChrW(1072) & ChrW(1103)

DoCmd.OpenForm stDocName, , , stLinkCriteria

Exit_Кнопка7_Click:

Exit Sub

Err_Кнопка7_Click:

MsgBox Err.Description

Resume Exit_Кнопка7_Click

End Sub

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

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

DoCmd.Close

Exit_Кнопка8_Click:

Exit Sub

Err_Кнопка8_Click:

MsgBox Err.Description

Resume Exit_Кнопка8_Click

End Sub

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

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

DoCmd.Quit

Exit_Кнопка9_Click:

Exit Sub

Err_Кнопка9_Click:

MsgBox Err.Description

Resume Exit_Кнопка9_Click

End Sub

Форма «Основная»

Option Compare Database

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

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

Dim stDocName As String

Dim stLinkCriteria As String

stDocName = ChrW(1050) & ChrW(1072) & ChrW(1083) & ChrW(1077) & ChrW(1085) & ChrW(1076) & ChrW(1072) & ChrW(1088) & ChrW(1100)

DoCmd.OpenForm stDocName, , , stLinkCriteria

Exit_Кнопка1_Click:

Exit Sub

Err_Кнопка1_Click:

MsgBox Err.Description

Resume Exit_Кнопка1_Click

End Sub

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

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

Dim stDocName As String

Dim stLinkCriteria As String

stDocName = ChrW(51) & ChrW(1082) & ChrW(1072) & ChrW(1083) & ChrW(1077) & ChrW(1085) & ChrW(1076) & ChrW(50)

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(1053) & ChrW(1072) & ChrW(1075) & ChrW(1088) & ChrW(1091) & ChrW(1079) & ChrW(1082) & ChrW(1072)

DoCmd.OpenForm stDocName, , , stLinkCriteria

Exit_Кнопка3_Click:

Exit Sub

Err_Кнопка3_Click:

MsgBox Err.Description

Resume Exit_Кнопка3_Click

End Sub

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

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

Dim stDocName As String

Dim stLinkCriteria As String

stDocName = ChrW(1050) & ChrW(1058) & ChrW(1055)

DoCmd.OpenForm stDocName, , , stLinkCriteria

Exit_Кнопка4_Click:

Exit Sub

Err_Кнопка4_Click:

MsgBox Err.Description

Resume Exit_Кнопка4_Click

End Sub

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

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

Dim stDocName As String

Dim stLinkCriteria As String

stDocName = ChrW(1084) & ChrW(1077) & ChrW(1085) & ChrW(1102)

DoCmd.OpenForm stDocName, , , stLinkCriteria

Exit_Кнопка5_Click:

Exit Sub

Err_Кнопка5_Click:

MsgBox Err.Description

Resume Exit_Кнопка5_Click

End Sub

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

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

DoCmd.Close

Exit_Кнопка6_Click:

Exit Sub

Err_Кнопка6_Click:

MsgBox Err.Description

Resume Exit_Кнопка6_Click

End Sub

Форма «Календарь»

Option Compare Database

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

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

Dim stDocName As String

stDocName = ChrW(1042) & ChrW(1074) & ChrW(1086) & ChrW(1076) & ChrW(32) & ChrW(1084) & ChrW(1077) & ChrW(1089) & ChrW(1103) & ChrW(1094) & ChrW(1072)

DoCmd.OpenQuery stDocName, acNormal, acEdit

stDocName = ChrW(1047) & ChrW(1072) & ChrW(1087) & ChrW(1088) & ChrW(1086) & ChrW(1089) & ChrW(49)

DoCmd.OpenQuery stDocName, acNormal, acEdit

stDocName = ChrW(1076) & ChrW(1077) & ChrW(1085) & ChrW(1100) & ChrW(1053) & ChrW(1077) & ChrW(1076) & ChrW(32) & ChrW(1074) & ChrW(32) & ChrW(1090) & ChrW(1077) & ChrW(1082) & ChrW(1089) & ChrW(1090)

DoCmd.OpenQuery stDocName, acNormal, acEdit

stDocName = ChrW(1074) & ChrW(1099) & ChrW(1093) & ChrW(1086) & ChrW(1076) & ChrW(1085) & ChrW(1099) & ChrW(1077)

DoCmd.OpenQuery stDocName, acNormal, acEdit

stDocName = ChrW(1085) & ChrW(1086) & ChrW(1084) & ChrW(1077) & ChrW(1088) & ChrW(32) & ChrW(1085) & ChrW(1077) & ChrW(1076) & ChrW(1077) & ChrW(1083) & ChrW(1080)

DoCmd.OpenQuery stDocName, acNormal, acEdit

stDocName = ChrW(1076) & ChrW(1086) & ChrW(1073) & ChrW(1072) & ChrW(1074) & ChrW(1083) & ChrW(1077) & ChrW(1085) & ChrW(1080) & ChrW(1077) & ChrW(32) & ChrW(1095) & ChrW(1077) & ChrW(1090) & ChrW(1085) & ChrW(1086) & ChrW(1089) & ChrW(1090) & ChrW(1080)

DoCmd.OpenQuery stDocName, acNormal, acEdit

DoCmd.DoMenuItem acFormBar, acRecordsMenu, 5, , acMenuVer70

Exit_Кнопка6_Click:

Exit Sub

Err_Кнопка6_Click:

MsgBox Err.Description

Resume Exit_Кнопка6_Click

End Sub

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

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

DoCmd.DoMenuItem acFormBar, acRecordsMenu, 5, , acMenuVer70

Exit_Кнопка7_Click:

Exit Sub

Err_Кнопка7_Click:

MsgBox Err.Description

Resume Exit_Кнопка7_Click

End Sub

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

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

Dim stDocName As String

stDocName = ChrW(1076) & ChrW(1077) & ChrW(1085) & ChrW(1100) & ChrW(1053) & ChrW(1077) & ChrW(1076) & ChrW(32) & ChrW(1074) & ChrW(32) & ChrW(1090) & ChrW(1077) & ChrW(1082) & ChrW(1089) & ChrW(1090)

DoCmd.OpenQuery stDocName, acNormal, acEdit

Exit_Кнопка13_Click:

Exit Sub

Err_Кнопка13_Click:

MsgBox Err.Description

Resume Exit_Кнопка13_Click

End Sub

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

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

Dim stDocName As String

stDocName = ChrW(1047) & ChrW(1072) & ChrW(1087) & ChrW(1088) & ChrW(1086) & ChrW(1089) & ChrW(49)

DoCmd.OpenQuery stDocName, acNormal, acEdit

stDocName = ChrW(1076) & ChrW(1077) & ChrW(1085) & ChrW(1100) & ChrW(1053) & ChrW(1077) & ChrW(1076) & ChrW(32) & ChrW(1074) & ChrW(32) & ChrW(1090) & ChrW(1077) & ChrW(1082) & ChrW(1089) & ChrW(1090)

DoCmd.OpenQuery stDocName, acNormal, acEdit

stDocName = ChrW(1074) & ChrW(1099) & ChrW(1093) & ChrW(1086) & ChrW(1076) & ChrW(1085) & ChrW(1099) & ChrW(1077)

DoCmd.OpenQuery stDocName, acNormal, acEdit

Exit_Кнопка14_Click:

Exit Sub

Err_Кнопка14_Click:

MsgBox Err.Description

Resume Exit_Кнопка14_Click

End Sub

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

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

Dim stDocName As String

stDocName = ChrW(1076) & ChrW(1077) & ChrW(1085) & ChrW(1100) & ChrW(1053) & ChrW(1077) & ChrW(1076) & ChrW(32) & ChrW(1074) & ChrW(32) & ChrW(1090) & ChrW(1077) & ChrW(1082) & ChrW(1089) & ChrW(1090)

DoCmd.OpenQuery stDocName, acNormal, acEdit

stDocName = ChrW(1074) & ChrW(1099) & ChrW(1093) & ChrW(1086) & ChrW(1076) & ChrW(1085) & ChrW(1099) & ChrW(1077)

DoCmd.OpenQuery stDocName, acNormal, acEdit

Exit_Кнопка15_Click:

Exit Sub

Err_Кнопка15_Click:

MsgBox Err.Description

Resume Exit_Кнопка15_Click

End Sub

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

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

Dim stDocName As String

stDocName = ChrW(1074) & ChrW(1099) & ChrW(1093) & ChrW(1086) & ChrW(1076) & ChrW(1085) & ChrW(1099) & ChrW(1077)

DoCmd.OpenQuery stDocName, acNormal, acEdit

Exit_Кнопка16_Click:

Exit Sub

Err_Кнопка16_Click:

MsgBox Err.Description

Resume Exit_Кнопка16_Click

End Sub

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

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

DoCmd.DoMenuItem acFormBar, acRecordsMenu, 5, , acMenuVer70

Exit_Кнопка17_Click:

Exit Sub

Err_Кнопка17_Click:

MsgBox Err.Description

Resume Exit_Кнопка17_Click

End Sub

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

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

Dim stDocName As String

stDocName = ChrW(1085) & ChrW(1086) & ChrW(1084) & ChrW(1077) & ChrW(1088) & ChrW(32) & ChrW(1085) & ChrW(1077) & ChrW(1076) & ChrW(1077) & ChrW(1083) & ChrW(1080)

DoCmd.OpenQuery stDocName, acNormal, acEdit

Exit_Кнопка20_Click:

Exit Sub

Err_Кнопка20_Click:

MsgBox Err.Description

Resume Exit_Кнопка20_Click

End Sub

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

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

Dim stDocName As String

stDocName = ChrW(1076) & ChrW(1086) & ChrW(1073) & ChrW(1072) & ChrW(1074) & ChrW(1083) & ChrW(1077) & ChrW(1085) & ChrW(1080) & ChrW(1077) & ChrW(32) & ChrW(1095) & ChrW(1077) & ChrW(1090) & ChrW(1085) & ChrW(1086) & ChrW(1089) & ChrW(1090) & ChrW(1080)

DoCmd.OpenQuery stDocName, acNormal, acEdit

Exit_Кнопка22_Click:

Exit Sub

Err_Кнопка22_Click:

MsgBox Err.Description

Resume Exit_Кнопка22_Click

End Sub

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

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

Dim stDocName As String

Dim stLinkCriteria As String

stDocName = ChrW(1056) & ChrW(1072) & ChrW(1089) & ChrW(1087) & ChrW(1080) & ChrW(1089) & ChrW(1072) & ChrW(1085) & ChrW(1080) & ChrW(1077) & ChrW(95) & ChrW(1085) & ChrW(1077) & ChrW(1076) & ChrW(1077) & ChrW(1083) & ChrW(1103) & ChrW(32) & ChrW(1074) & ChrW(1089) & ChrW(1077)

stLinkCriteria = "[четная/нечетная]=" & "'" & Me![нечетная/четная] & "'"

DoCmd.OpenForm stDocName, , , stLinkCriteria

Exit_Кнопка23_Click:

Exit Sub

Err_Кнопка23_Click:

MsgBox Err.Description

Resume Exit_Кнопка23_Click

End Sub

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

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

Dim stDocName As String

stDocName = ChrW(1076) & ChrW(1086) & ChrW(1073) & ChrW(1072) & ChrW(1074) & ChrW(1083) & ChrW(1077) & ChrW(1085) & ChrW(1080) & ChrW(1077) & ChrW(32) & ChrW(1095) & ChrW(1077) & ChrW(1090) & ChrW(1085) & ChrW(1086) & ChrW(1089) & ChrW(1090) & ChrW(1080)

DoCmd.OpenQuery stDocName, acNormal, acEdit

DoCmd.DoMenuItem acFormBar, acRecordsMenu, 5, , acMenuVer70

Exit_Кнопка25_Click:

Exit Sub

Err_Кнопка25_Click:

MsgBox Err.Description

Resume Exit_Кнопка25_Click

End Sub

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

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

DoCmd.DoMenuItem acFormBar, acRecordsMenu, 5, , acMenuVer70

Exit_Кнопка26_Click:

Exit Sub

Err_Кнопка26_Click:

MsgBox Err.Description

Resume Exit_Кнопка26_Click

End Sub

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

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

Dim stDocName As String

Dim stLinkCriteria As String

stDocName = ChrW(1088) & ChrW(1072) & ChrW(1089) & ChrW(1087) & ChrW(1080) & ChrW(1089) & ChrW(1072) & ChrW(1085) & ChrW(1080) & ChrW(1077) & ChrW(95) & ChrW(1085) & ChrW(1077) & ChrW(1076) & ChrW(1077) & ChrW(1083) & ChrW(1103) & ChrW(32) & ChrW(1074) & ChrW(1089) & ChrW(1077)

stLinkCriteria = "[Неделя нечет/чет]=" & "'" & Me![нечетная/четная] & "'"

DoCmd.OpenForm stDocName, , , stLinkCriteria

Exit_Кнопка27_Click:

Exit Sub

Err_Кнопка27_Click:

MsgBox Err.Description

Resume Exit_Кнопка27_Click

End Sub

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

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

Dim stDocName As String

Dim stLinkCriteria As String

stDocName = ChrW(51) & ChrW(1082) & ChrW(1072) & ChrW(1083) & ChrW(1077) & ChrW(1085) & ChrW(1076) & ChrW(50)

DoCmd.OpenForm stDocName, , , stLinkCriteria

Exit_Кнопка28_Click:

Exit Sub

Err_Кнопка28_Click:

MsgBox Err.Description

Resume Exit_Кнопка28_Click

End Sub

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

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

DoCmd.Close

Exit_Кнопка29_Click:

Exit Sub

Err_Кнопка29_Click:

MsgBox Err.Description

Resume Exit_Кнопка29_Click

End Sub

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

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

DoCmd.Close

Exit_Кнопка30_Click:

Exit Sub

Err_Кнопка30_Click:

MsgBox Err.Description

Resume Exit_Кнопка30_Click

End Sub

Форма «Текущая неделя»

Option Compare Database

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

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

Dim stDocName As String

Dim stLinkCriteria As String

stDocName = ChrW(50) & ChrW(1056) & ChrW(1072) & ChrW(1089) & ChrW(1087) & ChrW(1080) & ChrW(1089) & ChrW(1072) & ChrW(1085) & ChrW(1080) & ChrW(1077) & ChrW(95) & ChrW(1085) & ChrW(1077) & ChrW(1076) & ChrW(1077) & ChrW(1083) & ChrW(1103) & ChrW(49)

stLinkCriteria = "[четная/нечетная]=" & "'" & Me![Поле7] & "'"

DoCmd.OpenForm stDocName, , , stLinkCriteria

Exit_Кнопка30_Click:

Exit Sub

Err_Кнопка30_Click:

MsgBox Err.Description

Resume Exit_Кнопка30_Click

End Sub

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

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

Dim stDocName As String

Dim stLinkCriteria As String

stDocName = ChrW(51) & ChrW(1088) & ChrW(1072) & ChrW(1089) & ChrW(1087) & ChrW(1080) & ChrW(1089) & ChrW(32) & ChrW(1085) & ChrW(1086) & ChrW(1074)

stLinkCriteria = "[Неделя нечет/чет]=" & "'" & Me![Поле7] & "'"

DoCmd.OpenForm stDocName, , , stLinkCriteria

Exit_Кнопка31_Click:

Exit Sub

Err_Кнопка31_Click:

MsgBox Err.Description

Resume Exit_Кнопка31_Click

End Sub

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

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

Dim stDocName As String

Dim stLinkCriteria As String

stDocName = ChrW(51) & ChrW(1088) & ChrW(1072) & ChrW(1089) & ChrW(1087) & ChrW(1080) & ChrW(1089) & ChrW(32) & ChrW(1085) & ChrW(1086) & ChrW(1074)

stLinkCriteria = "[День недели]=" & "'" & Me![Поле34] & "'"

DoCmd.OpenForm stDocName, , , stLinkCriteria

Exit_Кнопка36_Click:

Exit Sub

Err_Кнопка36_Click:

MsgBox Err.Description

Resume Exit_Кнопка36_Click

End Sub

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

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

Dim stDocName As String

Dim stLinkCriteria As String

stDocName = ChrW(51) & ChrW(1088) & ChrW(1072) & ChrW(1089) & ChrW(1087) & ChrW(1080) & ChrW(1089) & ChrW(32) & ChrW(1087) & ChrW(1086) & ChrW(1085)

stLinkCriteria = "[Неделя нечет/чет]=" & "'" & Me![Поле7] & "'"

DoCmd.OpenForm stDocName, , , stLinkCriteria

Exit_Кнопка37_Click:

Exit Sub

Err_Кнопка37_Click:

MsgBox Err.Description

Resume Exit_Кнопка37_Click

End Sub

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

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

Dim stDocName As String

Dim stLinkCriteria As String

stDocName = ChrW(51) & ChrW(1088) & ChrW(1072) & ChrW(1089) & ChrW(1087) & ChrW(1080) & ChrW(1089) & ChrW(32) & ChrW(1074) & ChrW(1090)

stLinkCriteria = "[Неделя нечет/чет]=" & "'" & Me![Поле7] & "'"

DoCmd.OpenForm stDocName, , , stLinkCriteria

Exit_Кнопка40_Click:

Exit Sub

Err_Кнопка40_Click:

MsgBox Err.Description

Resume Exit_Кнопка40_Click

End Sub

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

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

Dim stDocName As String

Dim stLinkCriteria As String

stDocName = ChrW(1053) & ChrW(1072) & ChrW(1095) & ChrW(1072) & ChrW(1083) & ChrW(1086) & ChrW(32) & ChrW(1091) & ChrW(1095) & ChrW(32) & ChrW(1075) & ChrW(1086) & ChrW(1076) & ChrW(1072)

DoCmd.OpenForm stDocName, , , stLinkCriteria

Exit_Кнопка55_Click:

Exit Sub

Err_Кнопка55_Click:

MsgBox Err.Description

Resume Exit_Кнопка55_Click

End Sub

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

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

Dim stDocName As String

Dim stLinkCriteria As String

stDocName = ChrW(51) & ChrW(1088) & ChrW(1072) & ChrW(1089) & ChrW(1087) & ChrW(1080) & ChrW(1089) & ChrW(32) & ChrW(1087) & ChrW(1086) & ChrW(1085)

stLinkCriteria = "[Неделя нечет/чет]=" & "'" & Me![Поле56] & "'"

DoCmd.OpenForm stDocName, , , stLinkCriteria

Exit_Кнопка66_Click:

Exit Sub

Err_Кнопка66_Click:

MsgBox Err.Description

Resume Exit_Кнопка66_Click

End Sub

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

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

Dim stDocName As String

Dim stLinkCriteria As String

stDocName = ChrW(51) & ChrW(1088) & ChrW(1072) & ChrW(1089) & ChrW(1087) & ChrW(1080) & ChrW(1089) & ChrW(32) & ChrW(1074) & ChrW(1090)

stLinkCriteria = "[Неделя нечет/чет]=" & "'" & Me![Поле58] & "'"

DoCmd.OpenForm stDocName, , , stLinkCriteria

Exit_Кнопка67_Click:

Exit Sub

Err_Кнопка67_Click:

MsgBox Err.Description

Resume Exit_Кнопка67_Click

End Sub

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

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

Dim stDocName As String

Dim stLinkCriteria As String

stDocName = ChrW(51) & ChrW(1088) & ChrW(1072) & ChrW(1089) & ChrW(1087) & ChrW(1080) & ChrW(1089) & ChrW(32) & ChrW(1089) & ChrW(1088)

stLinkCriteria = "[Неделя нечет/чет]=" & "'" & Me![Поле59] & "'"

DoCmd.OpenForm stDocName, , , stLinkCriteria

Exit_Кнопка68_Click:

Exit Sub

Err_Кнопка68_Click:

MsgBox Err.Description

Resume Exit_Кнопка68_Click

End Sub

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

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

Dim stDocName As String

Dim stLinkCriteria As String

stDocName = ChrW(51) & ChrW(1088) & ChrW(1072) & ChrW(1089) & ChrW(1087) & ChrW(1080) & ChrW(1089) & ChrW(32) & ChrW(1095) & ChrW(1090)

stLinkCriteria = "[Неделя нечет/чет]=" & "'" & Me![Поле60] & "'"

DoCmd.OpenForm stDocName, , , stLinkCriteria

Exit_Кнопка69_Click:

Exit Sub

Err_Кнопка69_Click:

MsgBox Err.Description

Resume Exit_Кнопка69_Click

End Sub

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

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

Dim stDocName As String

Dim stLinkCriteria As String

stDocName = ChrW(51) & ChrW(1088) & ChrW(1072) & ChrW(1089) & ChrW(1087) & ChrW(1080) & ChrW(1089) & ChrW(32) & ChrW(1087) & ChrW(1090)

stLinkCriteria = "[Неделя нечет/чет]=" & "'" & Me![Поле61] & "'"

DoCmd.OpenForm stDocName, , , stLinkCriteria

Exit_Кнопка70_Click:

Exit Sub

Err_Кнопка70_Click:

MsgBox Err.Description

Resume Exit_Кнопка70_Click

End Sub

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

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

Dim stDocName As String

Dim stLinkCriteria As String

stDocName = ChrW(1042) & ChrW(1074) & ChrW(1076) & ChrW(1080) & ChrW(1090) & ChrW(1077) & ChrW(32) & ChrW(1076) & ChrW(1072) & ChrW(1090) & ChrW(1091)

DoCmd.OpenForm stDocName, , , stLinkCriteria

Exit_Кнопка74_Click:

Exit Sub

Err_Кнопка74_Click:

MsgBox Err.Description

Resume Exit_Кнопка74_Click

End Sub

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

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

Dim stDocName As String

Dim stLinkCriteria As String

stDocName = ChrW(1047) & ChrW(1072) & ChrW(1084) & ChrW(1077) & ChrW(1090) & ChrW(1082) & ChrW(1080)

stLinkCriteria = "[Дата]=" & "#" & Me![Поле9] & "#"

DoCmd.OpenForm stDocName, , , stLinkCriteria

Exit_Кнопка80_Click:

Exit Sub

Err_Кнопка80_Click:

MsgBox Err.Description

Resume Exit_Кнопка80_Click

End Sub

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

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

Dim stDocName As String

Dim stLinkCriteria As String

stDocName = ChrW(1047) & ChrW(1072) & ChrW(1084) & ChrW(1077) & ChrW(1090) & ChrW(1082) & ChrW(1080)

stLinkCriteria = "[Дата]=" & "#" & Me![Поле9] & "#"

DoCmd.OpenForm stDocName, , , stLinkCriteria

Exit_Кнопка81_Click:

Exit Sub

Err_Кнопка81_Click:

MsgBox Err.Description

Resume Exit_Кнопка81_Click

End Sub

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

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

Dim stDocName As String

Dim stLinkCriteria As String

stDocName = ChrW(1047) & ChrW(1072) & ChrW(1084) & ChrW(1077) & ChrW(1090) & ChrW(1082) & ChrW(1080)

DoCmd.OpenForm stDocName, , , stLinkCriteria

Exit_Кнопка82_Click:

Exit Sub

Err_Кнопка82_Click:

MsgBox Err.Description

Resume Exit_Кнопка82_Click

End Sub

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

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

Dim stDocName As String

Dim stLinkCriteria As String

stDocName = ChrW(1047) & ChrW(1072) & ChrW(1084) & ChrW(1077) & ChrW(1090) & ChrW(1082) & ChrW(1080)

stLinkCriteria = "[Дата]=" & "#" & Me![Сегодня] & "#"

DoCmd.OpenForm stDocName, , , stLinkCriteria

Exit_Кнопка83_Click:

Exit Sub

Err_Кнопка83_Click:

MsgBox Err.Description

Resume Exit_Кнопка83_Click

End Sub

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

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

Dim stDocName As String

Dim stLinkCriteria As String

stDocName = ChrW(1047) & ChrW(1072) & ChrW(1084) & ChrW(1077) & ChrW(1090) & ChrW(1082) & ChrW(1080)

DoCmd.OpenForm stDocName, , , stLinkCriteria

Exit_Кнопка84_Click:

Exit Sub

Err_Кнопка84_Click:

MsgBox Err.Description

Resume Exit_Кнопка84_Click

End Sub

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

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

Dim stDocName As String

Dim stLinkCriteria As String

stDocName = ChrW(1042) & ChrW(1089) & ChrW(1077) & ChrW(32) & ChrW(1079) & ChrW(1072) & ChrW(1084) & ChrW(1077) & ChrW(1090) & ChrW(1082) & ChrW(1080)

DoCmd.OpenForm stDocName, , , stLinkCriteria

Exit_Кнопка86_Click:

Exit Sub

Err_Кнопка86_Click:

MsgBox Err.Description

Resume Exit_Кнопка86_Click

End Sub

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

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

Dim stDocName As String

Dim stLinkCriteria As String

stDocName = ChrW(1047) & ChrW(1072) & ChrW(1084) & ChrW(1077) & ChrW(1090) & ChrW(1082) & ChrW(1080) & ChrW(32) & ChrW(1089) & ChrW(1077) & ChrW(1075) & ChrW(1086) & ChrW(1076) & ChrW(1085) & ChrW(1103)

DoCmd.OpenForm stDocName, , , stLinkCriteria

Exit_Кнопка87_Click:

Exit Sub

Err_Кнопка87_Click:

MsgBox Err.Description

Resume Exit_Кнопка87_Click

End Sub

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

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

DoCmd.Close

Exit_Кнопка88_Click:

Exit Sub

Err_Кнопка88_Click:

MsgBox Err.Description

Resume Exit_Кнопка88_Click

End Sub

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

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

DoCmd.Close

Exit_Кнопка89_Click:

Exit Sub

Err_Кнопка89_Click:

MsgBox Err.Description

Resume Exit_Кнопка89_Click

End Sub

Форма «Введите дату»

Option Compare Database

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

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

Dim stDocName As String

stDocName = ChrW(1057) & ChrW(1045) & ChrW(1043) & ChrW(1054) & ChrW(1044) & ChrW(1053) & ChrW(1071)

DoCmd.OpenQuery stDocName, acNormal, acEdit

DoCmd.DoMenuItem acFormBar, acRecordsMenu, 5, , acMenuVer70

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

DoCmd.DoMenuItem acFormBar, acRecordsMenu, 5, , acMenuVer70

Exit_Кнопка3_Click:

Exit Sub

Err_Кнопка3_Click:

MsgBox Err.Description

Resume Exit_Кнопка3_Click

End Sub

Форма «Группа»

Option Compare Database

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

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

Dim stDocName As String

Dim stLinkCriteria As String

stDocName = ChrW(1076) & ChrW(1080) & ChrW(1089) & ChrW(1094) & ChrW(1080) & ChrW(1087) & ChrW(1083) & ChrW(1080) & ChrW(1085) & ChrW(1099)

stLinkCriteria = "[Группа]=" & "'" & Me![Группа] & "'"

DoCmd.OpenForm stDocName, , , stLinkCriteria

Exit_Кнопка6_Click:

Exit Sub

Err_Кнопка6_Click:

MsgBox Err.Description

Resume Exit_Кнопка6_Click

End Sub

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

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

Dim stDocName As String

Dim stLinkCriteria As String

stDocName = ChrW(1087) & ChrW(1077) & ChrW(1088) & ChrW(1077) & ChrW(1095) & ChrW(1077) & ChrW(1085) & ChrW(1100) & ChrW(32) & ChrW(1076) & ChrW(1080) & ChrW(1089) & ChrW(1094) & ChrW(1080) & ChrW(1087) & ChrW(1083) & ChrW(1080) & ChrW(1085)

stLinkCriteria = "[Группа]=" & "'" & Me![Группа] & "'"

DoCmd.OpenForm stDocName, , , stLinkCriteria

Exit_Кнопка7_Click:

Exit Sub

Err_Кнопка7_Click:

MsgBox Err.Description

Resume Exit_Кнопка7_Click

End Sub

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

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

DoCmd.Close

Exit_Кнопка8_Click:

Exit Sub

Err_Кнопка8_Click:

MsgBox Err.Description

Resume Exit_Кнопка8_Click

End Sub

Форма «Дисциплины2»

Option Compare Database

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

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

DoCmd.Close

Exit_Кнопка12_Click:

Exit Sub

Err_Кнопка12_Click:

MsgBox Err.Description

Resume Exit_Кнопка12_Click

End Sub

Форма «КТП»

Option Compare Database

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

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

Dim stDocName As String

stDocName = ChrW(1050) & ChrW(1058) & ChrW(1055)

DoCmd.OpenReport stDocName, acPreview

Exit_Кнопка16_Click:

Exit Sub

Err_Кнопка16_Click:

MsgBox Err.Description

Resume Exit_Кнопка16_Click

End Sub

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

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

DoCmd.Close

Exit_Кнопка17_Click:

Exit Sub

Err_Кнопка17_Click:

MsgBox Err.Description

Resume Exit_Кнопка17_Click

End Sub

Форма «Литература»

Option Compare Database

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

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

Dim stDocName As String

Dim stLinkCriteria As String

stDocName = ChrW(1052) & ChrW(1077) & ChrW(1090) & ChrW(1086) & ChrW(1076) & ChrW(1080) & ChrW(1095) & ChrW(1082) & ChrW(1080)

stLinkCriteria = "[Наименование дисциплин, входящих в заявленную образовательную пр]=" & Me![Наименование дисциплин, входящих в заявленную образовательную пр]

DoCmd.OpenForm stDocName, , , stLinkCriteria

Exit_Кнопка11_Click:

Exit Sub

Err_Кнопка11_Click:

MsgBox Err.Description

Resume Exit_Кнопка11_Click

End Sub

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

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

Dim stDocName As String

stDocName = ChrW(1083) & ChrW(1080) & ChrW(1090) & ChrW(1077) & ChrW(1088) & ChrW(1072) & ChrW(1090) & ChrW(1091) & ChrW(1088) & ChrW(1072)

DoCmd.OpenReport stDocName, acPreview

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(1052) & ChrW(1077) & ChrW(1090) & ChrW(1086) & ChrW(1076) & ChrW(1080) & ChrW(1095) & ChrW(1082) & ChrW(1080)

DoCmd.OpenForm stDocName, , , stLinkCriteria

Exit_Кнопка13_Click:

Exit Sub

Err_Кнопка13_Click:

MsgBox Err.Description

Resume Exit_Кнопка13_Click

End Sub

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

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

Dim stDocName As String

stDocName = ChrW(1052) & ChrW(1077) & ChrW(1090) & ChrW(1086) & ChrW(1076) & ChrW(1080) & ChrW(1095) & ChrW(1082) & ChrW(1080)

DoCmd.OpenQuery stDocName, acNormal, acEdit

Exit_Кнопка14_Click:

Exit Sub

Err_Кнопка14_Click:

MsgBox Err.Description

Resume Exit_Кнопка14_Click

End Sub

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

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

Screen.PreviousControl.SetFocus

DoCmd.FindNext

Exit_Кнопка15_Click:

Exit Sub

Err_Кнопка15_Click:

MsgBox Err.Description

Resume Exit_Кнопка15_Click

End Sub

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

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

Dim stDocName As String

stDocName = ChrW(1074) & ChrW(1074) & ChrW(1077) & ChrW(1076) & ChrW(1080) & ChrW(1090) & ChrW(1077) & ChrW(32) & ChrW(1075) & ChrW(1086) & ChrW(1076) & ChrW(32) & ChrW(1080) & ChrW(1079) & ChrW(1076) & ChrW(1072) & ChrW(1085) & ChrW(1080) & ChrW(1103)

DoCmd.OpenQuery stDocName, acNormal, acEdit

Exit_Кнопка16_Click:

Exit Sub

Err_Кнопка16_Click:

MsgBox Err.Description

Resume Exit_Кнопка16_Click

End Sub

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

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

Dim stDocName As String

stDocName = ChrW(1083) & ChrW(1080) & ChrW(1090) & ChrW(1077) & ChrW(1088) & ChrW(1072) & ChrW(1090) & ChrW(1091) & ChrW(1088) & ChrW(1072)

DoCmd.OpenReport stDocName, acPreview

Exit_Кнопка17_Click:

Exit Sub

Err_Кнопка17_Click:

MsgBox Err.Description

Resume Exit_Кнопка17_Click

End Sub

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

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

DoCmd.Close

Exit_Кнопка18_Click:

Exit Sub

Err_Кнопка18_Click:

MsgBox Err.Description

Resume Exit_Кнопка18_Click

End Sub

Форма «литература по дисциплинам»

Option Compare Database

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

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

Dim stDocName As String

Dim stLinkCriteria As String

stDocName = ChrW(1083) & ChrW(1080) & ChrW(1090) & ChrW(1077) & ChrW(1088) & ChrW(1072) & ChrW(1090) & ChrW(1091) & ChrW(1088) & ChrW(1072)

stLinkCriteria = "[Наименование дисциплин, входящих в заявленную образовательную пр]=" & "'" & Me![Дисциплина] & "'"

DoCmd.OpenForm stDocName, , , stLinkCriteria

Exit_Кнопка4_Click:

Exit Sub

Err_Кнопка4_Click:

MsgBox Err.Description

Resume Exit_Кнопка4_Click

End Sub

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

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

Dim stDocName As String

Dim stLinkCriteria As String

stDocName = ChrW(1083) & ChrW(1080) & ChrW(1090) & ChrW(1077) & ChrW(1088) & ChrW(1072) & ChrW(1090) & ChrW(1091) & ChrW(1088) & ChrW(1072)

stLinkCriteria = "[Наименование дисциплин, входящих в заявленную образовательную пр]=" & "'" & Me![Дисциплина] & "'"

DoCmd.OpenForm stDocName, , , stLinkCriteria

Exit_Кнопка5_Click:

Exit Sub

Err_Кнопка5_Click:

MsgBox Err.Description

Resume Exit_Кнопка5_Click

End Sub

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

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

Dim stDocName As String

Dim stLinkCriteria As String

stDocName = ChrW(1083) & ChrW(1080) & ChrW(1090) & ChrW(1077) & ChrW(1088) & ChrW(1072) & ChrW(1090) & ChrW(1091) & ChrW(1088) & ChrW(1072)

stLinkCriteria = "[Наименование дисциплин, входящих в заявленную образовательную пр]=" & Me![Дисциплина]

DoCmd.OpenForm stDocName, , , stLinkCriteria

Exit_Кнопка7_Click:

Exit Sub

Err_Кнопка7_Click:

MsgBox Err.Description

Resume Exit_Кнопка7_Click

End Sub

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

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

Dim stDocName As String

Dim stLinkCriteria As String

stDocName = ChrW(1083) & ChrW(1080) & ChrW(1090) & ChrW(1077) & ChrW(1088) & ChrW(1072) & ChrW(1090) & ChrW(1091) & ChrW(1088) & ChrW(1072)

stLinkCriteria = "[Наименование дисциплин, входящих в заявленную образовательную пр]=" & Me![Код]

DoCmd.OpenForm stDocName, , , stLinkCriteria

Exit_Кнопка9_Click:

Exit Sub

Err_Кнопка9_Click:

MsgBox Err.Description

Resume Exit_Кнопка9_Click

End Sub

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

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

Dim stDocName As String

Dim stLinkCriteria As String

stDocName = ChrW(1076) & ChrW(1080) & ChrW(1089) & ChrW(1094) & ChrW(1080) & ChrW(1087) & ChrW(1083) & ChrW(1080) & ChrW(1085) & ChrW(1099) & ChrW(50)

DoCmd.OpenForm stDocName, , , stLinkCriteria

Exit_Кнопка10_Click:

Exit Sub

Err_Кнопка10_Click:

MsgBox Err.Description

Resume Exit_Кнопка10_Click

End Sub

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

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

DoCmd.Close

Exit_Кнопка11_Click:

Exit Sub

Err_Кнопка11_Click:

MsgBox Err.Description

Resume Exit_Кнопка11_Click

End Sub

Форма «меню»

Option Compare Database

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

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

Dim stDocName As String

Dim stLinkCriteria As String

stDocName = ChrW(1043) & ChrW(1088) & ChrW(1091) & ChrW(1087) & ChrW(1087) & ChrW(1072)

DoCmd.OpenForm stDocName, , , stLinkCriteria

Exit_Кнопка5_Click:

Exit Sub

Err_Кнопка5_Click:

MsgBox Err.Description

Resume Exit_Кнопка5_Click

End Sub

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

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

Dim stDocName As String

Dim stLinkCriteria As String

stDocName = ChrW(1076) & ChrW(1080) & ChrW(1089) & ChrW(1094) & ChrW(1080) & ChrW(1087) & ChrW(1083) & ChrW(1080) & ChrW(1085) & ChrW(1099)

DoCmd.OpenForm stDocName, , , stLinkCriteria

Exit_Кнопка6_Click:

Exit Sub

Err_Кнопка6_Click:

MsgBox Err.Description

Resume Exit_Кнопка6_Click

End Sub

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

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

Dim stDocName As String

Dim stLinkCriteria As String

stDocName = ChrW(1076) & ChrW(1080) & ChrW(1089) & ChrW(1094) & ChrW(1080) & ChrW(1087) & ChrW(1083) & ChrW(1080) & ChrW(1085) & ChrW(1099) & ChrW(49)

DoCmd.OpenForm stDocName, , , stLinkCriteria

Exit_Кнопка7_Click:

Exit Sub

Err_Кнопка7_Click:

MsgBox Err.Description

Resume Exit_Кнопка7_Click

End Sub

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

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

Dim stDocName As String

Dim stLinkCriteria As String

stDocName = ChrW(1083) & ChrW(1080) & ChrW(1090) & ChrW(1077) & ChrW(1088) & ChrW(1072) & ChrW(1090) & ChrW(1091) & ChrW(1088) & ChrW(1072)

DoCmd.OpenForm stDocName, , , stLinkCriteria

Exit_Кнопка8_Click:

Exit Sub

Err_Кнопка8_Click:

MsgBox Err.Description

Resume Exit_Кнопка8_Click

End Sub

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

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

Dim stDocName As String

Dim stLinkCriteria As String

stDocName = ChrW(1055) & ChrW(1088) & ChrW(1077) & ChrW(1087) & ChrW(1086) & ChrW(1076) & ChrW(1072) & ChrW(1074) & ChrW(1072) & ChrW(1090) & ChrW(1077) & ChrW(1083) & ChrW(1080)

DoCmd.OpenForm stDocName, , , stLinkCriteria

Exit_Кнопка9_Click:

Exit Sub

Err_Кнопка9_Click:

MsgBox Err.Description

Resume Exit_Кнопка9_Click

End Sub

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

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

Dim stDocName As String

Dim stLinkCriteria As String

stDocName = ChrW(1062) & ChrW(1050)

DoCmd.OpenForm stDocName, , , stLinkCriteria

Exit_Кнопка10_Click:

Exit Sub

Err_Кнопка10_Click:

MsgBox Err.Description

Resume Exit_Кнопка10_Click

End Sub

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

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

DoCmd.Quit

Exit_Кнопка11_Click:

Exit Sub

Err_Кнопка11_Click:

MsgBox Err.Description

Resume Exit_Кнопка11_Click

End Sub

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

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

DoCmd.Quit

Exit_Кнопка12_Click:

Exit Sub

Err_Кнопка12_Click:

MsgBox Err.Description

Resume Exit_Кнопка12_Click

End Sub

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

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

DoCmd.Quit

Exit_Кнопка15_Click:

Exit Sub

Err_Кнопка15_Click:

MsgBox Err.Description

Resume Exit_Кнопка15_Click

End Sub

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

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

Dim stDocName As String

Dim stLinkCriteria As String

stDocName = ChrW(1042) & ChrW(1072) & ChrW(1082) & ChrW(1072) & ChrW(1085) & ChrW(1089) & ChrW(1080) & ChrW(1103)

DoCmd.OpenForm stDocName, , , stLinkCriteria

Exit_Кнопка19_Click:

Exit Sub

Err_Кнопка19_Click:

MsgBox Err.Description

Resume Exit_Кнопка19_Click

End Sub

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

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

Dim stDocName As String

Dim stLinkCriteria As String

stDocName = ChrW(1052) & ChrW(1077) & ChrW(1090) & ChrW(1086) & ChrW(1076) & ChrW(1080) & ChrW(1095) & ChrW(1082) & ChrW(1080)

DoCmd.OpenForm stDocName, , , stLinkCriteria

Exit_Кнопка20_Click:

Exit Sub

Err_Кнопка20_Click:

MsgBox Err.Description

Resume Exit_Кнопка20_Click

End Sub

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

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

DoCmd.Close

Exit_Кнопка22_Click:

Exit Sub

Err_Кнопка22_Click:

MsgBox Err.Description

Resume Exit_Кнопка22_Click

End Sub

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

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

Dim stDocName As String

Dim stLinkCriteria As String

stDocName = ChrW(1087) & ChrW(1077) & ChrW(1088) & ChrW(1077) & ChrW(1095) & ChrW(1077) & ChrW(1085) & ChrW(1100) & ChrW(32) & ChrW(1076) & ChrW(1080) & ChrW(1089) & ChrW(1094) & ChrW(1080) & ChrW(1087) & ChrW(1083) & ChrW(1080) & ChrW(1085)

DoCmd.OpenForm stDocName, , , stLinkCriteria

Exit_Кнопка23_Click:

Exit Sub

Err_Кнопка23_Click:

MsgBox Err.Description

Resume Exit_Кнопка23_Click

End Sub

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

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

Dim stDocName As String

Dim stLinkCriteria As String

stDocName = ChrW(1083) & ChrW(1080) & ChrW(1090) & ChrW(1077) & ChrW(1088) & ChrW(1072) & ChrW(1090) & ChrW(1091) & ChrW(1088) & ChrW(1072) & ChrW(32) & ChrW(1087) & ChrW(1086) & ChrW(32) & ChrW(1076) & ChrW(1080) & ChrW(1089) & ChrW(1094) & ChrW(1080) & ChrW(1087) & ChrW(1083) & ChrW(1080) & ChrW(1085) & ChrW(1072) & ChrW(1084)

DoCmd.OpenForm stDocName, , , stLinkCriteria

Exit_Кнопка24_Click:

Exit Sub

Err_Кнопка24_Click:

MsgBox Err.Description

Resume Exit_Кнопка24_Click

End Sub

Форма «Методички»

Option Compare Database

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

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

DoCmd.Close

Exit_Кнопка15_Click:

Exit Sub

Err_Кнопка15_Click:

MsgBox Err.Description

Resume Exit_Кнопка15_Click

End Sub

Форма «Нагрузка»

Option Compare Database

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

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

Dim stDocName As String

stDocName = ChrW(1053) & ChrW(1072) & ChrW(1075) & ChrW(1088) & ChrW(1091) & ChrW(1079) & ChrW(1082) & ChrW(1072)

DoCmd.OpenReport stDocName, acPreview

Exit_Кнопка30_Click:

Exit Sub

Err_Кнопка30_Click:

MsgBox Err.Description

Resume Exit_Кнопка30_Click

End Sub

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

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

DoCmd.Close

Exit_Кнопка31_Click:

Exit Sub

Err_Кнопка31_Click:

MsgBox Err.Description

Resume Exit_Кнопка31_Click

End Sub

Форма «Перечень дисциплин»

Option Compare Database

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

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

DoCmd.Close

Exit_Кнопка13_Click:

Exit Sub

Err_Кнопка13_Click:

MsgBox Err.Description

Resume Exit_Кнопка13_Click

End Sub

Форма «Преподаватели»

Option Compare Database

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

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

DoCmd.Close

Exit_Кнопка6_Click:

Exit Sub

Err_Кнопка6_Click:

MsgBox Err.Description

Resume Exit_Кнопка6_Click

End Sub

Форма «Расписание_неделя все»

Option Compare Database

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

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

DoCmd.Close

Exit_Кнопка8_Click:

Exit Sub

Err_Кнопка8_Click:

MsgBox Err.Description

Resume Exit_Кнопка8_Click

End Sub

Форма «Расписание_неделя нечет»

Option Compare Database

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

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

Dim stDocName As String

Dim stLinkCriteria As String

stDocName = ChrW(1056) & ChrW(1072) & ChrW(1089) & ChrW(1087) & ChrW(1080) & ChrW(1089) & ChrW(1072) & ChrW(1085) & ChrW(1080) & ChrW(1077) & ChrW(95) & ChrW(1085) & ChrW(1077) & ChrW(1076) & ChrW(1077) & ChrW(1083) & ChrW(1103) & ChrW(1063) & ChrW(1077) & ChrW(1090)

stLinkCriteria = "[пара]=" & Me![Пара]

DoCmd.OpenForm stDocName, , , stLinkCriteria

Exit_Кнопка18_Click:

Exit Sub

Err_Кнопка18_Click:

MsgBox Err.Description

Resume Exit_Кнопка18_Click

End Sub

Форма «ЦК»

Option Compare Database

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

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

DoCmd.Close

Exit_Кнопка4_Click:

Exit Sub

Err_Кнопка4_Click:

MsgBox Err.Description

Resume Exit_Кнопка4_Click

End Sub

Отчёты

КТП

урок Календарные сроки Наименование Количеств Вид занятий Учебно-наглядные Задания для Примечания

изучения темы тем и их краткое о часов на пособия, используемые студентов (отметка о

(недели) содержание тему при изучении темы выполнении и др)

1 1 1.1. История развития 2 лекция записи на доске [3] с. 10-19

баз данных.Основные

понятия и определения

2 2 1.2. Данные. 2 лекция плакат конспект

Информация.База

данных. Схема БД.

Система управления

БД.

3 3 2.1. Теоретико- 2 лекция плакат [3] с. 31-44

графовые модели

данных. Иерархическая

модель.

4 4 2.2. Теоретико- 2 лекция плакат [3] с. 31-45

графовые модели

данных. Сетевая модель.

урок Календарные сроки Наименование Количеств Вид занятий Учебно-наглядные Задания для Примечания

изучения темы тем и их краткое о часов на пособия, используемые студентов (отметка о

(недели) содержание тему при изучении темы выполнении и др)

5 5 2.3. Реляционная 2 лекция записи на доске [3] с. 47-51

модель. Основные

определения

6 6 2.4. Организация 2 лекция записи на доске [3] с. 47-52

хранения данных в

реляционной модели

данных

7 7 2.5. Теоретико- 2 лекция записи на доске [3] с. 51-56

множественные

операции реляционной

алгебры

8 8 2.6. Примеры решения 2 практ.раб записи на доске инд. задания

практических задач.

9 9 2.7. Специальные 2 лекция + практ.раб записи на доске [3] с. 57-64

операции реляционной

алгебры

урок Календарные сроки Наименование Количеств Вид занятий Учебно-наглядные Задания для Примечания

изучения темы тем и их краткое о часов на пособия, используемые студентов (отметка о

(недели) содержание тему при изучении темы выполнении и др)

10 10 2.8. Контрольная 2 к/р

работа по теме

"Теоретико-

множественные

операции реляционной

алгебры"

11 11 3.1.1.Системный анализ 2 лекция проектор [3] с. 104-107

предметной области.

12 12 3.1.2.Описание 2 лекция проектор [3] с. 104-108

предметной области,

описание БД.

13 13 3.1.3. Логическая и 2 лекция записи на доске [3] с. 21-23

физическая структура

БД.

14 14 3.1.4. Инфологический 2 лекция плакат [3] с. 121-127

подход к

проектированию БД.

Модель "сущность-

связь". Анализ сущностей

урок Календарные сроки Наименование Количеств Вид занятий Учебно-наглядные Задания для Примечания

изучения темы тем и их краткое о часов на пособия, используемые студентов (отметка о

(недели) содержание тему при изучении темы выполнении и др)

15 15 3.1.5. Переход к 2 лекция записи на доске [3] с. 129-134

реляционной модели

данных

16 16 Зачетная контрольная 2 к/р

работа

17 20 3.2.1. Функциональные 2 лекция плакат [3] с. 110-114

зависимости,

декомпозиция схем

отношений

18 20 3.2.2. Нормальные 2 лекция + практ.раб записи на доске [3] с. 114-120

формы схем отношений

(первая, вторая, третья,

форма Бойса-Кодда).

19 21 3.2.3. Многозначные 2 лекция + практ.раб записи на доске [3] с. 114-121

зависимости, четвертая

нормальная форма

урок Календарные сроки Наименование Количеств Вид занятий Учебно-наглядные Задания для Примечания

изучения темы тем и их краткое о часов на пособия, используемые студентов (отметка о

(недели) содержание тему при изучении темы выполнении и др)

20 21 3.3.1. Анализ рынка 2 лекция конспект

современных СУБД.

21 21 3.3.2. Средство СУБД 2 лекция проектор [1] с. 24-28

Access для создания баз

данных и приложений

пользователя.

22 22 3.3.3. Средства Visual 2 лекция записи на доске конспект

FoxPro для создания баз

данных и приложений

пользователя.

23 22 3.3.4. SQL – 2 лекция записи на доске [3] с. 135-140

универсальное средство

разработки запросов.

24 23 3.4.1. Безопасность 2 лекция записи на доске [3] с. 276-281

данных. Целостность

данных.

урок Календарные сроки Наименование Количеств Вид занятий Учебно-наглядные Задания для Примечания

изучения темы тем и их краткое о часов на пособия, используемые студентов (отметка о

(недели) содержание тему при изучении темы выполнении и др)

25 23 3.4.2. Принципы 2 лекция записи на доске конспект

совместного

использования данных.

26 23 3.5. Контрольная 2 к/р

работа

27 24 4.1.1. Проектирование 2 лекция проектор [1] с. 55-77

б.д. в ACCESS

28 24 4.1.2. Разработка 2 лекция проектор [1] с. 77-115

таблиц. Ввод данных,

просмотр, сортировка.

29 25 4.1.3. Основные 2 лекция проектор [1] с. 157-175

компаненты таблицы,

операции с таблицами в

ACCESS

урок Календарные сроки Наименование Количеств Вид занятий Учебно-наглядные Задания для Примечания

изучения темы тем и их краткое о часов на пособия, используемые студентов (отметка о

(недели) содержание тему при изучении темы выполнении и др)

30 25 4.1.4. Лабораторная 2 Лабораторная класс ПК файл отчета

работа "Основные работа

принципы работы с

СУБД ACCESS"

31 25 4.1.5. Лабораторная 2 Лабораторная класс ПК файл отчета

работа «Создание БД и работа

таблиц» (часть 1)

32 26 4.1.5.1. Лабораторная 2 Лабораторная класс ПК [1] с. 249-271

работа «Создание БД и работа

таблиц» (часть 2)

33 26 4.1.6. Лабораторная 2 Лабораторная класс ПК файл отчета

работа «Операции с работа

таблицей в

ACCESS»(часть 1)

34 27 4.1.6.1. Лабораторная 2 Лабораторная класс ПК файл отчета

работа «Операции с работа

таблицей в ACCESS»

(часть 2)

урок Календарные сроки Наименование Количеств Вид занятий Учебно-наглядные Задания для Примечания

изучения темы тем и их краткое о часов на пособия, используемые студентов (отметка о

(недели) содержание тему при изучении темы выполнении и др)

35 27 4.1.7. Связывание 2 лекция проектор [1] с. 349-363

таблиц,поля связи,

ключевые поля.

36 27 4.1.8. Составление 2 лекция проектор файл отчета

сложных запросов.

Создание и настройка

отчетов. Создание и

настройка диаграмм

37 28 4.1.9. Лабораторная 2 Лабораторная класс ПК файл отчета

работа «Построение работа

связей между

таблицами, построение

запросов» (часть 1)

38 28 4.1.9.1. Лабораторная 2 Лабораторная класс ПК файл отчета

работа «Построение работа

связей между

таблицами, построение

запросов» (часть 2)

39 29 4.1.9.2. Лабораторная 2 Лабораторная класс ПК [1] с. 393-423

работа «Построение работа

связей между

таблицами, построение

запросов» (часть 3)

урок Календарные сроки Наименование Количеств Вид занятий Учебно-наглядные Задания для Примечания

изучения темы тем и их краткое о часов на пособия, используемые студентов (отметка о

(недели) содержание тему при изучении темы выполнении и др)

40 29 4.1.10. Создание форм с 2 лекция проектор файл отчета

использованием

Автоформ и Мастера

форм

41 29 4.1.11. Лабораторная 2 Лабораторная класс ПК файл отчета

работа «Разработка работа

пользовательского

интерфейса. Формы»

(часть 1)

42 30 4.1.11.1. Лабораторная 2 Лабораторная класс ПК файл отчета

работа «Разработка работа

пользовательского

интерфейса. Формы»

(часть 2)

43 30 4.1.11.2. Лабораторная 2 Лабораторная класс ПК файл отчета

работа «Разработка работа

пользовательского

интерфейса. Формы»

(часть 3)

44 31 4.2.1. Работа с БД в 2 лекция проектор [2] с. 124-145

EXCEL. Формирование

и заполнение БД.

Сортировка БД.

Добавление итогов.

Фильтрация БД

урок Календарные сроки Наименование Количеств Вид занятий Учебно-наглядные Задания для Примечания

изучения темы тем и их краткое о часов на пособия, используемые студентов (отметка о

(недели) содержание тему при изучении темы выполнении и др)

45 31 4.2.3. Лабораторная 2 Лабораторная класс ПК файл отчета

работа "Работа со работа

списками" (часть 1)

46 31 4.2.3.1. Лабораторная 2 Лабораторная класс ПК файл отчета

работа "Работа со работа

списками" (часть 2)

47 32 4.2.4. Лабораторная 2 Лабораторная класс ПК файл отчета

работа "Создание БД в работа

EXCEL" (часть 1)

48 32 4.2.4.1. Лабораторная 2 Лабораторная класс ПК файл отчета

работа "Создание БД в работа

EXCEL" (часть 2)

49 32 4.3. Зачетная 1 к/р

контрольная работа

Литература

Наименование Количество Автор, название, Количест Методическое Год

дисциплин, обучающихся, место издания, во (экз) пособие издания

входящих в изучающих год издания

заявленную дисциплину учебной

образовательную (чел) литературы,

пр

Основы философии 15 1. Губин В.Д. Основы 15 2003

философии. - М.:

Форум: Инфра-М,

2003. Учебное пособие

для ССУЗ.

Основы философии 15 2. Канке В.А. Основы 13 2003

философии. - М.:

Логос, 2003. Учебник

для ССУЗ.

Основы философии 15 3. Горбачёв В.Г. 13 2003

Основы философии. -

М.: Владос-Пресс,

2003. Учебник для

ССУЗ.

Основы философии 15 4. CD Философия: 1 2004

Учебный курс. - СПб.:

2004.

Основы права 15 1. Казанцев В.И. 5 2003

Трудовое право. - М.:

Академия, 2003.

Учебник для ССУЗ.

Основы права 15 2. Бердычевский B.C. 6 2003

и др. Трудовое право.

- Ростов-на-Дону.:

Феникс, 2003. Учебное

пособие для ССУЗ.

Основы права 15 3. Мазуров И.П. 5 2003

Правоведение. М.:

Юрайт-Издат, 2003.

Курс лекций.

Основы права 15 4. Конституция 15 2008

Российской

Федерации. - М:

Юрайт-Издат, 2008.

Основы права 15 5. Трудовой кодекс 15 2007

Российской

Федерации.- М.:

Проспект, 2007.

Наименование Количество Автор, название, Количест Методическое Год

дисциплин, обучающихся, место издания, во (экз) пособие издания

входящих в изучающих год издания

заявленную дисциплину учебной

образовательную (чел) литературы,

пр

Основы права 15 6. Гражданский кодекс 15 2006

Российской

Федерации. Ч.1,ч.2,

ч.З.- М.: Омега-Л,

2006.

Русский язык и культура 15 1. Введенская Л.А. 15 2003

речи Культура речи. -

Ростов-на-Дону.:

Феникс, 2003. Учебное

пособие для ССУЗ.

Русский язык и культура 15 2. Русский язык и 15 2005

речи культура речи./ Под

ред. И.С. Максимова. -

М.: Гардараки, 2005.

Учебник.

Русский язык и культура 15 3. Вендина Т.И 5 2005

речи Введение в

языкознание. - М.:

Высшая шк., 2005.

Учебное пособие.

Русский язык и культура 15 4. Мурашов А.А. 4 2003

речи Культура речи. - М.:

РАО^2003. Учебное

пособие.

Русский язык и культура 15 5. Мурашов А.А. 4 2004

речи Культура речи. - М.:

РАО, 2004. Практикум

Иностранный язык 90 1. Голубев А.П. и др. 45 2004

Английский язык - М.:

Академия, 2004.

Учебное пособие для

ССУЗ.

Иностранный язык 90 2. Голицынский Ю.Б. и 10 2008

др. Грамматика - СПб:

КАРО, 2008.. Сборник

упражнений.

Иностранный язык 90 3. Басова Н.В. и др. 20 2004

Немецкий язык для

колледжей. - Ростов-

на-Дону.: Феникс,

2004. Учебное пособие

для ССУЗ.

Иностранный язык 90 4. Кравченко А.П. 15 2004

Немецкий язык для

студентов ССУЗОВ. -

Ростов-на-Дону.:

Феникс, 2004.. Учебник

для ССУЗ.

Наименование Количество Автор, название, Количест Методическое Год

дисциплин, обучающихся, место издания, во (экз) пособие издания

входящих в изучающих год издания

заявленную дисциплину учебной

образовательную (чел) литературы,

пр

Иностранный язык 90 5. Хайрова Н.В. и др. 15 2006

Немецкий язык для

технических

колледжей -Ростов-

на- Дону.: Феникс,

2006. Учебное пособие

Основы экономики 15 1. Соколова СВ. 15 2004

Основы экономики. -

М.: Академия, 2004.

Учебное пособие

Социальная психология 15 1. Соснин В.А. и др. 15 2005

Социальная

психология. - М.:

ФОРУМ, 2005. Учебник

для ССУЗ.

Социальная психология 15 2. Сухов А.Н. 15 2005

Социальная

психология. - М.:

Академия, 2005.

Учебное пособие для

ССУЗ.

Социальная психология 15 3. Новиков В.В. 5 2003

Социальная

психология. - М.: И-та

психотерапии, 2003.

Учебное пособие.

Математика 60 1. .Филимонова Е.В. 15 2003

Математика. - Ростов-

на-Дону: Феникс, 2003.

Учебное пособие для

ССУЗ.

Математика 60 2. Брадис В.М. 15 2003

Четырёхзначная

таблица. - М.: Дрофа,

2003.

Математика 60 3. Дадаян А.А. 15 2003

Математика. - М.:

Форум: ИНФРА-М,

2003. Учебник для

ССУЗ.

Математика 60 4. Пехлецкий И.Д. 15 2003

Математика. - М.:

Академия, 2003.

Учебник для ССУЗ.

Математика 60 5. Грирорьев В.П. и др. 15 2007

Элементы высшей

математики. - М.:

Академия, 2007.

Учебник для ССУЗ.

Наименование Количество Автор, название, Количест Методическое Год

дисциплин, обучающихся, место издания, во (экз) пособие издания

входящих в изучающих год издания

заявленную дисциплину учебной

образовательную (чел) литературы,

пр

Базы данных 30 Конспект лекций по 30 2002

предмету Базы

данных 2002 г.

Белоусова Л.Н.

Экологические основы 15 1. Колесников СИ. 15 2005

природопользования Экологические основы

природопользования.

- М.: ИКЦ МарТ, 2005.

Учебное пособие для

ССУЗ.

Экологические основы 15 2. Трушина Т.П.. 5 2005

природопользования Экологические основы

природопользования.

- Ростов-на- Дону.:

Феникс, 2005. Учебник

для ССУЗ. 3.

Информационные 15 1. Елочкин М.Е. и др. 15 2007

технологии Информационные

технологии. - М.:

ОНИКС, 2007. Учебник

для ССУЗ.

Информационные 15 2. Михеева Я.А. 15 2007

технологии Информационные

технологии в

профессиональной

деятельности. - М.:

Академия, 2007.

Информационные 15 3. Михеева Я. А. 15 2007

технологии Практикум по

информационным

технологиям в проф.

деятельности. - М.:

Академия, 2007.

Информационные 15 4. Гохберг Г.С. и др. 15 2004

технологии Информационные

технологии. - М.:

Академия, 2004.

Учебник для ССУЗ.

Операционные системы 15 1. Соловьев Г.Н. и др. 10 2003

и среды Операционные

системы. - М.: Высшая

школа, 2003. Учебное

пособие.

Операционные системы 15 2. Одинцов И.О. 10 2004

и среды Профессиональное

программирование.

Системный подход. -

СПб.: БХВ-Петербург,

2004. Учебное пособие.

Метрология, 15 1. Лифиц И.М. 15 2007

стандартизация и Стандартизация,

сертификация метрология и

сертификация. - М.:

Юрайт- Издат, 2007.

Учебник.

Наименование Количество Автор, название, Количест Методическое Год

дисциплин, обучающихся, место издания, во (экз) пособие издания

входящих в изучающих год издания

заявленную дисциплину учебной

образовательную (чел) литературы,

пр

Метрология, 15 2. Гончаров А.А. 5 2007

стандартизация и Метрология,

сертификация стандартизация и

сертификация. -

М.:Академия, 2007.

Учебное пособие.

Метрология, 15 3. Метрология, 5 2006

стандартизация и стандартизация и

сертификация сертификация./Под

ред. А.И. Аристова и

др. - М.: Академия,

2006. Учебник.

Метрология, 15 4. Никифоров А.Д. и 5 2002

стандартизация и др. Метрология,

сертификация стандартизация и

сертификация. -М.:

Высшая школа, 2002.

Учебное пособие для

Дискретная математика 15 1.Гончарова Г.А. и др. 15 2002

Элементы дискретной

математики. - М.:

ИНФРА-М, 2003.

Учебное пособие для

ССУЗ.

Основы Алгоритмизации 15 1. Аляев Ю.А. и др. 15 2003

и программирования Алгоритмизация и

языки

программирования

Pascal, справочное

пособие для

Основы Алгоритмизации 15 2. Голицына О.Л. и др. 10 2003

и программирования Основы

алгоритмизации и

программирования. -

М.: ИНФРА-М, 2003.

Учебное пособие для

Архитектура ЭВМ и 15 1. Кузин А.В. и др. 15 2006

вычислительных Микропроцессорная

систем техника. - М.:

Академия,

2006.Учебник для

ССУЗ.

Архитектура ЭВМ и 15 2. Одинцов И.О. 5 2004

вычислительных Профессиональное

систем программирование.

Системный подход. -

СПб.: БХВ-Петербург,

2004. Учебное пособие.

Технические средства 15 1. Гребенюк Е.И. и 15 2005

информатизации др. Технические

средства

информатизации. - М.:

Академия,2005.

Учебник для ССУЗ.

Базы данных 15 1. Фуфаев Э.В. и др. 15 2007

Базы данных. - М.:

Академия, 2007.

Учебное пособие для

ССУЗ.

Наименование Количество Автор, название, Количест Методическое Год

дисциплин, обучающихся, место издания, во (экз) пособие издания

входящих в изучающих год издания

заявленную дисциплину учебной

образовательную (чел) литературы,

пр

Базы данных 15 2. Малыхина М.П. Базы 15 2007

данных. - СПб.: БХВ-

Петербург, 2007.

Учебное пособие.

Теория вероятности и 15 1. Спирина М.С. и др. 15 2007

математическая Теория вероятностей

статистика и математическая

статистика. - М.:

Академия, 2007.

Учебник для ССУЗ.

Компьютерные сети 15 1. Гук М. Аппаратные 15 2004

средства локальных

сетей. - СПб.: Питер,

2004.Энциклопедия.

Компьютерные сети 15 2. Максимов Н.В. и др. 10 2003

Компьютерные сети. -

М.: Форум, 2003.

Учебное пособие для

ССУЗ.

Менеджмент 15 1. Драчева Е.Л. 15 2004

Менеджмент. - М.:

Академия, 2004.

Учебное пособие для

ССУЗ.

Менеджмент 15 2. Казначевская Г.Б. 15 2005

Менеджмент. -

Ростов- на- Дону.:

Феникс, 2005. Учебник

для ССУЗ.

Менеджмент 15 3. Набиев Р.А. и др. 4 2008

Менеджмент. - М.:

Финансы и

статистика, 2008.

Учебное пособие.

Безопасность 15 1. Безопасность 10 2005

жизнедеятельности. жизнедеятельности и

медицина катастроф./

Под ред. Н.М.Киршина.

- М.: Академия, 2005.

Учебник.

Безопасность 15 2. Безопасность 10 2004

жизнедеятельности. жизнедеятельности. -

М.: Академия, 2004.

Учебник для ССУЗ.

Безопасность 15 3. Сапронов Ю.Г. и др. 10 2004

жизнедеятельности. Безопасность

жизнедеятельности. -

М.: Академия, 2004.

Учебное пособие для

ССУЗ.

Наименование Количество Автор, название, Количест Методическое Год

дисциплин, обучающихся, место издания, во (экз) пособие издания

входящих в изучающих год издания

заявленную дисциплину учебной

образовательную (чел) литературы,

пр

Безопасность 15 4. Ястребов Г.С. 10 2005

жизнедеятельности. Безопасность

жизнедеятельности и

медицина катастроф. -

Ростов -на-Дону.:

Феникс, 2005. Учебное

Безопасность 15 5. Мастрюков Б.С. 10 2003

жизнедеятельности. Безопасность в

чрезвычайных

ситуациях. -

М.:Академия, 2003.

Учебник.

Автоматизированные 15 1. Уткин В.Б. 15 2005

информационные Информационные

системы системы в экономике.

- М.: Академия, 2005.

Учебник.

Автоматизированные 15 2. Могилев А.В. и др. 5 2003

информационные Практикум по

системы информатике. - М.:

Академия,

2003.Учебное пособие.

Распределенные 15 1. Максимов Н.В. и 15 2003

системы обработки др. Компьютерные

информации сети. - М.: Форум,

2003. Учебное пособие

для ССУЗ.

Програмное 15 1. Могилев А.В. и др. 5 2003

обеспечение Практикум по

информатике. - М.:

Академия,

2003.Учебное пособие.

Програмное 15 2. Емельянова Н.З. и 15 2005

обеспечение др. Основы

построения

автоматизированных

систем.М: ИНФРА-М,

2005. Учебное пособие.

Автоматизированные 15 1. Уткин В.Б. 15 2005

информационные Информационные

системы системы в экономике.

- М.:Академия,2005.

Учебник.

Автоматизированные 15 2. Елочкин М.Е. 20 2007

информационные Информационные

системы технологии. - М.:

Оникс, 2007.Учебник

для ССУЗ.

Автоматизированные 15 3. Фуфаев Э.В. и др. 15 2007

информационные Базы данных. - М.:

системы Академия, 2007.

Учебное

Наименование Количество Автор, название, Количест Методическое Год

дисциплин, обучающихся, место издания, во (экз) пособие издания

входящих в изучающих год издания

заявленную дисциплину учебной

образовательную (чел) литературы,

пр

Безопасность и 15 1. Мельников В.П. и 10 2005

управление доступом др. Информационная

безопасность. - М.:

Академия, 2005.

Учебное пособие.

Автоматическое 15 1. Горошков Б.И. 15 2003

управление Автоматическое

управление. - М.:

Академия,

2003.Учебник для

ССУЗ.

Автоматическое 15 2. Шишмарев В.Ю. 15 2005

управление Автоматика. - М.:

Академия, 2005.

Учебник для ССУЗ.

Методы контроля 15 1. Контрольно- 15 2006

параметров измерительные

технологических приборы и

инструменты. /Под

ред. С.А. Зайцева. -

М.: Академия, 2006.

Автоматизированные 15 1. Шишмарев В.Ю. 15 2004

информационные Типовые элементы

системы систем

автоматического

управления. - М.:

Академия, 2004.

Автоматическое 15 1. Бойков А.К. 15 2003

управление Монтаж, наладка и

эксплуатация

автоматических

устройств в

целлюлозно-

Автоматическое 15 2. Буйлов Г.П. и др. 15 2003

управление Автоматика и

автоматизация

производственных

процессов

целлюлозно-

ТОЭ 15 1. Кузовкин В.А. 15 2003

Теоретическая

электротехника. - М.:

Логос, 2003. Учебник.

ТОЭ 15 2. Прянишников В.А. и 5 2003

др. Электротехника и

ТОЭ в примерах и

задачах. -СПб.:

КОРОНА принт, 2003.

Практическое

Промышленная 15 1. Криштафович А.К. и 15 2001

электроника др. Основы

промышленной

электроники. -

М.:Высшая школа,

2001. Учебник для

Наименование Количество Автор, название, Количест Методическое Год

дисциплин, обучающихся, место издания, во (экз) пособие издания

входящих в изучающих год издания

заявленную дисциплину учебной

образовательную (чел) литературы,

пр

Промышленная 15 2. Горбачев Г.Н. и др. 15 2002

электроника Промышленная

электроника. - М.:

Академия,

2002.Учебник.

Инженерная графика 15 1. Боголюбов С.К. 15 2003

Инженерная графика.

- М.: Машиностроение,

2003.Учебник.

Инженерная графика 15 2. Миронов Б.Г. и др. 15 2003

Сборник заданий по

инженерной графике с

примерами

выполнения чертежей

на компьютере. - М.:

Инженерная графика 15 3. Бродский A.M. и др. 5 2003

Инженерная графика.

- М.: Академия,

2003.Учебник для

ССУЗ.

Системы 15 1. Кондаков А.И. САПР 10 2007

автоматизированного технологических

проектирования процессов. - М.:

Академия,2007.

Учебник.

Системы 15 2. Шандров Б.В. и др. 5 2007

автоматизированного Технические средства

проектирования автоматизации. -

М.:Академия, 2007.

Учебник.

Системы 15 3. Кулагин Б. 5 2005

автоматизированного Актуальное

проектирования моделирование,

визуализация и

анимация в 3ds Мах

7.5. - СПб.: БХВ-

История культуры 15 1. Емохонова Л.Г. 15 2007

Мировая

художественная

культура. - М.:

Академия,2007.

Учебник.

История культуры 15 2. Емохонова Л.Г. 5 2005

Мировая

художественная

культура. - М.:

Академия,2005.

Учебник.

История культуры 15 3. Андреева О.И. 10 2005

Мировая

художественная

культура. - Ростов -

на- Дону.:Феникс,

2005. Учебное пособие.

Наименование Количество Автор, название, Количест Методическое Год

дисциплин, обучающихся, место издания, во (экз) пособие издания

входящих в изучающих год издания

заявленную дисциплину учебной

образовательную (чел) литературы,

пр

Организация и 15 1. Технология 10 2003

технология отрасли целлюлозно-

(ЦБП). бумажного

производства. - СПб.:

Политехника, 2003.

Справочное пособие.

Базы данных 30 Лабораторные работы 30 2002

по предмету Базы

данных 2002 г.

Белоусова Л.Н

Информатика 30 Информатика 2007 г. 30 2007

Пятовская Л.А.

Нагрузка

группа/ Кол_час часы_ деление_лаб/ экз/зач экз_час Кол_час Кол_час_ деление_ часы_ экз/зач экз_час Кол_час дата_начала дата_оконч_

предме _недел лаб/пр пр (1 сем) (1 сем) ы (1 _всего (1 неделю лаб/пр (2 лаб/пр (2 сем) ы (2 _всего (2 _занятий занятий

т ю (1 сем) сем) сем) (2сем) сем) (2 сем) сем) сем)

(1сем)

---- 0 0 0 0 0 0 0 0

А-31, 4 зач 68 5 30 экз 7 52 01.09.2011 16.05.2012

Базы

данных

МН-31, 3 25 зач 52 2 25 экз 9 64 01.09.2011 25.04.2012

Информа

ционные

технолог

Т-31, 3 40 зач 0 48 0 0 0 0 01.09.2011

Информа

ционные

технолог

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

1. Т.С. Карпова: Базы данных: модели, разработка, реализация. Издательство: Питер. Санкт-Петербург, 2008 г.

2. Т. Коннолли, К. Бегг, А. Спрачан: Базы данных: практикование, реализация и сопровождение. Теория и практика, второе издание, пер. с анг: Уч. пост-М. Издательство: дом «Вильямс», 2007. – 1120 с.

3. Т.А. Купрова: Создание и программирование БД средтвами СУБД. Издательство: Мир. Москва 2006 г.

4. Л. Михайлова: Безопасность жизнедеятельности. Издательство: Питер, Издание: второе издание, 2008 г.

5. Т. Оскерко: Работа за компьютером. Вопросы охраны труда. Издательство: Регистр, 2006 г.

6. С. Робинсон: Microsoft Access 2000, учебный курс. Издательство: Питер. Санкт-Петербург, 2009 г.

7. Э.Ф. Фуфаев, Д.Э. Фуфаев: Базы данных. Издательство: Академия. Москва, 2007 г.

8. http://ru.wikipedia.org/wiki

17