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

ORDER BY [Проданные_МК.Кол проданных] DESC;

Результат : Выводит цену проданных микроконтроллеров по возрастанию

12. SELECT [Проданные_МК.Покупатель], sum([Проданные_МК.Цена (руб)]) AS [sum of Цена МК]

FROM Проданные_МК

GROUP BY [Проданные_МК.Покупатель]

HAVING sum(([Проданные_МК.Цена (руб)])>=250);

Результат: Создает новое поле где выводит цену больше или равную 250

13. SELECT [Покупатель].[Название(фирма)], [Покупатель].[Телефон], [Проданные_МК].[Кол проданных]

FROM Проданные_МК INNER JOIN Покупатель ON [Проданные_МК].[Покупатель]=[Покупатель].[id фирма];

Результат: выводит  поля Название (фирма), телефон и кол. проданных микроконтроллеров

11. Разработка интерфейсных форм

В ходе разработки взаимосвязи Excelи Access спроектирован интерфейс (рис.19) посредством флажков, переключателей, текстовых полей, списков, полос прокрутки и вкладки.

Рис. 13. Окно интерфейса Сервис центр

Рис. 14. Результат запроса

12. Тестирование, обработка ошибок

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

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

Рис. 15. Сообщение об ошибке(слишком большое число)

Рис. 16. Сообщение об ошибке

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

Заключение

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

Приложение

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

' Календарь

Private Sub Calendar1_Click()

Dim f As String

f = Calendar1.Day & "." & Calendar1.Month & "." & Calendar1.year

TextBox2.Value = f

End Sub

' Выбор критериев поиска

Private Sub CheckBox1_Change()

If CheckBox1.Value = False Then

TextBox1.Locked = True

TextBox1.BackStyle = fmBackStyleTransparent

Else

TextBox1.Locked = False

TextBox1.BackStyle = fmBackStyleOpaque

End If

End Sub

Private Sub OptionButton2_Change()

If OptionButton2.Value = False Then

TextBox2.Locked = True

TextBox2.BackStyle = fmBackStyleTransparent

TextBox2.Enabled = False

Else

TextBox2.Enabled = True

TextBox2.Locked = False

TextBox2.BackStyle = fmBackStyleOpaque

End If

End Sub

Private Sub CheckBox3_Change()

If CheckBox3.Value = False Then

ComboBox1.Locked = True

ComboBox1.BackStyle = fmBackStyleTransparent

Else

ComboBox1.Locked = False

ComboBox1.BackStyle = fmBackStyleOpaque

End If

End Sub

' Выбор критериев поиска

Private Sub CheckBox9_Change()

If CheckBox9.Value = False Then

TextBox3.Locked = True

TextBox3.BackStyle = fmBackStyleTransparent

Else

TextBox3.Locked = False

TextBox3.BackStyle = fmBackStyleOpaque

End If

End Sub

' проверка правильности цены

Private Sub TextBox3_Change()

Dim x As Integer

x = Val(TextBox3.Text)

If x < 1 Or x > 600 Then

MsgBox "Извините, Вы ввели некорректную цену"

End If

End Sub

' проверка правильности года

Private Sub TextBox2_Change()

Dim year As Integer

year = Val(TextBox2.Text)

If year < 1 Or year > 2008 Then

MsgBox "Извините, Вы ввели некорректный год"

End If

End Sub

' нажата кнопка Поиск

Private Sub FindButton_Click()

Dim name As String

Dim ws As Workspace

Dim db As Database

Dim td As TableDef

Dim rs As Recordset

Dim prnt As Boolean

Dim i As Integer

Dim j As Integer