Содержание
1 Описание задачи.............................................................................................. 3
2 Описание структуры базы данных.................................................................. 4
2.1 Схема данных БД.......................................................................................... 6
3 Запросы и отчеты............................................................................................. 7
3.1. Запросы..................................................................................................... 7
3.2. Отчеты....................................................................................................... 8
4 Инструкции по эксплуатации........................................................................ 10
5 Текст программы........................................................................................... 16
Заключение........................................................................................................ 27
Список использованной литературы............................................................... 28
Описание задачи
Информационная система (ИС) представляет собой совокупность информационных средств, объединённых в единую систему с целью сбора, хранения, обработки и выдачи необходимой информации, предназначенной для выполнения поставленных задач в риэлтерской фирме а именно:
· Регистрация нового клиента;
· БД клиентов фирмы;
· Регистрация квартир;
· БД квартир;
· Продажа квартир;
· Покупка квартир;
· Список услуг фирмы;
· Оплата услуг фирмы;
Описание структуры базы данных
Таблица 1 «bdkvartir» БД квартир.
Таблица 1 «bdkvartir»
| Поле | Тип | Ключ | Размер | Обязательное поле |
| ID apartment | Числовой | + | + | |
| ID client | Числовой | + | ||
| Price | Денежный | + | ||
| Adress | Текстовый | + | ||
| Area | Текстовый | |||
| Metro | Текстовый | |||
| Time to metro | Числовой | |||
| Rating | Числовой | |||
| Rooms | Числовой | + | ||
| Status | Текстовый | + |
Таблица 2 «С lients» БД клиентов.
Таблица 2 «Сlients»
| Поле | Тип | Ключ | Размер | Обязательное поле |
| ID client | Числовой | + | + | |
| SNP | Текстовый | + | ||
| Adress | Текстовый | |||
| Serial and number pass | Числовой | + | ||
| Service | Текстовый | + | ||
| Telephone | Числовой | + |
Таблица 3 «Buy» осуществление покупки квартир.
Таблица 3 «Buy»
| Поле | Тип | Ключ | Размер | Обязательное поле |
| ID apartment | Числовой | + | + | |
| ID client | Числовой | + | ||
| Payable | Денежный | + | ||
| Date | Дата | + |
Таблица 4 «Sell» осуществление продажи квартир.
Таблица 4 «Sell»
| Поле | Тип | Ключ | Размер | Обязательное поле |
| ID apartment | Числовой | + | + | |
| ID client | Числовой | + | ||
| Payable | Денежный | + | ||
| Date | Дата | + |
Таблица 5 «payment for services» платежи и услуги.
Таблица 5 «payment for services»
| Поле | Тип | Ключ | Размер | Обязательное поле |
| Payable | Денежный | + | + | |
| Service | Текстовый | + | ||
| Date | Дата | + |
Таблица 6 «Service» список осуществлённых услуг с датами платежей.
Таблица 6 «Service»
| Поле | Тип | Ключ | Размер | Обязательное поле |
| Byu | Текстовый | + | ||
| Sell | Текстовый | + | ||
| Payment for services | Денежный | + | + | |
| Date | Дата | + |
Схема данных БД
Схема данных БД приведена на рисунке 1.
Рис.1
Такую схему не приносить ему!!!!!! У него аж глаза выкатываются!
Рисуем просто в пэинте!
Запросы и отчеты
Запросы
1) Запрос на обновление БД
| qry1.Close; qry1.SQL.Clear; qry1.SQL.Add('select * from Klients'); qry1.Open; |
2) Запрос на вывод печати
| procedure TForm7.btn1Click(Sender: TObject); begin Form7.RvProject1.Execute; end; |
3) Запрос на сортировку элеметов бд по одному значению
| SELECT * FROM Klients ORDER BY SNP; |
4) Запрос на поиск
| qry1.Close; qry1.SQL.Clear; qry1.SQL.Add('select * from Klients where SNP like "'+Edit1.Text+'%"'); qry1.Open; |
Отчеты
Система позволяет выводить на печать следующие отчеты:
1. БД клиентов (Рис. 2).
Рис. 2
- БД квартир (Рис. 3).
Рис. 3
Инструкции по эксплуатации.
1. Мы попадаем на главную форму программы. (Рис. 4)
Тут имеются вкладки меню:
Регистрация нового клиента – регистрируем нового клиента.
Список клиентов – БД клиентов.
Регистрация новой квартиры – регистрируем новую квартиру.
Список клиентов – БД квартир.
Продать квартиру — операция по продаже квартиры.
Купить квартиру — операция по покупке квартиры.
Оплата услуг — оплата выбранной услуги.
Услуги — все услуги с платежами и датами оплаты услуг.
Выход – закрытие программы.
Рис. 4
2. Регистрация нового клиента. (Рис. 5)
Рис. 5
3. БД клиентов с встроенной формой поиска и сортировки клиентов по ФИО с выводом на печать. (Рис. 6)
Рис.6
4. Регистрация новой квартиры. (Рис. 7)
Рис. 7
5. БД квартир с встроенной формой поиска и сортировки квартир по ближайшему метро с выводом на печать. (Рис. 8)
Рис. 8
6. Продажа квартир с расчётом налога с общей суммы и суммой квартиры с учётом налога. (Рис. 9)
Рис. 9
7. Список всех услуг и выплат по ним с датами. (Рис. 10)
Рис. 10
8. Покупка квартир с расчётом налога с общей суммы и суммой квартиры с учётом налога. (Рис. 11)
Рис. 11
9. Оплата услуг. (Рис. 12)
Рис. 12
Текст программы
| 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
