Автор: Пользователь скрыл имя, 18 Февраля 2012 в 21:55, дипломная работа
В дипломной работе рассматривается технология процесса поиска и подбора подходящих объектов недвижимости для клиентов. Процесс поиска представляет собой комплекс операций, целью которых является получение наиболее выгодного предложения для заказчика. Процесс поиска объектов недвижимости включает ряд этапов, которые будут рассмотрены в основной и практической части дипломного проекта.
Введение 3
1.1. Основные понятия рынка недвижимости 6
1.2. Рынок недвижимости: понятие, субъекты рынка, законодательная база 7
1.3 Факторы, влияющие на формирование рынка недвижимости 9
1.4 Основные подходы и методы исследования рынка недвижимости 10
1.5. Определение рыночной цены жилья на вторичном рынке 15
Глава 2. Анализ деятельности ООО «Аграфис» 16
2.1. Общие положения 16
2.2. Цель и виды деятельности 16
2.3. Схема функционирования ООО «Аграфис» 19
Глава 3. Разработка приложения 24
Заключение 31
Список литературы 32
Приложение 33
uses
flat, earth, comnedvig;
{$R
*.dfm}
procedure TFormMain.ExitBtnClick(Sender: TObject);
begin
Close;
end;
procedure
TFormMain.FlatsBtnClick(
begin
FlatFrm.ShowModal;
end;
procedure
TFormMain.EarthBtnClick(
begin
EarthFrm.ShowModal;
end;
procedure
TFormMain.CommercBtnClick(
begin
FormNedvig.ShowModal;
end;
end.
15. Форма
unit
nedvig.;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs;
type
TFormNedvig = class(TForm)
private
{ Private declarations }
public
{ Public declarations }
end;
var
FormNedvig: TFormNedvig;
implementation
{$R
*.dfm}
end.
16.Форма
unit
reportflatfrm;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, QRCtrls, QuickRpt, ExtCtrls;
type
TPrintFlatReport = class(TForm)
QuickRep1: TQuickRep;
ColumnHeaderBand1: TQRBand;
DetailBand1: TQRBand;
PageHeaderBand1: TQRBand;
QRDBText1: TQRDBText;
QRDBText2: TQRDBText;
QRDBText3: TQRDBText;
QRDBText4: TQRDBText;
QRDBText5: TQRDBText;
QRDBText6: TQRDBText;
QRDBText7: TQRDBText;
QRDBText8: TQRDBText;
QRLabel8: TQRLabel;
QRLabel7: TQRLabel;
QRLabel6: TQRLabel;
QRLabel5: TQRLabel;
QRLabel4: TQRLabel;
QRLabel3: TQRLabel;
QRLabel2: TQRLabel;
QRLabel1: TQRLabel;
QRSysData1: TQRSysData;
private
{ Private declarations }
public
{ Public declarations }
end;
var
PrintFlatReport: TPrintFlatReport;
implementation
uses
datamodule, flat;
{$R
*.dfm}
end.
17.Форма
unit
sale;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, Buttons, Grids, DBGrids;
type
TFormSale = class(TForm)
DBGridSale: TDBGrid;
BitBtn1: TBitBtn;
BitBtn2: TBitBtn;
BitBtn3: TBitBtn;
BitBtn4: TBitBtn;
procedure BitBtn4Click(Sender: TObject);
procedure BitBtn3Click(Sender: TObject);
procedure BitBtn2Click(Sender: TObject);
procedure BitBtn1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
FormSale: TFormSale;
implementation
uses
datamodule;
{$R
*.dfm}
procedure TFormSale.BitBtn4Click(Sender: TObject);
begin
Close;
end;
procedure TFormSale.BitBtn3Click(Sender: TObject);
begin
if DataModule1.ADOTableSale.
DataModule1.ADOTableSale.Post;
end;
procedure TFormSale.BitBtn2Click(Sender: TObject);
begin
DataModule1.ADOTableSale.
end;
procedure TFormSale.BitBtn1Click(Sender: TObject);
begin
DataModule1.ADOTableSale.
end;
end.