перейти к полному списку дипломных проектов
Ссылка на скачивания файла в формате .doc находится в конце странички
RunMacro stDocName
Exit_Кнопка33_Click:
Exit Sub
Err_Кнопка33_Click:
MsgBox Err
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
ПРИЛОЖЕНИЕ Б
Результат работы программы
ОТЧЁТ
Список литературы
Голицына О. Л., Максимов Н. В., Попов И. И. Базы данных: Учебное пособие. – М.: ФОРУМ: ИНФРА-М, 2004
Шкарина Л. Язык SQL:учебный курс. – СПб.: Питер, 2001.
Карпова Т. С. Базы данных: модели, разработка, реализация. - СПб: Питер, 2001.
Боровиков В. В. MS ACCESS 2002. программирование и разработка баз данных и приложений.
скачать бесплатно АИС «Отдел кадров»
Содержание дипломной работы
Можно так же автоматически включать в текст дату, время создания, обратный адрес и имя написавшего текст
СУБД Microsoft Access предоставляет разработчику интегрированные средства проектирования базы данных, создания запросов, создания и изменения форм, отчетов и страниц данных
SQL является полным языком, в нем присутствуют не только операции запросов, но и операторы, соответствующие DDL – Data Definition Language – языку описания данных
Это, конечно, не значит, что они будут удалены или их информация будет стерта из таблиц, потому что запрос не воздействует на информацию в таблицах – он только показывает данные
Формы являются тем типом объектов базы данных, который обычно используется для отображения данных в базе данных
Для импорта или связывания данных из Microsoft Outlook и Microsoft Exchange Server используются мастера импорта из Microsoft Outlook и Microsoft Exchange Server
Если нужно удалить данные о почтальоне нажать кнопку «Сотрудники организации», выбрать
нужную запись и нажать кнопку «удалить»
Для оценки сложности программного продукта используются пять информационных характеристик: внешние вводы, внешние выводы, запросы, внутренние логические файлы и интерфейсные файлы
Затраты на расходные материалы
Таблица 4- Расходные материалы
7 Общехозяйственные расходы
(7
) – это цена одного м3 здания;
Sм2 - занимаемая площадь здания , Sм2 =12;
h - высота здания, h = 2,80
При отключенном электропитании нужно убедиться:
в целостности и исправности шнуров электропитания, соединительных шнуров между устройствами комплекта ВДТ и ПЭВМ, электророзеток, вилок, разъемов и т
После работы отключать устройства от сети, в том числе выключать все периферийные устройства и устройства питания
В случае поражения электрическим током или ожога окажите пострадавшему первую медицинскую помощь, вызовите скорую медицинскую помощь по телефону 03
RunMacro stDocName
Exit_Кнопка33_Click:
Exit Sub
Err_Кнопка33_Click:
MsgBox Err
– СПб
