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

     procedure TCarencyFrm.FormShow(Sender: TObject);

     begin

          CarencyFrm.Left := 400;

          CarencyFrm.Top := 400;

     end; 

     end. 

     4. Форма

     unit communication; 

     interface 

     uses

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

       Dialogs, StdCtrls, Buttons, Grids, DBGrids; 

     type

       TCommFrm = class(TForm)

         DBGrid1: TDBGrid;

         AddCommBtn: TBitBtn;

         SaveCommBtn: TBitBtn;

         DeleteCommBtn: TBitBtn;

         CloseCommBtn: TBitBtn;

         procedure AddCommBtnClick(Sender: TObject);

         procedure DeleteCommBtnClick(Sender: TObject);

         procedure SaveCommBtnClick(Sender: TObject);

         procedure CloseCommBtnClick(Sender: TObject);

       private

         { Private declarations }

       public

         { Public declarations }

       end; 

     var

       CommFrm: TCommFrm; 

     implementation 

     uses datamodule; 

     {$R *.dfm} 

     procedure TCommFrm.AddCommBtnClick(Sender: TObject);

     begin

           DataModule1.ADOTableComm.Insert;

     end; 

     procedure TCommFrm.DeleteCommBtnClick(Sender: TObject);

     begin

             DataModule1.ADOTableComm.Delete;

     end; 

     procedure TCommFrm.SaveCommBtnClick(Sender: TObject);

     begin

            if DataModule1.ADOTableComm.Modified then

               DataModule1.ADOTableComm.Post;

     end; 

     procedure TCommFrm.CloseCommBtnClick(Sender: TObject);

     begin

            Close;

     end;

     end. 

     5.Форма

     unit comnedvig; 

     interface 

     uses

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

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

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

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

     type

       TFormNedvig = class(TForm)

         StatusBarComm: TStatusBar;

         ToolBar1: TToolBar;

         DeleteNedvigBtn: TBitBtn;

         PrintNedvigBtn: TBitBtn;

         FilterNedvigBtn: TBitBtn;

         CommNedvigBtn: TBitBtn;

         CurrencuNedvigBtn: TBitBtn;

         DistrNedigBtn: TBitBtn;

         AddEditNedvigBtn: TBitBtn;

         DBGridNedvig: TDBGrid;

         DBMemo1: TDBMemo;

         Label1: TLabel;

         CloseNedvigBtn: TBitBtn;

         ppDBPipelineNed: TppDBPipeline;

         ppReportNed: 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;

         ppDBMemo1: TppDBMemo;

         ppLabel9: TppLabel;

         ppDBText8: TppDBText;

         ppLabel10: TppLabel;

         ppLine1: TppLine;

         ppLine2: TppLine;

         procedure FormResize(Sender: TObject);

         procedure CloseNedvigBtnClick(Sender: TObject);

         procedure FormCreate(Sender: TObject);

        // procedure StatusBarCommResize(Sender: TObject);

         procedure DistrNedigBtnClick(Sender: TObject);

         procedure CurrencuNedvigBtnClick(Sender: TObject);

         procedure CommNedvigBtnClick(Sender: TObject);

         procedure AddEditNedvigBtnClick(Sender: TObject);

         procedure FilterNedvigBtnClick(Sender: TObject);

         procedure FormPaint(Sender: TObject);

         procedure DBGridNedvigCellClick(Column: TColumn);

         procedure PrintNedvigBtnClick(Sender: TObject);

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

         procedure FormShow(Sender: TObject);

         procedure DeleteNedvigBtnClick(Sender: TObject);

       private

         { Private declarations }

       public

         { Public declarations }

       end; 

     var

       FormNedvig: TFormNedvig; 

     implementation 

     uses datamodule, carrency, communication, district,Editnedvig, FltNedvig; 

     {$R *.dfm} 

     procedure TFormNedvig.FormResize(Sender: TObject);

     begin

           DBMemo1.Width := FormNedvig.Width div 4;

            DBGridNedvig.Width := FormNedvig.Width - DBMemo1.Width - 32;

           DBGridNedvig.Height := FormNedvig.Height -120;

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

           Label1.Left := DBMemo1.Left;

           DBMemo1.Height :=DBGridNedvig.Height - 16;

            //DBGridNedvig.Top + DBGridNedvig.Height +25;

     end; 

     procedure TFormNedvig.CloseNedvigBtnClick(Sender: TObject);

     begin

          Close;

     end; 

     procedure TFormNedvig.FormCreate(Sender: TObject);

     begin

           DBMemo1.Width := FormNedvig.Width div 4;

          DBGridNedvig.Width := FormNedvig.Width - DBMemo1.Width -32; 

          DBGridNedvig.Height := FormNedvig.Height -120;

          DBMemo1.Height :=DBGridNedvig.Height - 16;

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

          Label1.Left := DBMemo1.Left; 

     end; 
 

     procedure TFormNedvig.DistrNedigBtnClick(Sender: TObject);

     begin

           DistFrm.ShowModal;

     end; 

     procedure TFormNedvig.CurrencuNedvigBtnClick(Sender: TObject);

     begin

           CarencyFrm.ShowModal;

     end; 

     procedure TFormNedvig.CommNedvigBtnClick(Sender: TObject);

     begin

            CommFrm.ShowModal;

     end; 

     procedure TFormNedvig.AddEditNedvigBtnClick(Sender: TObject);

     begin

           AddEditNedvig.ShowModal;

     end; 

     procedure TFormNedvig.FilterNedvigBtnClick(Sender: TObject);

     begin

          FilterNedvig.Show;

     end; 

     procedure TFormNedvig.FormPaint(Sender: TObject);

     begin

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

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

     end; 

     procedure TFormNedvig.DBGridNedvigCellClick(Column: TColumn);

     var

     rub2,dol2,eur2: variant; 

     begin

          if  DBGridNedvig.Fields[7].AsString = 'Рубль' then

          begin

          rub2 := DBGridNedvig.Fields[6].AsFloat * 1;

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

          end

           else  if DBGridNedvig.Fields[7].AsString = 'Доллар' then

          begin

          dol2 := DBGridNedvig.Fields[6].AsVariant * DataModule1.ADOTableCarrencyKursDollar.AsVariant;

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

          end

          else if DBGridNedvig.Fields[7].AsString = 'Евро' then

          begin

          eur2 := DBGridNedvig.Fields[6].AsVariant * DataModule1.ADOTableCarrencyKursEuro.AsVariant;

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

          end 

     end; 

     procedure TFormNedvig.PrintNedvigBtnClick(Sender: TObject);

     begin

           ppReportNed.Print;

     end; 

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

     begin

           DBGridNedvig.Columns.SaveToFile(ExtractFilePath(Application.ExeName) + 'gridcomm.dat');

     end; 

     procedure TFormNedvig.FormShow(Sender: TObject);

     begin

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

            DBGridNedvig.Columns.LoadFromFile(ExtractFilePath(Application.ExeName) + 'gridcomm.dat');