Смекни!
smekni.com

АРМ менеджера по продаже недвижимости (стр. 6 из 6)

С целью предупреждения пожара в помещениях и в здании в целом существует ряд правил запрещающих

- Пользоваться нагревательными электроприборами для отопления поме­щений, приготовления и разогрева пищи вне специально отведённых мест и помещений, согласованных с Государственной противопожарной службой;

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

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

- Подключать электроприборы без стандартных штепсельных подключающих устройств;

- Подключать к электросети неисправные электроприборы;

- Приносить, хранить и использовать горючие и легковоспламеняющиеся жидкости, огнеопасные предметы и материалы;

- Закрывать на трудно открываемые запоры двери эвакуационных выходов в период нахождения людей в здании;

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

При обнаружении пожара или его признаков (дым, запах гари и др.), каждый человек обязан немедленно:

- Сообщить об этом в городскую пожарную охрану по телефону 01;

- Оповестить о пожаре или его признаках людей, находящихся поблизости, и принять необходимые меры для эвакуации всех людей из здания (из опасной зоны);

- При появлении опасных факторов пожара (дым, потеря видимости, высокая температура, токсичные пары горения) немедленно эвакуироваться в безопасную зону;

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


ЗАКЛЮЧЕНИЕ

Для разработки программного приложения выбранной предметной области и реализации запросов пользователя, была использована наиболее эффективная модель данных – реляционная модель.

В результате разработки программного приложения – автоматизированного рабочего места менеджера по продажам недвижимости были выполнены следующие поставленные задачи:

- была обеспечена целостность структуры данных;

- была выбрана наиболее эффективная модель данных;

- была проведена организация сбора и обработки данных для формирования отчетов;

- была проведена организация контроля заполнения;

- для ускорения работы с большими объемами информации был выбран механизм BDE;

- по средства возможностей системы Delphi была организована обработка входных и выходных данных;

- при помощи языка SQL в приложении был организован быстрый поиск требуемой информации.

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


Список использованной Литературы

1. Бобровский С.И., «Delphi 7» - СПб.: Питер, 2005. – 736 с.: ил.

2. Фаронов В.В., «Программирование баз данных в Delphi 7. Учебный курс» - СПб.: Питер, 2005 – 459 с.: ил.

3. Нуржасарова М.А., Рыскулова Б.Р., Тургумбаева Х.Х, «Охрана труда»: Учебное пособие – Астана: Фолиант, 2007 – 224 с.

4. Девисилов В.А., «Охрана труда»: Учебник – 2-е изд., испр. и доп. – М.: Форум: Инфра – М, 2005 – 448 с.: ил. – (Профессиональное образование).

5. Райордан Р., «Основы реляционных баз данных», пер. с англ. – М.: Издательско-торговый дом и «Русская редакция», 2001 – 384 с.: ил.

6. Гайдамакин Н.А., «Автоматизированные информационные системы, базы и банки данных. Вводный курс»: Учебное пособие – М.: Гелиос АРВ, 2002 – 368 с., ил.

7. Яворский В.В., Томилова Н.И., «Технология разработки программного обеспечения»: Учебник - Астана: Фолиант, 2007 – 376 с.

8. Культин Н.Б., «Основы программирования в Delphi 7» - СПб.: БХВ – Петербург, 2004 – 608 с.: ил.

9. Дарахвелидзе П.Г., Марков Е.П., «Программирование в Delphi 7» - СПб.: БХВ – Петербург, 2004 – 784 с.: ил.

10. Бабушкина И.А., «Практикум по объектно-ориентированному программированию»: Бабушкина И.А., Окулова С.М.: - М: Бином, Лаборатория знаний, 2004 – 366 с.: ил.


Приложение А – Входные и выходные документы

Рис.7 - Договор на оказание услуг


Рис.8 – Отчет агента



Рис.9 – Заявка на оказание услуг



Приложение В – Интерфейс приложения

Рис.10 – Главная форма

Рис.11 – Справочник о клиентах


Рис.12 – Табличные данные о клиентах

Рис.13 – Справочник о сотрудниках


Рис.14 –Табличные данные о сотрудниках

Рис.15 –Архив предложений


Рис.16 –Табличные данные архива предложений

Рис.17 – Поиск данных в архиве предложений


Приложение С – Листинг приложения

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.