Автоматизация учета аренды помещений государственной собственности

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

Фундаментом для написания программы явилась потребность автоматизации расчета имущественного найма помещении государственного нежилого фонда республиканской собственности.

Следует спроектировать базу данных учета имущественного найма помещении государственного нежилого фонда республиканской собственности. Программа имеет следующие функции:

• -    регистрация заявок арендаторов;

• -    составление и хранение договоров имущественного найма помещении государственного нежилого фонда республиканской собственности;

• -    хранение расчетной ставки арендной платы и размеров применяемых коэффициентов при предоставлении в аренду объектов;

• -    хранение и отображение данных балансодержателей и нанимателей;

• -    формирование поквартального перечня договоров аренды государственного нежилого фонда республиканской собственности;

• -    программа должна создавать различные запросы, формировать отчеты и при необходимости выводить их на печать;

• -    осуществлять автоматический расчет суммы арендной платы.

• -    выводить печатные формы для заключения договоров;

Разделение в таблицы исполняется в соответствии со смысловым разбором предметной области, при этом, как правило, любому (сущности) предметной области устанавливается в соотношение таблица, атрибутам предмета соответствуют свойства таблицы, а личному номеру предмета соответствуют ключ таблицы.

Таблица balansd предназначена для хранения данных об арендодателях. В этой таблице поля ObchP и Svobod содержит соответственно данные об общей площади предмета и независимой площади, которую возможно отдать под аренду.

Поле FIOR предназначено с целью упрощения формирования выходных бумаг и содержит ФИО управляющего в родительном падеже.

Таблица включает ключевое поле KodB, согласно которому и выполняется сортировка данных. Таблица zayav предназначена с целью сохранения данных    о заявках арендаторах. Таблица dogovor предназначена для сохранения данных о заключенных соглашениях среди нанимателями и арендодателями.

С целью формирования объекта и его применения используем переменную W типа variant и библиотеку ComObj.

Рассмотрим следующий фрагмент кода:

begin

CreateWord:=True;

try

W:=CreateOleObject('Word.Application');

except

CreateWord:=False;

end;

С целью получения доступа к объекту Word.Application в нашей функции CreateWord применяем конструктор CreateOleObject ('Word. Application'). В случае если редактор Word не установлен в системе, в таком случае станет сгенерирована ошибка, и мы получим значение функции = False, если Word установлен, и объект будет создан, в таком случае приобретаем значение функции = True.

После загрузки программного продукта открывается главное окно программного продукта (рисунок 1), откуда начинается работа с данной программой. В этом окне содержится меню.

Рисунок 1 - Главная форма

Для расчета арендной платы информационного объекта смоделированы справочники, содержащиеся в одноименном пункте меню.

Выбор подпункта «Балансодержатели» в меню «Справочники» вызывает форму, в которой вводятся данные арендодателей.

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

Щелчок на кнопке «Добавить» вызывает диалоговую форму заполнения журнала заявок (рисунок 2), которая содержит информацию, необходимую для формирования договора.

Рисунок 2 - Форма «Добавление данных»

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