АРМ менеджера по продаже недвижимости

unit Unit1;

interface

uses

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

Dialogs, StdCtrls;

type

TForm1 = class(TForm)

Button1: TButton;

Button2: TButton;

procedure Button1Click(Sender: TObject);

procedure Button2Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form1: TForm1;

implementation

uses Unit10, Unit11, Unit12, Unit2, Unit3, Unit4, Unit5, Unit6, Unit7,

Unit8, Unit9;

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);

begin

form3.Visible:=true;

form1.Visible:=false;

end;

procedure TForm1.Button2Click(Sender: TObject);

begin

form2.Visible:=true;

end;

end.

// форма для просмотра отчетов

unit Unit2;

interface

uses

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

Dialogs, StdCtrls, DB, DBTables, Grids, DBGrids, Mask, DBCtrls, ExtCtrls,

RpDefine, RpCon, RpConDS, RpConBDE, RpRave;

type

TForm2 = class(TForm)

Image1: TImage;

Bevel1: TBevel;

Label1: TLabel;

RvTableConnection1: TRvTableConnection;

RvTableConnection2: TRvTableConnection;

RvProject1: TRvProject;

RvTableConnection3: TRvTableConnection;

RvProject2: TRvProject;

Label2: TLabel;

Label3: TLabel;

RvProject3: TRvProject;

procedure Label1Click(Sender: TObject);

procedure Label2Click(Sender: TObject);

procedure Label3Click(Sender: TObject);

procedure FormActivate(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form2: TForm2;

implementation

uses Unit1, Unit10, Unit11, Unit12, Unit3, Unit4, Unit5, Unit6, Unit7,

Unit8, Unit9;

{$R *.dfm}

procedure TForm2.Label1Click(Sender: TObject);

begin

rvProject1.Execute;

end;

procedure TForm2.Label2Click(Sender: TObject);

begin

rvProject2.Execute;

end;

procedure TForm2.Label3Click(Sender: TObject);

begin

rvProject3.Execute;

end;

procedure TForm2.FormActivate(Sender: TObject);

begin

form2.Width:=450;

form2.Height:=202;

end;

end.

// главная форма приложения

unit Unit3;

interface

uses

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

Dialogs, StdCtrls, Menus, jpeg, ExtCtrls;

type

TForm3 = class(TForm)

MainMenu1: TMainMenu;

N1: TMenuItem;

N2: TMenuItem;

N3: TMenuItem;

N4: TMenuItem;

N5: TMenuItem;

N6: TMenuItem;

Image1: TImage;

Image2: TImage;

N8: TMenuItem;

N15: TMenuItem;

N16: TMenuItem;

N17: TMenuItem;

N18: TMenuItem;

N7: TMenuItem;

N9: TMenuItem;

N10: TMenuItem;

N11: TMenuItem;

N12: TMenuItem;

N13: TMenuItem;

procedure Button1Click(Sender: TObject);

procedure N3Click(Sender: TObject);

procedure N4Click(Sender: TObject);

procedure N5Click(Sender: TObject);

procedure N6Click(Sender: TObject);

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

procedure FormActivate(Sender: TObject);

procedure Image2Click(Sender: TObject);

procedure N10Click(Sender: TObject);

procedure N16Click(Sender: TObject);

procedure N11Click(Sender: TObject);

procedure N9Click(Sender: TObject);

procedure N18Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form3: TForm3;

implementation

uses Unit1, Unit10, Unit11, Unit12, Unit2, Unit4, Unit5, Unit6, Unit7,

Unit8, Unit9, Unit13, Unit14, Unit15;

{$R *.dfm}

procedure TForm3.N16Click(Sender: TObject);

begin

form12.Visible:=true;

end;

procedure TForm3.N11Click(Sender: TObject);

begin

form12.Visible:=true;

end;

procedure TForm3.N9Click(Sender: TObject);

begin

form14.Visible:=true;

end;

procedure TForm3.N18Click(Sender: TObject);

begin

form2.Visible:=true;

end;

end.

// справочник о сотрудниках

unit Unit4;

interface

uses

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

Dialogs, Menus, ExtCtrls, DBCtrls, StdCtrls, Mask, jpeg, DB, DBTables;

type

TForm4 = class(TForm)

MainMenu1: TMainMenu;

N1: TMenuItem;

thyenmcz1: TMenuItem;

DBEdit1: TDBEdit;

Label1: TLabel;

DBEdit2: TDBEdit;

Label2: TLabel;

DBImage1: TDBImage;

DBMemo1: TDBMemo;

Label3: TLabel;

DBEdit3: TDBEdit;

DBEdit4: TDBEdit;

Label4: TLabel;

Label5: TLabel;

DBEdit5: TDBEdit;

DBLookupComboBox1: TDBLookupComboBox;

Label6: TLabel;

DBLookupComboBox2: TDBLookupComboBox;

Label7: TLabel;

Label8: TLabel;

N7: TMenuItem;

N8: TMenuItem;

Image2: TImage;

procedure TForm4.Image5Click(Sender: TObject);

begin

form5.Table1.Last;

end;

procedure TForm4.Image4Click(Sender: TObject);

begin

form5.Table1.First;

end;

procedure TForm4.Image2Click(Sender: TObject);

begin

form5.Table1.Next;

end;

procedure TForm4.Image3Click(Sender: TObject);

begin

form5.Table1.Prior;

end;

procedure TForm4.FormActivate(Sender: TObject);

begin

form4.Left:=195;

form4.Top:=155;

form4.AutoSize:=true;

end;

procedure TForm4.N16Click(Sender: TObject);

begin

form11.Visible:=true;

end;

procedure TForm4.N15Click(Sender: TObject);

begin

form5.Visible:=true;

form4.Visible:=false;

end;

end.

//табличные данные о сотрудниках

unit Unit5;

interface

uses

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

Dialogs, Menus, DB, DBTables, ExtCtrls, DBCtrls, Grids, DBGrids,

StdCtrls, Buttons, ComCtrls;

type

TForm5 = class(TForm)

MainMenu1: TMainMenu;

implementation

uses Unit1, Unit10, Unit11, Unit12, Unit2, Unit3, Unit4, Unit6, Unit7,

Unit8, Unit9;

{$R *.dfm}

procedure TForm5.N1Click(Sender: TObject);

begin

form4.Visible:=true;

form5.Visible:=false;

end;

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

begin

form5.Visible:=false;

form3.Visible:=true;

form3.Enabled:=true;

end;

procedure TForm5.FormActivate(Sender: TObject);

begin

form5.Height:=325;

form5.Width:=650;

form5.Left:=190;

form5.Top:=211;

form5.Table1.Active:=true;

end;

procedure TForm5.FormConstrainedResize(Sender: TObject; var MinWidth,

MinHeight, MaxWidth, MaxHeight: Integer);

begin

form5.DBGrid1.Height:=form5.Height-75;

form5.DBGrid1.Width:=form5.Width-10;

form5.Panel1.Left:=round(form5.Width/2)-150;

form5.Panel1.Top:=form5.Height-75;

end;

procedure TForm5.N4Click(Sender: TObject);

begin

form5.Table1.Edit;

end;

procedure TForm5.N5Click(Sender: TObject);

begin

form5.Table1.Delete;

end;

MainMenu1: TMainMenu;

N1: TMenuItem;

N2: TMenuItem;

N4: TMenuItem;

DBEdit1: TDBEdit;

DBEdit2: TDBEdit;

DBEdit3: TDBEdit;

DBEdit4: TDBEdit;

DBEdit5: TDBEdit;

Label1: TLabel;

Label2: TLabel;

Label3: TLabel;

Label4: TLabel;

Label5: TLabel;

Image2: TImage;

Image3: TImage;

Image4: TImage;

Image5: TImage;

Label6: TLabel;

Panel1: TPanel;

N3: TMenuItem;

N5: TMenuItem;

N6: TMenuItem;

N7: TMenuItem;

N8: TMenuItem;

N9: TMenuItem;

N10: TMenuItem;

N11: TMenuItem;

procedure N3Click(Sender: TObject);

procedure N2Click(Sender: TObject);

procedure N6Click(Sender: TObject);

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

procedure FormActivate(Sender: TObject);

procedure Image3Click(Sender: TObject);

procedure Image2Click(Sender: TObject);

procedure Image4Click(Sender: TObject);

procedure Image5Click(Sender: TObject);

procedure N5Click(Sender: TObject);

procedure N7Click(Sender: TObject);

procedure N8Click(Sender: TObject);

procedure N9Click(Sender: TObject);

procedure N10Click(Sender: TObject);

procedure N11Click(Sender: TObject);

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

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form6: TForm6;

procedure TForm6.Image4Click(Sender: TObject);

begin

form9.Table3.Active:=true;

form9.Table3.Next;

end;

procedure TForm6.Image5Click(Sender: TObject);

begin

form9.Table3.Active:=true;

form9.Table3.Last;

end;

procedure TForm6.N5Click(Sender: TObject);

begin

form7.Visible:=true;

form6.Visible:=false;

end;

procedure TForm6.N7Click(Sender: TObject);

begin

form9.Table3.Active:=true;

form9.Table3.Insert;

end;

procedure TForm6.N8Click(Sender: TObject);

begin

form9.Table3.Active:=true;

form9.Table3.Delete;

end;

procedure TForm6.N9Click(Sender: TObject);

begin

form9.Table3.Active:=true;

form9.Table3.Edit;

end;

procedure TForm6.N10Click(Sender: TObject);

begin

form9.Table3.Active:=true;

form9.Table3.Post;

end;

procedure TForm6.N11Click(Sender: TObject);

begin

form9.Table3.Active:=true;

form9.Table3.Cancel;

end;

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

begin

form6.Visible:=false;

var

Form7: TForm7;

implementation

uses Unit1, Unit10, Unit11, Unit12, Unit2, Unit3, Unit4, Unit5, Unit6,

Unit8, Unit9;

{$R *.dfm}

procedure TForm7.N3Click(Sender: TObject);

begin

form7.Visible:=false;

form6.Visible:=true;

end;

procedure TForm7.N2Click(Sender: TObject);

begin

form1.Close;

end;

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

begin

form3.Visible:=true;

form7.Visible:=false;

form3.Enabled:=true;

end;

procedure TForm7.FormConstrainedResize(Sender: TObject; var MinWidth,

MinHeight, MaxWidth, MaxHeight: Integer);

begin

form7.DBGrid1.Height:=form7.Height-75;

form7.DBGrid1.Width:=form7.Width-10;

form7.Panel1.Left:=round(form7.Width/2)-150;

form7.Panel1.Top:=form7.Height-75;

end;

procedure TForm7.FormActivate(Sender: TObject);

begin

form7.Height:=325;

form7.Width:=650;

form7.Left:=190;

form7.Top:=211;

form9.Table3.Active:=true;

end;

procedure TForm7.N4Click(Sender: TObject);

begin

form9.Table3.Edit;

end;

type

TForm8 = class(TForm)

MainMenu1: TMainMenu;

N1: TMenuItem;

N7: TMenuItem;

DBEdit1: TDBEdit;

DBEdit2: TDBEdit;

DBEdit3: TDBEdit;

DBEdit4: TDBEdit;

DBEdit5: TDBEdit;

DBEdit6: TDBEdit;

DBEdit7: TDBEdit;

DBEdit8: TDBEdit;

DBEdit9: TDBEdit;

DBMemo1: TDBMemo;

DBCheckBox1: TDBCheckBox;

DBCheckBox2: TDBCheckBox;

DBCheckBox3: TDBCheckBox;

DBCheckBox4: TDBCheckBox;

DBLookupComboBox1: TDBLookupComboBox;

Table1: TTable;

DataSource1: TDataSource;

Table1ID_kv: TAutoIncField;

Table1RNN_kl: TStringField;

Table1Kol_kom: TIntegerField;

Table1Zena: TIntegerField;

Table1Uliza: TStringField;

Table1Dom: TStringField;

Table1Kv: TIntegerField;

Table1Ploshad: TFloatField;

Table1Etag: TStringField;

Table1Lift: TBooleanField;

Table1Remont: TBooleanField;

Table1Balkon: TBooleanField;

Table1Telefon: TBooleanField;

Table1Status: TStringField;

Table1Dop: TMemoField;

Table2: TTable;

Table1st: TStringField;

Table3: TTable;

Table1FIO: TStringField;

DBLookupComboBox2: TDBLookupComboBox;

Label8: TLabel;

Bevel1: TBevel;

Label9: TLabel;

Image2: TImage;

Image3: TImage;

Image4: TImage;

Image5: TImage;

N2: TMenuItem;

N8: TMenuItem;

{$R *.dfm}

procedure TForm8.N2Click(Sender: TObject);

begin

form1.Close;

end;

procedure TForm8.N7Click(Sender: TObject);

begin

form3.Enabled:=true;

form3.Visible:=true;

form8.Visible:=false;

end;

procedure TForm8.N5Click(Sender: TObject);

begin

form9.Visible:=true;

form8.Visible:=false;

end;

procedure TForm8.N6Click(Sender: TObject);

begin

form8.Table1.Insert;

end;

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

begin

Form8.Visible:=false;

form3.Visible:=true;

form3.Enabled:=true;

end;

procedure TForm8.FormActivate(Sender: TObject);

begin

form15.Table2.Active:=false;

form9.Table1.Active:=false;

form8.Table1.Active:=true;

form8.Table2.Active:=true;

form9.Table2.Active:=false;

form8.Table3.Active:=true;

form9.Table3.Active:=false;

form8.Left:=210;

form8.Top:=155;

form8.AutoSize:=true;

if form8.Table1Status.Value='2' then begin

form8.Label2.Visible:=false;

form8.Label3.Visible:=false;

form8.DBEdit8.Visible:=false;

form8.DBEdit9.Visible:=false;

end;

if form8.Table1Status.Value='1' then begin

form8.Label3.Visible:=true;

form8.DBEdit8.Visible:=true;

form8.DBEdit9.Visible:=true;

end;

end;

procedure TForm8.Image5Click(Sender: TObject);

begin

form8.Table1.First;

if form8.Table1Status.Value='2' then begin

form8.Label2.Visible:=false;

form8.Label3.Visible:=false;

form8.DBEdit8.Visible:=false;

form8.DBEdit9.Visible:=false;

end;

if form8.Table1Status.Value='1' then begin

form8.Label2.Visible:=true;

form8.Label3.Visible:=true;

form8.DBEdit8.Visible:=true;

form8.DBEdit9.Visible:=true;

end;

end;

procedure TForm8.N8Click(Sender: TObject);

begin

form9.Visible:=true;

form8.Visible:=false;

end;

procedure TForm8.N9Click(Sender: TObject);

begin

form10.Visible:=true;

end;

procedure TForm8.N10Click(Sender: TObject);

begin

form8.Table1.Delete;

end;

procedure TForm8.N11Click(Sender: TObject);

begin

Form8.Table1.Edit;

end;

procedure TForm8.N12Click(Sender: TObject);

begin

Form8.Table1.Post;

end;

procedure TForm8.N13Click(Sender: TObject);

begin

form8.Table1.Cancel;

Table3Adres_kl: TStringField;

Table3Telefon_dom: TStringField;

Table3Telefon_sot: TStringField;

Table2ID_status: TStringField;

Table2Status: TStringField;

procedure N2Click(Sender: TObject);

procedure N3Click(Sender: TObject);

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

procedure FormConstrainedResize(Sender: TObject; var MinWidth,

MinHeight, MaxWidth, MaxHeight: Integer);

procedure FormActivate(Sender: TObject);

procedure N4Click(Sender: TObject);

procedure N5Click(Sender: TObject);

procedure N6Click(Sender: TObject);

procedure N7Click(Sender: TObject);

procedure N8Click(Sender: TObject);

procedure Image1Click(Sender: TObject);

procedure Image2Click(Sender: TObject);

procedure Image3Click(Sender: TObject);

procedure Image4Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form9: TForm9;

implementation

uses Unit1, Unit10, Unit11, Unit12, Unit2, Unit3, Unit4, Unit5, Unit6,

Unit7, Unit8, Unit13, Unit14, Unit15;

{$R *.dfm}

procedure TForm9.N2Click(Sender: TObject);

begin

form1.Close;

end;

procedure TForm9.N3Click(Sender: TObject);

begin

form8.Visible:=true;

form9.Visible:=false;

end;

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

begin

form9.Visible:=false;

form3.Visible:=true;

end;

procedure TForm9.Image1Click(Sender: TObject);

begin

form9.Table1.First;

end;

procedure TForm9.Image2Click(Sender: TObject);

begin

form9.Table1.Prior;

end;

procedure TForm9.Image3Click(Sender: TObject);

begin

form9.Table1.Next;

end;

procedure TForm9.Image4Click(Sender: TObject);

begin

form9.Table1.Last;

end;

end.

//справочник – Статус квартир

unit Unit10;

interface

uses

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

Dialogs, Menus, ExtCtrls, DBCtrls, Grids, DBGrids, DB, DBTables;

type

TForm10 = class(TForm)

DataSource1: TDataSource;

DBGrid1: TDBGrid;

MainMenu1: TMainMenu;

N1: TMenuItem;

N2: TMenuItem;

N3: TMenuItem;

N4: TMenuItem;

N5: TMenuItem;

procedure N2Click(Sender: TObject);

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

procedure FormConstrainedResize(Sender: TObject; var MinWidth,

MinHeight, MaxWidth, MaxHeight: Integer);

procedure FormActivate(Sender: TObject);

procedure N5Click(Sender: TObject);

procedure N3Click(Sender: TObject);

procedure N4Click(Sender: TObject);

procedure N1Click(Sender: TObject);

end;

procedure TForm10.N4Click(Sender: TObject);

begin

form9.Table2.Refresh;

end;

procedure TForm10.N1Click(Sender: TObject);

begin

form9.Table2.Edit;

end;

end.

//справочник –должность сотрудника

unit Unit11;

interface

uses

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

Dialogs, DB, DBTables, ExtCtrls, DBCtrls, Grids, DBGrids, Menus;

type

TForm11 = class(TForm)

DataSource1: TDataSource;

DBGrid1: TDBGrid;

Table1: TTable;

Table1ID_dogn: TAutoIncField;

Table1Dolgn: TStringField;

Table1Zarplata: TIntegerField;

MainMenu1: TMainMenu;

N1: TMenuItem;

N2: TMenuItem;

N3: TMenuItem;

N4: TMenuItem;

N5: TMenuItem;

procedure N1Click(Sender: TObject);

procedure N2Click(Sender: TObject);

procedure N3Click(Sender: TObject);

procedure N4Click(Sender: TObject);

procedure N5Click(Sender: TObject);

procedure FormConstrainedResize(Sender: TObject; var MinWidth,

MinHeight, MaxWidth, MaxHeight: Integer);

procedure FormActivate(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

//поиск данных в архиве предложений

unit Unit12;

interface

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics,

Controls, Forms,Dialogs, StdCtrls, ExtCtrls, Mask, DBCtrls,

Menus, Buttons, DB, Grids DBGrids, DBTables;

type

TForm12 = class(TForm)

Panel1: TPanel;

MainMenu1: TMainMenu;

N1: TMenuItem;

N2: TMenuItem;

Label1: TLabel;

CheckBox1: TCheckBox;

Edit1: TEdit;

Edit2: TEdit;

Edit3: TEdit;

Bevel1: TBevel;

CheckBox2: TCheckBox;

CheckBox3: TCheckBox;

Bevel2: TBevel;

CheckBox4: TCheckBox;

Edit4: TEdit;

Bevel3: TBevel;

CheckBox5: TCheckBox;

Edit5: TEdit;

CheckBox10: TCheckBox;

Edit6: TEdit;

BitBtn1: TBitBtn;

DBGrid1: TDBGrid;

Query1: TQuery;

DataSource1: TDataSource;

CheckBox11: TCheckBox;

CheckBox12: TCheckBox;

CheckBox13: TCheckBox;

CheckBox14: TCheckBox;

CheckBox15: TCheckBox;

procedure FormActivate(Sender: TObject);

procedure CheckBox1Click(Sender: TObject);

procedure CheckBox2Click(Sender: TObject);

procedure CheckBox3Click(Sender: TObject);

procedure CheckBox4Click(Sender: TObject);

procedure CheckBox5Click(Sender: TObject);

procedure CheckBox10Click(Sender: TObject);

procedure BitBtn1Click(Sender: TObject);

procedure CheckBox6Click(Sender: TObject);

procedure CheckBox7Click(Sender: TObject);

procedure CheckBox8Click(Sender: TObject);

procedure CheckBox9Click(Sender: TObject);

edit2.Enabled:=false;

edit3.Enabled:=false;

edit4.Enabled:=false;

edit5.Enabled:=false;

edit6.Enabled:=false;

CheckBox11.Enabled:=false;

CheckBox12.Enabled:=false;

CheckBox5.Enabled:=false;

CheckBox10.Enabled:=false;

end;

procedure TForm12.CheckBox1Click(Sender: TObject);

begin

if CheckBox1.Checked=true then begin

edit1.Color:=clWhite;

edit1.Enabled:=true;

checkbox2.Checked:=false;

checkbox3.Checked:=false;

checkbox4.Checked:=false;

checkbox5.Checked:=false;

checkbox10.Checked:=false;

checkbox13.Checked:=false;

checkbox14.Checked:=false;

end;

if CheckBox1.Checked=false then begin

Edit1.Color:=$00C4C4C4;

edit1.Enabled:=false;

end;

end;

procedure TForm12.CheckBox2Click(Sender: TObject);

begin

if CheckBox2.Checked=true then begin

edit2.Color:=clWhite;

edit2.Enabled:=true;

CheckBox1.Checked:=false;

Edit1.Color:=$00C4C4C4;

edit1.Enabled:=false;

end;

if CheckBox2.Checked=false then begin

Edit2.Color:=$00C4C4C4;

edit2.Enabled:=false;

end;

end;

procedure TForm12.CheckBox3Click(Sender: TObject);

begin

if CheckBox3.Checked=true then begin

edit3.Color:=clWhite;

edit3.Enabled:=true;

procedure TForm12.CheckBox10Click(Sender: TObject);

begin

if CheckBox10.Checked=true then begin

edit6.Color:=clWhite;

edit6.Enabled:=true;

CheckBox1.Checked:=false;

Edit1.Color:=$00C4C4C4;

edit1.Enabled:=false;

end;

if CheckBox10.Checked=false then begin

Edit6.Color:=$00C4C4C4;

edit6.Enabled:=false;

end;

end;

procedure TForm12.BitBtn1Click(Sender: TObject);

begin

if checkbox1.Checked=true then

if checkbox2.Checked=false then

if checkbox3.Checked=false then

if checkbox4.Checked=false then

if checkbox5.Checked=false then

if checkbox10.Checked=false then

if checkbox13.Checked=false then

if checkbox14.Checked=false then begin

Query1.Close;

Query1.SQL.Clear;

Query1.SQL.Text:='SELECT Status.Status as Статус,ID_kv as

Квартира,RNN_kl as РНН, Kol_kom as Комнат, Zena as Цена,Uliza as

Улица, Dom as Домм, Kv as Квартира, Ploshad as Площадь, Etag as

Этаж FROM Predlogenia, Status WHERE(ID_kv="'+Edit1.Text+'")

AND(Predlogenia.Status=ID_status)';

Query1.Open;

end;

if checkbox1.Checked=false then

if checkbox2.Checked=true then

if checkbox3.Checked=false then

if checkbox4.Checked=false then

if checkbox5.Checked=false then

if checkbox10.Checked=false then

if checkbox13.Checked=false then

if checkbox14.Checked=false then begin

Query1.Close;

Query1.SQL.Clear;

Query1.SQL.Text:='SELECT ID_kv as Код, Status.Status

as Статус, RNN_kl as РНН, Kol_kom as Комнат, Zena as Цена,Uliza

as Улица, Dom as Дом, Kv as Квартира, Ploshad as Площадь, Etag

as Этаж FROM Predlogenia, Status WHERE(

Query1.Close;

Query1.SQL.Clear;

Query1.SQL.Text:='SELECT ID_kv as Номер, Status.Status

as Статус,RNN_kl as РНН, Kol_kom as Комнат, Zena as Цена,Uliza

as Улица, Dom as Дом, Kv as Квартира, Ploshad as Площадь, Etag

as Этаж FROM Predlogenia, Status WHERE(Zena="'+Edit3.Text+'")

AND(Predlogenia.Status=ID_status)';

Query1.Open;

end;

if checkbox1.Checked=false then

if checkbox2.Checked=false then

if checkbox3.Checked=true then

if checkbox4.Checked=false then

if checkbox5.Checked=false then

if checkbox10.Checked=false then

if checkbox11.Checked=false then

if checkbox12.Checked=false then

if checkbox13.Checked=true then

if checkbox14.Checked=false then begin

Query1.Close;

Query1.SQL.Clear;

Query1.SQL.Text:='SELECT ID_kv as Номер, Status.Status as

Статус,RNN_kl as РНН, Kol_kom as Комнат, Zena as Цена,Uliza as

Улица, Dom as Дом, Kv as Квартира, Ploshad as Площадь, Etag as

Этаж FROM Predlogenia, Status WHERE(Zena="'+Edit3.Text+'")

AND(Predlogenia.status="2")AND(Predlogenia.Status=ID_status)';

Query1.Open;

end;

if checkbox1.Checked=false then

if checkbox2.Checked=false then

if checkbox3.Checked=true then

if checkbox4.Checked=false then

if checkbox5.Checked=false then

if checkbox10.Checked=false then

if checkbox11.Checked=false then

if checkbox12.Checked=false then

if checkbox13.Checked=false then

if checkbox14.Checked=true then begin

Query1.Close;

Query1.SQL.Clear;

Query1.SQL.Text:='SELECT ID_kv as Номер, Status.Status as

Статус,RNN_kl as РНН, Kol_kom as Комнат, Zena as Цена,Uliza

As Улица, Dom as Дом, Kv as Квартира, Ploshad as Площадь, Etag as Этаж FROM Predlogenia, Status WHERE(Zena="'+Edit3.Text+'")

AND(Predlogenia.status="1")AND(Predlogenia.Status=ID_status)';

Query1.Open;

end;

if checkbox1.Checked=false then

Query1.SQL.Text:='SELECT ID_kv as Номер, Status.Status as

Статус,RNN_kl as РНН, Kol_kom as Комнат, Zena as Цена,Uliza as

Улица, Dom as Дом, Kv as Квартира, Ploshad as Площадь, Etag as

Этаж FROM Predlogenia, Status WHERE(Zena<"'+Edit3.Text+'")

AND(Predlogenia.Status="2")And (Predlogenia.Status=ID_status)';

Query1.Open;

end;

if checkbox1.Checked=false then

if checkbox2.Checked=false then

if checkbox3.Checked=true then

if checkbox4.Checked=false then

if checkbox5.Checked=false then

if checkbox10.Checked=false then

if checkbox11.Checked=true then

if checkbox12.Checked=false then

if checkbox13.Checked=false then

if checkbox14.Checked=true then begin

Query1.Close;

Query1.SQL.Clear;

Query1.SQL.Text:='SELECT ID_kv as Номер, Status.Status as

Статус,RNN_kl as РНН, Kol_kom as Комнат, Zena as Цена,Uliza as Улица, Dom as Дом, Kv as Квартира, Ploshad as Площадь, Etag as

Этаж FROM Predlogenia, Status WHERE(Zena<"'+Edit3.Text+'")

AND(Predlogenia.Status="1")And (Predlogenia.Status=ID_status)';

Query1.Open;

end;

if checkbox1.Checked=false then

if checkbox2.Checked=false then

if checkbox3.Checked=true then

if checkbox4.Checked=false then

if checkbox5.Checked=false then

if checkbox10.Checked=false then

if checkbox11.Checked=false then

if checkbox12.Checked=true then

if checkbox13.Checked=true then

if checkbox14.Checked=false then begin

Query1.Close;

Query1.SQL.Clear;

Query1.SQL.Text:='SELECT ID_kv as Номер, Status.Status as

Статус,RNN_kl as РННН, Kol_kom as Комнат, Zena as Цена,

Uliza as Улица, Dom as Дом, Kv as Квартира, Ploshad as Площадь, Etag as Этаж FROM Predlogenia, Status WHERE (Zena>"'+Edit3.Text+'") AND(Predlogenia.Status="2")And (Predlogenia.Status=ID_status)';

Query1.Open;

end;

if checkbox1.Checked=false then

if checkbox2.Checked=false then

end;

if checkbox1.Checked=false then

if checkbox2.Checked=false then

if checkbox3.Checked=false then

if checkbox4.Checked=true then

if checkbox5.Checked=false then

if checkbox10.Checked=false then

if checkbox13.Checked=false then

if checkbox14.Checked=true then begin

Query1.Close;

Query1.SQL.Clear;

Query1.SQL.Text:='SELECT ID_kv as Номер, Status.Status as

Статус,RNN_kl asРННН, Kol_kom as Комнат, Zena as Цена,Uliza as

Улица, Dom as Дом, Kv as Квартира, Ploshad as Площадь, Etag as

Этаж FROM Predlogenia, Status WHERE UPPER(Uliza)

LIKE UPPER("%'+Edit4.Text+'%")AND(Predlogenia.Status="1")

AND(Predlogenia.Status=ID_status)';

Query1.Open;

end;

if checkbox1.Checked=false then

if checkbox2.Checked=false then

if checkbox3.Checked=false then

if checkbox4.Checked=true then

if checkbox5.Checked=true then

if checkbox10.Checked=false then

if checkbox13.Checked=false then

if checkbox14.Checked=false then begin

Query1.Close;

Query1.SQL.Clear;

Query1.SQL.Text:='SELECT ID_kv as Номер, Status.Status as

Статус,RNN_kl as РНН, Kol_kom as Комнат, Zena as Цена,Uliza as

Улица, Dom as Дом, Kv as Квартира, Ploshad as Площадь, Etag as

Этаж FROM Predlogenia, Status WHERE UPPER(Uliza)

LIKE UPPER("%'+Edit4.Text+'%")AND(Dom="'+Edit5.Text+'")

AND(Predlogenia.Status=ID_status)';

Query1.Open;

end;

if checkbox1.Checked=false then

if checkbox2.Checked=false then

if checkbox3.Checked=false then

if checkbox4.Checked=true then

if checkbox5.Checked=true then

if checkbox10.Checked=false then

if checkbox13.Checked=true then

if checkbox14.Checked=false then begin

Query1.Close;

Query1.SQL.Clear;

Query1.SQL.Text:='SELECT ID_kv as Номер, Status.Status as

if checkbox14.Checked=false then begin

Query1.Close;

Query1.SQL.Clear;

Query1.SQL.Text:='SELECT ID_kv asНомер, Status.Status as

Статус,RNN_kl as РНН, Kol_kom as Комнат, Zena as Цена,Uliza as

Улица, Dom as Дом, Kv as Квартира, Ploshad as Площадь, Etag as

Этаж FROM Predlogenia, Status WHERE UPPER(Uliza)

LIKE UPPER("%'+Edit4.Text+'%")AND(Kv="'+Edit6.Text+'")

AND(Predlogenia.Status="2")AND(Predlogenia.Status=ID_status)';

Query1.Open;

end;

if checkbox1.Checked=false then

if checkbox2.Checked=false then

if checkbox3.Checked=false then

if checkbox4.Checked=true then

if checkbox5.Checked=false then

if checkbox10.Checked=true then

if checkbox13.Checked=false then

if checkbox14.Checked=true then begin

Query1.Close;

Query1.SQL.Clear;

Query1.SQL.Text:='SELECT ID_kv as Номер, Status.Status as

Статус,RNN_kl as РНН, Kol_kom as Комнат, Zena as Цена,Uliza as

Улица, Dom as Дом, Kv as Квартира, Ploshad as Площадь, Etag as

Этаж FROM Predlogenia, Status WHERE UPPER(Uliza)

LIKE UPPER("%'+Edit4.Text+'%")AND(Kv="'+Edit6.Text+'")

AND(Predlogenia.Status="1")AND(Predlogenia.Status=ID_status)';

Query1.Open;

end;

if checkbox1.Checked=false then

if checkbox2.Checked=false then

if checkbox3.Checked=false then

if checkbox4.Checked=true then

if checkbox5.Checked=true then

if checkbox10.Checked=true then

if checkbox13.Checked=false then

if checkbox14.Checked=true then begin

Query1.Close;

Query1.SQL.Clear;

Query1.SQL.Text:='SELECT ID_kv as Номер, Status.Status as

Статус,RNN_kl as РНН, Kol_kom as Комнат, Zena as Цена,Uliza as

Улица, Dom as Дом, Kv as Квартира, Ploshad as Площадь, Etag as

Этаж FROM Predlogenia, Status WHERE UPPER(Uliza)

LIKEUPPER("%'+Edit4.Text+'%")AND(Kv="'+Edit6.Text+'")

AND(Dom="'+Edit5.Text+'")AND(Predlogenia.Status="1")

AND(Predlogenia.Status=ID_status)';

Query1.Open;

end;

Этаж FROM Predlogenia, Status WHERE Predlogenia.Status=ID_status';

Query1.Open;

end;

if checkbox1.Checked=false then

if checkbox2.Checked=false then

if checkbox3.Checked=false then

if checkbox4.Checked=false then

if checkbox5.Checked=false then

if checkbox10.Checked=false then

if checkbox13.Checked=true then

if checkbox14.Checked=false then

if checkbox15.Checked=false then begin

Query1.Close;

Query1.SQL.Clear;

Query1.SQL.Text:='SELECT ID_kv as Номер, Status.Status as

Статус,RNN_kl as РНН, Kol_kom as Комнат, Zena as Цена,Uliza as

Улица, Dom as Дом, Kv as Квартира, Ploshad as Площадь, Etag as

Этаж FROM Predlogenia, Status WHERE (Predlogenia.Status="2")AND

(ID_status=Predlogenia.Status)';

Query1.Open;

end;

if checkbox1.Checked=false then

if checkbox2.Checked=false then

if checkbox3.Checked=false then

if checkbox4.Checked=false then

if checkbox5.Checked=false then

if checkbox10.Checked=false then

if checkbox13.Checked=false then

if checkbox14.Checked=true then

if checkbox15.Checked=false then begin

Query1.Close;

Query1.SQL.Clear;

Query1.SQL.Text:='SELECT ID_kv as Номер, Status.Status as

Статус,RNN_kl as РНН, Kol_kom as Комнат, Zena as Цена,Uliza as

Улица, Dom as Дом, Kv as Квартира, Ploshad as Площадь, Etag as

Этаж FROM Predlogenia,

Status WHERE (Predlogenia.Status="1")

AND(ID_status=Predlogenia.Status)';

Query1.Open;

end;

end;

procedure TForm12.CheckBox6Click(Sender: TObject);

else CheckBox13.Enabled:=true;

CheckBox1.Checked:=false;

Edit1.Color:=$00C4C4C4;

edit1.Enabled:=false;

end;

procedure TForm12.CheckBox15Click(Sender: TObject);

begin

if CheckBox15.Checked=true then begin

checkbox2.Checked:=false;

checkbox3.Checked:=false;

checkbox4.Checked:=false;

checkbox5.Checked:=false;

checkbox10.Checked:=false;

checkbox13.Checked:=false;

checkbox14.Checked:=false;

end;

end;

procedure TForm12.FormConstrainedResize(Sender: TObject; var MinWidth,

MinHeight, MaxWidth, MaxHeight: Integer);

begin

form12.DBGrid1.Height:=form12.Height-260;

form12.DBGrid1.Width:=form12.Width-5;

end;

end.

// интерфейс пользователя

unit Unit13;

interface

uses

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

Dialogs, ExtCtrls;

type

TForm13 = class(TForm)

Image1: TImage;

Image2: TImage;

Image3: TImage;

Image4: TImage;

Panel1: TPanel;

procedure Image4Click(Sender: TObject);

procedure Image3Click(Sender: TObject);

procedure Image2Click(Sender: TObject);

procedure Image1Click(Sender: TObject);

private

{ Private declarations }

public

DBEdit7: TDBEdit;

MainMenu1: TMainMenu;

N1: TMenuItem;

N2: TMenuItem;

N3: TMenuItem;

N4: TMenuItem;

Label1: TLabel;

DBLookupComboBox1: TDBLookupComboBox;

Label2: TLabel;

DBLookupComboBox2: TDBLookupComboBox;

Label3: TLabel;

DBLookupComboBox3: TDBLookupComboBox;

DBNavigator1: TDBNavigator;

procedure N4Click(Sender: TObject);

procedure FormActivate(Sender: TObject);

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

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form14: TForm14;

implementation

uses Unit1, Unit10, Unit11, Unit12, Unit13, Unit2, Unit3, Unit4, Unit5,

Unit6, Unit7, Unit8, Unit9, Unit15;

{$R *.dfm}

procedure TForm14.N4Click(Sender: TObject);

begin

form15.Visible:=true;

end;

procedure TForm14.FormActivate(Sender: TObject);

begin

form15.Table2.Active:=true;

form15.Table3.Active:=true;

form14.Height:=360;

form14.Width:=450;

form14.Left:=300;

form14.Top:=200;

form14.AutoSize:=true

end;

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

begin

form15.Table3.Active:=false;

form15.Table2.Active:=false;

end;

end.

// табличные данные архива сделок

unit Unit15;

interface

uses

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

Dialogs, DB, DBTables, ExtCtrls, DBCtrls, Grids, DBGrids;

type

TForm15 = class(TForm)

DataSource1: TDataSource;

DBGrid1: TDBGrid;

DBNavigator1: TDBNavigator;

Table1: TTable;

Table1ID_sd: TAutoIncField;

procedure TForm3.Button1Click(Sender: TObject);

begin

form1.Close;

end;

procedure TForm3.N3Click(Sender: TObject);

begin

form4.Visible:=true;

form3.Visible:=false;

end;

procedure TForm3.N4Click(Sender: TObject);

begin

form1.Close;

end;

procedure TForm3.N5Click(Sender: TObject);

begin

form6.Visible:=true;

form3.Visible:=false;

end;

procedure TForm3.N6Click(Sender: TObject);

begin

form8.Visible:=true;

form3.Visible:=false;

end;

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

begin

form1.Close;

end;

procedure TForm3.FormActivate(Sender: TObject);

begin

form3.AutoSize:=true;

form3.ClientHeight:=513;

form3.ClientWidth:=663;

form3.Left:=180;

form3.Top:=100;

end;

procedure TForm3.Image2Click(Sender: TObject);

begin

form13.Visible:=true;

form13.Left:=form3.Left+100;

form13.Top:=form3.Top+200;

form13.ClientHeight:=145;

form13.ClientWidth:=480;

form3.Enabled:=false;

end;

procedure TForm3.N10Click(Sender: TObject);

begin

form6.Visible:=true;

form3.Visible:=false;

end;

procedure TForm4.N5Click(Sender: TObject);

begin

form5.Visible:=true;

form4.Visible:=false;

end;

procedure TForm4.thyenmcz1Click(Sender: TObject);

begin

form3.Visible:=true;

form4.Visible:=false;

form3.Enabled:=true;

end;

procedure TForm4.N6Click(Sender: TObject);

begin

form11.Visible:=true;

end;

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

begin

form4.Visible:=false;

form3.Visible:=true;

form3.Enabled:=true;

end;

procedure TForm4.N10Click(Sender: TObject);

begin

form5.Table1.Insert;

end;

procedure TForm4.N11Click(Sender: TObject);

begin

form5.Table1.Delete;

end;

procedure TForm4.N12Click(Sender: TObject);

begin

form5.Table1.Edit;

end;

procedure TForm4.N13Click(Sender: TObject);

begin

form5.Table1.Post;

end;

procedure TForm4.N14Click(Sender: TObject);

begin

form5.Table1.Cancel;

end;

Afqk1: TMenuItem;

N1: TMenuItem;

DBGrid1: TDBGrid;

DataSource1: TDataSource;

Table1: TTable;

N4: TMenuItem;

N5: TMenuItem;

N6: TMenuItem;

Update1: TMenuItem;

Save1: TMenuItem;

Image1: TImage;

Image2: TImage;

Image3: TImage;

Image4: TImage;

Panel1: TPanel;

Table2: TTable;

Table1RNN_sotr: TStringField;

Table1FIO_sotr: TStringField;

Table1Adres: TStringField;

Table1Telefon_dom: TStringField;

Table1Telefon_sot: TStringField;

Table1Dolgnost: TIntegerField;

Table1Foto: TGraphicField;

Table1Dop: TMemoField;

Table1Dolgn: TStringField;

Table1Zarplata: TIntegerField;

Table2ID_dogn: TAutoIncField;

Table2Dolgn: TStringField;

Table2Zarplata: TIntegerField;

procedure N1Click(Sender: TObject);

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

procedure FormActivate(Sender: TObject);

procedure FormConstrainedResize(Sender: TObject; var MinWidth,

MinHeight, MaxWidth, MaxHeight: Integer);

procedure N4Click(Sender: TObject);

procedure N5Click(Sender: TObject);

procedure N6Click(Sender: TObject);

procedure Save1Click(Sender: TObject);

procedure Update1Click(Sender: TObject);

procedure N2Click(Sender: TObject);

procedure Image1Click(Sender: TObject);

procedure Image2Click(Sender: TObject);

procedure Image3Click(Sender: TObject);

procedure Image4Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form5: TForm5;

procedure TForm5.N6Click(Sender: TObject);

begin

form5.Table1.Append;

end;

procedure TForm5.Save1Click(Sender: TObject);

begin

form5.Table1.Post;

end;

procedure TForm5.Update1Click(Sender: TObject);

begin

form5.Table1.Refresh;

end;

procedure TForm5.N2Click(Sender: TObject);

begin

form1.Close;

end;

procedure TForm5.Image1Click(Sender: TObject);

begin

form5.Table1.First;

end;

procedure TForm5.Image2Click(Sender: TObject);

begin

form5.Table1.Prior;

end;

procedure TForm5.Image3Click(Sender: TObject);

begin

form5.Table1.Next;

end;

procedure TForm5.Image4Click(Sender: TObject);

begin

form5.Table1.Last;

end;

end.

// справочник о клиентах

unit Unit6;

interface

uses

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

Dialogs, Menus, ExtCtrls, DBCtrls, StdCtrls, Mask, jpeg;

type

TForm6 = class(TForm)

implementation

uses Unit1, Unit10, Unit11, Unit12, Unit2, Unit3, Unit4, Unit5, Unit7,

Unit8, Unit9;

{$R *.dfm}

procedure TForm6.N3Click(Sender: TObject);

begin

form1.Close;

end;

procedure TForm6.N2Click(Sender: TObject);

begin

form6.Visible:=false;

form3.Visible:=true;

form3.Enabled:=true;

end;

procedure TForm6.N6Click(Sender: TObject);

begin

form7.Visible:=true;

form6.Visible:=false;

end;

procedure TForm6.Jnrhsnm(Sender: TObject; var Action: TCloseAction);

begin

form6.Visible:=false;

form3.Visible:=true;

form3.Enabled:=true;

end;

procedure TForm6.FormActivate(Sender: TObject);

begin

form6.Left:=280;

form6.Top:=205;

form6.AutoSize:=true;

form9.Table3.Active:=true;

end;

procedure TForm6.Image3Click(Sender: TObject);

begin

form9.Table3.Active:=true;

form9.Table3.Prior;

end;

procedure TForm6.Image2Click(Sender: TObject);

begin

form9.Table3.Active:=true;

form9.Table3.First;

end;

form3.Visible:=true;

form3.Enabled:=true;

end;

end.

// табличные данные о клиентах

unit Unit7;

interface

uses

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

Dialogs, Menus, ExtCtrls, DBCtrls, Grids, DBGrids, DB, DBTables;

type

TForm7 = class(TForm)

MainMenu1: TMainMenu;

N1: TMenuItem;

N3: TMenuItem;

DataSource1: TDataSource;

DBGrid1: TDBGrid;

N4: TMenuItem;

N5: TMenuItem;

N6: TMenuItem;

N7: TMenuItem;

N8: TMenuItem;

Panel1: TPanel;

Image4: TImage;

Image1: TImage;

Image2: TImage;

Image3: TImage;

procedure N3Click(Sender: TObject);

procedure N2Click(Sender: TObject);

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

procedure FormConstrainedResize(Sender: TObject; var MinWidth,

MinHeight, MaxWidth, MaxHeight: Integer);

procedure FormActivate(Sender: TObject);

procedure N4Click(Sender: TObject);

procedure N5Click(Sender: TObject);

procedure N6Click(Sender: TObject);

procedure N7Click(Sender: TObject);

procedure N8Click(Sender: TObject);

procedure Image1Click(Sender: TObject);

procedure Image2Click(Sender: TObject);

procedure Image3Click(Sender: TObject);

procedure Image4Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

procedure TForm7.N5Click(Sender: TObject);

begin

form9.Table3.Append;

end;

procedure TForm7.N6Click(Sender: TObject);

begin

form9.Table3.Delete;

end;

procedure TForm7.N7Click(Sender: TObject);

begin

form9.Table3.Refresh;

end;

procedure TForm7.N8Click(Sender: TObject);

begin

form9.Table3.Post;

end;

procedure TForm7.Image1Click(Sender: TObject);

begin

form9.Table3.First;

end;

procedure TForm7.Image2Click(Sender: TObject);

begin

form9.Table3.Prior;

end;

procedure TForm7.Image3Click(Sender: TObject);

begin

form9.Table3.Next;

end;

procedure TForm7.Image4Click(Sender: TObject);

begin

form9.Table3.Last;

end;

end.

//архив предложений

unit Unit8;

interface

uses

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

Dialogs, Menus, StdCtrls, DBCtrls, ExtCtrls, Mask, DB, DBTables, jpeg;

N9: TMenuItem;

N3: TMenuItem;

N4: TMenuItem;

N5: TMenuItem;

N6: TMenuItem;

N10: TMenuItem;

N11: TMenuItem;

N12: TMenuItem;

N13: TMenuItem;

Table2ID_status: TStringField;

Table2Status: TStringField;

Label13: TLabel;

Label12: TLabel;

Label11: TLabel;

Label10: TLabel;

Label14: TLabel;

Panel1: TPanel;

Label1: TLabel;

Bevel2: TBevel;

Label2: TLabel;

Label3: TLabel;

Bevel3: TBevel;

procedure N2Click(Sender: TObject);

procedure N7Click(Sender: TObject);

procedure N5Click(Sender: TObject);

procedure N6Click(Sender: TObject);

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

procedure FormActivate(Sender: TObject);

procedure Image3Click(Sender: TObject);

procedure Image4Click(Sender: TObject);

procedure Image2Click(Sender: TObject);

procedure Image5Click(Sender: TObject);

procedure N8Click(Sender: TObject);

procedure N9Click(Sender: TObject);

procedure N10Click(Sender: TObject);

procedure N11Click(Sender: TObject);

procedure N12Click(Sender: TObject);

procedure N13Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form8: TForm8;

implementation

uses Unit1, Unit10, Unit11, Unit12, Unit2, Unit3, Unit4, Unit5, Unit6,

Unit7, Unit9, Unit13, Unit14, Unit15;

form8.Label2.Visible:=true;

form8.Label3.Visible:=true;

form8.DBEdit8.Visible:=true;

form8.DBEdit9.Visible:=true;

end;

end;

procedure TForm8.Image3Click(Sender: TObject);

begin

form8.Table1.Next;

if form8.Table1Status.Value='2' then begin

form8.Label2.Visible:=false;

form8.Label3.Visible:=false;

form8.DBEdit8.Visible:=false;

form8.DBEdit9.Visible:=false;

end;

if form8.Table1Status.Value='1' then begin

form8.Label2.Visible:=true;

form8.Label3.Visible:=true;

form8.DBEdit8.Visible:=true;

form8.DBEdit9.Visible:=true;

end;

end;

procedure TForm8.Image4Click(Sender: TObject);

begin

form8.Table1.Last;

if form8.Table1Status.Value='2' then begin

form8.Label2.Visible:=false;

form8.Label3.Visible:=false;

form8.DBEdit8.Visible:=false;

form8.DBEdit9.Visible:=false;

end;

if form8.Table1Status.Value='1' then begin

form8.Label2.Visible:=true;

form8.Label3.Visible:=true;

form8.DBEdit8.Visible:=true;

form8.DBEdit9.Visible:=true;

end;

end;

procedure TForm8.Image2Click(Sender: TObject);

begin

form8.Table1.Prior;

if form8.Table1Status.Value='2' then begin

form8.Label2.Visible:=false;

form8.Label3.Visible:=false;

form8.DBEdit8.Visible:=false;

form8.DBEdit9.Visible:=false;

end;

if form8.Table1Status.Value='1' then begin

form8.Label2.Visible:=true;

end;

end.

//табличные данные архива предложений

unit Unit9;

interface

uses

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

Dialogs, DB, DBTables, Menus, ExtCtrls, DBCtrls, Grids, DBGrids;

type

TForm9 = class(TForm)

MainMenu1: TMainMenu;

N1: TMenuItem;

N3: TMenuItem;

DataSource1: TDataSource;

DBGrid1: TDBGrid;

N4: TMenuItem;

N5: TMenuItem;

N6: TMenuItem;

N7: TMenuItem;

N8: TMenuItem;

Panel1: TPanel;

Image4: TImage;

Image1: TImage;

Image2: TImage;

Image3: TImage;

Table1: TTable;

Table2: TTable;

Table3: TTable;

Table1ID_kv: TAutoIncField;

Table1RNN_kl: TStringField;

Table1Kol_kom: TIntegerField;

Table1Zena: TIntegerField;

Table1Uliza: TStringField;

Table1Dom: TStringField;

Table1Kv: TIntegerField;

Table1Ploshad: TFloatField;

Table1Etag: TStringField;

Table1Lift: TBooleanField;

Table1Remont: TBooleanField;

Table1Balkon: TBooleanField;

Table1Telefon: TBooleanField;

Table1Status: TStringField;

Table1Dop: TMemoField;

Table1stat: TStringField;

Table1FIO: TStringField;

Table3RNN_kl: TStringField;

Table3FIO_kl: TStringField;

form3.Enabled:=true;

end;

procedure TForm9.FormConstrainedResize(Sender: TObject; var MinWidth,

MinHeight, MaxWidth, MaxHeight: Integer);

begin

form9.DBGrid1.Height:=form9.Height-75;

form9.DBGrid1.Width:=form9.Width-10;

form9.Panel1.Left:=round(form9.Width/2)-150;

form9.Panel1.Top:=form9.Height-75;

end;

procedure TForm9.FormActivate(Sender: TObject);

begin

form9.Left:=190;

form9.Top:=211;

form9.Height:=325;

form9.Width:=650;

form9.Table1.Active:=true;

form8.Table1.Active:=false;

form8.Table2.Active:=false;

form9.Table2.Active:=true;

form8.Table3.Active:=false;

form9.Table3.Active:=true;

form15.Table2.Active:=false;

end;

procedure TForm9.N4Click(Sender: TObject);

begin

form9.Table1.Edit;

end;

procedure TForm9.N5Click(Sender: TObject);

begin

form9.Table1.Append;

end;

procedure TForm9.N6Click(Sender: TObject);

begin

form9.Table1.Delete;

end;

procedure TForm9.N7Click(Sender: TObject);

begin

form9.Table1.Refresh;

end;

procedure TForm9.N8Click(Sender: TObject);

begin

form9.Table1.Post;

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form10: TForm10;

implementation

uses Unit1, Unit11, Unit12, Unit2, Unit3, Unit4, Unit5, Unit6, Unit7,

Unit8, Unit9, Unit13;

{$R *.dfm}

procedure TForm10.N2Click(Sender: TObject);

begin

form9.Table2.Append;

end;

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

begin

form8.Visible:=true;

form10.Visible:=false;

end;

procedure TForm10.FormConstrainedResize(Sender: TObject; var MinWidth,

MinHeight, MaxWidth, MaxHeight: Integer);

begin

form10.DBGrid1.Height:=form10.Height-10;

form10.DBGrid1.Width:=form10.Width;

end;

procedure TForm10.FormActivate(Sender: TObject);

begin

form10.Height:=217;

form10.Width:=217;

form9.Table2.Active:=true;

form8.Table2.Active:=false;

end;

procedure TForm10.N5Click(Sender: TObject);

begin

form9.Table2.Post;

end;

procedure TForm10.N3Click(Sender: TObject);

begin

Form9.Table2.Delete;

Form11: TForm11;

implementation

uses Unit1, Unit10, Unit12, Unit2, Unit3, Unit4, Unit5, Unit6, Unit7,

Unit8, Unit9;

{$R *.dfm}

procedure TForm11.N1Click(Sender: TObject);

begin

form11.Table1.Post;

end;

procedure TForm11.N2Click(Sender: TObject);

begin

form11.Table1.Edit;

end;

procedure TForm11.N3Click(Sender: TObject);

begin

form11.Table1.Delete;

end;

procedure TForm11.N4Click(Sender: TObject);

begin

form11.Table1.Refresh;

end;

procedure TForm11.N5Click(Sender: TObject);

begin

form11.Table1.Append;

end;

procedure TForm11.FormConstrainedResize(Sender: TObject; var MinWidth,

MinHeight, MaxWidth, MaxHeight: Integer);

begin

form11.DBGrid1.Height:=form11.Height-75;

form11.DBGrid1.Width:=form11.Width-5;

end;

procedure TForm11.FormActivate(Sender: TObject);

begin

form11.Height:=220;

form11.Width:=290;

form11.Table1.Active:=true;

end;

end.

procedure CheckBox11Click(Sender: TObject);

procedure CheckBox12Click(Sender: TObject);

procedure CheckBox13Click(Sender: TObject);

procedure CheckBox14Click(Sender: TObject);

procedure CheckBox15Click(Sender: TObject);

procedure FormConstrainedResize(Sender: TObject;

var MinWidth,

MinHeight, MaxWidth, MaxHeight: Integer);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form12: TForm12;

implementation

uses Unit1, Unit10, Unit11, Unit2, Unit3, Unit4, Unit5, Unit6,

Unit7, Unit8, Unit9;

{$R *.dfm}

procedure TForm12.FormActivate(Sender: TObject);

begin

form12.Height:=368;

form12.Width:=500;

form12.Top:=220;

form12.Left:=295;

CheckBox1.Checked:=false;

CheckBox2.Checked:=false;

CheckBox3.Checked:=false;

CheckBox4.Checked:=false;

CheckBox5.Checked:=false;

CheckBox10.Checked:=false;

CheckBox11.Checked:=false;

CheckBox12.Checked:=false;

CheckBox13.Checked:=false;

CheckBox14.Checked:=false;

Edit1.Color:=$00C4C4C4;

Edit2.Color:=$00C4C4C4;

Edit3.Color:=$00C4C4C4;

Edit4.Color:=$00C4C4C4;

Edit5.Color:=$00C4C4C4;

Edit6.Color:=$00C4C4C4;

edit1.Enabled:=false;

CheckBox11.Enabled:=true;

CheckBox12.Enabled:=true;

CheckBox11.Checked:=false;

CheckBox12.Checked:=false;

CheckBox1.Checked:=false;

Edit1.Color:=$00C4C4C4;

edit1.Enabled:=false;

end;

if CheckBox3.Checked=false then begin

Edit3.Color:=$00C4C4C4;

edit3.Enabled:=false;

CheckBox11.Enabled:=false;

CheckBox12.Enabled:=false;

end;

end;

procedure TForm12.CheckBox4Click(Sender: TObject);

begin

if CheckBox4.Checked=true then begin

edit4.Color:=clWhite;

edit4.Enabled:=true;

CheckBox5.Enabled:=true;

CheckBox10.Enabled:=true;

CheckBox1.Checked:=false;

Edit1.Color:=$00C4C4C4;

edit1.Enabled:=false;

end;

if CheckBox4.Checked=false then begin

Edit4.Color:=$00C4C4C4;

edit4.Enabled:=false;

CheckBox5.Enabled:=false;

CheckBox10.Enabled:=false;

end;

end;

procedure TForm12.CheckBox5Click(Sender: TObject);

begin

if CheckBox5.Checked=true then begin

edit5.Color:=clWhite;

edit5.Enabled:=true;

CheckBox1.Checked:=false;

Edit1.Color:=$00C4C4C4;

edit1.Enabled:=false;

end;

if CheckBox5.Checked=false then begin

Edit5.Color:=$00C4C4C4;

edit5.Enabled:=false;

end; end;

Kol_kom="'+Edit2.Text+'")AND(Predlogenia.Status=ID_status)';

Query1.Open;

end;

if checkbox1.Checked=false then

if checkbox2.Checked=true then

if checkbox3.Checked=false then

if checkbox4.Checked=false then

if checkbox5.Checked=false then

if checkbox10.Checked=false then

if checkbox13.Checked=true then

if checkbox14.Checked=false then begin

Query1.Close;

Query1.SQL.Clear;

Query1.SQL.Text:='SELECT ID_kv as Номер_заявки,

Status.Status as Статус,RNN_kl as РНН, Kol_kom as Комнат,

Zena as Цена,Uliza as Улица, Dom as Дом, Kv as Квартира,

Ploshad as Площадь, Etag as Этаж FROM Predlogenia, Status WHERE

(Kol_kom="'+Edit2.Text+'") AND (Predlogenia.status="2")AND

(Predlogenia.status=ID_status)';

Query1.Open;

end;

if checkbox1.Checked=false then

if checkbox2.Checked=true then

if checkbox3.Checked=false then

if checkbox4.Checked=false then

if checkbox5.Checked=false then

if checkbox10.Checked=false then

if checkbox13.Checked=false then

if checkbox14.Checked=true then begin

Query1.Close;

Query1.SQL.Clear;

Query1.SQL.Text:='SELECT ID_kv as Номер, Status.Status as

Статус,RNN_kl as РНН, Kol_kom as Комнат, Zena as Цена,Uliza as

Улица, Dom as Дом, Kv as Квартира, Ploshad as Площадь, Etag as

Этаж FROM Predlogenia, Status WHERE(Kol_kom="'+Edit2.Text+'")

AND(Predlogenia.status="1")AND(Predlogenia.status=ID_status)';

Query1.Open;

end;

if checkbox1.Checked=false then

if checkbox2.Checked=false then

if checkbox3.Checked=true then

if checkbox4.Checked=false then

if checkbox5.Checked=false then

if checkbox10.Checked=false then

if checkbox11.Checked=false then

if checkbox12.Checked=false then

if checkbox13.Checked=false then

if checkbox14.Checked=false then begin

if checkbox2.Checked=false then

if checkbox3.Checked=true then

if checkbox4.Checked=false then

if checkbox5.Checked=false then

if checkbox10.Checked=false then

if checkbox11.Checked=true then

if checkbox12.Checked=false then

if checkbox13.Checked=false then

if checkbox14.Checked=false then begin

Query1.Close;

Query1.SQL.Clear;

Query1.SQL.Text:='SELECT ID_kv as номер, Status.Status as

статус,RNN_kl as РНН, Kol_kom as Комнат, Zena as Цена,Uliza as

Улица, Dom as Дом, Kv as Квартира, Ploshad as Площадь, Etag as

Этаж FROM Predlogenia, Status WHERE(Zena<"'+Edit3.Text+'")AND

(Predlogenia.Status=ID_status)';

Query1.Open;

end;

if checkbox1.Checked=false then

if checkbox2.Checked=false then

if checkbox3.Checked=true then

if checkbox4.Checked=false then

if checkbox5.Checked=false then

if checkbox10.Checked=false then

if checkbox11.Checked=false then

if checkbox12.Checked=true then

if checkbox13.Checked=false then

if checkbox14.Checked=false then begin

Query1.Close;

Query1.SQL.Clear;

Query1.SQL.Text:='SELECT ID_kv as , Status.Status as

Статус,RNN_kl as РНН, Kol_kom as Комнат, Zena as Цена,Uliza as

Улица, Dom as Дом, Kv as Квартира, Ploshad as Площадь, Etag as

Этаж FROM Predlogenia, Status WHERE(Zena>"'+Edit3.Text+'")

AND(Predlogenia.Status=ID_status)';

Query1.Open;

end;

if checkbox1.Checked=false then

if checkbox2.Checked=false then

if checkbox3.Checked=true then

if checkbox4.Checked=false then

if checkbox5.Checked=false then

if checkbox10.Checked=false then

if checkbox11.Checked=true then

if checkbox12.Checked=false then

if checkbox13.Checked=true then

if checkbox14.Checked=false then begin

Query1.Close;

Query1.SQL.Clear;

if checkbox3.Checked=true then

if checkbox4.Checked=false then

if checkbox5.Checked=false then

if checkbox10.Checked=false then

if checkbox11.Checked=false then

if checkbox12.Checked=true then

if checkbox13.Checked=false then

if checkbox14.Checked=true then begin

Query1.Close;

Query1.SQL.Clear;

Query1.SQL.Text:='SELECT ID_kv asНомер, Status.Status as

Статус,RNN_kl as РНН, Kol_kom as Комнат, Zena as Цена,Uliza as

Улица, Dom as Дом, Kv as Кварира, Ploshad as Площадь, Etag as

Этаж FROM Predlogenia, Status WHERE(Zena>"'+Edit3.Text+'")

AND(Predlogenia.Status="1")And (Predlogenia.Status=ID_status)';

Query1.Open;

end;

if checkbox1.Checked=false then

if checkbox2.Checked=false then

if checkbox3.Checked=false then

if checkbox4.Checked=true then

if checkbox5.Checked=false then

if checkbox10.Checked=false then

if checkbox13.Checked=false then

if checkbox14.Checked=false then begin

Query1.Close;

Query1.SQL.Clear;

Query1.SQL.Text:='SELECT ID_kv as Номер, Status.Status as

Статус,RNN_kl as РНН, Kol_kom as Комнат, Zena as Цена,Uliza as

Улица, Dom as Домм, Kv as Квартира, Ploshad as Площадь, Etag as

Этаж FROM Predlogenia, Status WHERE UPPER(Uliza)

LIKE UPPER("%'+Edit4.Text+'%")And (Predlogenia.Status=ID_status)';

Query1.Open; end;

if checkbox1.Checked=false then

if checkbox2.Checked=false then

if checkbox3.Checked=false then

if checkbox4.Checked=true then

if checkbox5.Checked=false then

if checkbox10.Checked=false then

if checkbox13.Checked=true then

if checkbox14.Checked=false then begin

Query1.Close;

Query1.SQL.Clear;

Query1.SQL.Text:='SELECT ID_kv as Номер, Status.Status as

Статус,RNN_kl as РНН, Kol_kom as Комнат, Zena as Цена,Uliza as

Улица, Dom as Дом, Kv as Квартира, Ploshad as Площадь, Etag as

Этаж FROM Predlogenia, Status WHERE UPPER(Uliza)

LIKE UPPER("%'+Edit4.Text+'%")AND(Predlogenia.Status="2")

AND(Predlogenia.Status=ID_status)';

Query1.Open;

Статус,RNN_kl as РНН, Kol_kom as Комнат, Zena as Цена,Uliza as

Улица, Dom as Дом, Kv as Квартира, Ploshad as Площадь, Etag as

Этаж FROM Predlogenia, Status WHERE UPPER(Uliza)

LIKE UPPER("%'+Edit4.Text+'%")AND(Dom="'+Edit5.Text+'")

AND(Predlogenia.Status="2")AND(Predlogenia.Status=ID_status)';

Query1.Open;

end;

if checkbox1.Checked=false then

if checkbox2.Checked=false then

if checkbox3.Checked=false then

if checkbox4.Checked=true then

if checkbox5.Checked=true then

if checkbox10.Checked=false then

if checkbox13.Checked=false then

if checkbox14.Checked=true then begin

Query1.Close;

Query1.SQL.Clear;

Query1.SQL.Text:='SELECT ID_kv asНомер, Status.Status as Статус,RNN_kl as РЕЕН, Kol_kom as Комнат, Zena as Цена,Uliza as

Улица, Dom as Дом, Kv as Квартира, Ploshad as Площадь, Etag as

Этаж FROM Predlogenia, Status WHERE UPPER(Uliza)

LIKE UPPER("%'+Edit4.Text+'%")AND(Dom="'+Edit5.Text+'")

AND(Predlogenia.Status="1")AND(Predlogenia.Status=ID_status)';

Query1.Open;

end;

if checkbox1.Checked=false then

if checkbox2.Checked=false then

if checkbox3.Checked=false then "

if checkbox4.Checked=true then

if checkbox5.Checked=false then

if checkbox10.Checked=true then

if checkbox13.Checked=false then

if checkbox14.Checked=false then begin

Query1.Close;

Query1.SQL.Clear;

Query1.SQL.Text:='SELECT ID_kv as Номер, Status.Status as

Статус,RNN_kl as РНН, Kol_kom as Комнат, Zena as Цена,Uliza as

Улица, Dom as Дом, Kv as Квартира, Ploshad as Площадь, Etag as

Этаж FROM Predlogenia, Status WHERE UPPER(Uliza)

LIKE UPPER("%'+Edit4.Text+'%")AND(Kv="'+Edit6.Text+'")

AND(Predlogenia.Status=ID_status)';

Query1.Open;

end;

if checkbox1.Checked=false then

if checkbox2.Checked=false then

if checkbox3.Checked=false then

if checkbox4.Checked=true then

if checkbox5.Checked=false then

if checkbox10.Checked=true then

if checkbox13.Checked=true then

if checkbox1.Checked=false then

if checkbox2.Checked=false then

if checkbox3.Checked=false then

if checkbox4.Checked=true then

if checkbox5.Checked=true then

if checkbox10.Checked=true then

if checkbox13.Checked=true then

if checkbox14.Checked=false then begin

Query1.Close;

Query1.SQL.Clear;

Query1.SQL.Text:='SELECT ID_kv as Номер, Status.Status as

Статус,RNN_kl as РНН, Kol_kom as Комнат, Zena as Цена,Uliza as

Улица, Dom as Дом, Kv as Квартира, Ploshad as Площадь, Etag as

Этаж FROM Predlogenia, Status WHERE UPPER(Uliza)

LIKEUPPER("%'+Edit4.Text+'%")AND(Kv="'+Edit6.Text+'")

AND(Dom="'+Edit5.Text+'")AND(Predlogenia.Status="2")

AND(Predlogenia.Status=ID_status)';

Query1.Open;

end;

if checkbox1.Checked=false then

if checkbox2.Checked=false then

if checkbox3.Checked=false then

if checkbox4.Checked=true then

if checkbox5.Checked=true then

if checkbox10.Checked=true then

if checkbox13.Checked=false then

if checkbox14.Checked=false then begin

Query1.Close;

Query1.SQL.Clear;

Query1.SQL.Text:='SELECT ID_kv as Номер, Status.Status as

Статус,RNN_kl as РНН, Kol_kom as Комнат, Zena as Цена,Uliza as

Улица, Dom as Дом, Kv as Квартира, Ploshad as Площадь, Etag as

Этаж FROM Predlogenia, Status WHERE UPPER(Uliza)

LIKE UPPER("%'+Edit4.Text+'%")AND(Kv="'+Edit6.Text+'")

AND(Dom="'+Edit5.Text+'")AND(Predlogenia.Status=ID_status)';

Query1.Open;

end;

if checkbox1.Checked=false then

if checkbox2.Checked=false then

if checkbox3.Checked=false then

if checkbox4.Checked=false then

if checkbox5.Checked=false then

if checkbox10.Checked=false then

if checkbox13.Checked=false then

if checkbox14.Checked=false then

if checkbox15.Checked=true then begin

Query1.Close;

Query1.SQL.Clear;

Query1.SQL.Text:='SELECT ID_kv as Номер, Status.Status as

Статус,RNN_kl as РНН, Kol_kom as Комнат, Zena as Цена,Uliza as

Улица, Dom as Дом, Kv as Квартира, Ploshad as Площадь, Etag as begin

CheckBox1.Checked:=false;

Edit1.Color:=$00C4C4C4;

edit1.Enabled:=false;

end;

procedure TForm12.CheckBox7Click(Sender: TObject);

begin

CheckBox1.Checked:=false;

Edit1.Color:=$00C4C4C4;

edit1.Enabled:=false;

end;

procedure TForm12.CheckBox8Click(Sender: TObject);

begin

CheckBox1.Checked:=false;

Edit1.Color:=$00C4C4C4;

edit1.Enabled:=false;

end;

procedure TForm12.CheckBox9Click(Sender: TObject);

begin

CheckBox1.Checked:=false;

Edit1.Color:=$00C4C4C4;

edit1.Enabled:=false;

end;

procedure TForm12.CheckBox11Click(Sender: TObject);

begin

if CheckBox11.Checked=true then CheckBox12.Enabled:=false

else CheckBox12.Enabled:=true;

end;

procedure TForm12.CheckBox12Click(Sender: TObject);

begin

if CheckBox12.Checked=true then CheckBox11.Enabled:=false

else CheckBox11.Enabled:=true;

end;

procedure TForm12.CheckBox13Click(Sender: TObject);

begin

if CheckBox13.Checked=true then CheckBox14.Enabled:=false

else CheckBox14.Enabled:=true;

CheckBox1.Checked:=false;

Edit1.Color:=$00C4C4C4;

edit1.Enabled:=false;

end;

procedure TForm12.CheckBox14Click(Sender: TObject);

begin

if CheckBox14.Checked=true then CheckBox13.Enabled:=false

{ Public declarations }

end;

var

Form13: TForm13;

implementation

uses Unit1, Unit10, Unit11, Unit12, Unit2, Unit3, Unit4, Unit5, Unit6,

Unit7, Unit8, Unit9;

{$R *.dfm}

procedure TForm13.Image4Click(Sender: TObject);

begin

form13.Visible:=false;

form3.Enabled:=true;

end;

procedure TForm13.Image3Click(Sender: TObject);

begin

form8.Visible:=true;

form13.Visible:=false;

end;

procedure TForm13.Image2Click(Sender: TObject);

begin

form4.Visible:=true;

form13.Visible:=false;

end;

procedure TForm13.Image1Click(Sender: TObject);

begin

form6.Visible:=true;

form13.Visible:=false;

end; end.

//архив сделок

unit Unit14;

interface

uses

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

Forms, Dialogs, DBCtrls, StdCtrls, Mask, ExtCtrls, Menus;

type

TForm14 = class(TForm)

Panel2: TPanel;

Label4: TLabel;

Label5: TLabel;

Label6: TLabel;

Label7: TLabel;

Label8: TLabel;

Label9: TLabel;

Label10: TLabel;

DBEdit2: TDBEdit;

DBEdit3: TDBEdit;

DBEdit4: TDBEdit;

DBEdit5: TDBEdit;

DBEdit6: TDBEdit;

Table1RNN_sotr: TStringField;

Table1Zena_kv: TIntegerField;

Table1Oplata: TIntegerField;

Table1Data: TDateField;

Table1Dop: TMemoField;

Table2: TTable;

Table3: TTable;

Table1RNN_prod: TStringField;

Table1RNN_pok: TStringField;

Table1FIO_sotr: TStringField;

Table1FIO_prod: TStringField;

Table1FIO_pok: TStringField;

procedure FormActivate(Sender: TObject);

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

procedure FormConstrainedResize(Sender: TObject; var MinWidth,

MinHeight, MaxWidth, MaxHeight: Integer);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form15: TForm15;

implementation

uses Unit1, Unit10, Unit11, Unit12, Unit13, Unit14, Unit2, Unit3, Unit4,

Unit5, Unit6, Unit7, Unit8, Unit9;

{$R *.dfm}

procedure TForm15.FormActivate(Sender: TObject);

begin

form15.Table2.Active:=true;

form15.Table3.Active:=true;

form5.Table1.Active:=false;

form9.Table3.Active:=false;

form8.Table3.Active:=false;

form15.Height:=325;

form15.Width:=650;

form15.Left:=190;

form15.Top:=211;

end;

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

begin

form15.Table2.Active:=false;

form15.Table3.Active:=false;

end;

procedure TForm15.FormConstrainedResize(Sender: TObject; var MinWidth,

MinHeight, MaxWidth, MaxHeight: Integer);

begin

form15.DBGrid1.Height:=form15.Height-75;

form15.DBGrid1.Width:=form15.Width-10;

end;

end.