97
ПРИЛОЖЕНИЕ 5
Рисунок П.9 – Таблица «Видеоадаптер» в режиме «Конструктор»
Рисунок П.10 – Таблица «Видеоадаптер» в режиме «Таблица»
98
ПРИЛОЖЕНИЕ 6
Рисунок П.11 – Таблица «Мониторы» в режиме «Конструктор»
Рисунок П.12 – Таблица «Мониторы» в режиме «Таблица»
99
ПРИЛОЖЕНИЕ 7
Рисунок П.13 – Таблица «Клавиатура» в режиме «Конструктор»
Рисунок П.14 – Таблица «Клавиатура» в режиме «Таблица»
100
ПРИЛОЖЕНИЕ 8
Рисунок П.15 – Таблица «Манипулятор мышь» в режиме
«Конструктор»
Рисунок П.16 – Таблица «Манипулятор мышь» в режиме «Таблица»
101
ПРИЛОЖЕНИЕ 9
Рисунок П.17 – Таблица «Модули памяти» в режиме «Конструктор»
Рисунок П.18 – Таблица «Модули памяти» в режиме «Таблица»
102
ПРИЛОЖЕНИЕ 10
Листинг программного кода на языке Visual Basic for Office в
базе данных «Прием заявок на ремонт и модернизацию ПК»
Private Sub Кнопка25_Click()
DoCmd.Close acForm, "Покупатель услуг"
End Sub
Private Sub Кнопка26_Click()
DoCmd.Close acForm, "Исполнитель заявки"
End Sub
SELECT Sum(Видеоадаптер!Цена*Видеоадаптер!Количество) AS Сумма
FROM Видеоадаптер
SELECT Sum([Жесткий диск]!Цена*[Жесткий диск]!Количество) AS
Сумма FROM [Жесткий диск]
SELECT Sum([Клавиатура]![Цена]*[Клавиатура]![Количество]) AS Сумма
FROM Клавиатура
SELECT Sum([Манипулятор мышь]![Цена]*[Манипулятор
мышь]![Количество]) AS Сумма FROM [Манипулятор мышь]
SELECT Sum(([Материнские платы]![Ценаматеринской
платы]+[Материнские платы]![Цена процессора])*[Материнские
платы]!Количество) AS Сумма FROM [Материнские платы]
SELECT Sum([Модули памяти]![Цена]*[Модули памяти]![Количество])
AS Выражение1 FROM [Модули памяти];
SELECT Sum([Мониторы]![Цена]*[Мониторы]![Количество]) AS
Выражение1 FROM Мониторы
SELECT [1_Видеоадаптер]!Сумма+[2_Жесткий
диск]!Сумма+[3_Клавиатура]!Сумма+[4_Манипулятор
мышь]!Сумма+[5_Материнская плата]!Сумма+[6_Модули
памяти]!Выражение1+[7_Мониторы]!Выражение1 AS [Сумма всего на складе]
103
ПРОДОЛЖЕНИЕ ПРИЛОЖЕНИЯ 10
FROM 1_Видеоадаптер, [2_Жесткий диск], 3_Клавиатура,
[4_Манипулятор мышь], [5_Материнская плата], [6_Модули памяти],
7_Мониторы
SELECT [Материнские платы].[Тип материнской платы], [Материнские
платы].[Ценаматеринской платы], [Жесткий диск].[Жесткий диск], [Жесткий
диск].Цена, Мониторы.[Тип монитора], Мониторы.Цена,
Видеоадаптер.Видеоадаптер, Видеоадаптер.Цена, [Модули памяти].[Модули
памяти], [Модули памяти].Цена, Клавиатура.Клавиатура, Клавиатура.Цена,
[Манипулятор мышь].[Манипулятор мышь], [Манипулятор мышь].Цена,
Видеоадаптер!Цена+[Жесткий диск]!Цена+Клавиатура!Цена+[Манипулятор
мышь]!Цена+[Материнские платы]![Ценаматеринской платы]+[Материнские
платы]![Цена процессора]+[Модули памяти]!Цена+Мониторы!Цена AS [Цена
компьютера]
FROM Видеоадаптер, [Жесткий диск], Клавиатура, [Материнские платы],
[Модули памяти], Мониторы, [Манипулятор мышь]
WHERE ((([Материнские платы].[Тип материнской платы])=[Тип
материнской платы:]) AND (([Жесткий диск].[Жесткий диск])=[Жесткий диск:])
AND ((Мониторы.[Тип монитора])=[Тип монитора:]) AND
((Видеоадаптер.Видеоадаптер)=[Видеоадаптер:]) AND (([Модули
памяти].[Модули памяти])=[Модуль памяти:]) AND
((Клавиатура.Клавиатура)=[Клавиатура:]) AND (([Манипулятор
мышь].[Манипулятор мышь])=[Манипулятор мышь:]))
SELECT Видеоадаптер.Видеоадаптер, Видеоадаптер.[Наличие на складе],
Видеоадаптер.Количество
FROM Видеоадаптер
WHERE (((Видеоадаптер.Видеоадаптер)=[Введите название нужного
видеоадаптера]))
SQL запрос «Наличие на складе требуемого жесткого диска» имеет
следующий вид:
104
ПРОДОЛЖЕНИЕ ПРИЛОЖЕНИЯ 10
SELECT [Жесткий диск].[Жесткий диск], [Жесткий диск].[Наличие на
складе], [Жесткий диск].Количество
FROM [Жесткий диск]
WHERE ((([Жесткий диск].[Жесткий диск])=[Введите название нужного
жесткого диска]))
SELECT [Манипулятор мышь].[Манипулятор мышь], [Манипулятор
мышь].[Наличие на складе], [Манипулятор мышь].Количество
FROM [Манипулятор мышь]
WHERE ((([Манипулятор мышь].[Манипулятор мышь])=[Введите
название
SELECT Мониторы.[Тип монитора], Мониторы.[Наличие на складе],
Мониторы.Количество
FROM Мониторы
WHERE (((Мониторы.[Тип монитора])=[Введите название нужного
монитора]))
SELECT Клавиатура.Клавиатура, Клавиатура.[Наличие на складе],
Клавиатура.Количество
FROM Клавиатура
WHERE (((Клавиатура.Клавиатура)=[Введите название нужной
клавиатуры]))
SQL запрос «Наличие на складе требуемой материнской платы» имеет
следующий вид:
SELECT [Материнские платы].[Тип материнской платы], [Материнские
платы].[Наличие на складе], [Материнские платы].Количество
FROM [Материнские платы]
WHERE ((([Материнские платы].[Тип материнской платы])=[Введите
название нужной материнской платы]));
SELECT [Модули памяти].[Модули памяти], [Модули памяти].[Наличие
на складе], [Модули памяти].Количество
FROM [Модули памяти]
105
ПРОДОЛЖЕНИЕ ПРИЛОЖЕНИЯ 10
WHERE ((([Модули памяти].[Модули памяти])=[Введите название
нужных модулей памяти]));
SELECT [Материнские платы].[Тип материнской платы], [Материнские
платы].[Ценаматеринской платы], [Жесткий диск].[Жесткий диск], [Жесткий
диск].Цена, Мониторы.[Тип монитора], Мониторы.Цена,
Видеоадаптер.Видеоадаптер, Видеоадаптер.Цена, [Модули памяти].[Модули
памяти], [Модули памяти].Цена, Клавиатура.Клавиатура, Клавиатура.Цена,
[Манипулятор мышь].[Манипулятор мышь], [Манипулятор мышь].Цена,
Видеоадаптер!Цена+[Жесткий диск]!Цена+Клавиатура!Цена+[Манипулятор
мышь]!Цена+[Материнские платы]![Ценаматеринской платы]+[Материнские
платы]![Цена процессора]+[Модули памяти]!Цена+Мониторы!Цена AS [Цена
компьютера]
FROM Видеоадаптер, [Жесткий диск], Клавиатура, [Материнские платы],
[Модули памяти], Мониторы, [Манипулятор мышь]
SELECT Покупатель.Покупатель, Покупатель.Товар, Покупатель.[Дата
продажм], Покупатель!Цена*Покупатель!Количество AS [Общая сумма]
FROM Покупатель
WHERE (((Покупатель.[Дата продажм])=[Введите дату продажи]))
Private Sub Кнопка15_Click()
DoCmd.OpenQuery "Сумма продажи", acViewNormal, acEdit
End Sub
Private Sub Кнопка16_Click()
DoCmd.OpenQuery "5_Материнская плата", acViewNormal, acEdit
End Sub
Private Sub Кнопка17_Click()
DoCmd.OpenQuery "2_Жесткий диск", acViewNormal, acEdit
End Sub
Private Sub Кнопка18_Click()
DoCmd.OpenQuery "3_Клавиатура", acViewNormal, acEdit
End Sub
106
ПРОДОЛЖЕНИЕ ПРИЛОЖЕНИЯ 10
Private Sub Кнопка19_Click()
DoCmd.OpenQuery "7_Мониторы", acViewNormal, acEdit
End Sub
Private Sub Кнопка2_Click()
DoCmd.OpenForm "Клавиатура", acNormal, "", "", , acNormal
End Sub
Private Sub Кнопка20_Click()
DoCmd.OpenQuery "6_Модули памяти", acViewNormal, acEdit
End Sub
Private Sub Кнопка21_Click()
DoCmd.OpenQuery "1_Видеоадаптер", acViewNormal, acEdit
End Sub
Private Sub Кнопка22_Click()
DoCmd.OpenQuery "4_Манипулятор мышь", acViewNormal, acEdit
End Sub
Private Sub Кнопка23_Click()
DoCmd.OpenForm "Покупатель услуг", acNormal, "", "", , acNormal
End Sub
Private Sub Кнопка24_Click()
DoCmd.OpenForm "Исполнитель заявки", acNormal, "", "", , acNormal
End Sub
Private Sub Кнопка3_Click()
DoCmd.OpenForm "Мониторы", acNormal, "", "", , acNormal
End Sub
Private Sub Кнопка4_Click()
DoCmd.OpenForm "Модули памяти", acNormal, "", "", , acNormal
End Sub
Private Sub Кнопка5_Click()
DoCmd.OpenForm "Материнские платы", acNormal, "", "", , acNormal
End Sub