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

По данным этой таблицы была создана сводная таблица:

Таблица. 2.

Сумма по полю КоличествоПроданныхМашин	Проданная Модель
Производитель	FX35	GX470	LX470	QX56	RX330	X3	XC90	Общий итог
BMW						9		9
Infiniti	11			6				17
Lexus		4	3		4			11
volvo							5	5

Пользовательский интерфейс

Рис. 18. Окно пользовательской формы. Вкладка автомобили

Кнопка «Найти ищет» автомобили по выбранным критериям. Кнопка «ВесьСписок» выводит на экран весь список автомобилей. Если не выбран критерий поиска или неправильный формат ввода данных выводится сообщение об ошибке. Если автомобилей соответствующих параметров нет в наличии, сообщение об этом выводится на экран.

Рис. 19.Окно пользовательской формы. Вкладка продавцы

По фамилии ищутся данные о  продавце. При этом можно указать выводить или нет на экран дату приема на работу.

Рис. 20. Окно пользовательской формы. Вкладка журнал учета

Выводит на экран марки автомобилей проданных в конкретный день.

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

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

   

Рис. 21.Ошибка выхода за числовой диапазон

Рис. 22. Ошибка ввода данных.

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

Таблица 3

Тесты	Описание сценария	Ожидаемый результат
Проверить, что при поиске автомобиля необходимого года выпуска, будет выдаваться ошибка об отсутствии в наличии таких автомобилей	Вызов формы для выполнения запроса	Появление результата запроса
	Ввод цифр в текстовое поле ГодВыпуска	Введены буквы в текстовое поле ГодВыпуска
	Нажатие кнопки «Найти»	В результате запроса в полях ничего не выводится. Отображается сообщение об ошибке «Нет маши такого года выпуска».

Заключение

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

Приложение

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

Private Sub ВесьСписок_Click()

DoCmd.OpenTable ("Автомобили")

End Sub

Private Sub Кнопка200_Click()

Dim db As Database

Dim req As QueryDef

Dim dt As Single

Set db = CurrentDb

dt = Calendar.Value

db.QueryDefs.Delete ("Запрос1")

Set req = db.CreateQueryDef("Запрос1")

req.SQL = "SELECT * FROM Продажи WHERE Продажи.ДатаПродажи =" & "" & dt & ""

DoCmd.OpenQuery ("Запрос1")

End Sub

Private Sub Найти_Click()

Dim db As Database

Dim req As QueryDef

Dim year As Single

Dim pr As Single

Dim model As Single

Set db = CurrentDb

On Error GoTo er

Select Case Группа154.Value

Case 1

year = ГодВыпуска.Value

If year <= 2008 And year >= 2004 Then

db.QueryDefs.Delete ("Запрос")

Set req = db.CreateQueryDef("Запрос")

req.SQL = "SELECT * FROM Автомобили WHERE Автомобили.ГодВыпуска =" & "" & year & ""

DoCmd.OpenQuery ("Запрос")

Else