Разработка базы данных для риэлтерской конторы - Курсовая работа

бесплатно 0
4.5 87
Разработка информационной программы для риэлтерской конторы по учету клиентской базы и базы квартир с фиксированием всех операций по купле-продаже. Описание структуры базы данных. Создание запросов и отчетов. Инструкция по эксплуатации, текст программы.


Аннотация к работе
Описание задачи Запросы и отчеты.

Список литературы
база данные учет запрос

1. Описание задачи

Информационная система (ИС) представляет собой совокупность информационных средств, объединенных в единую систему с целью сбора, хранения, обработки и выдачи необходимой информации, предназначенной для выполнения поставленных задач в риэлтерской фирме а именно: Регистрация нового клиента;

БД клиентов фирмы;

Регистрация квартир;

БД квартир;

Продажа квартир;

Покупка квартир;

Список услуг фирмы;

Оплата услуг фирмы.

2 Описание структуры базы данных

Таблица 1 «bdkvartir» БД квартир.

Поле Тип Ключ Размер Обязательное поле

ID apartment Числовой

ID client Числовой

Price Денежный

Adress Текстовый 20

Area Текстовый 20

Metro Текстовый 10

Time to metro Числовой

Rating Числовой

Rooms Числовой

Status Текстовый 20

Таблица 2 «Clients» БД клиентов.

Поле Тип Ключ Размер Обязательное поле

ID client Числовой

SNP Текстовый 30

Adress Текстовый 30

Serial and number pass Числовой

Service Текстовый 15

Telephone Числовой

Таблица 3 «Buy» осуществление покупки квартир.

Поле Тип Ключ Размер Обязательное поле

ID apartment Числовой

ID client Числовой

Payable Денежный

Date Дата

Таблица 4 «Sell» осуществление продажи квартир.

ПОЛЕТИПКЛЮЧРАЗМЕРОБЯЗАТЕЛЬНОЕ поле

ID apartment Числовой

ID client Числовой

Payable Денежный

Date Дата

Таблица 5 «payment for services» платежи и услуги.

Поле Тип Ключ Размер Обязательное поле

Payable Денежный

Service Текстовый 4

Date Дата

Таблица 6 «Service» список осуществленных услуг с датами платежей

Поле Тип Ключ Размер Обязательное поле

Byu Текстовый 10

Sell Текстовый 10

Payment for services Денежный

Date Дата

2.1 Схема данных БД

Схема данных БД приведена на рисунке 1.

Рис.1

3. Запросы и отчеты

3.1 Запросы

Запрос на обновление БД qry1.Close; qry1.SQL.Clear; qry1.SQL.Add("select * from Klients"); qry1.Open;

Запрос на вывод печати procedure TFORM7.btn1Click(Sender: TOBJECT); begin Form7.RVPROJECT1.Execute; end;

Запрос на сортировку элеметов бд по одному значению

SELECT * FROM Klients ORDER BY SNP;

Запрос на поиск qry1.Close; qry1.SQL.Clear; qry1.SQL.Add("select * from Klients where SNP like "" Edit1.Text "%""); qry1.Open;

3.2 Отчеты

Система позволяет выводить на печать следующие отчеты: БД клиентов (Рис. 2).

Рис. 2

БД квартир (Рис. 3).

Рис. 3

4 Инструкции по эксплуатации

1. Мы попадаем на главную форму программы. (Рис. 4)

Тут имеются вкладки меню: Регистрация нового клиента - регистрируем нового клиента.

Список клиентов - БД клиентов.

Регистрация новой квартиры - регистрируем новую квартиру.

Список клиентов - БД квартир.

Продать квартиру - операция по продаже квартиры.

Купить квартиру - операция по покупке квартиры.

Оплата услуг - оплата выбранной услуги.

Услуги - все услуги с платежами и датами оплаты услуг.

Выход - закрытие программы.

Рис. 4

Рис. 5

2. Регистрация нового клиента. (Рис. 5)

3. БД клиентов с встроенной формой поиска и сортировки клиентов по ФИО с выводом на печать. (Рис. 6)

Рис.6

4. Регистрация новой квартиры. (Рис. 7)

Рис. 7

5. БД квартир с встроенной формой поиска и сортировки квартир по ближайшему метро с выводом на печать. (Рис. 8)

Рис. 8. Продажа квартир с расчетом налога с общей суммы и суммой квартиры с учетом налога. (Рис. 9)

Рис. 9

7. Список всех услуг и выплат по ним с датами. (Рис. 10)

Рис. 10

8. Покупка квартир с расчетом налога с общей суммы и суммой квартиры с учетом налога. (Рис. 11)

Рис. 11

9. Оплата услуг. (Рис. 12)

Рис. 12

5 Текст программы program Project1; uses Forms, Unit1 in "Unit1.pas" {Form1}, Unit2 in "Unit2.pas" {Form2}, Unit3 in "Unit3.pas" {Form3}, Unit4 in "Unit4.pas" {Form4}, Unit5 in "Unit5.pas" {Form5}, Unit6 in "Unit6.pas" {Form6}, Unit7 in "Unit7.pas" {Form7}, Unit8 in "Unit8.pas" {Form8}, Unit9 in "Unit9.pas" {Form9}; {$R *.res} begin Application.Initialize; Application.CREATEFORM(TFORM1, Form1); Application.CREATEFORM(TFORM2, Form2); Application.CREATEFORM(TFORM3, Form3); Application.CREATEFORM(TFORM4, Form4); Application.CREATEFORM(TFORM5, Form5); Application.CREATEFORM(TFORM6, Form6); Application.CREATEFORM(TFORM7, Form7); Application.CREATEFORM(TFORM8, Form8); Application.CREATEFORM(TFORM9, Form9); Application.Run; end. --------------------------------------------------------------------- unit Unit1; interface uses Windows, Messages, SYSUTILS, Variants, Classes, Graphics, Controls, Forms, Dialogs, STDCTRLS; type TFORM1 = class(TFORM) Label1: TLABEL; Button2: TBUTTON; Button3: TBUTTON; Button4: TBUTTON; Button1: TBUTTON; Button5: TBUTTON; Button6: TBUTTON; Button7: TBUTTON; Button8: TBUTTON; Button9: TBUTTON; Label2: TLABEL; procedure Button3Click(Sender: TOBJECT); procedure Button2Click(Sender: TOBJECT); procedure Button6Click(Sender: TOBJECT); procedure Button4Click(Sender: TOBJECT); procedure Button7Click(Sender: TOBJECT); procedure Button5Click(Sender: TOBJECT); procedure Button1Click(Sender: TOBJECT); procedure Button8Click(Sender: TOBJECT); procedure Button9Click(Sender: TOBJECT); private { Private declarations } public { Public declarations } end; var Form1: TFORM1; implementation uses Unit2, Unit3, Unit4, Unit5, Unit7, Unit6, Unit8, Unit9; {$R *.dfm} procedure TFORM1.Button3Click(Sender: TOBJECT); begin Form1.close; end; procedure TFORM1.Button2Click(Sender: TOBJECT); begin form1.Visible:=false; form2.Visible:=true; end; procedure TFORM1.Button6Click(Sender: TOBJECT); begin form1.Visible:=false; form3.Visible:=true; end; procedure TFORM1.Button4Click(Sender: TOBJECT); begin form1.Visible:=false; form4.Visible:=true; end; procedure TFORM1.Button7Click(Sender: TOBJECT); begin form1.Visible:=false; form5.Visible:=true; end; procedure TFORM1.Button5Click(Sender: TOBJECT); begin form1.Visible:=false; form7.Visible:=true; end; procedure TFORM1.Button1Click(Sender: TOBJECT); begin form1.Visible:=false; form6.Visible:=true; end; procedure TFORM1.Button8Click(Sender: TOBJECT); begin form1.Visible:=false; form8.Visible:=true; end; procedure TFORM1.Button9Click(Sender: TOBJECT); begin form1.Visible:=false; form9.Visible:=true; end; end. --------------------------------------------------------------------- unit Unit2; interface uses Windows, Messages, SYSUTILS, Variants, Classes, Graphics, Controls, Forms, Dialogs, DB, DBTABLES, EXTCTRLS, DBCTRLS, STDCTRLS, Mask; type TFORM2 = class(TFORM) Label1: TLABEL; Label2: TLABEL; Label3: TLABEL; Label4: TLABEL; Label5: TLABEL; Label6: TLABEL; Label11: TLABEL; DBEDTSNP: TDBEDIT; dbedt: TDBEDIT; DBEDTSTREET: TDBEDIT; DBEDTHOUSE: TDBEDIT; DBEDTAPARTMENT: TDBEDIT; Button1: TBUTTON; DBNAVIGATOR: TDBNAVIGATOR; Table1: TTABLE; DATASOURCE1: TDATASOURCE; Label7: TLABEL; DBEDIT1: TDBEDIT; procedure Button1Click(Sender: TOBJECT); private { Private declarations } public { Public declarations } end; var Form2: TFORM2; implementation uses Unit1, Unit3; {$R *.dfm} procedure TFORM2.Button1Click(Sender: TOBJECT); begin form2.Visible:=false; form3.Visible:=true; end; end. --------------------------------------------------------------------- unit Unit3; interface uses Windows, Messages, SYSUTILS, Variants, Classes, Graphics, Controls, Forms, Dialogs, XPMAN, DBTABLES, DB, STDCTRLS, Grids, DBGRIDS, DBCTRLS, EXTCTRLS, RPBASE, RPSYSTEM, RPRAVE, RPDEFINE, RPCON, RPCONDS; type TFORM3 = class(TFORM) Label1: TLABEL; Label3: TLABEL; Panel1: TPANEL; DBNAVIGATOR: TDBNAVIGATOR; DBGRID1: TDBGRID; Button1: TBUTTON; Button2: TBUTTON; btn1: TBUTTON; Edit1: TEDIT; Table1: TTABLE; DATASOURCE1: TDATASOURCE; qry2: TQUERY; qry1: TQUERY; RVDATASETCONNECTION1: TRVDATASETCONNECTION; RVPROJECT1: TRVPROJECT; RVSYSTEM1: TRVSYSTEM; btn3: TBUTTON; procedure Button1Click(Sender: TOBJECT); procedure Button2Click(Sender: TOBJECT); procedure Edit1Change(Sender: TOBJECT); procedure btn1Click(Sender: TOBJECT); procedure btn3Click(Sender: TOBJECT); private { Private declarations } public { Public declarations } end; var Form3: TFORM3; implementation uses Unit1; {$R *.dfm} procedure TFORM3.Button1Click(Sender: TOBJECT); begin Form3.close; end; procedure TFORM3.Button2Click(Sender: TOBJECT); begin form3.Visible:=false; form1.Visible:=true; end; procedure TFORM3.Edit1Change(Sender: TOBJECT); begin qry1.Close; qry1.SQL.Clear; qry1.SQL.Add("select * from Klients where SNP like "" Edit1.Text "%""); qry1.Open; end; procedure TFORM3.btn1Click(Sender: TOBJECT); begin Form3.RVPROJECT1.Execute; end; procedure TFORM3.btn3Click(Sender: TOBJECT); begin qry1.Close; qry1.SQL.Clear; qry1.SQL.Add("select * from Klients"); qry1.Open; end; end. --------------------------------------------------------------------- unit Unit4; interface uses Windows, Messages, SYSUTILS, Variants, Classes, Graphics, Controls, Forms, Dialogs, EXTCTRLS, DBCTRLS, STDCTRLS, Mask, DB, DBTABLES; type TFORM4 = class(TFORM) Table1: TTABLE; DATASOURCE1: TDATASOURCE; Label1: TLABEL; Label2: TLABEL; Label3: TLABEL; Label4: TLABEL; Label5: TLABEL; Label6: TLABEL; Label7: TLABEL; Label8: TLABEL; Label9: TLABEL; DBEDTSNP: TDBEDIT; dbedt: TDBEDIT; DBEDTSTREET: TDBEDIT; DBEDTHOUSE: TDBEDIT; DBEDTAPARTMENT: TDBEDIT; Button1: TBUTTON; DBNAVIGATOR: TDBNAVIGATOR; DBEDTLOGIN: TDBEDIT; pas: TDBEDIT; DBEDIT1: TDBEDIT; Table2: TTABLE; DATASOURCE2: TDATASOURCE; procedure Button1Click(Sender: TOBJECT); private { Private declarations } public { Public declarations } end; var Form4: TFORM4; implementation uses Unit5; {$R *.dfm} procedure TFORM4.Button1Click(Sender: TOBJECT); begin form4.Visible:=false; form5.Visible:=true; end; end. --------------------------------------------------------------------- unit Unit5; interface uses Windows, Messages, SYSUTILS, Variants, Classes, Graphics, Controls, Forms, Dialogs, XPMAN, DBTABLES, DB, STDCTRLS, Grids, DBGRIDS, DBCTRLS, EXTCTRLS, RPBASE, RPSYSTEM, RPRAVE, RPDEFINE, RPCON, RPCONDS; type TFORM5 = class(TFORM) Label1: TLABEL; Label3: TLABEL; Panel1: TPANEL; DBGRID1: TDBGRID; Button1: TBUTTON; Button2: TBUTTON; btn1: TBUTTON; Edit1: TEDIT; qry1: TQUERY; RVDATASETCONNECTION2: TRVDATASETCONNECTION; RVPROJECT1: TRVPROJECT; RVSYSTEM1: TRVSYSTEM; btn3: TBUTTON; DBNAVIGATOR: TDBNAVIGATOR; Table1: TTABLE; DATASOURCE1: TDATASOURCE; procedure Edit1Change(Sender: TOBJECT); procedure Button2Click(Sender: TOBJECT); procedure Button1Click(Sender: TOBJECT); procedure btn1Click(Sender: TOBJECT); procedure btn3Click(Sender: TOBJECT); private { Private declarations } public { Public declarations } end; var Form5: TFORM5; implementation uses Unit1; {$R *.dfm} procedure TFORM5.Edit1Change(Sender: TOBJECT); begin qry1.Close; qry1.SQL.Clear; qry1.SQL.Add("select * from bdkvartir where Metro like "" Edit1.Text "%""); qry1.Open; end; procedure TFORM5.Button2Click(Sender: TOBJECT); begin form5.Visible:=false; form1.Visible:=true; end; procedure TFORM5.Button1Click(Sender: TOBJECT); begin Form5.close; end; procedure TFORM5.btn1Click(Sender: TOBJECT); begin Form5.RVPROJECT1.Execute; end; procedure TFORM5.btn3Click(Sender: TOBJECT); begin qry1.Close; qry1.SQL.Clear; qry1.SQL.Add("select * from bdkvartir"); qry1.Open; end; end. --------------------------------------------------------------------- unit Unit6; interface uses Windows, Messages, SYSUTILS, Variants, Classes, Graphics, Controls, Forms, Dialogs, DB, DBTABLES, STDCTRLS, DBCTRLS, Mask, Grids, DBGRIDS, EXTCTRLS; type TFORM6 = class(TFORM) Label2: TLABEL; Splitter1: TSPLITTER; Label1: TLABEL; Label3: TLABEL; Label4: TLABEL; Label5: TLABEL; Label6: TLABEL; Label7: TLABEL; Label8: TLABEL; Label9: TLABEL; Button1: TBUTTON; Panel1: TPANEL; DBGRID1: TDBGRID; DBEDIT1: TDBEDIT; DBNAVIGATOR1: TDBNAVIGATOR; DBEDIT2: TDBEDIT; DBEDIT3: TDBEDIT; DBEDIT4: TDBEDIT; Edit1: TEDIT; Edit2: TEDIT; Button4: TBUTTON; Table1: TTABLE; DATASOURCE1: TDATASOURCE; Table2: TTABLE; DATASOURCE2: TDATASOURCE; Label10: TLABEL; btn3: TBUTTON; qry1: TQUERY; procedure Button4Click(Sender: TOBJECT); procedure Button1Click(Sender: TOBJECT); procedure btn3Click(Sender: TOBJECT); private { Private declarations } public { Public declarations } end; var Form6: TFORM6; implementation uses Unit8; {$R *.dfm} procedure TFORM6.Button4Click(Sender: TOBJECT); var a,b: real; c,d: real; begin a := STRTOFLOAT(Edit1.Text); b := STRTOFLOAT(Edit2.Text); c := a * b; d := (a * b) a; Label7.Caption := FLOATTOSTRF(c,FFCURRENCY,10,2); Label10.Caption := FLOATTOSTRF(d,FFCURRENCY,10,2); end; procedure TFORM6.Button1Click(Sender: TOBJECT); begin form6.Visible:=false; form8.Visible:=true; end; procedure TFORM6.btn3Click(Sender: TOBJECT); begin qry1.Close; qry1.SQL.Clear; qry1.SQL.Add("select * from Service1"); qry1.Open; end; end. unit Unit7; interface uses Windows, Messages, SYSUTILS, Variants, Classes, Graphics, Controls, Forms, Dialogs, DB, DBTABLES, STDCTRLS, DBCTRLS, Mask, Grids, DBGRIDS, EXTCTRLS; type TFORM7 = class(TFORM) Label2: TLABEL; Splitter1: TSPLITTER; Label1: TLABEL; Label3: TLABEL; Label4: TLABEL; Label5: TLABEL; Label6: TLABEL; Label7: TLABEL; Label8: TLABEL; Label9: TLABEL; Button1: TBUTTON; Panel1: TPANEL; DBGRID1: TDBGRID; DBEDIT1: TDBEDIT; DBNAVIGATOR1: TDBNAVIGATOR; DBEDIT2: TDBEDIT; DBEDIT3: TDBEDIT; DBEDIT4: TDBEDIT; Edit1: TEDIT; Edit2: TEDIT; Button4: TBUTTON; Table1: TTABLE; DATASOURCE1: TDATASOURCE; Table2: TTABLE; DATASOURCE2: TDATASOURCE; Label10: TLABEL; btn3: TBUTTON; qry1: TQUERY; procedure Button4Click(Sender: TOBJECT); procedure Button1Click(Sender: TOBJECT); procedure btn3Click(Sender: TOBJECT); private { Private declarations } public { Public declarations } end; var Form7: TFORM7; implementation uses Unit8; {$R *.dfm} procedure TFORM7.Button4Click(Sender: TOBJECT); Var a,b: real; c,d: real; begin a := STRTOFLOAT(Edit1.Text); b := STRTOFLOAT(Edit2.Text); c := a * b; d := (a * b) a; Label7.Caption := FLOATTOSTRF(c,FFCURRENCY,10,2); Label10.Caption := FLOATTOSTRF(d,FFCURRENCY,10,2); end; procedure TFORM7.Button1Click(Sender: TOBJECT); begin form7.Visible:=false; form8.Visible:=true; end; procedure TFORM7.btn3Click(Sender: TOBJECT); begin qry1.Close; qry1.SQL.Clear; qry1.SQL.Add("select * from Buy"); qry1.Open; end; end. unit Unit8; interface uses Windows, Messages, SYSUTILS, Variants, Classes, Graphics, Controls, Forms, Dialogs, XPMAN, DBTABLES, DB, STDCTRLS, EXTCTRLS, DBCTRLS, Mask; type TFORM8 = class(TFORM) Label1: TLABEL; Label2: TLABEL; Label3: TLABEL; Label4: TLABEL; DBEDIT1: TDBEDIT; DBNAVIGATOR1: TDBNAVIGATOR; DBEDIT2: TDBEDIT; DBEDIT3: TDBEDIT; Button2: TBUTTON; Button3: TBUTTON; Table2: TTABLE; DATASOURCE2: TDATASOURCE; procedure Button2Click(Sender: TOBJECT); procedure Button3Click(Sender: TOBJECT); private { Private declarations } public { Public declarations } end; var Form8: TFORM8; implementation uses Unit1; {$R *.dfm} procedure TFORM8.Button2Click(Sender: TOBJECT); begin form8.Visible:=false; form1.Visible:=true; end; procedure TFORM8.Button3Click(Sender: TOBJECT); begin Form8.close; end; end. unit Unit9; interface uses Windows, Messages, SYSUTILS, Variants, Classes, Graphics, Controls, Forms, Dialogs, XPMAN, DBTABLES, DB, Grids, DBGRIDS, EXTCTRLS, STDCTRLS, DBCTRLS, Mask, RPBASE, RPSYSTEM, RPRAVE, RPDEFINE, RPCON, RPCONDS; type TFORM9 = class(TFORM) Label1: TLABEL; Label2: TLABEL; Label3: TLABEL; Label4: TLABEL; Label5: TLABEL; DBEDIT1: TDBEDIT; DBNAVIGATOR1: TDBNAVIGATOR; DBEDIT2: TDBEDIT; DBEDIT3: TDBEDIT; Button2: TBUTTON; Button3: TBUTTON; DBEDIT4: TDBEDIT; Panel1: TPANEL; DBGRID1: TDBGRID; Button1: TBUTTON; Button4: TBUTTON; Table2: TTABLE; DATASOURCE2: TDATASOURCE; Table1: TTABLE; DATASOURCE1: TDATASOURCE; qry1: TQUERY; Label6: TLABEL; btn3: TBUTTON; procedure Button3Click(Sender: TOBJECT); procedure Button2Click(Sender: TOBJECT); procedure Button4Click(Sender: TOBJECT); procedure Button1Click(Sender: TOBJECT); procedure btn3Click(Sender: TOBJECT); private { Private declarations } public { Public declarations } end; var Form9: TFORM9; implementation uses Unit1, Unit6, Unit7; {$R *.dfm} procedure TFORM9.Button3Click(Sender: TOBJECT); begin Form1.close; end; procedure TFORM9.Button2Click(Sender: TOBJECT); begin form9.Visible:=false; form1.Visible:=true; end; procedure TFORM9.Button4Click(Sender: TOBJECT); begin form9.Visible:=false; form6.Visible:=true; end; procedure TFORM9.Button1Click(Sender: TOBJECT); begin form9.Visible:=false; form7.Visible:=true; end; procedure TFORM9.btn3Click(Sender: TOBJECT); begin end; end.

Заключение

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

Список использованной литературы

А. Н. Вальвачев, К. А. Сурков, Д. А. Сурков, Ю. М. Четырько. Программирование на языке Delphi. Учебное пособие. - 2005.

Нил Дж. Рубенкинг. Язык программирования Delphi для «чайников». Введение в Borland Delphi 2006 = Delphi for Dummies. - М.: Диалектика , 2007. - 336 с. - ISBN 0-7645-0179-8

Бен Форта. Освой самостоятельно язык запросов SQL / Пер. с англ. - 3-е изд. - М.: Диалектика, 2005. - 288 с.

Пол Уилтон, Джон Колби. Язык запросов SQL для начинающих / Пер. с англ. - М.: Диалектика, 2005. - 496 с.

Дельфи Виртуальный клуб программистов

Delphi Sources - Программирование на Delphi, более 800 примеров, статьи, форум, FAQ

Мастера DELPHI

Delphi Plus - новости, посвященные Delphi

Torry’s Delphi Pages - крупнейший сборник компонент для Delphi (англ.)

DRKB - Русская база знаний по Delphi

1. Размещено на
Заказать написание новой работы



Дисциплины научных работ



Хотите, перезвоним вам?