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

     end; 

     procedure TFiterEarthFrm.PriceFilterChange(Sender: TObject);

     begin

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

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

     end; 

     procedure TFiterEarthFrm.DistrSortClick(Sender: TObject);

     begin

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

     end; 

     procedure TFiterEarthFrm.DBLookupComboBox1CloseUp(Sender: TObject); 

     var

     flttxt : string;    //for filter

     begin

            flttxt := DataModule1.ADOTableDistkeydistrict.AsString; 

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

     end; 

     procedure TFiterEarthFrm.FormPaint(Sender: TObject);

     begin

           DataModule1.ADOTableDist.First;

          ComboBoxEarth.Items.Clear;

          while not DataModule1.ADOTableDist.Eof do

           begin

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

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

             DataModule1.ADOTableDist.Next;

           end; 

     end; 

     procedure TFiterEarthFrm.ComboBoxEarthCloseUp(Sender: TObject);

     var

     flttxt : string;    //for filter 

     begin

           ComboBox2.ItemIndex := ComboBoxEarth.ItemIndex;

             flttxt := ComboBox2.Text; 

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

     end; 

     procedure TFiterEarthFrm.FormCreate(Sender: TObject);

     begin

          FiterEarthFrm.Top := 400;

          FiterEarthFrm.Left := 400;

     end; 

     procedure TFiterEarthFrm.FltEarthBtnClick(Sender: TObject);

     begin

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

          else

          begin

          DataModule1.ADOTableEarth.Filter := '';

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

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

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

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

          DataModule1.ADOTableEarth.Filtered := true;

          end;

     end; 

     end. 

     12.Форма

     unit flat; 

     interface 

     uses

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

       Dialogs, ToolWin, ComCtrls, Grids, DBGrids, StdCtrls, Buttons, DBCtrls,

       ppCtrls, ppStrtch, ppMemo, ppVar, ppPrnabl, ppClass, ppBands, ppCache,

       ppDB, ppProd, ppReport, ppComm, ppRelatv, ppDBPipe; 

     type

       TFlatFrm = class(TForm)

         StatusBarFlat: TStatusBar;

         ToolBarFlat: TToolBar;

         DBGrid1: TDBGrid;

         ExitBtnFlat: TBitBtn;

         PrintFlatBtn: TBitBtn;

         CarrencyFrmBtn: TBitBtn;

         FiltrFlatBtn: TBitBtn;

         AddBtnFlat: TBitBtn;

         DistrFrmBtn: TBitBtn;

         DeleteFlatBtn: TBitBtn;

         DBMemo1: TDBMemo;

         Label1: TLabel;

         ppDBPipeline1: TppDBPipeline;

         ppReport1: TppReport;

         ppHeaderBand1: TppHeaderBand;

         ppDetailBand1: TppDetailBand;

         ppFooterBand1: TppFooterBand;

         ppTitleBand1: TppTitleBand;

         ppLabel1: TppLabel;

         ppSystemVariable1: TppSystemVariable;

         ppSystemVariable2: TppSystemVariable;

         ppDBText1: TppDBText;

         ppLabel2: TppLabel;

         ppDBText2: TppDBText;

         ppLabel3: TppLabel;

         ppDBText3: TppDBText;

         ppLabel4: TppLabel;

         ppDBText4: TppDBText;

         ppLabel5: TppLabel;

         ppDBText5: TppDBText;

         ppLabel6: TppLabel;

         ppDBText6: TppDBText;

         ppLabel7: TppLabel;

         ppDBText7: TppDBText;

         ppLabel8: TppLabel;

         ppDBText8: TppDBText;

         ppLabel9: TppLabel;

         ppDBMemo1: TppDBMemo;

         ppLabel10: TppLabel;

         ppLine1: TppLine;

         ppLine2: TppLine;

         procedure FormResize(Sender: TObject);

         //procedure DBGrid1TitleClick(Column: TColumn);

         procedure ExitBtnFlatClick(Sender: TObject);

         procedure AddBtnFlatClick(Sender: TObject);

         procedure CarrencyFrmBtnClick(Sender: TObject);

         procedure DistrFrmBtnClick(Sender: TObject);

         procedure DeleteFlatBtnClick(Sender: TObject);

         procedure FiltrFlatBtnClick(Sender: TObject);

         procedure PrintFlatBtnClick(Sender: TObject);

         procedure DBGrid1CellClick(Column: TColumn);

         procedure FormShow(Sender: TObject);

         procedure FormPaint(Sender: TObject);

         procedure FormCreate(Sender: TObject);

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

       private

         { Private declarations }

       public

         { Public declarations }

       end; 

     var

       FlatFrm: TFlatFrm;

       //sortid: Boolean;

       //FormID : integer ;

     implementation 

     uses datamodule, addedit, carrency, district, DB, filer, reportflatfrm; 

     {$R *.dfm} 

     procedure TFlatFrm.FormResize(Sender: TObject);

     begin

           DBMemo1.Width := FlatFrm.Width div 4;

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

           DBGrid1.Height := FlatFrm.Height -120;

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

           Label1.Left := DBMemo1.Left;

           DBMemo1.Height :=DBGrid1.Height - 16;

          StatusBarFlat.Top := FlatFrm.Height -40;

          

     end; 

      {procedure TFlatFrm.DBGrid1TitleClick(Column: TColumn);

     //var

       //vid: string; 

        begin

           DataModule1.ADOTableFlat.Sort := Column.FieldName;

       end;

          if (sortid = true or (Column.Field.Index <> 1)) then

           begin

           vid := 'ASC,' ;

           sortid := false;

            DataModule1.ADOTableFlat.IndexFieldNames := Column.Field.FieldName + ' ' + vid

           end

           else

           begin

           vid := 'DESC,';

           DataModule1.ADOTableFlat.IndexFieldNames := Column.Field.FieldName + ' ' + vid;

            sortid := true;

            end 

        } 

     procedure TFlatFrm.ExitBtnFlatClick(Sender: TObject);

     begin

            FlatFrm.Close;

     end; 

     procedure TFlatFrm.AddBtnFlatClick(Sender: TObject);

     begin

            AddFlatFrm.ShowModal;

     end; 

     procedure TFlatFrm.CarrencyFrmBtnClick(Sender: TObject);

     begin

          CarencyFrm.ShowModal;

     end; 

     procedure TFlatFrm.DistrFrmBtnClick(Sender: TObject);

     begin

            DistFrm.ShowModal;

     end; 
 

     procedure TFlatFrm.DeleteFlatBtnClick(Sender: TObject);

     begin

           if Application.MessageBox('Удалить запись','Внимание!',MB_OKCANCEL) =

              id_OK then

              DataModule1.ADOTableFlat.Delete;

     end; 

     procedure TFlatFrm.FiltrFlatBtnClick(Sender: TObject);

     begin

             // FormId :=1; //from where create window filter

             FormFilter.Show;

     end; 

     procedure TFlatFrm.PrintFlatBtnClick(Sender: TObject);

     begin 

           ppReport1.Print;

     end;

               //count price in variant currency

     procedure TFlatFrm.DBGrid1CellClick(Column: TColumn);

     var

     rub,dol,eur: variant;

     begin

          if  DBGrid1.Fields[8].AsString = 'Рубль' then

          begin

          rub := DBGrid1.Fields[7].AsFloat * 1;

          StatusBarFlat.Panels[0].Text := 'В рублях  '+ VarToStr(rub);

          end

           else  if DBGrid1.Fields[8].AsString = 'Доллар' then

          begin

         dol := DBGrid1.Fields[7].AsVariant * DataModule1.ADOTableCarrencyKursDollar.AsVariant;