Создание главной кнопочной формы базы данных

Теперь наша БД содержит набор различных объектов. Для их запуска нужно по-прежнему использовать окно БД. Однако требовательному пользователю это может показаться неудобным. На этот случай в состав MS Access включена надстройка " Диспетчер кнопочных форм ". С помощью этой надстройки автоматически создается удобная и функциональная форма, для выполнения основных действий с БД [7]. На кнопочную панель помещаются кнопки, при нажатии которых открываются формы или отчеты (или открываются другие кнопочные формы, с помощью которых открываются другие формы или отчеты), осуществляется выход из Microsoft Access или изменяется сама кнопочная форма. Диспетчер кнопочных форм позволяет создавать кнопочные формы, подобные тем, что создает мастер баз данных. Запуск Диспетчера кнопочных форм: меню Сервис -> Надстройки -> Диспетчер кнопочных форм.

Рисунок 3.21. Создание кнопочной формы

Для начала нажимаем кнопку «Изменить», при выделенной записи «Главная кнопочная форма» (эта запись создается автоматически). Теперь мы можем создавать элементы этой формы – кнопки на форме, возле которых выводится текстовая надпись из поля «Текст» (см. рис. 22) и которые выполняют действия, определенные в поле «Команда». В третье поле записываются параметры команды (оно меняется в зависимости от типа команды).

По окончании заполнения, нажимаем кнопку «Закрыть» и у нас в окне БД на закладке «Формы» появится новая форма – «Кнопочная форма».

Теперь настроим параметры запуска базы данных. Параметры запуска – MS Access имеет возможность управления запуском базы данных. Пользователь может указать, какую форму следует открыть при запуске, разрешается ли изменять панели инструментов, а также являются ли доступными контекстные меню.

Выбираем в меню «Сервис» команду «Параметры запуска» и вводим требуемые значения.

Рисунок 3.22. Окно «Параметры запуска»

Для того чтобы получить справку о конкретном элементе диалогового окна, нажимаем кнопку со знаком вопроса в правом верхнем углу диалогового окна, а затем выберите элемент.

Для того чтобы обойти настройки параметров запуска, следует открывать базу данных, удерживая нажатой клавишу Shift.

Настраиваем свою БД таким образом, чтобы при ее запуске сразу же стартовала, созданная нами кнопочная форма.

 

Рисунок 3.23. Окно «Главная кнопочная форма»

Заключение

В результате выполнения курсовой работы была создана информационная для аэропорта.

Созданный программный продукт позволяет оперативно и своевременно выдавать информацию:

¨ о самолетах (тип самолета, № самолета, № обслуживающей бригады самолет);

¨ о расписании (№ рейса, пункт отправления, пункт назначения, время отправления, время полета, стоимость билета);

¨ о летном составе (Ф.И.О., должность, стаж работы, адрес, оклад).

В процессе разработки курсовой разработки мною приобретены навыки разработки реляционных баз данных с помощью СУБД Microsoft Access.

Созданный программный продукт отвечает требованиям и позволяет легко вводить новые записи о персонале, рейсах и самолетах.

 

 

Список использованной литературы

1. Карпова Т.С. Базы данных. Модели, разработка, реализация (2-е изд.).- Издательство: М.: НОУ "Интуит", 2016. - 403 с. ил.

2. Баженова И.Ю. Основы проектирования приложений баз данных (2-е изд.). - И здательство: М.: НОУ "Интуит", 2016. – 237 с. ил.
Кумскова И.А. Базы данных (2-е изд.). - Издательство: М.: КноРус, 2016. – 488 с. ил.

3. Фейерштейн С., Прибыл Б. Oracle PL/SQL. Для профессионалов. 6-е изд. - И здательство: Питер, 2015. – 1024 с.

4. Хомоненко А.Д., Цыганков В.М., Мальцев М.Г. Базы данных. – 4-е из., доп., перераб. – Спб.: Корона принт, 2004. – 736 с.

5. Дж. Ульман, Дж. Уидом. Введение в системы баз данных. Пер. с англ. - М.: Издательство "Лори", 2000, 374 с., ил.

6. Питер Роб, Карлос Коронел. Системы баз данных: проектирование, реализация и управление, 5-е издание, – BHV Санкт-Петербург, 2004. -1040 с.,

7. Кренке Д. Теория и практика построения баз данных. Изд.9 – Питер, 2005.

8. Клецова Т.В., Овсянникова Н.В., Прохоров И.В. Базы данных: Лабораторный практикум. М.: МИФИ, 2008 - 132 с.

9. Глушаков С.В., Ломотько Д.В. Базы данных. – Харьков: Фолио; М.:ООО «Издательство АСТ», 2002. – 504 с.

10. Гурвиц Г. А. Разработка реального приложения с использованием Microsoft Visual FoxPro 9: учеб. пособие. - Хабаровск: Изд-во ДВГУПС, 2007.- 198 с: ил.

11. Мамаев Е. MS SQL Server 2000. Проектирование и реализация баз данных. - BHV, СПб. 2004г., 416с.

12. Stacia Varga, Denny Cherry, and Joseph D’Antoni. Introducing Microsoft SQL Server 2016: Preview 2. - Publisher: Microsoft Press, 2016. – 107р.

13. Grant Fritchey and Matthew Skelton. Database Lifecycle Management. - Publisher: Redgate Software, 2015. – 118 р.

 

 

Приложение

 

Option Compare Database

 

Private Sub Кнопка0_Click()

On Error GoTo Err_Кнопка0_Click

 

Dim stDocName As String

Dim stLinkCriteria As String

 

stDocName = ChrW(1055) & ChrW(1077) & ChrW(1088) & ChrW(1089) & ChrW(1086) & ChrW(1085) & ChrW(1072) & ChrW(1083)

DoCmd.OpenForm stDocName,,, stLinkCriteria

 

Exit_Кнопка0_Click:

Exit Sub

 

Err_Кнопка0_Click:

MsgBox Err.Description

Resume Exit_Кнопка0_Click

 

End Sub

Private Sub Кнопка8_Click()

On Error GoTo Err_Кнопка8_Click

 

Dim stDocName As String

Dim stLinkCriteria As String

 

stDocName = ChrW(1056) & ChrW(1072) & ChrW(1089) & ChrW(1087) & ChrW(1080) & ChrW(1089) & ChrW(1072) & ChrW(1085) & ChrW(1080) & ChrW(1077) & ChrW(32) & ChrW(1087) & ChrW(1086) & ChrW(1083) & ChrW(1077) & ChrW(1090) & ChrW(1086) & ChrW(1074)

DoCmd.OpenForm stDocName,,, stLinkCriteria

 

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

Dim stLinkCriteria As String

 

stDocName = ChrW(1056) & ChrW(1072) & ChrW(1089) & ChrW(1087) & ChrW(1080) & ChrW(1089) & ChrW(1072) & ChrW(1085) & ChrW(1080) & ChrW(1077) & ChrW(32) & ChrW(1087) & ChrW(1086) & ChrW(1083) & ChrW(1077) & ChrW(1090) & ChrW(1086) & ChrW(1074)

DoCmd.OpenForm stDocName,,, stLinkCriteria

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

Dim stLinkCriteria As String

stDocName = ChrW(1056) & ChrW(1072) & ChrW(1089) & ChrW(1087) & ChrW(1080) & ChrW(1089) & ChrW(1072) & ChrW(1085) & ChrW(1080) & ChrW(1077) & ChrW(32) & ChrW(1087) & ChrW(1086) & ChrW(1083) & ChrW(1077) & ChrW(1090) & ChrW(1086) & ChrW(1074)

DoCmd.OpenForm stDocName,,, stLinkCriteria

Exit_Кнопка10_Click:

Exit Sub

Err_Кнопка10_Click:

MsgBox Err.Description

Resume Exit_Кнопка10_Click

 

Еnd Sub

Private Sub Кнопка11_Click()

On Error GoTo Err_Кнопка11_Click

Dim stDocName As String

Dim stLinkCriteria As String

stDocName = ChrW(1057) & ChrW(1072) & ChrW(1084) & ChrW(1086) & ChrW(1083) & ChrW(1077) & ChrW(1090) & ChrW(1099)

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

DoCmd.Close

Exit_Кнопка12_Click:

Exit Sub

 

Err_Кнопка12_Click:

MsgBox Err.Description

Resume Exit_Кнопка12_Click

End Sub

 

Option Compare Database

 

Private Sub Кнопка18_Click()

On Error GoTo Err_Кнопка18_Click

 

 

DoCmd.GoToRecord,, acNext

 

Exit_Кнопка18_Click:

Exit Sub

 

Err_Кнопка18_Click:

MsgBox Err.Description

Resume Exit_Кнопка18_Click

 

End Sub

 

Option Compare Database

 

Private Sub Кнопка14_Click()

On Error GoTo Err_Кнопка14_Click

 

 

DoCmd.GoToRecord,, acNext

 

Exit_Кнопка14_Click:

Exit Sub

 

Err_Кнопка14_Click:

MsgBox Err.Description

Resume Exit_Кнопка14_Click

 

End Sub

 

Option Compare Database

 

Private Sub Кнопка12_Click()

On Error GoTo Err_Кнопка12_Click

 

 

DoCmd.GoToRecord,, acNext

 

Exit_Кнопка12_Click:

Exit Sub

 

Err_Кнопка12_Click:

MsgBox Err.Description

Resume Exit_Кнопка12_Click

 

End Sub