- •1 Анализ технического задания и возможных способов реализации поставленной задачи.
- •2 Выбор инструментальных программных средств.
- •3 Выбор аппаратных средств.
- •4 Тестирование разработанной программы
- •4.1 Теоретическое обоснование метода тестирования
- •4.2 Контрольная задача тестирования
- •5 Программная документация
- •460.Стэп.00001-01 97 01-1
- •2004 Г.
- •1 Основание для разработки
- •2 Назначение разработки
- •3 Требования к программе
- •3.1 Требования к функциональным характеристикам
- •3.2 Требования к надежности
- •460.Стэп.00001-01 99 01-1
- •2004 Г.
- •1 Описание пользователя
- •1.1 Среда пользователя
- •1.2 Описание пользователя
- •1.3 Основные потребности пользователя
- •3.3 Кому предназначена база данных
- •6 Эксплуатационная документация
- •460.Стэп.00001-01 94 01-1
- •2004 Г.
- •1 Назначение и условия применения программы
- •2 Характеристики программы
- •3 Обращение к программе
- •4 Входные и выходные данные
- •5 Сообщения оператору
- •460.Стэп.00001-01
- •Приложение а.
- •Листинг окна главной формы.
Листинг окна главной формы.
Оption Compare Database
Private Sub Кнопка «Форма «Абоненты сети интернет»»_Click ()
On Error GoTo Err_Кнопка«Форма «Абоненты сети интернет»»_Click
Dim stDocName As String {вывод формы}
Dim stLinkCriteria As String
Exit_Кнопка«Форма «Абоненты сети интернет»»_Click:
Exit Sub.
Err_Кнопка«Форма «Абоненты сети интернет»»_Click:
MsgBox Err.Description
Resume Exit_Кнопка«Форма «Абоненты сети интернет»»_Click
End Sub.
Private Sub Кнопка «Закрыть форму»_Click ()
On Error GoTo Err_Кнопка«Закрыть форму»_Click
DoCmd.Close {закрытие главной формы}
Exit_Кнопка«Закрыть форму»_Click:
Exit Sub.
Err_Кнопка«Закрыть форму»_Click:
MsgBox Err.Description
Resume Exit_Кнопка«Закрыть форму»_Click
End Sub.
Private Sub Кнопка «Отчет «Сотрудники»»_Click ()
On Error GoTo Err_Кнопка«Отчет «Сотрудники»»_Click
Dim stDocName As String
stDocName = ChrW(1057) & ChrW(1086) & ChrW(1090) & ChrW(1088) & ChrW(1091) & ChrW(1076) & ChrW(1085) & ChrW(1080) & ChrW(1082) & ChrW(1080) {вывод отчета по форме «Сотрудники»}
DoCmd.OpenReport stDocName, acPreview
Exit_Кнопка«Отчет «Сотрудники»»_Click:
Exit Sub.
Err_Кнопка«Отчет «Сотрудники»»_Click:
MsgBox Err.Description
Resume Exit_Кнопка«Отчет «Сотрудники»»_Click
End Sub.
Private Sub Кнопка «Форма «Сотрудники»»_Click ()
On Error GoTo Err_Кнопка«Форма «Сотрудники»»_Click
Dim stDocName As String
Dim stLinkCriteria As String {открытие формы «Сотрудники»}
stDocName = ChrW(1057) & ChrW(1086) & ChrW(1090) & ChrW(1088) & ChrW(1091) & ChrW(1076) & ChrW(1085) & ChrW(1080) & ChrW(1082) & ChrW(1080)
DoCmd.OpenForm stDocName, , , stLinkCriteria
Exit_Кнопка«Форма «Сотрудники»»_Click:
Exit Sub.
Err_Кнопка«Форма «Сотрудники»»_Click:
MsgBox Err.Description
Resume Exit_Кнопка«Форма «Сотрудники»»_Click
End Sub.
Private Sub Кнопка «Выход из программы»_Click ()
On Error GoTo Err_Кнопка«Выход из программы»_Click
Dim stDocName As String {закрытие приложения Access}
DoCmd.RunMacro stDocName
Exit_Кнопка«Выход из программы»_Click:
Exit Sub.
Err_Кнопка«Выход из программы»_Click:
MsgBox Err.Description
Resume Exit_Кнопка«Выход из программы»_Click
End Sub.
Private Sub Кнопка «Сведения о разработчике»_Click ()
On Error GoTo Err_Кнопка«Сведения о разработчике»_Click
Dim stDocName As String {просмотр формы содержащей сведения о сотрудниках}
Dim stLinkCriteria As String
Exit_Кнопка«Сведения о разработчике»_Click:
Exit Sub.
Err_Кнопка«Сведения о разработчике»_Click:
MsgBox Err.Description
Resume Exit_Кнопка«Сведения о разработчике»_Click
End Sub.
Private Sub Кнопка «Отчет «Абоненты сети интернет»»_Click ()
On Error GoTo Err_Кнопка«Отчет «Абоненты сети интернет»»_Click
Dim stDocName As String
DoCmd.OpenReport stDocName, acPreview
Exit_Кнопка«Отчет «Абоненты сети интернет»»_Click:
Exit Sub.
Err_Кнопка«Отчет «Абоненты сети интернет»»_Click:
MsgBox Err.Description
Resume Exit_Кнопка«Отчет «Абоненты сети интернет»»_Click
End Sub.