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

lign="justify">         procedure BitBtn2Click(Sender: TObject);

         procedure BitBtn5Click(Sender: TObject);

         procedure FilterWEarthBtnClick(Sender: TObject);

         procedure FormPaint(Sender: TObject);

         procedure DBGrid1CellClick(Column: TColumn);

         procedure BitBtn4Click(Sender: TObject);

         procedure BitBtn3Click(Sender: TObject);

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

         procedure FormShow(Sender: TObject);

       private

         { Private declarations }

       public

         { Public declarations }

       end; 

     var

       EarthFrm: TEarthFrm; 

     implementation 

     uses datamodule, addeditearth, district, carrency, communication, sale,

       filterearthfrm; 

     {$R *.dfm} 

     procedure TEarthFrm.BitBtn1Click(Sender: TObject);

     begin

             Close;

     end; 

     procedure TEarthFrm.AddEditBtnEarthClick(Sender: TObject);

     begin

          AddEditearthFrm.ShowModal;

     end; 

     procedure TEarthFrm.FormResize(Sender: TObject);

     begin

            DBMemo1.Width := EarthFrm.Width div 4;

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

           DBGrid1.Height := EarthFrm.Height -120;

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

           Label1.Left := DBMemo1.Left;

           DBMemo1.Height :=DBGrid1.Height - 16;

           StatusBarEarth.Top := EarthFrm.Height - 40;

     end; 

     procedure TEarthFrm.FormCreate(Sender: TObject);

     begin

          DBMemo1.Width := EarthFrm.Width div 4;

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

         

          DBGrid1.Height := EarthFrm.Height -120;

          DBMemo1.Height :=DBGrid1.Height - 16;

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

          Label1.Left := DBMemo1.Left;

     end; 

     procedure TEarthFrm.BitBtn6Click(Sender: TObject);

     begin

            DistFrm.ShowModal;

     end; 

     procedure TEarthFrm.BitBtn7Click(Sender: TObject);

     begin

             CarencyFrm.ShowModal;

     end; 

     procedure TEarthFrm.BitBtn2Click(Sender: TObject);

     begin

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

              id_OK then

              DataModule1.ADOTableEarth.Delete;

     end; 

     procedure TEarthFrm.BitBtn5Click(Sender: TObject);

     begin

         CommFrm.ShowModal;

     end; 

     procedure TEarthFrm.FilterWEarthBtnClick(Sender: TObject);

     begin

            //FormID := 2;

           FiterEarthFrm.Show;

     end; 

     procedure TEarthFrm.FormPaint(Sender: TObject);

     begin

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

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

     end; 

     procedure TEarthFrm.DBGrid1CellClick(Column: TColumn);

     var

     rub1,dol1,eur1: variant;

     begin

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

          begin

          rub1 := DBGrid1.Fields[4].AsFloat * 1;

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

          end

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

          begin

          dol1 := DBGrid1.Fields[4].AsVariant * DataModule1.ADOTableCarrencyKursDollar.AsVariant;

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

          end

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

          begin

          eur1 := DBGrid1.Fields[4].AsVariant * DataModule1.ADOTableCarrencyKursEuro.AsVariant;

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

          end 

     end; 

     procedure TEarthFrm.BitBtn4Click(Sender: TObject);

     begin

           FormSale.ShowModal;

     end; 

     procedure TEarthFrm.BitBtn3Click(Sender: TObject);

     begin

           ppReport2.Print;

     end; 

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

     begin

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

     end; 

     procedure TEarthFrm.FormShow(Sender: TObject);

     begin

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

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

     end; 

     end. 

     9.Форма

     unit Editnedvig; 

     interface 

     uses

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

       Dialogs, StdCtrls, Buttons, ToolWin, ComCtrls, DBCtrls, Mask; 

     type

       TAddEditNedvig = class(TForm)

         DistrComboNedvig: TDBLookupComboBox;

         DBEdit1: TDBEdit;

         DBEdit2: TDBEdit;

         DBEdit3: TDBEdit;

         DBLookupComboBox2: TDBLookupComboBox;

         DBEdit4: TDBEdit;

         DBLookupComboBox3: TDBLookupComboBox;

         DBMemo1: TDBMemo;

         Label1: TLabel;

         Label2: TLabel;

         Label3: TLabel;

         Label4: TLabel;

         Label5: TLabel;

         Label6: TLabel;

         Label7: TLabel;

         Label8: TLabel;

         ToolBar1: TToolBar;

         BitBtn1: TBitBtn;

         BitBtn2: TBitBtn;

         BitBtn3: TBitBtn;

         DBEdit5: TDBEdit;

         Label9: TLabel;

         procedure BitBtn1Click(Sender: TObject);

         procedure BitBtn2Click(Sender: TObject);

         procedure BitBtn3Click(Sender: TObject);

       private

         { Private declarations }

       public

         { Public declarations }

       end; 

     var

       AddEditNedvig: TAddEditNedvig; 

     implementation 

     uses datamodule; 

     {$R *.dfm} 

     procedure TAddEditNedvig.BitBtn1Click(Sender: TObject);

     begin

           Close;

     end; 

     procedure TAddEditNedvig.BitBtn2Click(Sender: TObject);

     begin

             if DataModule1.ADOTableNedvig.Modified then

                 DataModule1.ADOTableNedvig.Post;

                 Close;

     end; 

     procedure TAddEditNedvig.BitBtn3Click(Sender: TObject);

     begin

            DataModule1.ADOTableNedvig.Insert;

            DistrComboNedvig.SetFocus;

     end; 

     end. 

     10.Форма

     unit filer; 

     interface 

     uses

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

       Dialogs, StdCtrls, Buttons, DBCtrls; 

     type

       TFormFilter = class(TForm)

         AdressFilter: TEdit;

         AreaFilter: TEdit;

         PriceFilter: TEdit;

         FloorFilter: TEdit;

         EndFilterBtn: TBitBtn;

         CloseFilterBtn: TBitBtn;

         Label1: TLabel;

         Label2: TLabel;

         Label3: TLabel;

         Label4: TLabel;

         DistrSort: TBitBtn;

         Label5: TLabel;

         ComboBoxFlat: TComboBox;

         ComboBox1: TComboBox;

         AreaFltMax: TEdit;

         FloorFltMax: TEdit;

         PriceFltMax: TEdit;

         Label6: TLabel;

         Label7: TLabel;

         Label8: TLabel;

         Label9: TLabel;

         Label10: TLabel;

         Label11: TLabel;

         FltBtn: TBitBtn;

         procedure CloseFilterBtnClick(Sender: TObject);

         procedure EndFilterBtnClick(Sender: TObject);

         procedure AdressFilterChange(Sender: TObject);

         procedure AreaFilterChange(Sender: TObject);

         procedure FloorFilterChange(Sender: TObject);

         procedure PriceFilterChange(Sender: TObject);

         procedure DistrSortClick(Sender: TObject);

         procedure FormPaint(Sender: TObject);

         procedure ComboBoxFlatCloseUp(Sender: TObject);