2.2 Практическое создание формы в ms Access

Первым шагом при создании полноценной формы является создание меню «Вход». Здесь у пользователя есть возможность выполнить вход в программу либо покинуть базу данных:

Данная форма создается следующим образом: 1) Меню «Создание» > «Конструктор форм»; 2) Через «Свойства формы» происходит процесс редактирования; 3) В меню «Конструктор» загружаем заранее подготовленную картинку-фон для формы; 4) В меню «Конструктор» создаем 2 кнопки необходимого размера и формы, в «Окне свойств» присваиваем им название;

Первое, с чего следует начать в создании любой формы в MS Access, которая в последующем будет использоваться множеством пользователей, - ­ возможность авторизации личной учетной записи. Это необходимо, в первую очередь, для безопасного хранения информации, находящейся в базе данных, а также для регулирования прав на получение различных категорий данных.

Существует два распространенных способа создания окна авторизации пользователей: 1) когда пользователь в форме создает учетную запись, внося необходимую информацию (ФИО, логин, пароль), данная информация автоматически попадает в предварительно созданную таблицу и используется в дальнейшем для авторизации; 2) когда пользователь должен предоставить свой логин и пароль системному администратору, обслуживающему данную базу данных, тот, в свою очередь, вносит данные в таблицу пользователей и в дальнейшем осуществляется беспрепятственный вход. Данный задача была реализована по варианту 2.

Для того чтобы обозначить какое-либо событие при нажатии кнопок используются как встроенные макросы, так и язык VBA: - Выделяем кнопку «Выход из программы» > в «Окне свойств», во вкладке «События» используем внедренный макрос который будет закрывать базу данных при одиночном нажатии на кнопку «Выход из программы»; При нажатии на кнопку «Вход» должно появляться меню где пользователь должен произвести авторизацию. Для этого необходимо создать модальное диалоговое окно во вкладке «Другие формы» и назовем ее «LoginForm».

После создания формы в режиме конструктора создаем два поля для ввода и присваиваем им названия: «Логин», «Пароль». Создаем две кнопки «Ок», «Отмена».

Для кнопки «Отмена» присваиваем внедненный макрос на закрытие формы и возврат в форму «Вход». Для работы с авторизацией создаем таблицу с пользователями, назовем ее «Users». Туда вносим пользователей базы данных и их пароли. Также создаем еще одну форму для того, чтобы, когда мы правильно ввели логин и пароль и нажимаем кнопку «Ок», нас переводило в новую рабочую область.

Данная форма будет называться «Главное меню». Теперь нам необходимо написать макрос который будет проверять введенные логин и пароль, запрашивая и сверяя данные из таблицы «Users» и в случае неверно введенных данных будет оповещать пользователей об ошибке. Для написания данного макроса используется язык VBA, в частности функции MsgBox, DlookUp, DoCmd.Close, DoCmd.OpenForm.

Код выглядит следующим образом: Private Sub Кнопка1_Click()

If IsNull(Me.txtLoginID) Then MsgBox "Пожалуйста введите Логин", vbInformation, "Заполнение Логина Обязательно" Me.txtLoginID.SetFocus ElseIf IsNull(Me.txtPassword) Then MsgBox "Пожалуйста введите Пароль", vbInformation, "Заполнение Пароля Обязательно" Me.txtPassword.SetFocus Else 'продолжаем работу If (IsNull(DLookup("UserLogin", "Users", "UserLogin ='" & Me.txtLoginID.Value & "'"))) Or _ (IsNull(DLookup("Password", "Users", "Password ='" & Me.txtPassword.Value & "'"))) Then MsgBox "Неправильно введен Логин или Пароль"

Else DoCmd.Close 'MsgBox "Логин или Пароль введены правильно" DoCmd.OpenForm "Главное меню" End If End If End Sub

Закрываем меню VBA. Теперь при вводе только логина и нажатии кнопки «Ок» или при неправильном вводе и логина и пароля программа нас будет об этом предупреждать следующими сообщениями:

При совпадении введенного логина и пароля с данными из таблицы «Users» мы переходим в следующую форму «Главное меню», которую мы создавали накануне.

Форма «Главное меню» это и есть наша рабочая область, которая будет содержать в себе различные «рабочие модули» и всю необходимую информацию для ускорения и облегчения работы судебным исполнителям.

Здесь будет рабочий модуль «Список закрепленных исполнительных производств» для вывода на экран всех исполнительных производств, которые закреплены (находятся в работе) у авторизовавшегося пользователя. Модуль «Архив закрытых исполнительных производств» - для вывода на экран всех исторических данных по всем исполнительным производствам когда-либо находившихся в работе у данного пользователя. Модуль «Справочная информация по ОПИ РБ» - для вывода на экран удобной информации по всем сотрудникам отделов принудительного исполнения Республики Беларусь, с указанием их должности, контактных данных.

Пример реализации рабочего модуля «Справочная информация по ОПИ РБ»:

1. Создаем форму «Меню список ОПИ», которая будет содержать удобный для восприятия список всех отделов принудительного исполнения Республики Беларусь:

2. В режиме конструктора создаем необходимое количество кнопок с соответствующими названиями;

2.1. Также создаем кнопку «Назад», которая будет возвращать пользователя в форму «Главное меню» для продолжения работы.

3. Создаем связанную таблицу для связи с источниками данных. Т.е. импортируем внешнюю таблицу с информацией по всем отделам принудительного исполнения Республики Беларусь - «ОПИ инфа». Данная таблица будет ежедневно обновляться из «Витрин данных». Она содержит адреса и индексы всех отделов принудительного исполнения Республики Беларусь:

Теперь мы бы хотели, чтобы при нажатии на кнопки «ОПИ г. Минска» из всего списка ОПИ РБ открывались только те, которые территориально расположены в городе Минске. В импортированной таблице у нас есть столбец отвечающий за классификацию ОПИ, это мы и будем использовать:

- создаем разделенную форму «Информация по ОПИ», оформляя ее соответствующим образом;

- переходим в режим конструктора, в форме «Меню список ОПИ», выбираем кнопку «ОПИ г. Минска» и в «Окне свойств», во вкладке «События» пишем макрос - фильтр на нажатие кнопки, следующего содержания: Private Sub btm1_Click() opi = “ОПИ г. Минска” DoCmd.Close acForm, “Меню список ОПИ” DoCmd.OpenForm "Информация по ОПИ" End Sub

В результате, после нажатия кнопки «ОПИ г. Минска», открывается форма которая из всего списка ОПИ РБ выводит на экран только ОПИ г. Минска.

Затем нам необходимо, чтобы по двойному нажатию на любое из представленных ОПИ, нам выводилась информация о сотрудниках данного ОПИ:

- создаем связанную таблицу для связи с источниками данных. Т.е. импортируем внешнюю таблицу с информацией по всем сотрудникам всех отделов принудительного исполнения Республики Беларусь. Данная таблица будет ежедневно обновляться из «Витрины данных». Она содержит ФИО, должность и телефон всех сотрудников.

- создаем раздельную форму «Меню Телефоны ОПИ»;

- в режиме конструктора по аналогии с предыдущим макросом в «Окне свойств», во вкладке «События» создаем макрос на двойное нажатие поля «Наименование ОПИ» в форме «Меню телефоны ОПИ»;

- создаем кнопку и «привязываем на неё» встроенный макрос на закрытие окна - выход в предыдущее меню;

В итоге на экран выводится информация о сотрудниках ОПИ Заводского ОПИ г. Минска:

Остается применить подобный подход для всех кнопок путем копирования макросов и изменения лишь названия кнопок. Таким образом, мы создали рабочий модуль «Справочная информация по ОПИ РБ», который помогает нам оперативно получать любую информацию по адресам, индексам, сотрудникам, должностям, и контактным данным всех ОПИ РБ.

На основе данного модуля можно по аналогии создать схожие модули, которые будут выполнять другие функции, упрощающие работу работников судов.