Курсовая работа: База даних студії веб-дизайну
Електронна база, розроблена в даній курсовій роботі, набагато підвищує ефективність роботи в процесі обліку надання послуг та роботи студії веб-дизайну, оскільки дозволя швидко організувати пошуки необхідних послуг за їх назвами або коду, прискорився процес складання звітності. Набагато простіше й швидше стало редагувати всю нформацію завдяки зручному інтерфейсу та меню користувача. Враховані вс основні потреби користувача, який має справу з великою кількістю інформації, яку необхідно неодноразово фіксувати, навіть протягом однієї доби.
Дану базу даних можливо використовувати не лише в закладі «Студія веб-дизайну», але й нших закладах, які мають споріднену предметну область – тобто, які надають певні послуги інтернет ресурсів або будь-яких інших.
Список використано літератури
1. Хабракен Д. “ Microsoft Access 2003”: М.: ООО «Издательство АСТ»,2004.–204 с.
2. Гончаров А.Ю. Access 2003. Самоучитель с примерами – М.: КУДИЦ-ОБРАЗ, 2004. – 272 с.
3. Базы данных: учебный курс.– М.: ООО «Издательство АСТ», 2001.–504 с.
4. Шпак Ю.А. SQL. Просто как дважды два. – М.: Эксмо, 2007. -304 с.
Додаток А. Вихідні коди програм
FORM_Договор
Option Compare Database
Private Sub Кнопка0_Click()
On Error GoTo Err_Кнопка0_Click
Screen.PreviousControl.SetFocus
DoCmd.FindNext
Exit_Кнопка0_Click:
Exit Sub
Err_Кнопка0_Click:
MsgBox Err.Description
Resume Exit_Кнопка0_Click
End Sub
Private Sub Кнопка1_Click()
On Error GoTo Err_Кнопка1_Click
Screen.PreviousControl.SetFocus
DoCmd.FindNext
Exit_Кнопка1_Click:
Exit Sub
Err_Кнопка1_Click:
MsgBox Err.Description
Resume Exit_Кнопка1_Click
End Sub
Private Sub Кнопка4_Click()
On Error GoTo Err_Кнопка4_Click
DoCmd.Close
Exit_Кнопка4_Click:
Exit Sub
Err_Кнопка4_Click:
MsgBox Err.Description
Resume Exit_Кнопка4_Click
End Sub
Private Sub Кнопка5_Click()
On Error GoTo Err_Кнопка5_Click
Dim stDocName As String
Dim stLinkCriteria As String
stDocName = ChrW(1044) & ChrW(1086) & ChrW(1075) & ChrW(1086) & ChrW(1074) & ChrW(1086) & ChrW(1088) & ChrW(95) & ChrW(1076) & ChrW(1086) & ChrW(1073)
DoCmd.OpenForm stDocName,,, stLinkCriteria
Exit_Кнопка5_Click:
Exit Sub
Err_Кнопка5_Click:
MsgBox Err.Description
Resume Exit_Кнопка5_Click
End Sub
Private Sub Кнопка6_Click()
On Error GoTo Err_Кнопка6_Click
Dim stDocName As String
Dim stLinkCriteria As String
stDocName = ChrW(1054) & ChrW(1090) & ChrW(1095) & ChrW(1105) & ChrW(1090) & ChrW(32) & ChrW(1087) & ChrW(1086) & ChrW(32) & ChrW(1076) & ChrW(1072) & ChrW(1090) & ChrW(1077)
DoCmd.OpenForm stDocName,,, stLinkCriteria
Exit_Кнопка6_Click:
Exit Sub
Err_Кнопка6_Click:
MsgBox Err.Description
Resume Exit_Кнопка6_Click
End Sub
FORM_Договор_доб
Option Compare Database
Private Sub Кнопка19_Click()
On Error GoTo Err_Кнопка19_Click
DoCmd.GoToRecord,, acNewRec
Exit_Кнопка19_Click:
Exit Sub
Err_Кнопка19_Click:
MsgBox Err.Description
Resume Exit_Кнопка19_Click
End Sub
Private Sub Кнопка20_Click()
On Error GoTo Err_Кнопка20_Click
DoCmd.DoMenuItem acFormBar, acEditMenu, 8,, acMenuVer70
DoCmd.DoMenuItem acFormBar, acEditMenu, 6,, acMenuVer70
Exit_Кнопка20_Click:
Exit Sub
Err_Кнопка20_Click:
MsgBox Err.Description
Resume Exit_Кнопка20_Click
End Sub
Private Sub Кнопка21_Click()
On Error GoTo Err_Кнопка21_Click
DoCmd.DoMenuItem acFormBar, acRecordsMenu, acSaveRecord,, acMenuVer70
Exit_Кнопка21_Click:
Exit Sub
Err_Кнопка21_Click:
MsgBox Err.Description
Resume Exit_Кнопка21_Click
End Sub
Private Sub Кнопка22_Click()
On Error GoTo Err_Кнопка22_Click
DoCmd.Close
Exit_Кнопка22_Click:
Exit Sub
Err_Кнопка22_Click:
MsgBox Err.Description
Resume Exit_Кнопка22_Click
End Sub
FORM_Заказчик
Option Compare Database
Private Sub Кнопка19_Click()
On Error GoTo Err_Кнопка19_Click
DoCmd.GoToRecord,, acNewRec
Exit_Кнопка19_Click:
Exit Sub
Err_Кнопка19_Click:
MsgBox Err.Description
Resume Exit_Кнопка19_Click
End Sub
Private Sub Кнопка20_Click()
On Error GoTo Err_Кнопка20_Click
DoCmd.DoMenuItem acFormBar, acEditMenu, 8,, acMenuVer70
DoCmd.DoMenuItem acFormBar, acEditMenu, 6,, acMenuVer70
Exit_Кнопка20_Click:
Exit Sub
Err_Кнопка20_Click:
MsgBox Err.Description
Resume Exit_Кнопка20_Click
End Sub
Private Sub Кнопка21_Click()
On Error GoTo Err_Кнопка21_Click
DoCmd.DoMenuItem acFormBar, acRecordsMenu, acSaveRecord,, acMenuVer70
Exit_Кнопка21_Click:
Exit Sub
Err_Кнопка21_Click:
MsgBox Err.Description
Resume Exit_Кнопка21_Click
End Sub
Private Sub Кнопка22_Click()
On Error GoTo Err_Кнопка22_Click
DoCmd.Close
Exit_Кнопка22_Click:
Exit Sub
Err_Кнопка22_Click:
MsgBox Err.Description
Resume Exit_Кнопка22_Click
End Sub
FORM_Исполнитель
Option Compare Database
Private Sub Кнопка23_Click()
On Error GoTo Err_Кнопка23_Click
DoCmd.GoToRecord,, acNewRec
Exit_Кнопка23_Click:
Exit Sub
Err_Кнопка23_Click:
MsgBox Err.Description
Resume Exit_Кнопка23_Click
End Sub
Private Sub Кнопка24_Click()
On Error GoTo Err_Кнопка24_Click
DoCmd.DoMenuItem acFormBar, acEditMenu, 8,, acMenuVer70
DoCmd.DoMenuItem acFormBar, acEditMenu, 6,, acMenuVer70
Exit_Кнопка24_Click:
Exit Sub
Err_Кнопка24_Click:
MsgBox Err.Description
Resume Exit_Кнопка24_Click
End Sub
Private Sub Кнопка25_Click()
On Error GoTo Err_Кнопка25_Click
DoCmd.DoMenuItem acFormBar, acRecordsMenu, acSaveRecord,, acMenuVer70
Exit_Кнопка25_Click:
Exit Sub
Err_Кнопка25_Click:
MsgBox Err.Description
Resume Exit_Кнопка25_Click
End Sub
Private Sub Кнопка26_Click()
On Error GoTo Err_Кнопка26_Click
DoCmd.Close
Exit_Кнопка26_Click:
Exit Sub
Err_Кнопка26_Click:
MsgBox Err.Description
Resume Exit_Кнопка26_Click
End Sub
Private Sub Кнопка27_Click()
On Error GoTo Err_Кнопка27_Click
DoCmd.DoMenuItem acFormBar, acEditMenu, acUndo,, acMenuVer70
Exit_Кнопка27_Click:
Exit Sub
Err_Кнопка27_Click:
MsgBox Err.Description
Resume Exit_Кнопка27_Click
End Sub
FORM_Меню
Option Compare Database
Private Sub Услуги_Click()
On Error GoTo Err_Услуги_Click
Screen.PreviousControl.SetFocus
DoCmd.FindNext
Exit_Услуги_Click:
Exit Sub
Err_Услуги_Click:
MsgBox Err.Description
Resume Exit_Услуги_Click
End Sub
Private Sub Добавить_заказчика_Click()
On Error GoTo Err_Добавить_заказчика_Click
Screen.PreviousControl.SetFocus
DoCmd.FindNext
Exit_Добавить_заказчика_Click:
Exit Sub
Err_Добавить_заказчика_Click:
MsgBox Err.Description
Resume Exit_Добавить_заказчика_Click
End Sub
Private Sub Добавить_изготовителя_Click()
On Error GoTo Err_Добавить_изготовителя_Click
Screen.PreviousControl.SetFocus
DoCmd.FindNext
Exit_Добавить_изготовителя_Click:
Exit Sub
Err_Добавить_изготовителя_Click:
MsgBox Err.Description
Resume Exit_Добавить_изготовителя_Click
End Sub
Private Sub Договор_Click()
On Error GoTo Err_Договор_Click
Screen.PreviousControl.SetFocus
DoCmd.FindNext
Exit_Договор_Click:
Exit Sub
Err_Договор_Click:
MsgBox Err.Description
Resume Exit_Договор_Click
End Sub
Private Sub Отчёты_Click()
On Error GoTo Err_Отчёты_Click
Screen.PreviousControl.SetFocus
DoCmd.FindNext
Exit_Отчёты_Click:
Exit Sub
Err_Отчёты_Click:
MsgBox Err.Description
Resume Exit_Отчёты_Click
End Sub
Private Sub Выход_Click()
On Error GoTo Err_Выход_Click
DoCmd.Close
Exit_Выход_Click:
Exit Sub
Err_Выход_Click:
MsgBox Err.Description
Resume Exit_Выход_Click
End Sub
Private Sub Кнопка12_Click()
On Error GoTo Err_Кнопка12_Click
Dim stDocName As String
Dim stLinkCriteria As String
stDocName = ChrW(1059) & ChrW(1089) & ChrW(1083) & ChrW(1091) & ChrW(1075) & ChrW(1072)
DoCmd.OpenForm stDocName,,, stLinkCriteria
Exit_Кнопка12_Click:
Exit Sub
Err_Кнопка12_Click:
MsgBox Err.Description
Resume Exit_Кнопка12_Click
End Sub
Private Sub Кнопка13_Click()
On Error GoTo Err_Кнопка13_Click
Dim stDocName As String
Dim stLinkCriteria As String
stDocName = ChrW(1047) & ChrW(1072) & ChrW(1082) & ChrW(1072) & ChrW(1079) & ChrW(1095) & ChrW(1080) & ChrW(1082)
DoCmd.OpenForm stDocName,,, stLinkCriteria
Exit_Кнопка13_Click:
Exit Sub
Err_Кнопка13_Click:
MsgBox Err.Description
Resume Exit_Кнопка13_Click
End Sub
Private Sub Кнопка14_Click()
On Error GoTo Err_Кнопка14_Click
Dim stDocName As String
Dim stLinkCriteria As String
stDocName = ChrW(1047) & ChrW(1072) & ChrW(1082) & ChrW(1072) & ChrW(1079) & ChrW(1095) & ChrW(1080) & ChrW(1082)
DoCmd.OpenForm stDocName,,, stLinkCriteria
Exit_Кнопка14_Click:
Exit Sub
Err_Кнопка14_Click:
MsgBox Err.Description
Resume Exit_Кнопка14_Click
End Sub
Private Sub Кнопка15_Click()
On Error GoTo Err_Кнопка15_Click
Dim stDocName As String
Dim stLinkCriteria As String
stDocName = ChrW(1044) & ChrW(1086) & ChrW(1075) & ChrW(1086) & ChrW(1074) & ChrW(1086) & ChrW(1088)
DoCmd.OpenForm stDocName,,, stLinkCriteria
Exit_Кнопка15_Click:
Exit Sub
Err_Кнопка15_Click:
MsgBox Err.Description
Resume Exit_Кнопка15_Click
End Sub
Private Sub Кнопка16_Click()
On Error GoTo Err_Кнопка16_Click
Dim stDocName As String
Dim stLinkCriteria As String
stDocName = ChrW(1054) & ChrW(1090) & ChrW(1095) & ChrW(1105) & ChrW(1090) & ChrW(1099)
DoCmd.OpenForm stDocName,,, stLinkCriteria
Exit_Кнопка16_Click:
Exit Sub
Err_Кнопка16_Click:
MsgBox Err.Description
Resume Exit_Кнопка16_Click
End Sub
Private Sub Кнопка17_Click()
On Error GoTo Err_Кнопка17_Click
Dim stDocName As String
Dim stLinkCriteria As String
stDocName = ChrW(1048) & ChrW(1089) & ChrW(1087) & ChrW(1086) & ChrW(1083) & ChrW(1085) & ChrW(1080) & ChrW(1090) & ChrW(1077) & ChrW(1083) & ChrW(1100)
DoCmd.OpenForm stDocName,,, stLinkCriteria
Exit_Кнопка17_Click:
Exit Sub
Err_Кнопка17_Click:
MsgBox Err.Description
Resume Exit_Кнопка17_Click
End Sub
FORM_Отчёт по дате
Option Compare Database
Private Sub Кнопка7_Click()
On Error GoTo Err_Кнопка7_Click
Dim stDocName As String
stDocName = ChrW(1047) & ChrW(1072) & ChrW(1087) & ChrW(1088) & ChrW(1086) & ChrW(1089) & ChrW(32) & ChrW(1087) & ChrW(1086) & ChrW(32) & ChrW(1076) & ChrW(1072) & ChrW(1090) & ChrW(1077)
DoCmd.OpenQuery stDocName, acNormal, acEdit
Exit_Кнопка7_Click:
Exit Sub
Err_Кнопка7_Click:
MsgBox Err.Description
Resume Exit_Кнопка7_Click
End Sub
Private Sub Кнопка9_Click()
On Error GoTo Err_Кнопка9_Click
DoCmd.Close
Exit_Кнопка9_Click:
Exit Sub
Err_Кнопка9_Click:
MsgBox Err.Description
Resume Exit_Кнопка9_Click
End Sub
FORM_Отчёт_услуги
Option Compare Database
Private Sub Кнопка0_Click()
On Error GoTo Err_Кнопка0_Click
Dim stDocName As String
stDocName = ChrW(1054) & ChrW(1090) & ChrW(1095) & ChrW(1105) & ChrW(1090) & ChrW(32) & ChrW(1086) & ChrW(32) & ChrW(1087) & ChrW(1088) & ChrW(1077) & ChrW(1076) & ChrW(1086) & ChrW(1089) & ChrW(1090) & ChrW(1072) & ChrW(1074) & ChrW(1083) & ChrW(1077) & ChrW(1085) & ChrW(1099) & ChrW(1093) & ChrW(32) & ChrW(1091) & ChrW(1089) & ChrW(1083) & ChrW(1091) & ChrW(1075) & ChrW(1072) & ChrW(1093)
DoCmd.OpenReport stDocName, acPreview
Exit_Кнопка0_Click:
Exit Sub
Err_Кнопка0_Click:
MsgBox Err.Description
Resume Exit_Кнопка0_Click
End Sub
Private Sub Кнопка2_Click()
On Error GoTo Err_Кнопка2_Click
Dim stDocName As String
stDocName = ChrW(1054) & ChrW(1090) & ChrW(1095) & ChrW(1105) & ChrW(1090) & ChrW(32) & ChrW(1086) & ChrW(32) & ChrW(1087) & ChrW(1088) & ChrW(1077) & ChrW(1076) & ChrW(1086) & ChrW(1089) & ChrW(1090) & ChrW(1072) & ChrW(1074) & ChrW(1083) & ChrW(1077) & ChrW(1085) & ChrW(1099) & ChrW(1093) & ChrW(32) & ChrW(1091) & ChrW(1089) & ChrW(1083) & ChrW(1091) & ChrW(1075) & ChrW(1072) & ChrW(1093)
DoCmd.OpenReport stDocName, acNormal
Exit_Кнопка2_Click:
Exit Sub
Err_Кнопка2_Click:
MsgBox Err.Description
Resume Exit_Кнопка2_Click
End Sub
Private Sub Кнопка4_Click()
On Error GoTo Err_Кнопка4_Click
DoCmd.Close
Exit_Кнопка4_Click:
Exit Sub
Err_Кнопка4_Click:
MsgBox Err.Description
Resume Exit_Кнопка4_Click
End Sub
FORM_Отчёты
Option Compare Database
Private Sub Кнопка0_Click()
On Error GoTo Err_Кнопка0_Click
Screen.PreviousControl.SetFocus
DoCmd.FindNext
Exit_Кнопка0_Click:
Exit Sub
Err_Кнопка0_Click:
MsgBox Err.Description
Resume Exit_Кнопка0_Click
End Sub
Private Sub Кнопка1_Click()
On Error GoTo Err_Кнопка1_Click
Screen.PreviousControl.SetFocus
DoCmd.FindNext
Exit_Кнопка1_Click:
Exit Sub
Err_Кнопка1_Click:
MsgBox Err.Description
Resume Exit_Кнопка1_Click
End Sub
Private Sub Кнопка4_Click()
On Error GoTo Err_Кнопка4_Click
DoCmd.Close
Exit_Кнопка4_Click:
Exit Sub
Err_Кнопка4_Click:
MsgBox Err.Description
Resume Exit_Кнопка4_Click
End Sub
Private Sub Кнопка5_Click()
On Error GoTo Err_Кнопка5_Click
Dim stDocName As String
Dim stLinkCriteria As String
stDocName = ChrW(1054) & ChrW(1090) & ChrW(1095) & ChrW(1105) & ChrW(1090) & ChrW(95) & ChrW(1091) & ChrW(1089) & ChrW(1083) & ChrW(1091) & ChrW(1075) & ChrW(1080)
DoCmd.OpenForm stDocName,,, stLinkCriteria
Exit_Кнопка5_Click:
Exit Sub
Err_Кнопка5_Click:
MsgBox Err.Description
Resume Exit_Кнопка5_Click
End Sub
FORM_Прайс-лист
Option Compare Database
Private Sub Кнопка10_Click()
On Error GoTo Err_Кнопка10_Click
DoCmd.PrintOut
Exit_Кнопка10_Click:
Exit Sub
Err_Кнопка10_Click:
MsgBox Err.Description
Resume Exit_Кнопка10_Click
End Sub
Private Sub Кнопка11_Click()
On Error GoTo Err_Кнопка11_Click
DoCmd.Close
Exit_Кнопка11_Click:
Exit Sub
Err_Кнопка11_Click:
MsgBox Err.Description
Resume Exit_Кнопка11_Click
End Sub
FORM_Услуга
Option Compare Database
Private Sub Кнопка0_Click()
On Error GoTo Err_Кнопка0_Click
Screen.PreviousControl.SetFocus
DoCmd.FindNext
Exit_Кнопка0_Click:
Exit Sub
Err_Кнопка0_Click:
MsgBox Err.Description
Resume Exit_Кнопка0_Click
End Sub
Private Sub Кнопка1_Click()
On Error GoTo Err_Кнопка1_Click
Screen.PreviousControl.SetFocus
DoCmd.FindNext
Exit_Кнопка1_Click:
Exit Sub
Err_Кнопка1_Click:
MsgBox Err.Description
Resume Exit_Кнопка1_Click
End Sub
Private Sub Кнопка2_Click()
On Error GoTo Err_Кнопка2_Click
Screen.PreviousControl.SetFocus
DoCmd.FindNext
Exit_Кнопка2_Click:
Exit Sub
Err_Кнопка2_Click:
MsgBox Err.Description
Resume Exit_Кнопка2_Click
End Sub
Private Sub Кнопка3_Click()
On Error GoTo Err_Кнопка3_Click
Screen.PreviousControl.SetFocus
DoCmd.FindNext
Exit_Кнопка3_Click:
Exit Sub
Err_Кнопка3_Click:
MsgBox Err.Description
Resume Exit_Кнопка3_Click
End Sub
Private Sub Кнопка8_Click()
On Error GoTo Err_Кнопка8_Click
DoCmd.Close
Exit_Кнопка8_Click:
Exit Sub
Err_Кнопка8_Click:
MsgBox Err.Description
Resume Exit_Кнопка8_Click
End Sub
Private Sub Кнопка9_Click()
On Error GoTo Err_Кнопка9_Click
Dim stDocName As String
stDocName = ChrW(1047) & ChrW(1072) & ChrW(1088) & ChrW(1087) & ChrW(1086) & ChrW(1089) & ChrW(32) & ChrW(1087) & ChrW(1086) & ChrW(32) & ChrW(1074) & ChrW(1080) & ChrW(1076) & ChrW(1091) & ChrW(32) & ChrW(1091) & ChrW(1089) & ChrW(1083) & ChrW(1091) & ChrW(1075) & ChrW(1080)
DoCmd.OpenQuery stDocName, acNormal, acEdit
Exit_Кнопка9_Click:
Exit Sub
Err_Кнопка9_Click:
MsgBox Err.Description
Resume Exit_Кнопка9_Click
End Sub
Private Sub Кнопка10_Click()
On Error GoTo Err_Кнопка10_Click
Dim stDocName As String
stDocName = ChrW(1047) & ChrW(1072) & ChrW(1088) & ChrW(1087) & ChrW(1086) & ChrW(1089) & ChrW(32) & ChrW(1091) & ChrW(1089) & ChrW(1083) & ChrW(1091) & ChrW(1075) & ChrW(1080) & ChrW(32) & ChrW(1087) & ChrW(1086) & ChrW(32) & ChrW(1085) & ChrW(1072) & ChrW(1079) & ChrW(1074) & ChrW(1072) & ChrW(1085) & ChrW(1080) & ChrW(1102)
DoCmd.OpenQuery stDocName, acNormal, acEdit
Exit_Кнопка10_Click:
Exit Sub
Err_Кнопка10_Click:
MsgBox Err.Description
Resume Exit_Кнопка10_Click
End Sub
Private Sub Кнопка11_Click()
On Error GoTo Err_Кнопка11_Click
Dim stDocName As String
Dim stLinkCriteria As String
stDocName = ChrW(1055) & ChrW(1088) & ChrW(1072) & ChrW(1081) & ChrW(1089) & ChrW(45) & ChrW(1083) & ChrW(1080) & ChrW(1089) & ChrW(1090)
DoCmd.OpenForm stDocName,,, stLinkCriteria
Exit_Кнопка11_Click:
Exit Sub
Err_Кнопка11_Click:
MsgBox Err.Description
Resume Exit_Кнопка11_Click
End Sub
Private Sub Кнопка12_Click()
On Error GoTo Err_Кнопка12_Click
Dim stDocName As String
Dim stLinkCriteria As String
stDocName = ChrW(1059) & ChrW(1089) & ChrW(1083) & ChrW(1091) & ChrW(1075) & ChrW(1072) & ChrW(95) & ChrW(1076) & ChrW(1086) & ChrW(1073)
DoCmd.OpenForm stDocName,,, stLinkCriteria
Exit_Кнопка12_Click:
Exit Sub
Err_Кнопка12_Click:
MsgBox Err.Description
Resume Exit_Кнопка12_Click
End Sub
Private Sub Кнопка13_Click()
On Error GoTo Err_Кнопка13_Click
Dim stDocName As String
stDocName = ChrW(1047) & ChrW(1072) & ChrW(1088) & ChrW(1087) & ChrW(1086) & ChrW(1089) & ChrW(32) & ChrW(1087) & ChrW(1086) & ChrW(32) & ChrW(1074) & ChrW(1080) & ChrW(1076) & ChrW(1091) & ChrW(32) & ChrW(1091) & ChrW(1089) & ChrW(1083) & ChrW(1091) & ChrW(1075) & ChrW(1080)
DoCmd.OpenQuery stDocName, acNormal, acEdit
Exit_Кнопка13_Click:
Exit Sub
Err_Кнопка13_Click:
MsgBox Err.Description
Resume Exit_Кнопка13_Click
End Sub
FORM_Услуга_доб
Option Compare Database
Private Sub Кнопка19_Click()
End Sub
Private Sub Кнопка20_Click()
On Error GoTo Err_Кнопка20_Click
DoCmd.GoToRecord,, acNewRec
Exit_Кнопка20_Click:
Exit Sub
Err_Кнопка20_Click:
MsgBox Err.Description
Resume Exit_Кнопка20_Click
End Sub
Private Sub Кнопка21_Click()
On Error GoTo Err_Кнопка21_Click
DoCmd.DoMenuItem acFormBar, acEditMenu, 8,, acMenuVer70
DoCmd.DoMenuItem acFormBar, acEditMenu, 6,, acMenuVer70
Exit_Кнопка21_Click:
Exit Sub
Err_Кнопка21_Click:
MsgBox Err.Description
Resume Exit_Кнопка21_Click
End Sub
Private Sub Кнопка22_Click()
On Error GoTo Err_Кнопка22_Click
DoCmd.DoMenuItem acFormBar, acRecordsMenu, acSaveRecord,, acMenuVer70
Exit_Кнопка22_Click:
Exit Sub
Err_Кнопка22_Click:
MsgBox Err.Description
Resume Exit_Кнопка22_Click
End Sub
Private Sub Кнопка23_Click()
On Error GoTo Err_Кнопка23_Click
DoCmd.Close
Exit_Кнопка23_Click:
Exit Sub
Err_Кнопка23_Click:
MsgBox Err.Description
Resume Exit_Кнопка23_Click
End Sub
Додаток Б. Інструкція користувача
1. Для того, щоб почати роботу із базою даних «студія веб-дизайну » необхідно з списку форм обрати форму, що має назву „Меню”
2. Для того, щоб мати змогу добавити послуги до бази даних, необхідно натиснути кнопку «Услуги», а потім, у формі „Услуга” натиснути „Добавить услугу”.
3. Для внесення нового постачальника до бази даних, необхідно натиснути кнопку «Добавить заказчика».
4. Для внесення нового виробника до бази даних, необхідно натиснути кнопку «Добавить исполнителя».
5. Для заповнення чека та внесення його до бази даних, необхідно натиснути кнопку «Услуга»à”Прайс-лист”.
6. При натискані кнопки „Отчёты”, в головній формі, відкриється форма „Форма_отчёты”
Якщо натиснути кнопку „Формировать отчёт о наличии товара в аптеке” в цій формі, то з’явиться ще одна форма, де буде запропановано продивитися звіт про товари, як в базі, або роздрукувати цей звіт
7. При натискані кнопки „Договор”, в головній формі, відкриється форма „Договор”
Якщо натиснути кнопку „Поиск договора за определённій период” в цій формі, то з’явиться ще форма „Договр”, де необхідно ввести дати: з якої та по яку ви хочите одержати інформацію про продані заключені договори
Якщо ж натиснути „Добавить договор”, то на єкрані повинна з’явитися наступна форма Договор_доб”, в якому ми можемо додавати договір, за допомогою його характеристик
8. Для того, щоб знайти послугу за назвою необхідно в головній формі натиснути „Услуги”, потім, у формі, що з’явиться, натиснути „Поиск услуги по названию”, з’явиться вікно, в якому необхідно набрати назву послуги, яка нас цікавить
9. Для того, щоб знайти послугу за видом, необхідно в головній формі натиснути „Услуги”, потім, у формі „Услуга”, що з’явиться, натиснути „Поиск услуги по виду”, з’явиться вікно, в якому необхідно вид послуги, яка нас цікавить
9. Для того,
щоб закрит будь-яку форму треба натиснути копку „Закрити форму”, яка має вигляд
-
.
