Другие предметы \ Проектирование программных систем

Разработка информационной системы, содержащей сведения о фирме видеопроката, включая сведения о жанрах, фильмах, клиентах, страница 7

·  Кнопка  служит для закрытия соответствующего запроса;

На вкладке «Информация о БД» (рис.18) расположено:

·  Кнопка «Информация о БД» служит для отображения информации о базе данных в надписях;

·  Надпись «База данных» выводит сообщение при нажатии кнопки;

·  Надпись «Видеопрокат»  выводит сообщение при нажатии кнопки;

·  Надпись «Разработал» выводит сообщение при нажатии кнопки;

·  Надпись «Разработчик» выводит сообщение при нажатии кнопки;

·  Кнопка «Очистить» служит для «обнуления» надписей;

12. ТЕСТИРОВАНИЕ, ОБРАБОТКА ОШИБОК

Обработка ошибок, которые могут возникнуть во время работы с программным продуктом, предусматривается на этапе создания. Для данной системы возможны следующие ошибки: неверный тип данных, выход за числовой диапазон и отсутствие критериев поиска (т.е. пустые поля) рис. 19, 20,21

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

   

Рис. 27. Сообщение об ошибке(выход за числовой диапазон)

 

Рис. 28. Сообщения об ошибках (несоответствие типов данных)

 

   

Рис. 29. Сообщения об ошибках (не введены данные)

Тестирование представлено в табл. 2

Таблица 2

Тесты

Описание сценария

Ожидаемый результат

  

Проверить, что при вводе в текстовое поле «ID» букв, выдается сообщение «Перепутаны форматы ввода» и «Введите еще раз данные ID в числовом формате»

Вызов формы для выполнения запроса

Появление результата запроса

Ввод цифр в текстовое поле «ID»

Введены буквы в в текстовое поле «ID»

Нажатие кнопки «Найти»

В результате запроса в полях ничего не выводится. Отображается «Перепутаны форматы ввода» и «Введите еще раз данные ID в числовом формате»

Заключение

Спроектирована информационная система по продаже видеофильмов. Изучена технология визуального проектирования UML, СУБД Access и язык программирования VBA, методы защиты и разграничения доступа к данным, методы доступа к данным посредством DAO.

Приложение

Листинг программы

Option Compare Database

Private Sub Заказ_Click()

Dim ws As Workspace

Dim db As Database

Dim fld As Field

Dim query As QueryDef

Dim rec1, rec2 As Recordset

Dim ВидеопрокатDAO, ЗаказDAO, ПокупательDAO, ЗаказAlter As TableDef

Set db = CurrentDb

On Error GoTo Lab_Err

'Создаем таблицу ЗаказDAO

db.Execute "Create table ЗаказDAO ( Id INTEGER PRIMARY KEY,[НАЗВАНИЕ фильма] char,Покупатель char,[дата заказа] date,Количество INTEGER)"

db.Execute "insert into ЗаказDAO values(1,'Точка обстрела','Иванов','20.03.2008',10)"

db.Execute "insert into ЗаказDAO values(2,'Железный человек','Егоров','1.04.2008',20)"

db.Execute "insert into ЗаказDAO values(3,'10 000 лет до нашей эры','Петров','15.02.2008',15)"

db.Execute "insert into ЗаказDAO values(4,'Темный рыцарь','Сидоров','24.03.2008',5)"

db.Execute "insert into ЗаказDAO values(5,'Ограбление на Бэйкер стрит','Федоров','10.04.2008',30)"

Lab_Err:

Resume dal

MsgBox Err.Description

db.Close

dal:

DoCmd.OpenTable ("ЗаказDAO")

End Sub

Private Sub Покупатель_Click()

Dim ws As Workspace

Dim db As Database

Dim fld As Field

Dim query As QueryDef

Dim rec1, rec2 As Recordset

Dim ВидеопрокатDAO, ЗаказDAO, ПокупательDAO, ЗаказAlter As TableDef

Set db = CurrentDb

On Error GoTo Lab_Err

db.Execute "Create table ПокупательDAO ( Id INTEGER PRIMARY KEY,Телефон INTEGER,Покупатель char,Адрес char,[E-mail] char,Город char)"

db.Execute "insert into ПокупательDAO values(1,111111,'Иванов','ул. Новогодняя 11','ivan@mail.ru','Новосибирск')"

Скачать файл