АИС Отдел кадров (стр. 7 из 7)
Кнопка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. Боровиков В. В. MSACCESS 2002. программирование и разработка баз данных и приложений. - СОЛОН-Р, 2002.
5. Астахова И. Ф., Толстобров А. П. , Мельников В. М. SQL в примерах и задачах: Учеб. пособие.- Мн.: Новое знание,2002.
6. Бекаревич Ю. Б., Пушкина Н. В. MS ACCESS 2000 за 30 занятий. – СПб.: БХВ- Петербург,2001.
7. Леоненков А. В. Самоучитель UML. - СПб: БХВ - Петербург, 2002.
8. Иванова Г. С. Технология программирования: Учебник для вузов. – М.: Изд-во МГТУ им. Баумана, 2003.
9. Орлов С. А. Технология разработки программного обеспечения: Учебник. – СПб.: Питер, 2002.
10. Вендров А. М. Проектирование программного обеспечения экономических информационных систем: Учебник. – М.: Финансы и статистика, 2002.