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

          StatusBarFlat.Panels[0].Text := 'Доллар -> Рубль  ' + VarToStr(dol);

          end

          else if DBGrid1.Fields[8].AsString = 'Евро' then

          begin

          eur := DBGrid1.Fields[7].AsVariant * DataModule1.ADOTableCarrencyKursEuro.AsVariant;

          StatusBarFlat.Panels[0].Text := 'Евро -> Рубль ' + VarToStr(eur);

          end

     end; 

     procedure TFlatFrm.FormShow(Sender: TObject);

     begin

           if FileExists(ExtractFilePath(Application.ExeName) + 'gridflat.dat') then

             DBGrid1.Columns.LoadFromFile(ExtractFilePath(Application.ExeName)+ 'gridflat.dat');

           StatusBarFlat.Panels[3].Text := 'Курс Доллара   ' + FloatToStr(DataModule1.ADOTableCarrencyKursDollar.Value);

           StatusBarFlat.Panels[2].Text := 'Курс Евро ' + FloatToStr(DataModule1.ADOTableCarrencyKursEuro.Value);

     end; 
 

     procedure TFlatFrm.FormPaint(Sender: TObject);

     begin

           StatusBarFlat.Panels[3].Text := 'Курс Доллара   ' + FloatToStr(DataModule1.ADOTableCarrencyKursDollar.Value);

           StatusBarFlat.Panels[2].Text := 'Курс Евро ' + FloatToStr(DataModule1.ADOTableCarrencyKursEuro.Value); 

     end; 

     procedure TFlatFrm.FormCreate(Sender: TObject);

     begin

           DBMemo1.Width := FlatFrm.Width div 4;

          DBGrid1.Width := FlatFrm.Width - DBMemo1.Width -32;

         

          DBGrid1.Height := FlatFrm.Height -120;

          DBMemo1.Height :=DBGrid1.Height - 16;

          DBMemo1.Left := DBGrid1.Left + DBGrid1.Width +8;

          Label1.Left := DBMemo1.Left;

     end; 

     procedure TFlatFrm.FormClose(Sender: TObject; var Action: TCloseAction);

     begin

          DBGrid1.Columns.SaveToFile(ExtractFilePath(Application.ExeName) + 'gridflat.dat');

     end; 

     end. 

     13.Форма

     unit FltNedvig; 

     interface 

     uses

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

       Dialogs, StdCtrls, Buttons; 

     type

       TFilterNedvig = class(TForm)

         Label1: TLabel;

         Label2: TLabel;

         Label3: TLabel;

         Label4: TLabel;

         Label5: TLabel;

         AdressFilter: TEdit;

         AreaFilter: TEdit;

         PriceFilter: TEdit;

         FloorFilter: TEdit;

         EndFilterBtn: TBitBtn;

         CloseFilterBtn: TBitBtn;

         DistrSort: TBitBtn;

         ComboBoxNed: TComboBox;

         ComboBox1: TComboBox;

         NedFltBtn: TBitBtn;

         ArNedFltMin: TEdit;

         FlNedFltMin: TEdit;

         PrNedFltMin: TEdit;

         Label6: TLabel;

         Label7: TLabel;

         Label8: TLabel;

         Label9: TLabel;

         Label10: TLabel;

         Label11: TLabel;

         procedure FormCreate(Sender: TObject);

         procedure PriceFilterChange(Sender: TObject);

         procedure AdressFilterChange(Sender: TObject);

         procedure CloseFilterBtnClick(Sender: TObject);

         procedure AreaFilterChange(Sender: TObject);

         procedure FloorFilterChange(Sender: TObject);

         procedure EndFilterBtnClick(Sender: TObject);

         procedure DistrSortClick(Sender: TObject);

         procedure FormPaint(Sender: TObject);

         procedure ComboBoxNedCloseUp(Sender: TObject);

         procedure NedFltBtnClick(Sender: TObject);

       private

         { Private declarations }

       public

         { Public declarations }

       end; 

     var

       FilterNedvig: TFilterNedvig;

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

     implementation 

     uses datamodule; 

     {$R *.dfm} 

     procedure TFilterNedvig.FormCreate(Sender: TObject);

     begin

           FilterNedvig.Top := 400;

           FilterNedvig.Left := 400;

     end; 

     procedure TFilterNedvig.PriceFilterChange(Sender: TObject);

     begin

           if (Length(PrNedFltMin.Text) >0) and (Length(PriceFilter.Text) >0) then

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

     end; 

     procedure TFilterNedvig.AdressFilterChange(Sender: TObject);

     begin

          if Length(AdressFilter.Text) > 0 then

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

     end; 

     procedure TFilterNedvig.CloseFilterBtnClick(Sender: TObject);

     begin

            Close;

     end; 

     procedure TFilterNedvig.AreaFilterChange(Sender: TObject);

     begin

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

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

     end; 

     procedure TFilterNedvig.FloorFilterChange(Sender: TObject);

     begin

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

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

     end; 

     procedure TFilterNedvig.EndFilterBtnClick(Sender: TObject);

     begin

            AdressFilter.Text := '';

            AreaFilter.Text := '';

            FloorFilter.Text := '';

            PriceFilter.Text := '';

            FlNedFltMin.Text := '';

            PrNedFltMin.Text := '';

            ArNedFltMin.Text := ''; 

            DataModule1.ADOTableNedvig.Filter := '';

            DataModule1.ADOTableNedvig.Filtered := false; 

     end; 

     procedure TFilterNedvig.DistrSortClick(Sender: TObject);

     begin

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

     end; 

     procedure TFilterNedvig.FormPaint(Sender: TObject);

     begin

           DataModule1.ADOTableDist.First;

          ComboBoxNed.Items.Clear;

          ComboBox1.Items.Clear;

          while not DataModule1.ADOTableDist.Eof do

           begin

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

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

             DataModule1.ADOTableDist.Next;

           end; 

     end; 

     procedure TFilterNedvig.ComboBoxNedCloseUp(Sender: TObject);

     var

     flttxt : string;    //for filter 

     begin

              ComboBox1.ItemIndex := ComboBoxNed.ItemIndex;

             flttxt := ComboBox1.Text; 

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

     end; 

     procedure TFilterNedvig.NedFltBtnClick(Sender: TObject);

     begin

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

          else

          begin

          DataModule1.ADOTableNedvig.Filter := '';

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

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

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

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

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

          DataModule1.ADOTableNedvig.Filtered := true;

          end;

     end; 

     end. 

     14.Форма

     unit main; 

     interface 

     uses

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

       Dialogs, ExtCtrls, StdCtrls, Buttons; 

     type

       TFormMain = class(TForm)

         FlatsBtn: TBitBtn;

         EarthBtn: TBitBtn;

         CommercBtn: TBitBtn;

         ExitBtn: TBitBtn;

         Bevel1: TBevel;

         Image1: TImage;

         procedure ExitBtnClick(Sender: TObject);

         procedure FlatsBtnClick(Sender: TObject);

         procedure EarthBtnClick(Sender: TObject);

         procedure CommercBtnClick(Sender: TObject);

       private

         { Private declarations }

       public

         { Public declarations }

       end; 

     var

       FormMain: TFormMain; 

     implementation