Разработка базы данных для риэлтерской конторы
Курсовой проект - Компьютеры, программирование
Другие курсовые по предмету Компьютеры, программирование
Содержание
1. Описание задачи
. Описание структуры базы данных
.1 Схема данных БД
. Запросы и отчеты
.1 Запросы
.2 Отчеты
. Инструкции по эксплуатации
. Текст программы
Заключение
Список использованной литературы
база данные учет запрос
1. Описание задачи
Информационная система (ИС) представляет собой совокупность информационных средств, объединённых в единую систему с целью сбора, хранения, обработки и выдачи необходимой информации, предназначенной для выполнения поставленных задач в риэлтерской фирме а именно:
Регистрация нового клиента;
БД клиентов фирмы;
Регистрация квартир;
БД квартир;
Продажа квартир;
Покупка квартир;
Список услуг фирмы;
Оплата услуг фирмы.
2 Описание структуры базы данных
Таблица 1 bdkvartir БД квартир.
ПолеТипКлючРазмерОбязательное полеID apartmentЧисловой++ID clientЧисловой+PriceДенежный+AdressТекстовый20+AreaТекстовый20MetroТекстовый10Time to metroЧисловойRatingЧисловойRoomsЧисловой+StatusТекстовый20+
Таблица 2 Сlients БД клиентов.
ПолеТипКлючРазмерОбязательное полеID clientЧисловой++SNPТекстовый30+AdressТекстовый30Serial 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Текстовый+10SellТекстовый+10Payment for servicesДенежный++DateДата+
2.1 Схема данных БД
Схема данных БД приведена на рисунке 1.
Рис.1
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;
.2 Отчеты
Система позволяет выводить на печать следующие отчеты:
БД клиентов (Рис. 2).
Рис. 2
БД квартир (Рис. 3).
Рис. 3
4 Инструкции по эксплуатации
. Мы попадаем на главную форму программы. (Рис. 4)
Тут имеются вкладки меню:
Регистрация нового клиента - регистрируем нового клиента.
Список клиентов - БД клиентов.
Регистрация новой квартиры - регистрируем новую квартиру.
Список клиентов - БД квартир.
Продать квартиру - операция по продаже квартиры.
Купить квартиру - операция по покупке квартиры.
Оплата услуг - оплата выбранной услуги.
Услуги - все услуги с платежами и датами оплаты услуг.
Выход - закрытие программы.
Рис. 4
Рис. 5
. Регистрация нового клиента. (Рис. 5)
. БД клиентов с встроенной формой поиска и сортировки клиентов по ФИО с выводом на печать. (Рис. 6)
Рис.6
. Регистрация новой квартиры. (Рис. 7)
Рис. 7
. БД квартир с встроенной формой поиска и сортировки квартир по ближайшему метро с выводом на печать. (Рис. 8)
Рис. 8
6. Продажа квартир с расчётом налога с общей суммы и суммой квартиры с учётом налога. (Рис. 9)
Рис. 9
. Список всех услуг и выплат по ним с датами. (Рис. 10)
Рис. 10
. Покупка квартир с расчётом налога с общей суммы и суммой квартиры с учётом налога. (Рис. 11)
Рис. 11
. Оплата услуг. (Рис. 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