Программная реализация
База данных ИС разработана с использованием СУБД Access 2016. Клиентское приложение разработано с использованием возможной встроенной в СУБД Access 2016, а именно: мастер запросов, мастер отчётов, мастера кранных форм и языка программирования VBA. Главным файлом приложения является ИС туристической фирмы.accde. При сохранении базы данных в виде ACCDE-файла все модули кода VBA компилируются, весь изменяемый исходный код удаляется, а конечная база данных сжимается. Код VBA продолжает выполнять свои функции, но его нельзя просмотреть или изменить, так же, как и нельзя изменить форму, отчёта и запроса. В то же время база данных работает обычным образом – данные в таблицах можно изменять.
Реализация запросов средствами Access:
Запрос №1, реализация поиска всех переговорах по абоненту, указанной пользователем ИС.
Код SQL:
SELECT Абонент.Фамилия, Абонент.Имя, Абонент.Отчество, Абонент.Город, Абонент.[ИНН Абонента], Звонки.[Время суток], Звонки.Продолжительность
FROM Абонент INNER JOIN Звонки ON Абонент.[Код Звонка] = Звонки.[Код Звонка]
WHERE (((Абонент.Фамилия)=[Ведите Фамилию]) AND ((Абонент.Имя)=[Ведите Имя]) AND ((Абонент.Отчество)=[Ведите Отчество]));
Запрос №2, реализация поиска всех переговорах по тарифу, указанного пользователем ИС.
Код SQL:
SELECT [Тарифная сетка].[Код Тарифа], Звонки.[Код Звонка], Звонки.[ИНН Абонента], Звонки.Город, Звонки.[Время суток], Звонки.Продолжительность
FROM [Тарифная сетка] INNER JOIN Звонки ON [Тарифная сетка].Город = Звонки.Город
WHERE ((([Тарифная сетка].[Код Тарифа])=[Ведите код тарифа]));
Запрос №3, реализация поиск тарифа у абонента, указанному пользователем ИС.
Код SQL:
SELECT [Тарифная сетка].[Код Тарифа], [Тарифная сетка].Город, [Тарифная сетка].[Стоимость в мин], Абонент.[Код Звонка], Абонент.[ИНН Абонента], Абонент.Фамилия, Абонент.Имя, Абонент.Отчество, Абонент.Город
FROM Абонент INNER JOIN [Тарифная сетка] ON Абонент.Город = [Тарифная сетка].Город
WHERE ((([Тарифная сетка].[Код Тарифа])=[Ведите код тарифа]));
Пример выполнения
запроса по реализации поиска всех
переговорах по абоненту, указанной
пользователем ИС.
Пример выполнения запроса по реализации поиска всех переговорах по тарифу, указанного пользователем ИС.
Пример выполнения запроса по реализации поиск тарифа у абонента, указанному пользователем ИС.
При открытии базы данных Microsoft Access могут выполняться некоторые действия. Чаще всего это открытие специальной формы, так называемой Главной кнопочной формы, вывод специальных меню или панелей инструментов, скрытие стандартных меню и т. д. Для определения этих действий используется диалоговое окно Параметры запуска (Startup). Однако иногда требуется при запуске приложения выполнить более сложный набор действий, чем тот, что позволяет задать это диалоговое окно. Например, может потребоваться заранее открыть несколько форм (не показывая их на экране), чтобы потом их отображение не занимало много времени, проверить некоторые условия или запросить ввод некоторых данных. Все это можно сделать с помощью специального макроса, который называется "AutoExec". При открытии базы данных Access проверяет наличие этого макроса и, если он существует, выполняет его. При создании макроса "AutoExec" следует помнить, что Access сначала выполнит действия, определенные в окне Параметры запуска (Startup), а затем — макрос "AutoExec", поэтому в них не должно быть противоречивых действий.
Для авто запуска информационной системы был создан макрос: «autoexec».
При запуске Access срабатывает данный макрос, который позволяет нам увидеть открытую форму: «Туристическая фирма», данная форма является главным меню всей программы.
Условие отбора =HandleButtonClick(1) - обрабатывает нажатые кнопки, данной формы.
Макрос: Абонент, создан для открытия таблицы города, для формы таблицы.
Макрос позволяет запустить таблицу города при нажатии кнопки в форме города.
Макрос: Звонки, создан для открытия таблицы заказы, для формы таблицы.
Макрос позволяет запустить таблицу заказы при нажатии кнопки в форме заказы.
Макрос: Тарифная сетка, создан для открытия таблицы клиенты, для формы таблицы.
Макрос позволяет запустить таблицу клиенты при нажатии кнопки в форме клиенты.