1.3.2 Функциональное назначение
Программа предназначена для работы с базой данных, созданными в ACCESS. Связь осуществляется с помощью элемента DATE и его свойств. В базу данных можно добавлять и удалять записи, просматривать их, производить поиск.
1.3.3 Описание логической структуры
База данных «Список владельцев гаражного кооператива» состоит из трех форм. Основная таблица создана с помощью Access. на первой форме расположены элементы: Data (для связи с таблицами Access с помощью свойств DatabaseName и DataSource), Теxt (текстовые поля для отображения записей таблицы), Label (надписи для текстовых полей), Command (командные кнопки).
Командная кнопка «Добавить» - добавление записи. Программный код для данной функции:
Private Sub Command2_Click()
d = MsgBox("Добавитьзапись?", 1, " Сообщение")
If d = 1 Then
Data1.Recordset.AddNew
Else
Exit Sub
EndIf
EndSub
Командная кнопка «Удалить» - удаление записи. Программный код для данной функции:
PrivateSubCommand3_Click(){Процедура для кнопки «Удалить»]
b = MsgBox("Вы действительно хотите удалить запись?", 1, " Сообщение")
If b = 1 Then
Data1.Recordset.Delete
Data1.Recordset.MoveNext
Else
Exit Sub
EndIf
Кнопка «Таблица» - переход на форму 2.
Кнопка «Выход» - выход из программы.
На форме 2 расположены следующие элементы: DBGrid (для отображения данных в виде таблицы ), Data, Command.
Кнопка «Выход» - выход из программы.
Кнопка «Записи по одному» - переход на форму 1.
Кнопка «Поиск» - поиск записей по полю «Фамилия» имеет следующую процедуру:
PrivateSubCommand1_Click() {Процедура для кнопки «Поиск»}
Dim s As String
Dim i As Integer
s = InputBox("Введите фамилию ?", "Поиск")
Data1.Recordset.MoveFirst
If s = "" Then
MsgBox ("Вы нажали Отмену или ничего не ввели")
Exit Sub
End If
Где InputBox – функцияввода.
Третья форма используется для ввода пароля. Если пароль введен неправильно, появляется сообщение: “Неправильный пароль” и кн. ОК, по нажатию которой сообщений закрывается, пользователю предоставляется еще две возможности ввода пароля. После трехразового ввода неправильного пароля происходит выход из программы автоматически. При правильном вводе пароля появляется сообщение: “Правильный пароль” и кн. ОК, по нажатию форма пароля исчезает и появляется форма “Гаражный кооператив”. Программныйкоддлякнопки «ОК»:
Private Sub Command1_Click()
If Text1.Text = "111" Then
MsgBox "Парольправильный"
Unload Form3
Form1.Show
Else:
MsgBox "Пароль неправильный"
Text1.Text = ""
k = k + 1
If k = 3 Then End
EndIf
EndSub.
1.3.4 Используемые технические средства
Минимальный перечень технических средств, обеспечивающих работу программы:
- ПК на базе процессора Intel – 486 BX 4-100;
- FDD 3,5 “1,44 Mb” (для установления программы);
- 1 Mb на HDD;
- цветной монитор SVGA;
- клавиатура;
- манипулятор типа “мышь”.
1.3.5 Входные и выходные данные
Входные данные программы – это база данных, содержащая основные сведения о владельцах гаражного кооператива; пароль, вводимый пользователем для начала работы с программой; данные, вводимые для поиска, данные о новых владельцах. Выходные данные программы – это информация, получаемая при работе с базами данных, результаты поиска по полю “Фамилия”, сообщения для пользователя.
1.3.6 Вызов и загрузка
Вызов и загрузка программы осуществляется с помощью запускающего файла, ярлык для которого может располагаться на рабочем столе. Эта процедура занимает мало времени и равна нескольким секундам, конечно в соответствии с указанными для программы техническими средствами.
1.4 Программа и методика испытаний (ГОСТ 19.301-79)
1.4.1 Объект испытаний
Объектом испытаний является программа “Список владельцев гаражного кооператива” (А.В.00001-01). Программа будет полезна владельцам гаражного кооператива.
1.4.2 Цель испытания
Данные испытания проводятся для установления соответствия программы заданным требованиям и программным документам.
1.4.3 Требования к программе
Программа должна:
· корректно осуществлять поиск по полю “Фамилия”
· Выбранные командные кнопки должны выполнять соответствующие им команды.
1.4.4 Средство и порядок испытаний
Для испытания программы необходимо иметь ПК, работающий под управлением операционной системы Windows 98, с установленным на нём программным пакетом VisualBasic 5.0. или библиотекой программ.
1.4.5 Методы испытаний
· Тест №1 (допустимые значения)
Ожидаемые входные данные: нажимаем кнопку «Поиск», в текстовое поле вводим фамилию и нажимаем кн. ОК. Указатель перемещается на соответствующую запись.
По нажатию кнопки “Поиск” появляется функция ввода с текстовым полем, куда вводится фамилия интересующего владельца, и кн. ОК и Отмена. В текстовое поле вводим модель Галимеев и нажимаем кн. ОК. Указатель перемещается на запись, у которой в поле “Фамилия” записано Галимеев.
Программа выполнила тест верно.
· Тест №2 (недопустимые значения)
Ожидаемые входные данные: нажимаем кнопку «Поиск», в текстовое поле вводим фамилию и нажимаем кн. ОК. Нам выдается сообщение «Данной записи нет».
По нажатию кнопки “Поиск” появляется функция ввода с текстовым полем, куда вводится фамилия интересующего владельца, и кн. ОК и Отмена. В текстовое поле вводим фамилию Иванов и нажимаем кн. ОК. появляется сообщение: “Данной записи нет”.
Программа выполнила испытание верно, так как данного владельца в базе данных не существует.
· Тест №3 (ограниченные значения)
Ожидаемые входные данные: нажимаем кнопку «Поиск», в текстовое поле вводим фамилию, стоящую в таблице первой, и нажимаем кн. ОК. Указатель перемещается первую запись.
По нажатию кнопки “Поиск” появляется функция ввода с текстовым полем, куда вводится фамилия, стоящая в таблице первым, и кн. ОК и Отмена. В текстовое поле вводим фамилию Сидоренков и нажимаем кн. ОК. Указатель перемещается первую запись на запись, у которой в поле “Фамилия” записано Сидоренков.
Программа выполнила тест верно.
1.5 Текст программы (ГОСТ 19.401 - 78)
OptionExplicit {Объявление переменных}
Dim d As Integer
Dim b As Integer
Private Sub Command1_Click(){Процедурадлякнопки «Выход»}
End
End Sub
Private Sub Command2_Click(){Процедурадлякнопки «Добавить»]
d = MsgBox("Добавить запись?", 1, " Сообщение")
If d = 1 Then
Data1.Recordset.AddNew
Else
Exit Sub
End If
End Sub
PrivateSubCommand3_Click(){Процедура для кнопки «Удалить»]
b = MsgBox("Вы действительно хотите удалить запись?", 1, " Сообщение")
If b = 1 Then
Data1.Recordset.Delete
Data1.Recordset.MoveNext
Else
Exit Sub
End If
End Sub
Private Sub Command4_Click() {Переходнавторуюформу}
Form2.Show
Form1.Hide
End Su
Private Sub Data1_Reposition() {Процедурадляподсчетазаписей}
Data1.Caption = Data1.Recordset.AbsolutePosition
Data1.Caption = "Запись " & (Data1.Recordset.AbsolutePosition + 1) & " из " & Data1.Recordset.RecordCount
End Sub
Private Sub Form_Load() {Загрузкаформы}
Data1.Refresh
Data1.Recordset.MoveLast
Data1.Recordset.MoveFirst
End Sub
Private Sub Command1_Click() {Процедурадлякнопки «Поиск»}
Dim s As String
Dim i As Integer
s = InputBox("Телефон какой модели вы хотите найти ?", "Поиск")
Data1.Recordset.MoveFirst
If s = "" Then
MsgBox ("Вы нажали Отмену или ничего не ввели")
Exit Sub
End If
For i = 1 To Data1.Recordset.RecordCount
If Data1.Recordset.Fields(0) = s Then
Exit Sub
Else: Data1.Recordset.MoveNext
End If
Next i
MsgBox ("Даннойзаписинет")
Data1.Recordset.MoveFirst
End Sub
Private Sub Command3_Click() {Процедурадлякнопкипоодному»}
Form1.Show
Form2.Hide
End Sub
Private Sub Command4_Click(){Процедурадлякнопки «Выход»}
End
End Sub
Private Sub Data1_Reposition(){Процедурадляподсчетазаписей}
Data1.Caption = Data1.Recordset.AbsolutePosition
Data1.Caption = "Запись " & (Data1.Recordset.AbsolutePosition + 1) & " из " & Data1.Recordset.RecordCount
End Sub
Private Sub Form_Load() {Загрузкаформы}
Data1.Refresh
Data1.Recordset.MoveLast
Data1.Recordset.MoveFirst
EndSub
Форма 3
OptionExplicit {Объявление переменных}
DimkAsInteger
PrivateSubCommand1_Click(){процедура для кнопки «ОК» на форме пароля}
IfText1.Text = "Привет" Then
MsgBox "Пароль правильный"
Unload Form3
Form1.Show
Else:
MsgBox "Пароль неправильный"
Text1.Text = ""
k = k + 1
If k = 3 Then End
EndIf
EndSub
2. Эксплуатационная документация
2.1 Ведомость эксплуатационных документов (ГОСТ 19.507-79)
Эксплуатационный программный документ – это такой программный документ, который содержит сведения необходимые для обеспечения функционирования и эксплуатации программного продукта. Ведомость эксплуатационный документ включает перечень эксплуатационных документов на программу.
ДОКУМЕНТЫ НА ПРОГРАММУ
| Обозначение | Наименование | Кол.экз. | Местонахождение |
| А.В.00001-01_31_01-1 | Описание применения | 1 | Папка №1 |
| А.В.00001-01_51_01-1 | Руководство оператора | 1 | Папка №1 |
2.2 Описание применения (ГОСТ 19.502-78)
В данном эксплуатационном документе содержатся сведения о назначении, области применения программного обеспечения, применяемых методах, классе решаемых задач, ограничениях для применения, минимальной конфигурации технических средств.
2.2.1 Назначение программы
Программа предназначена для работы с базой данных, созданными в ACCESS. Связь осуществляется с помощью элемента DATE и его свойств. В базу данных можно добавлять и удалять записи, просматривать их, производить поиск.
2.2.2Условия применения
Для работы программы необходимо иметь ПК, работающий под управлением операционной системы Windows 98, с установленным на нём программным пакетом VisualBasic 5.0. Программа проста в обращении, с ней может работать не только специалист в области программирования, но и простой пользователь.
Входные данные программы – это база данных, содержащая основные сведения о владельцах гаражного кооператива; пароль, вводимый пользователем для начала работы с программой; данные, вводимые для поиска, данные о новых владельцах.