67
«Видеоадаптер»; «Мониторы»; «Клавиатура»; «Манипулятор мышь»; «Модули
памяти».
Рисунок 2.9 – Форма «Прием заявок на ремонт и модернизацию ПК»
(главная форма базы данных)
В базе данных «Прием заявок на ремонт и модернизацию ПК» все формы
разрабатывались в режиме «Конструктор форм».
Все переходы между формами осуществляются с помощью элементов
управления – кнопок.
Для удобства при работе с базой данных «Прием заявок на ремонт и
модернизацию ПК» создано меню с переходом на основные формы данной
программы (см. рис. 2.10).
Рисунок 2.10 – Меню для перехода на основные формы базы данных
68
В базе данных «Прием заявок на ремонт и модернизацию ПК» в ООО
«Джет» г. Гродно легко просмотреть оперативно любую заявку клиента на
ремонт и модернизацию ПК, вместе с покупателем подобрать комплектующие
со склада для ПК для модернизации ПК.
В ходе создания базы данных «Прием заявок на ремонт и модернизацию
ПК были разработаны восемнадцать SQL запросов по наличии комплектующих
для ремонта или модернизацию ПК.
2.3.3. Структурная схема пакета (дерево вызова программных
модулей)
Дерево вызова программных модулей в базе данных «Прием заявок на
ремонт и модернизацию ПК» показано на рисунке 2.11.
Рисунок 2.11 – Дерево вызова программных модулей в базе данных
«Прием заявок на ремонт и модернизацию ПК»
Главная форма
«Прием заявок на ремонт и
модернизацию»
Форма
«Покупатель услуг»
Форма
«Исполнитель заказов»
Форма
«Отбор» (выбор комплектующих
для модернизации или ремонта
ПК)
Форма
«Материнские платы» (выводит
наличие материнских плат на
складе)
Форма
«Жесткие диски» (выводит
наличие жестких дисков на
складе)
Форма
«Модули памяти» (выводит
наличие модулей памяти на
складе)
Форма
«Видеоадаптеры» (выводит
наличие видеоадаптеров на
складе)
Форма
«Манипуляторы мышь» (выводит
наличие манипуляторов мышь на
складе)
Форма
«Клавиатуры» (выводит наличие
клавиатур на складе)
Форма
«Мониторы» (выводит наличие
мониторов на складе)
69
Характеристика модулей разрабатываемой в базе данных «Прием заявок
на ремонт и модернизацию ПК» представлена в таблице 2.1
Таблица 2.1
Модули разрабатываемого программного продукта в базе данных «Прием
заявок на ремонт и модернизацию ПК»
№п/п
Наименование модуля
Функционал модуля
1
Главная форма «Прием
заявок на ремонт и
модернизацию ПК»
Модуль данной формы осуществляет переход к
другим модулям форм и работу с ними
2
Форма «Покупатель услуг»
Выводит данные по заявке клиента на
модернизацию или ремонт ПК
Форма «Исполнитель
заказов»
Выводит данные по принятию и выполнению
каждым исполнителем заявок на модернизацию
или ремонт ПК
Форма «Отбор»
Выбор всех комплектующих для модернизации
или ремонта ПК
3
Форма «Видеоадаптеры»
Выводит наличие необходимых видеоадаптеров
на складе для ремонта или модернизации ПК
4
Форма «Модули памяти»
Выводит наличие необходимых модулей памяти
на складе для ремонта или модернизации ПК
Форма «Материнские
платы»
Выводит наличие необходимых материнских плат на
складе для ремонта или модернизации ПК
Форма «Жесткие диски»
Выводит наличие необходимых жестких дисков
на складе для ремонта или модернизации ПК
5
Форма «Манипуляторы
мышь»
Выводит наличие необходимых манипуляторов
мышь на складе для модернизации ПК
3
Форма «Клавиатуры»
Выводит наличие необходимых клавиатур на
складе для модернизации ПК
4
Форма «Мониторы»
Выводит наличие необходимых мониторов на
складе для модернизации ПК
2.3.4. Описание программных модулей
В базе данных «Прием заявок на ремонт и модернизацию ПК» главной
является форма «Прием заявок на ремонт и модернизацию ПК» (см. рис. 2.9).
Код программного модуля на языке Visual Basic for Office для элементов
управления формы «Прием заявок на ремонт и модернизацию ПК»:
70
Рисунок 2.12 – Код программного модуля на языке Visual Basic for Office
для элементов управления формы «Прием заявок на ремонт и модернизацию
ПК»
Код программного модуля на языке Visual Basic for Office для элементов
управления формы «Прием заявок на ремонт и модернизацию ПК» имеет
следующий вид:
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
Private Sub Кнопка19_Click()
DoCmd.OpenQuery "7_Мониторы", acViewNormal, acEdit
End Sub
71
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
Private Sub Кнопка6_Click()
DoCmd.OpenForm "Манипулятор мышь", acNormal, "", "", , acNormal
End Sub
Private Sub Кнопка8_Click()
DoCmd.Close acForm, " Прием заявок на ремонт и модернизацию ПК "
72
End Sub
Private Sub Кнопка7_Click()
On Error GoTo Err_Кнопка7_Click
Screen.PreviousControl.SetFocus
DoCmd.FindNext
Exit_Кнопка7_Click:
Exit Sub
Err_Кнопка7_Click:
MsgBox Err.Description
Resume Exit_Кнопка7_Click
End Sub
Private Sub Кнопка9_Click()
DoCmd.OpenForm "Отбор", acNormal, "", "", , acNormal
End Sub
В базе данных имеется форма «Покупатель услуг» (рисунок 2.13).
Рисунок 2.13 – Форма «Покупатель услуг»
Код программного модуля на языке Visual Basic for Office для элементов
управления формы «Покупатель услуг» имеет следующий вид:
Private Sub Кнопка8_Click()
DoCmd.Close acForm, "Покупатель услуг"
End Sub
В базе данных имеется форма «Исполнитель заявки» (рисунок 2.14).
73
Рисунок 2.14 – Форма «Исполнитель заявки»
Код программного модуля на языке Visual Basic for Office для элементов
управления формы «Исполнитель заявки» имеет следующий вид:
Private Sub Кнопка8_Click()
DoCmd.Close acForm, "Исполнитель заявки"
End Sub
В базе данных имеется форма «Материнские платы» (рисунок 2.15).
Рисунок 2.15 – Форма «Материнские платы» в режиме «Формы»
Код на языке Visual Basic for Office для формы «Материнские платы»
имеет следующий вид:
Private Sub Кнопка6_Click()
74
DoCmd.OpenQuery "Наличие на складе требуемой материнской платы",
acViewNormal, acEdit
End Sub
Private Sub Кнопка8_Click()
DoCmd.Close acForm, "Материнские платы"
End Sub
В базе данных имеется форма «Жесткий диск» (рисунок 2.16).
Рисунок 2.16 – Форма «Жесткий диск» в режиме «Формы»
Код на языке Visual Basic for Office для формы «Жесткий диск» имеет
следующий вид:
Option Compare Database
Private Sub Кнопка6_Click()
75
DoCmd.OpenQuery "Наличие на складе требуемого жесткого диска",
acViewNormal, acEdit
End Sub
Private Sub Кнопка8_Click()
DoCmd.Close acForm, "Жесткий диск"
End Sub
В базе данных имеется форма «Клавиатура» (рисунок 2.17).
Рисунок 2.17 – Форма «Клавиатура» в режиме «Формы»
Код на языке Visual Basic for Office для формы «Клавиатура» имеет
следующий вид:
Option Compare Database
Private Sub Кнопка6_Click()
DoCmd.OpenQuery "Наличие на складе требуемой клавиатуры",
acViewNormal, acEdit
End Sub
Private Sub Кнопка8_Click()
DoCmd.Close acForm, "Клавиатура"
End Sub
В базе данных имеется форма «Мониторы (рисунок 2.18).
76
Рисунок 2.18 – Форма «Мониторы» в режиме «Формы»
Код на языке Visual Basic for Office для формы «Мониторы» имеет
следующий вид:
Option Compare Database
Private Sub Кнопка6_Click()
DoCmd.OpenQuery "Наличие на складе требуемого монитора",
acViewNormal, acEdit
End Sub
Private Sub Кнопка8_Click()
DoCmd.Close acForm, "Мониторы"
End Sub
В базе данных имеется форма «Модули памяти» (рисунок 2.19).
Рисунок 2.19 – Форма «Модули памяти» в режиме «Формы»
Код на языке Visual Basic for Office для формы «Модули памяти» имеет
следующий вид:
Option Compare Database