Операції з нерухомістю

МІНІСТЕРСТВО ОСВІТИ І НАУКИ УКРАЇНИ

КРИВОРІЗЬКИЙ КОЛЕДЖ НАЦІОНАЛЬНОГО АВІАЦІЙНОГО УНІВЕРСИТЕТУ

Відділення комп’ютерної та програмної інженерії

Циклова комісія професійно-орієнтованих дисциплін

Курсова робота

з дисципліни «Основи баз даних і знань»

«Операції з нерухомістю»

для напрямків підготовки (спеціальностей):

.05010301 «Програмування для електронно-обчислювальної техніки і автоматизованих систем»

Виконав:

курсант 4-го курсу 387 групи

Гайдаренко В.Ю.

Керівник: Приходько І.О.

Кривий Ріг 2010

Завдання на виконання курсової роботи

Тема курсової роботи:

Администрация агентства недвижимости заказала разработку информационной системы для отдела работы с клиентами. Система предназначена для обработки данных о квартирах, которые покупает и продает агентство, расценках на квартиры, расценках на оказываемые услуги, о покупателях и совершенных сделках.. Система должна выдавать отчеты по запросу менеджера: прайс-лист на квартиры (возможно с группировкой по различным признакам), на услуги, отчеты по возможным вариантам сделок для покупателей и продавцов.

Термін виконання роботи: з 01.09.2010 р. по 14.12.2010 р.

Етапи роботи над КР:

Завдання видав __________ (Приходько І.О.) “__” ______ 201___ р.

Завдання прийняв до виконання ______________________________

Курсова робота захищена з оцінкою __________________________

Голова комісії ____________ (Андрусевич Н.В.) “___” _______ 201__ р.

Члени комісії __________ ___________________

__________ ___________________

Зміст

I. Теоретична частина

.1 Постановка завдання

.2 Описання предметної області

.3 Проектування бази даних

.4 Описання функцій користувача. Практична частина

.1 Інтерфейс користувача

.2 Лістинг програми

Висновок

Література

I. Теоретична частина

.1 Постановка завдання

Автоматизація виробництва - вищий рівень розвитку машинної техніки, коли регулювання й управління <#"656102.files/image001.gif">

Рис. 1.3.1

Таблиця 1.3.1

Інфологічна модель бази даних «Каталог агентства нерухомості» побудованою мовою «Таблиці-зв’язки»

Створимо таблицю для відомості, яка складатиметься з шести полів:

Рис. 1.3.2 Фізична структура сутності «Відомість»

Друга таблиця зберігатиме дані вузлів

Рис. 1.3.3 Фізична структура сутності «Операція»

Рис. 1.3.4 Фізична структура сутності «Назначення»

Рис. 1.3.5 Фізична структура сутності «Власність»

Рис. 1.3.6 Фізична структура сутності «Розташування»

Рис. 1.3.7 Фізична структура сутності «Нерухомість»

Рис. 1.3.8 Фізична структура сутності «Клієнти»

1.4 Описання функцій користувача

На останок слід зупинитися на функціональності нашого майбутнього програмного забезпечення, яке повинно автоматизувати швидкий пошук квартир які на даний час вільні або здаються.. Отже, наш додаток повинен виконувати наступні функції:

-        додавання клієнта в базу даних, що передбачає внесення інформації про його ФІО,адрес його, паспортні дані;

-        редагування інформації клієнта: у випадку зміни клієнтом адреси проживання або прізвища виникає необхідність у уточнені його даних;

         додавання та редагування інформації про нерухомість;

         додавання інформації про операцій, на значення якщо форма зайнялася новим видом діяльності;

         програма обов’язково повинна бути дружньою до інтерфейсу операційної системи - повинна мати головне меню та віконну технологію в цілому;

II. Практична частина

.1 Інтерфейс користувача

На малюнку нижче представлена головна форма додатку по автоматизації роботи клієнтів.

Головне меню «Показать таблицы» містить команди: Вид операции, Назначение, Собственность, Расположение які відображають другорядні форми.

Друге меню «Послуги» містить свідчення про наш магазин та про послуги, що він надає.

Третє меню «Звіт» виводить звіт про клієнтів та про закази.

Рис. 2.1.1 Головне вікно програми «Форма клієнту»

Форма для роботи зі звітом має наступний вигляд:

Рис. 2.1.2 Вікно для роботи з таблицею «Звіт»

Рис. 2.1.3 Вікно для роботи з таблицею «Нерухомість»

Для додавання даних до таблиці потрібно заповнити усі поля та нажати на клавішу «Добавити». Відбудеться додавання даних у таблицю із додаванням номерну на одиницю більшого ніж був. Для позбавлення від певного запису виділяємо потрібну строку та жмемо на «Удалить».

Рис. 2.1.4 Вікно для роботи з таблицею «Назначение»

Для того, щоб добавити данні у таблицю «Нанзначения» потрібно записати потрібне нам значення до вільної строки та натиснути на додавання. Аналогічним чином відбувається додавання даних до таблиць операцій, приватності, розташування.

Рис. 2.1.5 Вікно для роботи з таблицею «Розташування»

Рис. 2.1.6 Вікно друкування звіту

Нижче приведений звіт виконаний на основі даних про клієнтів, що користуються послугами фірми.

Рис. 2.1.7 Вікно друкування звіту про клієнтів

2.2 Лістинг програми

автоматизація нерухомість атрибут інтерфейс

//Unit1.pasTForm1.DBGrid2CellClick(Column: TColumn);.Text:= dm1.QKlient.FieldValues ['fam'];.Text:= dm1.QKlient.FieldValues ['name'];.Text:= dm1.QKlient.FieldValues ['name2'];.Text:= dm1.QKlient.FieldValues ['strana'];.Text:= dm1.QKlient.FieldValues ['gorod'];.Text:= dm1.QKlient.FieldValues ['yl'];.Text:= dm1.QKlient.FieldValues ['dom_kv'];.Text:= dm1.QKlient.FieldValues ['n_pasp'];.Text:= dm1.QKlient.FieldValues ['seria'];.Text:= dm1.QKlient.FieldValues ['id_nomer'];;

...Добавление записи та редактирование

procedure TForm1.Button2Click(Sender: TObject);n,s: string;.Qklient.Last;:=inttostr(dm1.Qklient.FieldValues['n']+1);:='insert into klient values("'+n+'","'+edit1.text+'","'+edit2.text+'","'+edit3.text+'","'+edit4.text+'","'+edit5.text+'","'+edit6.text+'","'+edit7.text+'","'+edit8.text+'","'+edit9.text+'","'+edit10.text+'");';.Qklient.Close;.Qklient.SQL.Clear;.Qklient.SQL.Add(s);

// showmessage(s);.Qklient.ExecSQL;.Qklient.Close;.Qklient.SQL.Clear;.Qklient.SQL.Add('select n,fam ||name ||name2 as FIO,fam,name,name2,Strana,gorod,yl,dom_kv,N_pasp,seria,ID_nomer from klient');.Qklient.Open ;.Qklient.Last;:=inttostr(dm1.Qklient.FieldValues['n']+1);;

//Удаление записиTForm1.Button5Click(Sender: TObject);n : integer;:=dm1.Qklient.FieldValues ['n'];.Qklient.Close;.Qklient.SQL.Clear;.Qklient.SQL.Add('delete from klient where n='+inttostr(n));.Qklient.ExecSQL; ;.Qklient.Close;.Qklient.SQL.Clear;.Qklient.SQL.Add('select n,fam ||name ||name2 as FIO,fam,name,name2,Strana,gorod,yl,dom_kv,N_pasp,seria,ID_nomer from klient');.Qklient.Open ;; if edit1.Text= table1.FieldByName('name').AsString then:=1;;.next;;

//Фильтрация данняхTForm1.Button7Click(Sender: TObject);RadioButton1.Checked=true then.Qklient.Close;.Qklient.SQL.Clear;.Qklient.SQL.Add('select n,fam ||name ||name2 as FIO,fam,name,name2,Strana,gorod,yl,dom_kv,N_pasp,seria,ID_nomer from klient where fam="'+edit14.text+'"');.Qklient.Open;.Text:='';RadioButton2.Checked=true then.Qklient.Close;.Qklient.SQL.Clear;.Qklient.SQL.Add('select n,fam ||name ||name2 as FIO,fam,name,name2,Strana,gorod,yl,dom_kv,N_pasp,seria,ID_nomer from klient where ID_nomer="'+edit14.text+'"');.Qklient.Open;.Text:='';RadioButton3.Checked=true then.Qklient.Close;.Qklient.SQL.Clear;.Qklient.SQL.Add('select n,fam ||name ||name2 as FIO,fam,name,name2,Strana,gorod,yl,dom_kv,N_pasp,seria,ID_nomer from klient where gorod="'+edit14.text+'"');.Qklient.Open;.Text:='';RadioButton4.Checked=true then.Qklient.Close;.Qklient.SQL.Clear;.Qklient.SQL.Add('select n,fam ||name ||name2 as FIO,fam,name,name2,Strana,gorod,yl,dom_kv,N_pasp,seria,ID_nomer from klient where fam BETWEEN'+quotedstr(edit15.Text)+' AND'+quotedstr(edit17.Text));.Qklient.Open;.Text:='';;;

//пошукTForm1.Button10Click(Sender: TObject);.qklient.Locate('fam',edit18.Text,[]);.Text:='';;

//Показать отчеTForm1.MSWord1Click(Sender: TObject);.QuickRep1.PreviewModal;;

//фильтрация на вкладке НедвижимостьTForm1.Button11Click(Sender: TObject);RadioButton5.Checked=true then.QNedv.Close;.QNedv.SQL.Clear;.QNedv.SQL.Add('select * from nedvij where n_oper="'+inttostr(strtoint(DBLookupComboBox7.KeyValue))+'"');.QNedv.Open;RadioButton6.Checked=true then.QNedv.Close;.QNedv.SQL.Clear;.QNedv.SQL.Add('select * from nedvij where n_nazn="'+inttostr (strtoint(DBLookupComboBox7.KeyValue))+'"');.QNedv.Open;RadioButton7.Checked=true then.QNedv.Close;.QNedv.SQL.Clear;.QNedv.SQL.Add('select * from nedvij where n_sobstv="'+inttostr (strtoint(DBLookupComboBox7.KeyValue))+'"');.QNedv.Open;;;TForm1.RadioButton5Click(Sender: TObject);.ListSource:=DM1.DSvid;.KeyField:='N';.ListField:='Name';;TForm1.RadioButton6Click(Sender: TObject);.ListSource:=DM1.DSNazn;.KeyField:='N';.ListField:='Name';;TForm1.RadioButton7Click(Sender: TObject);.ListSource:=DM1.DSSobstv;.KeyField:='N';.ListField:='Name';;

Висновок

Ця курсова робота розглядаю практичну реалізацію для підприємства нерухомості програми автоматизуючи процес додавання, пошуку та фільтрації даних за критеріями. Для реалізації цієї програми я використав можливості оболонки Borland Delphi 7, а також СУБД BDE для DB dBASE IV та мова запитів SQL.

У програмі на першому модулі розглядаюся 3 основні таблиці, які мають функції додавання, редагування та видалення інформації з них.

Предметна область мого технічного завдання може бути необмеженої, якщо до неї включити все Українську мережу нерухомості, організувати співробітництво з іншими схожими агентствами. Тому в межах моєї курсової роботи обмежена кількість сутностей, які до того ж є ключовими в даній предметній області.

Всі завдання поставлені нами на початку дослідження були виконані. Також біли реалізовані наступні функції:

ü Додавання, редагування та вилучення клієнтів та інформації про помешкання;

ü Зберігання, редагування та вилучення інформації по помешкання,а також зберігання дати ;

ü Були розроблені форми, які відповідають стандартам операційної системи Windows;

ü Було організовано фільтрацію та пошук по всій моїй базі даних;

Дана реалізована мною програма не є остаточною версією для роботи з БД нерухомості, та буде поступово змінюватися у процесі пізнання мови SQL та баз даних.

Література

1. Конспект лекцій з предмету «Основи баз даних та знань»

2. Антифеев Дм.Д. Современные средства построения корпоративных систем поддержки принятия управленческих решений "Терн", М., 2001

3. Рогач І. Ф., Сендзюк М. А., Антонюк В. А. Інформаційні системи у фінансово-кредитних установах: Навч. посібник. - 2-ге вид.,

. Савчук Т.О. Організація баз даних і знань. Вінниця: ВДТУ, 2000 р.

. Кельдер Т.Л. Системи обробки економічної інформації. Курс лекцій.

6. Степанов Ю.Л. Разработка приложений баз данных для СУБД Sybase SQL Anywhere. Санкт-Петербургский филиал Военного университета ПВО. Электронная версия - http://www.cіtforum.elcat.kg/database/sql_any/іndex.shtml