Курсовая Работа Агентство Недвижимости
Курсовая Работа Агентство Недвижимости
Сущность базы данных. Обоснование необходимости ввода информационных систем в сфере недвижимости. Разработка структуры и файловой базы данных "Агентство недвижимости", построение ER-диаграммы. Положительные характеристики информационной системы.
Студенты, аспиранты, молодые ученые, использующие базу знаний в своей учебе и работе, будут вам очень благодарны.
Размещено на http://www.allbest.ru/
Федеральное государственное бюджетное образовательное учреждение
высшего профессионального образования
"Московский технологический университет"
Институт информационных технологий (ИТ)
Кафедра Корпоративных Информационных Систем (КИС)
«Объектно-ориентированное программирование»
Разработка информационной системы «Агентство недвижимости»
Задание на выполнениекурсовой работы по дисциплине «Объектно-ориентированное программирование»
Разработка ИС «Агентство недвижимости»
Предметная область - ИС Агентство недвижимости, техническое задание
Перечень вопросов, подлежащих разработке, и обязательного графического материала:
Выявление сущностей информационной системы. Концептуальная модель базы данных предметной области(ER-диаграмма)
Мониторинг процесса выполнения курсового проекта (работы):
Этап курсового проекта, работы выполнил и представил результаты руководителю проекта (работы),
Работу по этапу курсового проекта (работы) принял на рассмотрение,
Работу по этапу курсового проекта (работы) принял на рассмотрение,
Работу по этапу курсового проекта (работы) принял на рассмотрение,
Комментарии руководителя курсового проекта (работы)
Разработка ИС «Агентство недвижимости»
Учебный план бакалавриата по направлению 09.03.02 «Информационные системы и технологии»
Выделение сущностей в поставленной задаче, определение состава и характера связей между ними на основании теоретического обзора сходных систем, построение концептуальной модели предметной области.
Представление концептуальной модели предметной области в виде ER-диаграммы с выделением состава сущностей и характера связей.
В результате выполнения работы решаются следующие задачи:
1. Составление теоретического материала.
3. Оформление Расчетно-пояснительной записки
4. Защита работы и демонстрация работы ИС
Выполнение работы в соответствии со стандартами кафедры КИС.
В данной курсовой работе рассматривается Информационная система «Агентство недвижимости». Во введении сказано о необходимости вводить информационные системы в различных сферах, в том числе и в сфере недвижимости. В теоретической части сказано о базах данных, об информационных системах в целом, а также о нашей в частности. В практической части решены следующие задачи: разработка структуры и файловой базы данных « Агентство недвижимости», построена ER-диаграмма. В выводе подведен итог и рассмотрены положительные характеристики данной информационной системы. Также присутствует список литературы.
Целью данной курсовой работы является разработка Информационной системы "Агентство недвижимости". В данной ИС будут реализованы многие функции для удобного выполнения торговых и складских операций. ИС позволит наглядно увидеть текущую ситуацию на предприятии.
Использование ИС "Агентство недвижимости" в работе современного крупного предприятия является необходимостью, поскольку при больших объёмах торговли уже нет времени на то, чтобы пользоваться неудобными инструментами. Предоставляемые услуги по большей части одинаковы во всех подобных предприятиях, так что больше клиентов достанется тем, кто удобнее, быстрее и качественнее предоставляет сервис.
Начальным этапом создания ИС является анализирование предметной области. Затем необходимо выявить сущности. После смоделировать связи между ними.
Функциональные потребности должны определять потребности реальных пользователей. Структура данных должна быть рассчитана на изменения в организационной структуре и на текущие и ожидаемые исключения и ограничения.
· Добавление нового покупателя/недвижимость
· Изменение сведений о параметрах недвижимости
· Регистрация информации о продажах
· Просмотр полного каталога недвижимости
Для того, чтобы создать информационную систему, необходимо понять систему работы агентства недвижимости. Абонент (оформитель) приходит в данное учреждение, чаще всего точно зная, какую недвижимость он будет оформлять. Работник должен оперативно ответить, есть ли вид недвижимости экземпляр в наличии, и если он имеется, то оформить договор продажи. Если же абонент не знает точно, что ему надо, то он может поинтересоваться у продавца-консультанта, какие виды недвижимости присутствуют, например, на некоторой улице. В этом случае работникдолжен предоставить полный список недвижимости, с помощью ИС.
Информационная система - автоматизированная система, предназначенная для организации, хранения, пополнения, поддержки и представления пользователям информации в соответствии с их запросами.
Информационные ресурсы представляют собой один из обязательных элементов, необходимых для осуществления любого вида человеческой деятельности: производства, управления, научных исследований, проектирования новой техники и технологии, подготовки и переподготовки кадров.
Для того чтобы создать ИС для агентства, нужно определить, к каким классификациям он будет относиться. В нашем случае важны следующие классификации: по масштабности и по характеру обработки данных. ИС делятся по масштабности на три вида:
· КорпоративнаяИС.Охватывает все информационные процессы целого предприятия, достигая их полной согласованности, безызбыточности и прозрачности. Такие системы называютсистемами комплексной автоматизации предприятия.
Для агентства необходима групповая ИС, так как предназначена для коллективного использования работников данного учреждения, но при этом не обязана охватывать все информационные процессы предприятия.
Теперь необходимо определить, к какому типу по характеру обработки данных ИС “Агентство недвижимости” будет относится.
Так как целью создания информационной системы для агентства является в основном улучшение и облегчение навигации по базе недвижимости, то необходимо организовать информационно-справочную ИС.
Результатом функционирования информационных систем являетсяинформационная продукция-- документы, информационные массивы,базы данныхи информационные услуги.
База данных - это информационная модель, позволяющая упорядоченно хранить данные о группе объектов, обладающих одинаковым набором свойств.
Классификация по среде постоянного хранения
· В третичной памяти: средой постоянного хранения является отсоединяемое от сервера устройство массового хранения (третичная память), как правило на основемагнитных лентилиоптических дисков. Во вторичной памяти сервера хранится лишь каталог данных третичной памяти, файловый кеш и данные для текущей обработки; загрузка же самих данных требует специальной процедуры.
Программное обеспечение, предназначенное для работы с базами данных, называется система управления базами данных (СУБД). СУБД используются для упорядоченного хранения и обработки больших объемов информации.
СУБД организует хранение информации таким образом, чтобы ее было удобно:
· осуществлять сортировку в любом порядке
Выявление сущностей концептуальной модели
Поводом создания данной информационной системы является необходимость в упрощении навигации по базе агентства, точном и оперативном информировании абонентов о наличии недвижимости.
Выявим сущности концептуальной модели. Сущность- реальный или воображаемый объект, имеющий существенное значение для рассматриваемой предметной области, информация о котором подлежит хранению.
Организация каждого агентства недвижимости включает в себя учет, хранение и предоставление недвижимости клиенту. В связи с этим каждая недвижимость имеет определенные данные, такие как:
Благодаря данной информации возможно осуществление наиболее быстрого и точного поиска по базе данных агентства.
Также в агентстве ведется картотека покупателей. О каждом клиенте заносятся следующие данные:
Основная задача агентства недвижимости - продажа недвижимости клиентам. При продаже недвижимости остаются следующие данные:
С помощью данных сведений персонал агентства может оперативно определять, имеются ли в наличии недвижимость определенного типа.
Моделирование связей между сущностями
Итак, после выявления сущностей модели, необходимо смоделировать связи между ними.
Всего существует три вида связи: один к одному (1:1), один ко многим (1:N) и многие ко многим (N:N). Связь (1: N) означает, что один экземпляр сущности, расположенный слева по связи, может быть связан с несколькими экземплярами сущности, расположенными справа по связи. Связь «один к одному» (1:1) означает, что один экземпляр одной сущности связан только с одним экземпляром другой сущности, а связь «многие ко многим» (N:N) означает, что один экземпляр первой сущности может быть связан с несколькими экземплярами второй сущности, и наоборот, один экземпляр второй сущности может быть связан с несколькими экземплярами первой сущности.
Теперь рассмотримконкретные случаи. Сущность “Недвижимость” и сущность «Договор» имеют связь (1:1), так как одна недвижимость может быть продана только один раз раз.
Сущность “Покупательи сущность “Договор” также имеют связь один ко многим. Так как один клиент может покупать не одну недвижимость.
Сущность «Недвижимость» имеет связь многие ко многим (N:N), так как можно установить две смысловые связи.
На главной форме, в которой будет осуществляться основная работа, область работы представлена шестью вкладками, на которых представлена вся информация, необходимая для работы ИС «Агентство недвижимости», а также все основные действия для полной автоматизации процессов.
1) В нижней области рабочего окна расположены кнопки сохранения\загрузки базы.
2) На каждой из вкладок расположены кнопки добавления\удаления позиций. Для того, чтобы изменить уже существующую позицию, необходимо выбрать её из списка, отредактировать необходимые поля и нажать на кнопку «Изменить».
3) На вкладке «Покупатели» осуществляется регистрация торговых операций с подробным описанием каждой позиции.
4) Вкладка «Недвижимость» предназначена для заполненияосновной информации о недвижимости базы, включая улицу, кол-во комнат, компанию застройщик, вид сделки и цену.
5) В разделе «Договор» оформляется договор базы для зарегистрированных абонентов, здесь указывается дата сделки и цена.
Цель курсовой работы достигнута - была создана информационная система “Агентство недвижимости”. С помощью неё персонал данных заведений сможет осуществлять быстрый поиск по базе данных и давать точную информацию абонентам о недвижимости, заносить абонентов и недвижимость в базу, а так же оформлять договоры.
Для достижения данной цели было выполнены основные задания:
· Изучить и проанализировать предметную область
· Выявить сущности концептуальной модели
· Создать ИС “Агентство недвижимости”
По мере выполнения данной работы были изучены информационные системы (ИС), связанные с сохранением и обработкой недвижимости в агентстве. информационный система недвижимость агентство
Реализация данной ИС на практике является примером грамотного и продуманного решения оптимизации агентства недвижимости.
То, как организована работа информационной системы, насколько удобно получать из нее данные, играет большую роль в том, насколько быстро сотрудники магазина и покупатели смогут находить информацию. Ачем быстрее производятся операции -- тем больше клиентов сможет получить услугу, а, следовательно, принесут предприятию больше прибыли.
1. Карпова, И.П. Базы данных: Учебное пособие / И.П. Карпова. - СПб.: Питер, 2013. - 240 c.ISBN: 978-5-496-00546-3
2. Кузин, А.В. Базы данных: Учебное пособие для студ. высш. учеб.заведений / А.В. Кузин, С.В. Левонисова. - М.: ИЦ Академия, 2012. - 320c.ISBN: 978-5-7695-7368-2
3. Пирогов, В.Ю. Информационные системы и базы данных: организация и проектирование: Учебное пособие / В.Ю. Пирогов. - СПб.: БХВ-Петербург, 2009. - 528 c.ISBN: 978-5-9775-0399-0
4. http://www.codenet.ru/progr/vbasic/vb_db/1.php
5. http://www.bourabai.kz/dbt/dbms/7.htm
6. http://www.interface.ru/home.asp?artId=2805
Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, ComCtrls,
StdCtrls, EditBtn, ActnList, ExtCtrls;
procedure add1Click(Sender: TObject);
procedure add2Click(Sender: TObject);
procedure add3Click(Sender: TObject);
procedure del1Click(Sender: TObject);
procedure del2Click(Sender: TObject);
procedure del3Click(Sender: TObject);
procedure edi1Click(Sender: TObject);
procedure edi2Click(Sender: TObject);
procedure edi3Click(Sender: TObject);
procedure ed32DropDown(Sender: TObject);
procedure ed33DropDown(Sender: TObject);
procedure savebClick(Sender: TObject);
procedure loadbClick(Sender: TObject);
procedure cleanbClick(Sender: TObject);
procedure FormCreate(Sender: TObject);
procedure FormDestroy(Sender: TObject);
procedure ListView1SelectItem(Sender: TObject; Item: TListItem);
procedure ListView2SelectItem(Sender: TObject; Item: TListItem);
procedure ListView3SelectItem(Sender: TObject; Item: TListItem);
procedure AbonAddtoView(Abon: TAbon);
procedure FilmAddtoView(Film: TFilm);
procedure SaveToFile(AFile: THandle); virtual;
procedure LoadFromFile(AFile: THandle); virtual;
property id: integer Read Fid Write Fid;
property fio: string Read Ffio Write Ffio;
property dr: TDateTime Read Fdr Write Fdr;
property adr: string Read Fadr Write Fadr;
property telef: string Read Ftelef Write Ftelef;
property rep: integer Read Frep Write Frep;
property ban: TDateTime Read Fban Write Fban;
function GetAbon(Index: integer): TAbon;
property Abon_S[Index: integer]: TAbon Read GetAbon; default;
procedure SaveToFile(AFile: THandle);
procedure LoadFromFile(AFile: THandle);
property Count: integer Read GetCount;
procedure SavetoFile(AFile: THandle); virtual;
procedure LoadFromFile(AFile: THandle); virtual;
property id: integer Read Fid Write Fid;
property name: string Read Fname Write Fname;
property reg: string Read Freg Write Freg;
property jan: string Read Fjan Write Fjan;
property comp: string Read Fcomp Write Fcomp;
property hron: integer Read Fhron Write Fhron;
property price: integer Read Fprice Write Fprice;
function GetFilm(Index: integer): TFilm;
property Film_S[Index: integer]: TFilm Read GetFilm; default;
procedure SaveToFile(AFile: THandle);
procedure LoadFromFile(AFile: THandle);
property Count: integer Read GetCount;
procedure SavetoFile(AFile: THandle); virtual;
procedure LoadFromFile(AFile: THandle); virtual;
property id: integer Read Fid Write Fid;
property abon: string Read Fabon Write Fabon;
property film: string Read Ffilm Write Ffilm;
property date1: TDateTime Read Fdate1 Write Fdate1;
property date2: TDateTime Read Fdate2 Write Fdate2;
function GetAct(Index: integer): TAct;
procedure SaveToFile(AFile: THandle);
procedure LoadFromFile(AFile: THandle);
property Act_S[Index: integer]: TAct Read GetAct; default;
property Count: integer Read GetCount;
procedure WriteString(AFile: THandle; const s: string);
FileWrite(AFile, Len, sizeof(Len));
FileWrite(AFile, PByte(S)^, sizeof(S[1]) * Len);
function ReadString(AFile: THandle): string;
FileRead(AFile, PByte(Result)^, sizeof(Result[1]) * Len);
procedure TForm1.loadbClick(Sender: TObject);
AFile := FileOpen(RD.FileName, fmopenread);
while FileRead(AFile, sig, sizeof(sig)) > 0 do
procedure TForm1.cleanbClick(Sender: TObject);
function TAbonCollection.GetAbon(Index: integer): TAbon;
function TAbonCollection.GetCount: integer;
procedure TAbonCollection.Add(Abon: TAbon);
procedure TForm1.add1Click(Sender: TObject);
procedure TForm1.AbonAddtoView(Abon: TAbon);
item.subitems.add(datetostr(Abon.dr));
item.subitems.add(inttostr(Abon.rep));
item.subitems.add(datetostr(Abon.ban));
procedure TForm1.ListView1SelectItem(Sender: TObject; Item: TListItem);
edi1.Enabled := ListView1.Selected <> nil;
del1.Enabled := ListView1.Selected <> nil;
ed11.Text := IntToStr(Abon_s[item.index].id);
ed12.Text := Abon_s[item.index].fio;
ed13.Text := datetostr(Abon_s[item.index].dr);
ed14.Text := Abon_s[item.index].adr;
ed15.Text := Abon_s[item.index].telef;
ed16.Text := inttostr(Abon_s[item.index].rep);
ed17.Text := datetostr(Abon_s[item.index].ban);
procedure TForm1.del1Click(Sender: TObject);
procedure TForm1.edi1Click(Sender: TObject);
Abon_S.GetAbon(n).id := StrToInt(ed11.Text);
Abon_S.GetAbon(n).fio := (ed12.Text);
Abon_S.GetAbon(n).adr := (ed14.Text);
Abon_S.GetAbon(n).telef := (ed15.Text);
Abon_S.GetAbon(n).rep := StrToInt(ed16.Text);
Abon_S.GetAbon(n).ban := ed17.Date;
ListView1.Selected.Caption := IntToStr(Abon_S[n].id);
ListView1.Selected.SubItems[0] := Abon_S[n].fio;
ListView1.Selected.SubItems[1] := datetostr(Abon_S[n].dr);
ListView1.Selected.SubItems[2] := Abon_S[n].adr;
ListView1.Selected.SubItems[3] := Abon_S[n].telef;
ListView1.Selected.SubItems[4] := datetostr(Abon_S[n].rep);
ListView1.Selected.SubItems[5] := datetostr(Abon_S[n].ban);
procedure TAbon.SavetoFile(AFile: THandle);
FileWrite(Afile, fid, sizeof(fid));
FileWrite(Afile, frep, sizeof(frep));
FileWrite(Afile, fban, sizeof(fban));
procedure TAbonCollection.SavetoFile(AFile: THandle);
filewrite(AFile, num, sizeof(num));
procedure TAbon.LoadFromFile(AFile: THandle);
FileRead(AFile, frep, sizeof(frep));
FileRead(AFile, fban, sizeof(fban));
procedure TAbonCollection.LoadFromFile(AFile: THandle);
function TFilmCollection.GetFilm(Index: integer): TFilm;
function TFilmCollection.GetCount: integer;
procedure TFilmCollection.Add(Film: TFilm);
procedure TFilmCollection.Delete(Index: integer);
for i := Index + 1 to Length(FFilm) - 1 do
SetLength(FFilm, Length(FFilm) - 1);
procedure TForm1.add2Click(Sender: TObject);
procedure TForm1.FilmAddtoView(Film: TFilm);
item.subitems.add(inttostr(Film.hron));
item.subitems.add(inttostr(Film.price));
procedure TForm1.ListView2SelectItem(Sender: TObject; Item: TListItem);
edi2.Enabled := ListView2.Selected <> nil;
del2.Enabled := ListView2.Selected <> nil;
ed21.Text := IntToStr(Film_s[item.index].id);
ed22.Text := Film_s[item.index].name;
ed23.Text := Film_s[item.index].reg;
ed24.Text := Film_s[item.index].jan;
ed25.Text := Film_s[item.index].comp;
ed26.Text := inttostr(Film_s[item.index].hron);
ed27.Text := inttostr(Film_s[item.index].price);
procedure TForm1.del2Click(Sender: TObject);
procedure TForm1.edi2Click(Sender: TObject);
procedure TFilmCollection.SavetoFile(AFile: THandle);
filewrite(AFile, num, sizeof(num));
procedure TFilm.LoadFromFile(AFile: THandle);
FileRead(AFile, fhron, sizeof(fhron));
FileRead(AFile, fprice, sizeof(fprice));
procedure TFilmCollection.LoadFromFile(AFile: THandle);
function TActCollection.GetAct(Index: integer): TAct;
function TActCollection.GetCount: integer;
procedure TActCollection.Add(Act: TAct);
procedure TActCollection.Delete(Index: integer);
for i := Index + 1 to Length(FAct) - 1 do
procedure TForm1.add3Click(Sender: TObject);
procedure TForm1.ActAddtoView(Act: TAct);
item.subitems.add(datetostr(Act.date1));
item.subitems.add(datetostr(Act.date2));
procedure TForm1.ListView3SelectItem(Sender: TObject; Item: TListItem);
edi3.Enabled := ListView3.Selected <> nil;
del3.Enabled := ListView3.Selected <> nil;
ed31.Text := IntToStr(Act_s[item.index].id);
ed32.Text := Act_s[item.index].abon;
ed33.Text := Act_s[item.index].film;
ed34.Text := datetostr(Act_s[item.index].date1);
ed35.Text := datetostr(Act_s[item.index].date2);
procedure TForm1.del3Click(Sender: TObject);
procedure TForm1.edi3Click(Sender: TObject);
Act_S.GetAct(n).id := StrToInt(ed31.Text);
Act_S.GetAct(n).date1 := ed34.date;
Act_S.GetAct(n).date2 := ed35.date;
ListView3.Selected.Caption := IntToStr(Act_S[n].id);
ListView3.Selected.SubItems[0] := Act_S[n].abon;
ListView3.Selected.SubItems[1] := Act_S[n].film;
ListView3.Selected.SubItems[2] := datetostr(Act_S[n].date1);
ListView3.Selected.SubItems[3] := datetostr(Act_S[n].date2);
procedure TAct.SavetoFile(AFile: THandle);
FileWrite(Afile, fid, sizeof(fid));
FileWrite(Afile, fdate1, sizeof(fdate1));
FileWrite(Afile, fdate2, sizeof(fdate2));
procedure TActCollection.SavetoFile(AFile: THandle);
filewrite(AFile, num, sizeof(num));
procedure TAct.LoadFromFile(AFile: THandle);
FileRead(AFile, fdate1, sizeof(fdate1));
FileRead(AFile, fdate2, sizeof(fdate2));
procedure TActCollection.LoadFromFile(AFile: THandle);
ed33.Items.AddObject(Film_S[i].name, Film_S[i]);
Информационная система (ИС) как совокупность взаимосвязанных аппаратно-программных средств, предназначенных для автоматизации накопления и обработки информации. Особенности создания ИС "Агентство недвижимости": база данных, техническая документация к ней.
курсовая работа [1,4 M], добавлен 30.08.2012
Разработка информационной системы "Кадровое агентство выпускников" для автоматизации процесса подбора специалистов по заявкам организаций. Требования к системе, программное обеспечение. Описание процесса деятельности. Проектирование базы данных.
дипломная работа [3,4 M], добавлен 27.11.2009
Анализ существующих решений по автоматизации предметной области. Методология проектирования информационной системы агентства недвижимости. Спецификация и аттестация требований. Проектирование пользовательского интерфейса. Обоснование выбора платформы.
курсовая работа [412,8 K], добавлен 10.02.2013
Разработка базы данных для информационной поддержки деятельности аптеки с целью автоматизированного ведения данных о лекарствах аптеки. Проектирование схемы базы данных с помощью средства разработки структуры базы данных Microsoft SQL Server 2008.
курсовая работа [3,6 M], добавлен 18.06.2012
Разработка программы автоматизированной системы, предназначенной для учета информации о сдающихся, продающихся, покупаемых и арендуемых объектах недвижимости. Разработка реляционной модели данных. Руководство пользователя и Руководство администратора.
курсовая работа [821,4 K], добавлен 28.12.2012
Работы в архивах красиво оформлены согласно требованиям ВУЗов и содержат рисунки, диаграммы, формулы и т.д.
PPT, PPTX и PDF-файлы представлены только в архивах.
Рекомендуем скачать работу.
© 2000 — 2020, ООО «Олбест» Все права защищены
Разработка информационной системы "Агентство недвижимости"
Курсовая работа : Проект открытия агентства недвижимости
Разработка информационной системы "Агентство недвижимости"
Курсовая работа "Агентство недвижимости" на Delphi...
Проект открытия агентства недвижимости | курсовая работа
Что Значит Справедливость Для Юриста Эссе
Профилактика Заболеваний Глаз Реферат
Предпринимательская Деятельность Некоммерческих Организаций Реферат
Перелом Ключицы Реферат
Реферат На Тему Вето Президента Российской Федерации