Дипломная работа: Автоматизация приема заявок на ремонт и модернизацию ПК ООО "Джет" г. Гродно

Скачать файл

Заказать новую работу

Внимание! Если размещение файла нарушает Ваши авторские права, то обязательно сообщите нам

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

Источник: https://baza.diplomsite.ru/previewfile/1948

Смотрите также:


_1966(~1
_Антонян Ю.М., Сексуальные преступления. Чикатило и другие
_РГР № 1 (2)
'Образ–Я' и его развитие средствами диалога
"Логистическая технология JIT"
"Особенности правовой системы Российской Федерации" по дисциплине "Теория государства и права"
«Анализ ликвидности и платежеспособности предприятия» (на материалах ОАО Московская кондитерская фабрика «Красный Октябрь»)
«В истории мы черпаем мудрость». Фрэнсис Бэкон
«Дизайнерские дети» как профилактика инвалидизации общества