Разработка программы по продаже недвижимости на примере инвестиционно-консультационной компании «Аграфис»

Автор: Пользователь скрыл имя, 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

Скачать полностью (564.11 Кб) Сколько стоит заказать работу?
Работа содержит 1 файл

Диплом_Аграфис.doc

— 918.00 Кб (Скачать)

         procedure FormCreate(Sender: TObject);

         procedure FltBtnClick(Sender: TObject); 
 

       private

         { Private declarations }

       public

         { Public declarations }

       end; 

     var

       FormFilter: TFormFilter;

     DistrStr,AdrStr,ArStr,FloorStr,PriceStr: string; //string for filter 

     implementation 

     uses datamodule, flat; 

     {$R *.dfm} 

     procedure TFormFilter.CloseFilterBtnClick(Sender: TObject);

     begin

            FormFilter.Close;

     end;

       //сброс фильтра

     procedure TFormFilter.EndFilterBtnClick(Sender: TObject);

     begin 

            AdressFilter.Text := '';

            AreaFilter.Text := '';

            FloorFilter.Text := '';

            PriceFilter.Text := '';

            AreaFltMax.Text :='';

            FloorFltMax.Text :='';

            PriceFltMax.Text :=''; 

            DataModule1.ADOTableFlat.Filter := '';

            DataModule1.ADOTableFlat.Filtered := false;

     end; 
 
 
 

     procedure TFormFilter.AdressFilterChange(Sender: TObject);

     begin

          if Length(AdressFilter.Text) > 0 then

           //  DataModule1.ADOTableFlat.Filtered := true 

           //  else 

             //DataModule1.ADOTableFlat.Filtered := false;

             //DataModule1.ADOTableFlat.Filter

             AdrStr:= ' and Адрес>=''' + AdressFilter.Text+'''';

            // DataModule1.ADOTableFlat.Sort := 'Адрес'; 

     end; 
 
 

     procedure TFormFilter.AreaFilterChange(Sender: TObject);

     begin

             if (Length(AreaFilter.Text) >0) and (Length(AreaFltMax.Text) >0) then

               // DataModule1.ADOTableFlat.Filtered := true

             //else

                // DataModule1.ADOTableFlat.Filtered := false;

                 //DataModule1.ADOTableFlat.Filter

                 ArStr:= ' and (Площадь>='''+AreaFltMax.Text+''') and (Площадь<='''+AreaFilter.Text+''')';

                // DataModule1.ADOTableFlat.Sort := 'Площадь';

     end; 
 
 

     procedure TFormFilter.FloorFilterChange(Sender: TObject);

     begin

           if Length(FloorFilter.Text) >0 then

               // DataModule1.ADOTableFlat.Filtered := true

             //else

                 //DataModule1.ADOTableFlat.Filtered := false;

                // DataModule1.ADOTableFlat.Filter

                FloorStr:= ' and (Этаж>=''' + FloorFltMax.Text+''') and (Этаж<=''' + FloorFilter.Text+''')';

                 //DataModule1.ADOTableFlat.Sort := 'Этаж';

     end; 

     procedure TFormFilter.PriceFilterChange(Sender: TObject);

     begin

           if Length(PriceFilter.Text) >0 then

              //  DataModule1.ADOTableFlat.Filtered := true

            // else

                // DataModule1.ADOTableFlat.Filtered := false;

                 //DataModule1.ADOTableFlat.Filter

                 PriceStr:= ' and (Цена>=''' + PriceFltMax.Text+''') and (Цена<=''' + PriceFilter.Text+''')';

                 //DataModule1.ADOTableFlat.Sort := 'Цена';

     end; 

     procedure TFormFilter.DistrSortClick(Sender: TObject);

     begin

            DataModule1.ADOTableFlat.Sort := 'Район';

     end;

                //Filter for district 
 
 
 

     procedure TFormFilter.FormPaint(Sender: TObject);

     begin

           DataModule1.ADOTableDist.First;

          ComboBoxFlat.Items.Clear;

          while not DataModule1.ADOTableDist.Eof do

           begin

             ComboBoxFlat.Items.Add(DataModule1.ADOTableDistDSDesigner.AsString);

             ComboBox1.Items.Add(DataModule1.ADOTableDistkeydistrict.AsString);

             DataModule1.ADOTableDist.Next;

           end;

     end; 

     procedure TFormFilter.ComboBoxFlatCloseUp(Sender: TObject);

     var

     flttxt : string;    //for filter 

     begin

             ComboBox1.ItemIndex := ComboBoxFlat.ItemIndex;

             flttxt := ComboBox1.Text;

            //DataModule1.ADOTableFlat.Filtered := true;

            //DataModule1.ADOTableFlat.Filter

            DistrStr:= '  Район=''' + flttxt +'''';

     end; 

     procedure TFormFilter.FormCreate(Sender: TObject);

     begin

           FormFilter.Top := 400;

           FormFilter.Left := 400;

     end; 

     procedure TFormFilter.FltBtnClick(Sender: TObject);

     begin

          if ComboBoxFlat.Text = '' then Application.MessageBox('Обязательно выберите Район','Внимание',MB_OK)

          else

          begin

         DataModule1.ADOTableFlat.Filter := '';

         if DistrStr <> '' then   DataModule1.ADOTableFlat.Filter := DistrStr;

        if AdrStr <> '' then DataModule1.ADOTableFlat.Filter := DataModule1.ADOTableFlat.Filter + AdrStr;

         if ArStr <> '' then DataModule1.ADOTableFlat.Filter := DataModule1.ADOTableFlat.Filter + ArStr;

         if FloorStr <> '' then DataModule1.ADOTableFlat.Filter := DataModule1.ADOTableFlat.Filter + FloorStr;

         if PriceStr <> '' then DataModule1.ADOTableFlat.Filter := DataModule1.ADOTableFlat.Filter + PriceStr;

         //DataModule1.ADOTableFlat.Filter := GlobalStr;

         DataModule1.ADOTableFlat.Filtered := true;

          end;

     end; 

     end. 

     11.Форма

     unit filterearthfrm; 

     interface 

     uses

       Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

       Dialogs, DBCtrls, StdCtrls, Buttons; 

     type

       TFiterEarthFrm = class(TForm)

         Label2: TLabel;

         Label3: TLabel;

         Label4: TLabel;

         Label5: TLabel;

         AreaFilter: TEdit;

         PriceFilter: TEdit;

         FloorFilter: TEdit;

         EndFilterBtn: TBitBtn;

         CloseFilterBtn: TBitBtn;

         DistrSort: TBitBtn;

         ComboBoxEarth: TComboBox;

         ComboBox2: TComboBox;

         ArEarthFltMin: TEdit;

         FloorEarthFltMin: TEdit;

         PrEarthFltMin: TEdit;

         Label1: TLabel;

         Label6: TLabel;

         Label7: TLabel;

         Label8: TLabel;

         Label9: TLabel;

         Label10: TLabel;

         FltEarthBtn: TBitBtn;

         procedure CloseFilterBtnClick(Sender: TObject);

         procedure EndFilterBtnClick(Sender: TObject);

         procedure AreaFilterChange(Sender: TObject);

         procedure FloorFilterChange(Sender: TObject);

         procedure PriceFilterChange(Sender: TObject);

         procedure DistrSortClick(Sender: TObject);

         procedure DBLookupComboBox1CloseUp(Sender: TObject);

         procedure FormPaint(Sender: TObject);

         procedure ComboBoxEarthCloseUp(Sender: TObject);

         procedure FormCreate(Sender: TObject);

         procedure FltEarthBtnClick(Sender: TObject);

       private

         { Private declarations }

       public

         { Public declarations }

       end; 

     var

       FiterEarthFrm: TFiterEarthFrm;

       DistrStr,AdrStr,ArStr,FloorStr,PriceStr: string; //string for filter 

     implementation 

     uses datamodule, earth; 

     {$R *.dfm} 

     procedure TFiterEarthFrm.CloseFilterBtnClick(Sender: TObject);

     begin

           Close;

     end; 

     procedure TFiterEarthFrm.EndFilterBtnClick(Sender: TObject);

     begin 

            AreaFilter.Text := '';

            FloorFilter.Text := '';

            PriceFilter.Text := '';

            ArEarthFltMin.Text := '';

            FloorEarthFltMin.Text := '';

            PrEarthFltMin.Text := ''; 

            DataModule1.ADOTableEarth.Filter := '';

            DataModule1.ADOTableEarth.Filtered := false; 

     end; 
 

     procedure TFiterEarthFrm.AreaFilterChange(Sender: TObject);

     begin

             if (Length(ArEarthFltMin.Text) > 0) and (Length(AreaFilter.Text) >0) then 

                 ArStr := ' and (Площадь>='''+ArEarthFltMin.Text+''') and (Площадь<='''+AreaFilter.Text+''')'; 
 

     end; 

     procedure TFiterEarthFrm.FloorFilterChange(Sender: TObject);

     begin

           if (Length(FloorEarthFltMin.Text) >0) and (Length(FloorFilter.Text) >0) then

                 FloorStr := ' and (Этаж>=''' + FloorEarthFltMin.Text+''') and (Этаж<=''' + FloorFilter.Text+''')'; 

Информация о работе Разработка программы по продаже недвижимости на примере инвестиционно-консультационной компании «Аграфис»