Агентство недвижимости Delphi + Access

Автоматизация работы агентства недвижимости

Программа выполнена в среде Delphi и с использованием СУБД MS Access.

Программное средство позволяет вести учет типов недвижимости и типов сделки.

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

ВВЕДЕНИЕ. 2

1. ПОСТАНОВКА ЗАДАЧИ.. 4

1.1.   Характеристика объекта исследования. 4

1.2.   Описание экономической области функционирования объекта исследования  6

1.3.   Характеристика предмета исследования. 9

2. ПРОЕКТИРОВАНИЕ ИНФОРМАЦИОННОЙ СИСТЕМЫ.. 11

2.1 Обоснование необходимости разработки ИС.. 11

2.2 Выбор программно-аппаратной платформы.. 11

2.3 Анализ входных данных. 12

2.4 Выбор и обоснование базового варианта системы.. 14

2.5 Проектирование пользовательского интерфейса. 18

2.6 Проектирование выходных форм. 19

3. РАЗРАБОТКА КОМПОНЕНТОВ ИНФОРМАЦИОННОЙ СИСТЕМЫ.. 23

3.1 Разработка модуля управления выполнением. 23

3.2 Разработка модуля загрузки данных. 28

3.3 Разработка модуля фильтрации. 30

3.4 Разработка модуля отчетов. 31

4. ТЕСТИРОВАНИЕ ИНФОРМАЦИОННОЙ СИСТЕМЫ.. 36

4.1 Описание методов тестирования. 36

4.2 Тестирование и отладка модулей. 38

4.3 Тестирование системы в целом. 39

ЗАКЛЮЧЕНИЕ. 40

СПИСОК ЛИТЕРАТУРЫ.. 41

ПРИЛОЖЕНИЯ.. 43

П.1 Листинг подпрограммы фильтрации и группировки данных. 43

П.2 Акт внедрения разработки  95

ВВЕДЕНИЕ

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

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

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

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

Объектом исследования выпускной квалификационной работы является ООО "Парадокс Пропертиз".

Цель данной выпускной квалификационной работы - проектирование и администрирование системы сбора и управления данными для ООО "Парадокс Пропертиз".

Для достижения этой цели в проекте необходимо решить следующие задачи: 

• дать характеристику ООО "Парадокс Пропертиз";
• изучить особенности сбора и управления данными в ООО "Парадокс Пропертиз";
• описать существующую технологию выполнения менеджером своих функций;
• разработать программное обеспечение с учетом устранения выявленных при анализе предметной области недостатков;

провести тестирование созданного программного продукта.

wdApp := CreateOleObject('Word.Application');
  //Ссылка на коллекцию документов.
  wdDocs := wdApp.Documents;
  wdDoc := wdDocs.Open(FileName:=GetCurrentDir+'\Templates\'+ADOQuery2.Fields[0].AsString);
  //Подключаемся к коллекции закладок.
  wdBms := wdDoc.Bookmarks;
  //Ищем закладки с нужными именами и изменяем их текст, в соответствие
  //с данными, введёнными на форме.

  QTemp.SQL.Text:='SELECT Недвижимость.Адрес, Недвижимость.Общая_площадь, Недвижимость.Жилая_площадь, Недвижимость.Количество_комнат, Недвижимость.Этаж, Недвижимость.Цена'
                 +' FROM Недвижимость INNER JOIN Сделка ON Недвижимость.[Код недвижимости] = Сделка.[Код недвижимости]'
                 +' WHERE (((Сделка.[Код сделки])='+DGrid1.DataSource.DataSet.FieldByName('Код сделки').AsString+'));';
  QTemp.Open;

  SetBmText(wdBms, 'Address', QTemp.FieldByName('Адрес').AsString);
  SetBmText(wdBms, 'All_area', QTemp.FieldByName('Общая_площадь').AsString);
  SetBmText(wdBms, 'Cnt_room', QTemp.FieldByName('Количество_комнат').AsString);

  QTemp.SQL.Text:='SELECT Клиент.Фамилия+" "+Клиент.Имя+" "+Клиент.Отчество AS ФИО, Клиент.Паспорт, Клиент.Телефон'
                 +' FROM Клиент INNER JOIN Сделка ON Клиент.[Код клиента] = Сделка.[Код клиента]'
                 +' WHERE (((Сделка.[Код сделки])='+DGrid1.DataSource.DataSet.FieldByName('Код сделки').AsString+'));';
  QTemp.Open;

Содержание архива:

• Исходный код на языке Pascal в среде Delphi 7;
• База данных в MS Access;
• Отчет, согласно приведенному содержанию.