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

     end; 

     procedure TFormNedvig.DeleteNedvigBtnClick(Sender: TObject);

     begin

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

              id_OK then

           DataModule1.ADOTableNedvig.Delete;

     end;

     end. 

     6.Форма

     unit datamodule; 

     interface 

     uses

       SysUtils, Classes, DB, ADODB; 

     type

       TDataModule1 = class(TDataModule)

         ADOConnection1: TADOConnection;

         ADOTableFlat: TADOTable;

         DataSourceFlat: TDataSource;

         ADOTableFlatkeymain: TAutoIncField;

         ADOTableFlatDSDesigner: TIntegerField;

         ADOTableFlatDSDesigner2: TWideStringField;

         ADOTableFlatDSDesigner3: TIntegerField;

         ADOTableFlatDSDesigner4: TWideStringField;

         ADOTableFlatDSDesigner5: TWideStringField;

         ADOTableFlatDSDesigner6: TIntegerField;

         ADOTableFlatDSDesigner7: TIntegerField;

         ADOTableFlatDSDesigner8: TWideStringField;

         ADOTableFlatDSDesigner9: TMemoField;

         ADOTableDist: TADOTable;

         DataSourceDist: TDataSource;

         ADOTableDistkeydistrict: TAutoIncField;

         ADOTableDistDSDesigner: TWideStringField;

         ADOTableFlatIntegerField: TStringField;

         ADOTableCarrency: TADOTable;

         ADOTableCarrencyKeyCarncy: TAutoIncField;

         ADOTableCarrencyDSDesigner: TWideStringField;

         ADOTableCarrencyKursEuro: TFloatField;

         ADOTableCarrencyKursDollar: TFloatField;

         DataSourceCarrency: TDataSource;

         ADOTableFlatValuta: TStringField;

         ADOTableEarth: TADOTable;

         ADOTableEarthkeyEarth: TAutoIncField;

         ADOTableEarthDSDesigner: TIntegerField;

         ADOTableEarthDSDesigner2: TIntegerField;

         ADOTableEarthDSDesigner3: TIntegerField;

         ADOTableEarthDSDesigner4: TIntegerField;

         ADOTableEarthDSDesigner5: TMemoField;

         ADOTableEarthDSDesigner6: TWideStringField;

         ADOTableEarthDSDesigner7: TIntegerField;

         ADOTableEarthDSDesigner8: TIntegerField;

         DataSourceEarth: TDataSource;

         ADOTableEarthDistr: TStringField;

         ADOTableComm: TADOTable;

         ADOTableSale: TADOTable;

         DataSourceComm: TDataSource;

         DataSourceSale: TDataSource;

         ADOTableCommKeyCommunication: TAutoIncField;

         ADOTableCommDSDesigner: TWideStringField;

         ADOTableEarthComm: TStringField;

         ADOTableEarthSale: TStringField;

         ADOTableEarthValuta: TStringField;

         ADOTableNedvig: TADOTable;

         DataSourceNedvig: TDataSource;

         ADOTableNedvigkeyCommerc: TAutoIncField;

         ADOTableNedvigDSDesigner: TIntegerField;

         ADOTableNedvigDSDesigner2: TWideStringField;

        ADOTableNedvigDSDesigner3: TWideStringField;

         ADOTableNedvigDSDesigner4: TIntegerField;

         ADOTableNedvigDSDesigner5: TIntegerField;

         ADOTableNedvigDSDesigner6: TWideStringField;

         ADOTableNedvigDSDesigner7: TIntegerField;

         ADOTableNedvigDSDesigner8: TMemoField;

         ADOTableNedvigValuta: TStringField;

         ADOTableNedvigDistr: TStringField;

         ADOTableNedvigCommunic: TStringField;

         ADOTableNedvigDSDesigner9: TIntegerField;

       private

         { Private declarations }

       public

         { Public declarations }

       end; 

     var

       DataModule1: TDataModule1; 

     implementation 

     {$R *.dfm} 

     end. 

     7.Форма

     unit district; 

     interface 

     uses

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

       Dialogs, StdCtrls, Buttons, ExtCtrls, Grids, DBGrids; 

     type

       TDistFrm = class(TForm)

         DBGrid1: TDBGrid;

         Bevel1: TBevel;

         AddDistBtn: TBitBtn;

         DeleteDistBtn: TBitBtn;

         SaveDistBtn: TBitBtn;

         CloseDistBtn: TBitBtn;

         procedure AddDistBtnClick(Sender: TObject);

         procedure DeleteDistBtnClick(Sender: TObject);

         procedure SaveDistBtnClick(Sender: TObject);

         procedure CloseDistBtnClick(Sender: TObject);

         procedure DBGrid1TitleClick(Column: TColumn);

         procedure FormShow(Sender: TObject);

       private

         { Private declarations }

       public

         { Public declarations }

       end; 

     var

       DistFrm: TDistFrm;

       sortid: Boolean;  //path sorting 

     implementation 

     uses datamodule; 

     {$R *.dfm} 

     procedure TDistFrm.AddDistBtnClick(Sender: TObject);

     begin

           DataModule1.ADOTableDist.Insert;

     end; 

     procedure TDistFrm.DeleteDistBtnClick(Sender: TObject);

     begin

           DataModule1.ADOTableDist.Delete;

     end; 

     procedure TDistFrm.SaveDistBtnClick(Sender: TObject);

     begin

           if DataModule1.ADOTableDist.Modified then

               DataModule1.ADOTableDist.Post;

     end; 

     procedure TDistFrm.CloseDistBtnClick(Sender: TObject);

     begin

          Close;

     end; 

     procedure TDistFrm.DBGrid1TitleClick(Column: TColumn);

         var

          vid: string;

     begin

           if sortid = true then

           begin

           vid := 'ASC,' ;

           sortid := false;

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

           end

           else

           begin

           vid := 'DESC,';

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

            sortid := true;

            end

     end; 

     procedure TDistFrm.FormShow(Sender: TObject); 

     begin

         DistFrm.Left := 300;

         DistFrm.Top := 200;

          sortid := true;//for sortig by clicking on title bar

     end; 

     end. 

     8.Форма

     unit earth; 

     interface 

     uses

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

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

       ppProd, ppClass, ppReport, ppComm, ppRelatv, ppDB, ppDBPipe, ppCtrls,

       ppStrtch, ppMemo, ppVar, ppPrnabl, ppBands, ppCache; 

     type

       TEarthFrm = class(TForm)

         DBGrid1: TDBGrid;

         DBMemo1: TDBMemo;

         Label1: TLabel;

         StatusBarEarth: TStatusBar;

         EarthToolBar: TToolBar;

         BitBtn1: TBitBtn;

         BitBtn2: TBitBtn;

         BitBtn3: TBitBtn;

         BitBtn4: TBitBtn;

         BitBtn5: TBitBtn;

         BitBtn6: TBitBtn;

         BitBtn7: TBitBtn;

         AddEditBtnEarth: TBitBtn;

         FilterWEarthBtn: TBitBtn;

         ppDBPipelineEarth: TppDBPipeline;

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

         ppDBMemo1: TppDBMemo;

         ppLabel6: TppLabel;

         ppDBText5: TppDBText;

         ppLabel7: TppLabel;

         ppDBText6: TppDBText;

         ppLabel8: TppLabel;

         ppDBText7: TppDBText;

         ppLabel9: TppLabel;

         ppLine1: TppLine;

         ppLine2: TppLine;

         procedure BitBtn1Click(Sender: TObject);

         procedure AddEditBtnEarthClick(Sender: TObject);

         procedure FormResize(Sender: TObject);

         procedure FormCreate(Sender: TObject);

         procedure BitBtn6Click(Sender: TObject);

         procedure BitBtn7Click(Sender: TObject);