Общество  может осуществлять иные виды деятельности, не запрещенные законодательством, направленные на достижение уставных целей. Оно вправе осуществлять внешнеэкономическую деятельность по вышеуказанным видам деятельности.

 

2.3. Схема функционирования ООО «Аграфис»

На начальном  этапе происходит сбор информации, которая поступает от различных источников () и формируется из информации !!!!!!!!!

Далее происходит анализ информации

 

 

 

 

 

Приложение  необходимое для автоматизации  поиска объектов недвижимости создано  в среде программирования Delphi 7.0, оно состоит из 3 независящих друг от друга баз данных, объединенных между собой главной формой

Глава 3. Разработка приложения

Приложение необходимое  для автоматизации поиска объектов недвижимости создано в среде  программирования Delphi 7.0, оно состоит из 3 независящих друг от друга баз данных, объединенных между бой главной формой в которой  отображается список баз, а именно:

-база квартир

-коммерческая  недвижимость

-земля

При выборе одной  из баз выполняется переход к  выбранному разделу, рассмотрим на примере базы квартир.

Основной интерфейс  представлен в виде таблицы, на которой  отображаются все имеющие варианты для данной базы.

Панель задач  представлена специализированным для  каждой базы набором задач, а именно

-добавить или изменить, выбор данной задачи переводит нас в следующую для заполнения форму, которая состоит из следующих полей

      Адрес, этажей, комнат, контактная информация, примечание, стоимость, район, валюта 

-фильтр, осуществляет  отбор элементов таблицы по  заданным параметрам

      Район, адрес, площадь, этаж, цена

-район, переход  к форме добавления района  для последующей автоматизации  выбора.

-курсы валют,  для облегчения расчетов стоимости  объектов в программу встроен  финансовый калькулятор, для его  использования необходимо ввести курс валют в выбранной форме и программа автоматически выполнит расчет стоймости объекта в валюче стоймости объекта.

-печать, переход  к системе печати выбранных  объектов, в более наглядной для  работы форме.

-удалить, удаление  выбранного объекта

-закрыть, выход  и данной базы и переход к главной форме.

 

 
Заключение

 

Список литературы 

 

Приложение

     1. Главная форма

     unit addedit; 

     interface 

     uses

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

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

     type

       TAddFlatFrm = class(TForm)

         DistLookComboBoxFlat: TDBLookupComboBox;

         DBEditFlatAdress: TDBEdit;

         DBEditFlatArea: TDBEdit;

         DBEditFlatRoom: TDBEdit;

         DBEditFlatFloor: TDBEdit;

         DBEditFlatPrice: TDBEdit;

         DBEditFlatContakt: TDBEdit;

         DBMemoFlat: TDBMemo;

         Label1: TLabel;

         Label2: TLabel;

         Label3: TLabel;

         Label4: TLabel;

         Label5: TLabel;

         Label6: TLabel;

         Label7: TLabel;

         DBLookupComboBoxFlatCurency: TDBLookupComboBox;

         Label8: TLabel;

         Label9: TLabel;

         ToolBar1: TToolBar;

         NewFlatBtn: TBitBtn;

         SaveFlatBtn: TBitBtn;

         CancelFlatBtn: TBitBtn;

         procedure CancelFlatBtnClick(Sender: TObject);

         procedure SaveFlatBtnClick(Sender: TObject);

         procedure NewFlatBtnClick(Sender: TObject);

       private

         { Private declarations }

       public

         { Public declarations }

       end; 

     var

       AddFlatFrm: TAddFlatFrm; 

     implementation

     uses datamodule;

     {$R *.dfm}

     procedure TAddFlatFrm.CancelFlatBtnClick(Sender: TObject);

     begin

           Close;

     end;

     procedure TAddFlatFrm.SaveFlatBtnClick(Sender: TObject);

     begin

              //if DataModule1.ADOTableFlat.FieldByName('Цена') = 0 then

              //Application.MessageBox('Введите цену','Внимание',MB_OK);

        if   DataModule1.ADOTableFlat.Modified then

             DataModule1.ADOTableFlat.Post;

             Close;

     end; 

     procedure TAddFlatFrm.NewFlatBtnClick(Sender: TObject);

     begin

            DataModule1.ADOTableFlat.Insert;

            DistLookComboBoxFlat.SetFocus;

     end;

     end. 

     2. Форма

     unit addeditearth; 

     interface 

     uses

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

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

     type

       TAddEditearthFrm = class(TForm)

         DBMemo1: TDBMemo;

         DBLookupComboBox1: TDBLookupComboBox;

         DBEdit1: TDBEdit;

         DBEdit2: TDBEdit;

         DBLookupComboBox2: TDBLookupComboBox;

         DBEdit3: TDBEdit;

         DBLookupComboBox3: TDBLookupComboBox;

         DBLookupComboBox4: TDBLookupComboBox;

         Label1: TLabel;

         Label2: TLabel;

         Label3: TLabel;

         Label4: TLabel;

         Label5: TLabel;

         Label6: TLabel;

         Label7: TLabel;

         Label8: TLabel;

         ToolBar1: TToolBar;

         BitBtn1: TBitBtn;

         BitBtn2: TBitBtn;

         BitBtn3: TBitBtn;

         procedure BitBtn1Click(Sender: TObject);

         procedure BitBtn3Click(Sender: TObject);

         procedure BitBtn2Click(Sender: TObject);

       private

         { Private declarations }

       public

         { Public declarations }

       end; 

     var

       AddEditearthFrm: TAddEditearthFrm; 

     implementation 

     uses datamodule; 

     {$R *.dfm} 

     procedure TAddEditearthFrm.BitBtn1Click(Sender: TObject);

     begin

           Close;

     end; 

     procedure TAddEditearthFrm.BitBtn3Click(Sender: TObject);

     begin

             DataModule1.ADOTableEarth.Insert;

     end; 

     procedure TAddEditearthFrm.BitBtn2Click(Sender: TObject);

     begin

               if DataModule1.ADOTableEarth.Modified then

               DataModule1.ADOTableEarth.Post;

               close;

     end;

     end. 

     3. Форма

     unit carrency; 

     interface 

     uses

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

       Dialogs, StdCtrls, Buttons, Grids, DBGrids, Mask, DBCtrls; 

     type

       TCarencyFrm = class(TForm)

         DBGrid1: TDBGrid;

         AddCarrencyBtn: TBitBtn;

         DeleteCarrencyBtn: TBitBtn;

         DollarLabel: TLabel;

         CloseCarencyFrmBitBtn: TBitBtn;

         EuroLabel: TLabel;

         DBEditDollar: TDBEdit;

         DBEditEuro: TDBEdit;

         procedure CloseCarencyFrmBitBtnClick(Sender: TObject);

         procedure AddCarrencyBtnClick(Sender: TObject);

         procedure DeleteCarrencyBtnClick(Sender: TObject);

         procedure FormShow(Sender: TObject); 

       private

         { Private declarations }

       public

         { Public declarations }

       end; 

     var

       CarencyFrm: TCarencyFrm; 

     implementation 

     uses datamodule, flat; 

     {$R *.dfm} 

     procedure TCarencyFrm.CloseCarencyFrmBitBtnClick(Sender: TObject);

     begin

             if DataModule1.ADOTableCarrency.Modified then

               DataModule1.ADOTableCarrency.Post;

              Close;

     end; 

     procedure TCarencyFrm.AddCarrencyBtnClick(Sender: TObject);

     begin

          DataModule1.ADOTableCarrency.Insert;

          DBGrid1.SetFocus;

     end; 

     procedure TCarencyFrm.DeleteCarrencyBtnClick(Sender: TObject);

     begin

           DataModule1.ADOTableCarrency.Delete;

     end;