Программирование агенство недвижимости

    procedure SortirovkaClick(Sender: TObject);

    procedure Button1Click(Sender: TObject);

    procedure Button2Click(Sender: TObject);

    procedure Button3Click(Sender: TObject);

    procedure Button4Click(Sender: TObject);

    procedure Button5Click(Sender: TObject);

    procedure N24Click(Sender: TObject);

 

  private

    { Private declarations }

  public

    { Public declarations }

  end;

 

var

  okno: Tokno;

  tabnum:byte;

implementation

 

uses U_W_Agent, U_W_Operation, U_W_Book, U_W_Request, U_W_Client, U_W_Flat,

  U_W_Deal;

 

{$R *.dfm}

 

procedure Tokno.FormCreate(Sender: TObject);//подключаемся к базе

begin

//чтобы база была лояльна  к смене платформ

Database1.databasename:='dbWork';

Database1.DriverName:='Standard';

Database1.Params.Clear;

Database1.params.add('path=bd\');

tabnum:=0;//ни одна таблица не отображена

tAgent.Active:=true;

TBook.Active:=true;

TDeal.Active:=true;

Tclient.Active:=true;

TFlat.Active:=true;

THistory.Active:=true;

TOperation.Active:=true;

TPrice.Active:=true;

TRequest.Active:=true;

end;

 

procedure Tokno.N6Click(Sender: TObject);//агенты

begin

//очищаем метки выбора

NameTable.Caption:='СПИСОК АГЕНТОВ';

tableout.DataSource:=datasourceagent;

Tableout.Visible:=true;

if (sortirovka.ItemIndex > (-1)) then sortirovka.Items.clear;

sortirovka.Items.Add(' номеру');

sortirovka.Items.add('по фамилии (возр.)');

sortirovka.Items.add('по фамилии (убыв.)');

sortirovka.Itemindex:=0;

tabnum:=11;

end;

 

procedure Tokno.N7Click(Sender: TObject); //операции

begin

NameTable.Caption:='СПРАВОЧНИК ОПЕРАЦИЙ';

tableout.DataSource:=datasourceOperation;

Tableout.Visible:=true;

if (sortirovka.ItemIndex > (-1)) then sortirovka.Items.clear;

tabnum:=12;

end;

 

procedure Tokno.N8Click(Sender: TObject); //справочник районов

begin

NameTable.Caption:='СПРАВОЧНИК РАЙОНОВ';

tableout.DataSource:=datasourcebook;

Tableout.Visible:=true;

if (sortirovka.ItemIndex > (-1)) then sortirovka.Items.clear;

tabnum:=13;

end;

 

 

procedure Tokno.N11Click(Sender: TObject); //клиенты

begin

//очищаем метки выбора

if (sortirovka.ItemIndex > (-1)) then sortirovka.Items.clear;

NameTable.Caption:='СПИСОК КЛИЕНТОВ';

tableout.DataSource:=datasourCeclient;

Tableout.Visible:=true;

sortirovka.Items.Add('по номеру');

sortirovka.Items.add('по фамилии (возр.)');

sortirovka.Items.add('по фамилии (убыв.)');

sortirovka.Items.add('по номеру телефона');

sortirovka.Itemindex:=0;

tabnum:=22;

end;

 

procedure Tokno.N10Click(Sender: TObject);//заявки

begin

NameTable.Caption:='СПИСОК ЗАЯВОК';

tableout.DataSource:=datasourceRequest;

Tableout.Visible:=true;

if (sortirovka.ItemIndex > (-1)) then sortirovka.Items.clear;

sortirovka.Items.Add('по номеру заявки');

sortirovka.Items.add('по номеру клиента');

sortirovka.Items.add('по коду операции и сумме');

sortirovka.Items.add('по дате');

sortirovka.Itemindex:=0;

tabnum:=21;

end;

 

procedure Tokno.N12Click(Sender: TObject); //квартиры

begin

NameTable.Caption:='СПИСОК КВАРТИР';

tableout.DataSource:=datasourceFlat;

Tableout.Visible:=true;

tabnum:=23;

if (sortirovka.ItemIndex > (-1)) then sortirovka.Items.clear;

sortirovka.Items.Add('по номеру квартиры');

sortirovka.Items.add('по коду операции');

sortirovka.Items.add('по цене (возр.)');

sortirovka.Items.add('по цене (убыв.)');

sortirovka.Items.add('по кол-ву комнат');

sortirovka.Items.add('по площади');

sortirovka.Itemindex:=0;

end;

 

procedure Tokno.N13Click(Sender: TObject);//сделки

begin

NameTable.Caption:='СПИСОК ЗАКЛЮЧЕННЫХ СДЕЛОК';

tableout.DataSource:=datasourceDeal;

Tableout.Visible:=true;

tabnum:=24;

if (sortirovka.ItemIndex > (-1)) then sortirovka.Items.clear;

sortirovka.Items.Add('по номеру сделки');

sortirovka.Items.add('по номеру клиента');

sortirovka.Items.add('по номеру квартиры');

sortirovka.Items.add('по номеру агента');

sortirovka.Items.add('по дате');

sortirovka.Itemindex:=0;

end;

 

 

procedure Tokno.N15Click(Sender: TObject);//история цен

begin

NameTable.Caption:='ИСТОИРЯ ИЗМЕНЕНИЯ СТОИМОСТИ КВАРТИР';

tableout.DataSource:=datasourceHistory;

Tableout.Visible:=true;

if (sortirovka.ItemIndex > (-1)) then sortirovka.Items.clear;

tabnum:=31;

end;

 

procedure Tokno.N16Click(Sender: TObject); //цены

begin

NameTable.Caption:='ЦЕНА КВАРТИРЫ';

tableout.DataSource:=datasourcePrice;

Tableout.Visible:=true;

if (sortirovka.ItemIndex > (-1)) then sortirovka.Items.clear;

sortirovka.Items.Add('по номеру заявки');

sortirovka.Items.Add('по коду операции и цене');

sortirovka.Itemindex:=0;

tabnum:=32;

end;

 

procedure Tokno.FormDestroy(Sender: TObject);

begin//отключаемся от базы данных

tAgent.Active:=false;

TBook.Active:=false;

Tclient.Active:=false;

TDeal.Active:=false;

TFlat.Active:=false;

THistory.Active:=false;

TOperation.Active:=false;

TPrice.Active:=false;

TRequest.Active:=false;

end;

 

procedure Tokno.N18Click(Sender: TObject);//открыть окно редактирования

begin

if tableout.DataSource=dataSourceAgent then formAgent.show;

if tableout.DataSource=dataSourceBook then formBook.show;

if tableout.DataSource=dataSourceClient then formClient.show;

if tableout.DataSource=dataSourceFlat then formFlat.show;

if tableout.DataSource=dataSourceOperation then formOperation.show;

if tableout.DataSource=dataSourceDeal then formDeal.show;

if tableout.DataSource=dataSourceRequest then formRequest.show;

end;

 

procedure Tokno.N20Click(Sender: TObject); //закрытие окон редактирования

begin

formAgent.hide;

formBook.hide;

formClient.hide;

formFlat.hide;

formOperation.hide;

formDeal.hide;

formPrice.hide;

formRequest.hide;

end;

 

procedure Tokno.N4Click(Sender: TObject);

begin

okno.Close;

end;

 

//сортировка таблицы по  выбранному параметру

procedure Tokno.SortirovkaClick(Sender: TObject);

begin

case tabnum of  //какая именно таблица выбрана?

11:

  begin

  case sortirovka.ItemIndex of

    0: TAgent.IndexName:='';

    1: TAgent.IndexName:='AgFamNsn-i-minmax';

    2: TAgent.IndexName:='AgFamNSn-i-maxmin';

    end;

  end;

12:;//сортировка не требуется

13:;//сортировка не требуется

21:

  begin //список заявок

  case sortirovka.ItemIndex of

    0: TRequest.IndexName:='';

    1: TRequest.IndexName:='ClNum';

    2: TRequest.IndexName:='opcode-reqprice';

    3: TRequest.IndexName:='rqedate-i-';

    end;

  end;

22:

  begin

    case sortirovka.ItemIndex of

    0: TClient.IndexName:='';

    1: TClient.IndexName:='ClFamNSn-i-minmax';

    2: TClient.IndexName:='ClFamNSn-i-maxmin';

    3: TClient.IndexName:='Clphone-i-';

    end;

  end;

23:

  begin

  case sortirovka.ItemIndex of

    0: TFlat.IndexName:='';

    1: TFlat.IndexName:='opcode-i-';

    2: TFlat.IndexName:='FlPrice-i-minmax';

    3: TFlat.IndexName:='FlPrice-i-maxmin';

    4: TFlat.IndexName:='Flroom-i-minmax';

    5: TFlat.IndexName:='FlSq-i-minmax';

    end;

  end;

24:

  begin

   case sortirovka.ItemIndex of

    0: TDeal.IndexName:='';

    1: TDeal.IndexName:='ClNum';

    2: TDeal.IndexName:='Flnum';

    3: TDeal.IndexName:='AgNum-i-';

    4: TDeal.IndexName:='DealDate-i-';

    end;

  end; 

31:;//сортировка не требуется

32:

  begin

  case sortirovka.ItemIndex of

    0: TPrice.IndexName:='';

    1: TPrice.IndexName:='opcode-reqprice';

    end;

  end;

end;

end;

 

procedure Tokno.Button1Click(Sender: TObject);

begin

if (edit2.text='') and (edit1.text='') then showmessage('вы не ввели значения!');

if (edit1.text<>'') and (edit2.Text='') then

    begin

    TClient.filtered:=true;

    TClient.filter:= 'clfam =' +chr(39)+edit1.text +chr(39);

    end

else

  if (edit2.text<>'') and (edit1.Text='') then

     begin

    TClient.filtered:=true;

    TClient.filter:= 'clphone =' +chr(39)+edit2.text +chr(39);

    end

else

  begin

    TClient.filtered:=true;

    TClient.filter:= '(clphone =' +chr(39)+edit2.text +chr(39)+')'+'and'+'(clfam ='

                      +chr(39)+edit1.text +chr(39)+')';

  end;

end;

 

 

procedure Tokno.Button2Click(Sender: TObject);

begin

TFlat.filtered:=true;

TFlat.filter:= '(Flroom ='+edit3.Text+')and (FlFlor > 1)' ;

end;

 

procedure Tokno.Button3Click(Sender: TObject);

var s1,s2,s3:string;

begin

s1:=edit4.text;

s2:=edit5.Text;

s3:=edit6.Text;

if ((s1='') or (s2='') or (s3='')) then showmessage('вы ввели не все данные!')

else

   TFlat.filter:='(flsq>'+s1+')and( flsq<'+s2+')and(flplace='+chr(39)+s3+chr(39)+')';

TFlat.filtered:=true;

end;

 

procedure Tokno.Button4Click(Sender: TObject);

begin

TFlat.filter:='';

TFlat.filtered:=false;

TClient.filter:='';

TClient.filtered:=false;

end;

 

procedure Tokno.Button5Click(Sender: TObject);

var s:string;

begin

s:='select count (*) from '+chr(39)+'bd\TFlat'+chr(39)+' where FlPlace Like'+chr(39)+Edit7.Text+chr(39);

query1.SQL.Add(s);

{//query1.Active:=true;

query1.Open;

edit8.Text:=inttostr(query1.rowsaffected);

query1.Active:=false;

TFlat.Active:=true; }

end;

 

procedure Tokno.N24Click(Sender: TObject);

begin //группировка по районам и кол-ву комнат

 TFlat.IndexName:='room-place-i';

end;

 

end.