Разработка Автоматизированной Информационной Системы агенства недвижимости

ВВЕДЕНИЕ………
1. АНАЛИТИЧЕСКАЯ ЧАСТЬ
1.1 Общая характеристика предприятия
1.2 Анализ конъюнктуры рынка
1.3 Экономический анализ хозяйственной деятельности предприятия
1.4 Постановка задачи и ее организационно-экономическая сущность
2.1. Моделирование бизнес-процессов предметной области
2.2. Обоснование выбора задач, входящих в комплекс
2.3. Обоснование проектных решений по информационному обеспечению комплекса задач
2.4. Обоснование проектных решений по технологии сбора, передачи,
обработки и выдачи информации
2.5. Обоснование проектных решений по программному обеспечению комплекса задач
2.5.1 Обоснование необходимости использования вычислительной техники и создания АРМ для решения данного комплекса задач
3.ПРОЕКТНАЯ ЧАСТЬ
3.1. Информационное обеспечение комплекса зада
3.1.1. Инфологическая (информационная) модель (схема данных) и ее описание
3.1.2 Используемые классификаторы и системы кодирования
3.1.3. Характеристика входной информации
3.1.4. Нормативно-справочная информация
3.1.5. Характеристика результатной информации
3.2. Внутримашинная реализация комплекса задач
3.2.1. Формализация расчетов (алгоритмы расчета и решения задач)
3.2.2. Структурная схема использования комплекса программ (дерево диалога)
3.3 Технологическое обеспечение
3.3.1. Организация технологии сбора, передачи, обработки и выдачи информации
3.3.2. Схема технологического процесса сбора, передачи, обработки и выдачи информации
3.4 Программное обеспечение комплекса задач
3.4.1. Общие положения
3.4.2. Структурная схема пакета (дерево вызова процедур и программ)
3.4.3. Описание программных модулей
3.5. Схема взаимосвязи программных модулей и инфомационных файлов
3.6. Выбор и обоснование технических средств
4. ЭКОНОМИЧЕСКОЕ ОБОСНОВАНИЕ ПРОЕКТА.
4.1 Выбор и обоснование методики расчёта экономической эффективности
4.2 Расчёт показателей экономической эффективности проекта
5. БЕЗОПАСНОСТЬ ЖИЗНЕДЕЯТЕЛЬНОСТИ
5.1 Общие положения
5.2 Проектирование оптимального рабочего места программиста
5.3 Организация рабочего места
5.4 Оборудование рабочих мест
5.5 Расчет тяжести труда
5.5 Расчет показателей искусственного освещения
5.6 Выбор типа ламп
5.7 Проектирование системы освещения
5.8 Качественные показатели освещения
Вывод
ЗАКЛЮЧЕНИЕ
ЛИТЕРАТУРА
ПРИЛОЖЕНИЕ А. КОД ПРОГРАММЫ

Delphi 7. Основы программирования. Решение типовых задач. Самоучитель: Л. М. Климова — Москва, КУДИЦ-Образ, 2006 г.- 480 с.Delphi в задачах и примерах (+ CD-ROM): Никита Культин — Санкт-Петербург, БХВ-Петербург, 2008 г.- 288 с.Delphi на примерах: Виктор Пестриков, Артур Маслобоев — Москва, БХВ-Петербург, 2005 г.- 496 с.Microsoft SQL Server 2000: профессионалы для профессионалов: Составитель Дмитрий Артемов — Санкт-Петербург, Русская Редакция, 2005 г.- 512 с.Microsoft SQL Server 2005. Практические методы работы (+ CD-ROM): — Москва, ЭКОМ Паблишерз, 2007 г.- 464 с.Microsoft SQL Server 2005. Справочник администратора: Уильям Р. Станек — Москва, Русская Редакция, 2008 г.- 544 с.Microsoft SQL Server 2008. Data Mining - интеллектуальный анализ данных: Джеми Макленнен, Чжаохуэй Танг, Богдан Криват — Санкт-Петербург, БХВ-Петербург, 2009 г.- 700 с.Microsoft SQL Server 2008. Разработка баз данных. Учебный курс Microsoft (+ CD-ROM): Тобиаш Тернстрем, Энн Вебер, Майк Хотек — Санкт-Петербург, Русская Редакция, 2010 г.- 496 с.Microsoft SQL Server 2008. Реализация и обслуживание. Учебный курс Microsoft (+ CD-ROM): Майк Хотек — Москва, Русская Редакция, 2011 г.- 576 с.Microsoft SQL Server 2008. Руководство администратора для профессионалов: Брайан Найт, Кетан Пэтел, Вейн Снайдер, Росс Лофорт, Стивен Уорт — Санкт-Петербург, Диалектика, Вильямс, 2010 г.- 944 с.Microsoft SQL Server 2008. Руководство для начинающих: Душан Петкович — Санкт-Петербург, БХВ-Петербург, 2009 г.- 752 с.Microsoft SQL Server 2008. Справочник администратора: Уильям Р. Станек — Санкт-Петербург, БХВ-Петербург, Русская Редакция, 2009 г.- 720 с.MS SQL Server 2005 для администраторов: Ростислав Михеев — Санкт-Петербург, БХВ-Петербург, 2007 г.- 544 с.SQL Server 2005. Библия пользователя: Пол Нильсен — Санкт-Петербург, Вильямс, 2008 г.- 1232 с.SQL Server 2005. Новые возможности для разработчиков: С. Байдачный, Д. Маленко, Ю. Лозинский — Санкт-Петербург, Солон-Пресс, 2006 г.- 208 с.SQL Server 2008 для начинающих разработчиков: Робин Дьюсон — Санкт-Петербург, БХВ-Петербург, 2009 г.- 704 с.Turbo Delphi для новичков и не только: С. А. Любавин — Москва, НТ Пресс, 2008 г.- 320 с.Знакомство с Microsoft SQL Server 2005: Питер Дибетта — Санкт-Петербург, Русская Редакция, 2005 г.- 276 с.Культин Н. Delphi .NET в задачах и примерах (+ CD-ROM):— Москва, БХВ-Петербург, 2006 г.- 256 с.О чем не пишут в книгах по Delphi (+ CD-ROM): А. Б. Григорьев — Москва, БХВ-Петербург, 2008 г.- 576 с.Осваиваем Delphi Win32: С. А. Любавин — Санкт-Петербург, НТ Пресс, 2008 г.- 576 с.Освоение Microsoft SQL Server 2005: Майк Гандерлой, Джозеф Джорден, Дейвид Чанц — Санкт-Петербург, Вильямс, 2007 г.- 1104 с.Основы программирования в Delphi XE (+ CD-ROM): Н. Б. Культин — Москва, БХВ-Петербург, 2011 г.- 416 с.Основы программирования в интегрированной среде Delphi. Практикум: А. Желонкин — Санкт-Петербург, Бином. Лаборатория знаний, 2006 г.- 240 с.Основы программирования в интегрированной среде DELPHI: А. Желонкин — Санкт-Петербург, Бином. Лаборатория знаний, 2004 г.- 240 с.От Delphi 7 к Delphi 2006. Для начинающих: В. П. Молочков, В. Б. Карпинский — Москва, Диалог-МИФИ, 2007 г.- 304 с.Программирование баз данных Microsoft SQL Server 2005. Базовый курс: Роберт Вийера — Санкт-Петербург, Вильямс, 2007 г.- 832 с.Программирование в Delphi для Windows. Версии 2006, 2007, Turbo Delphi (+ CD-ROM): А. Я. Архангельский — Санкт-Петербург, Бином-Пресс, 2007 г.- 1248 с.Программирование в Turbo Pascal. Переход к Delphi (+ CD-ROM): Ю. А. Шпак — Москва, МК-Пресс, 2006 г.- 416 с.Программирование на Delphi Win32: С. А. Любавин — Москва, НТ Пресс, 2008 г.- 576 с.Программируем в Turbo Delphi: С. А. Любавин — Санкт-Петербург, НТ Пресс, 2008 г.- 320 с.Проектирование и оптимизация доступа к базам данных Microsoft SQL Server 2005. Учебный курс Microsoft (+ CD-ROM): Сара Морган, Тобиаш Тернстрем — Москва, Русская Редакция, 2008 г.- 480 с.Разработка приложений в Delphi 2005/2006 (+ CD-ROM): Ю. А. Шпак — Санкт-Петербург, МК-Пресс, 2006 г.- 544 с.Разработка приложений на основе Microsoft SQL Server 2005: Эндрю Дж. Браст, Стивен Форте — Санкт-Петербург, Русская Редакция, 2007 г.- 880 с.Разработка приложений на основе Microsoft SQL Server 2008: Леонард Лобел, Эндрю Дж. Браст, Стивен Форте — Санкт-Петербург, Русская Редакция, БХВ-Петербург, 2010 г.- 1024 с.Самоучитель Delphi 7 Studio: Вячеслав Понамарев — Санкт-Петербург, БХВ-Петербург, 2003 г.- 504 с.Самоучитель Microsoft SQL Server 2005: Алексей Жилинский — Москва, БХВ-Петербург, 2007 г.- 224 с.Самоучитель Microsoft SQL Server 2008: Алексей Жилинский — Санкт-Петербург, БХВ-Петербург, 2009 г.- 240 с.Учимся программировать на Delphi 2007: О. В. Чеснокова — Санкт-Петербург, НТ Пресс, 2008 г.- 368 с.Чеснокова О. В. Delphi 2007. Алгоритмы и программы— Москва, НТ Пресс, 2008 г.- 368 с.ПРИЛОЖЕНИЕ А. КОД ПРОГРАММЫunit MainClients;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, Menus, DB, ADODB, IniFiles, Grids, DBGrids,DBDirectoryTemplate, addsorce, DateUtils, parampoisk, ToolWin, ComCtrls, StdCtrls, jpeg, ExtCtrls, RzButton, Buttons, RzSpnEdt, RzPanel, OleServer, ExcelXP, OleCtnrs, ComObj ;type TMainClientsForm = class(TForm) ADOConnection1: TADOConnection; ADOTable1: TADOTable; MainMenu1: TMainMenu; N2: TMenuItem; N3: TMenuItem; N4: TMenuItem; N5: TMenuItem; N6: TMenuItem; N7: TMenuItem; N8: TMenuItem; N9: TMenuItem; N10: TMenuItem; N13: TMenuItem; N14: TMenuItem; N15: TMenuItem; ADOTable2: TADOTable; ADOTable3: TADOTable; ADOTable4: TADOTable; ADOTable5: TADOTable; ADOTable6: TADOTable; ADOTable7: TADOTable; N20: TMenuItem; N21: TMenuItem; N22: TMenuItem; ADOQuery1: TADOQuery; ADOQuery2: TADOQuery; N18: TMenuItem; ADOTable8: TADOTable; Image1: TImage; ToolBar1: TToolBar; RzRapidFireButton1: TRzRapidFireButton; RzRapidFireButton2: TRzRapidFireButton; RzRapidFireButton3: TRzRapidFireButton; RzRapidFireButton4: TRzRapidFireButton; RzRapidFireButton5: TRzRapidFireButton; N1: TMenuItem; N11: TMenuItem; DataSource1: TDataSource; DataSource2: TDataSource; ExcelApplication1: TExcelApplication;procedure DataSource2DataChange(Sender: TObject; Field: TField);procedure N1Click(Sender:TObject);procedure RzRapidFireButton5Click(Sender:TObject);procedure RzRapidFireButton4Click(Sender:TObject);procedure RzRapidFireButton3Click(Sender:TObject);procedure RzRapidFireButton2Click(Sender:TObject);procedure RzRapidFireButton1Click(Sender:TObject);procedure N12Click(Sender:TObject);function IsMDIChildOpen(const AFormName: TForm; const AMDIChildName : string): Boolean; function IsFormOpen(const FormName : string): Boolean;procedure N6Click(Sender:TObject);procedure N7Click(Sender:TObject);procedure N8Click(Sender:TObject);procedure N9Click(Sender:TObject);procedure N10Click(Sender:TObject);procedure N20Click(Sender:TObject);procedure N21Click(Sender:TObject);procedure N22Click(Sender:TObject);procedure FormCreate(Sender:TObject);procedure N3Click(Sender:TObject);procedure DataSource1DataChange(Sender: TObject; Field: TField);procedure N4Click(Sender:TObject);procedure N14Click(Sender:TObject);procedure N15Click(Sender:TObject);procedure N16Click(Sender:TObject);procedure N17Click(Sender:TObject);procedure N11Click(Sender:TObject);procedure N19Click(Sender:TObject);procedure N18Click(Sender:TObject);procedure N23Click(Sender:TObject);procedure N24Click(Sender:TObject);procedure Button1Click(Sender:TObject); private { Private declarations }procedure BuildGridDatabaseDirectoryItem(sCaption:String; ds:TDataSource); public { Public declarations } end;var MainClientsForm: TMainClientsForm; nastr:tinifile; DirectoryForm : TDBDirectoryTemplateForm; prosmForm: Taddform; mainflag:boolean; nomer_poisk:word; // idLocation, idAddional, idZapas, idPartiya:integer; army,avto:string; minzar, optzar:real; type_ob, sql_str,rez:string;komnat:integer;id_object,id_dokument,id_dogovor,id_agent,id_type:integer;cena_expert,cena_client:real;var familiya,telefon:string; rezd:tdatetime; id_operaciya:integer; FIO,gragdanstvo,pol,sem,deti:string; var ploshad:real; kharak,etag,rayon:string; doc_dok:tdatetime; id_operation:integer; p11:tparameter; var harak:string; operrac:string; dokument:string; data_dok:tdatetime; kseroks,nomer:string; cena_ekspertt:real; cena_ekspert:real;var dom_tel,mob_tel:string; adres,notes:string; stag:real; rogd:tdate; var education,vuz, fakultet,specialnost,kurs:string;data_vuz, data_kurs:tdate;lingvo,lingvo_k, comp, comp_k :string;idlingvo, idcomp, id_education,id_client,id_regim, id_areal, id_organization:integer;var oblast,profesiya:string;implementation{$R *.dfm}function TMainClientsForm.IsMDIChildOpen(const AFormName: TForm; const AMDIChildName : string): Boolean; var i: Integer; begin Result := False; for i := Pred(AFormName.MDIChildCount) DownTo 0 doif (AFormName.MDIChildren[i].Name = AMDIChildName) then begin Result := True; AFormName.MDIChildren[i].Free; // Break; end; end; function TMainClientsForm.IsFormOpen(const FormName : string): Boolean; var i: Integer; begin Result := False; for i := Screen.FormCount - 1 DownTo 0 doif (Screen.Forms[i].Name = FormName) then begin Result := True; Break; end; end;procedure TMainClientsForm.BuildGridDatabaseDirectoryItem(sCaption:String; ds:TDataSource); begin //создаем форму DirectoryForm:=TDBDirectoryTemplateForm.Create(Owner); DirectoryForm.TableDBGrid.DataSource:=ds; DirectoryForm.Top:=0; DirectoryForm.Left:=0; DirectoryForm.Caption:=sCaption; end;procedure TMainClientsForm.N12Click(Sender:TObject);begin MainClientsForm.Close;end;procedure TMainClientsForm.N6Click(Sender:TObject);begin IsMDIChildOpen(MainClientsForm,'DBDirectoryTemplateForm'); mainclientsform.DataSource1.DataSet:=mainclientsform.ADOTable1; mainclientsform.ADOTable1.Active:=true; MainClientsForm.BuildGridDatabaseDirectoryItem('Объекты', mainclientsform.DataSource1);DirectoryForm.TableDBGrid.Fields[0].DisplayLabel:='номер';DirectoryForm.TableDBGrid.Fields[1].DisplayLabel:='№ докум.';DirectoryForm.TableDBGrid.Fields[2].DisplayLabel:='№ догов..';DirectoryForm.TableDBGrid.Fields[3].DisplayLabel:='ид.допол.';DirectoryForm.TableDBGrid.Fields[4].DisplayLabel:='ид.агента ';DirectoryForm.TableDBGrid.Fields[5].DisplayLabel:='Цена эксперта';DirectoryForm.TableDBGrid.Fields[6].DisplayLabel:='Цена клиента';end;procedure TMainClientsForm.N7Click(Sender:TObject);begin IsMDIChildOpen(MainClientsForm,'DBDirectoryTemplateForm'); IsMDIChildOpen(MainClientsForm,'addForm'); mainflag:=false; mainclientsform.DataSource1.DataSet:=mainclientsform.ADOTable2;mainclientsform.ADOTable2.Active:=true; MainClientsForm.BuildGridDatabaseDirectoryItem('клиенты', mainclientsform.DataSource1);DirectoryForm.TableDBGrid.Fields[0].DisplayLabel:='Ид.клиента';DirectoryForm.TableDBGrid.Fields[1].DisplayLabel:=' Фамилия ';DirectoryForm.TableDBGrid.Fields[2].DisplayLabel:=' Имя ';DirectoryForm.TableDBGrid.Fields[3].DisplayLabel:='Отчество';DirectoryForm.TableDBGrid.Fields[4].DisplayLabel:='адрес';DirectoryForm.TableDBGrid.Fields[5].DisplayLabel:='телефон';DirectoryForm.TableDBGrid.Fields[6].DisplayLabel:='паспорт №';DirectoryForm.TableDBGrid.Fields[7].DisplayLabel:='паспорт выдан'; end;procedure TMainClientsForm.N8Click(Sender:TObject);begin IsMDIChildOpen(MainClientsForm,'DBDirectoryTemplateForm'); IsMDIChildOpen(MainClientsForm,'addForm'); mainflag:=false; mainclientsform.DataSource1.DataSet:=mainclientsform.ADOTable3;mainclientsform.ADOTable3.Active:=true; MainClientsForm.BuildGridDatabaseDirectoryItem('Дополнительные сведения об объектах', mainclientsform.DataSource1);directoryForm.TableDBGrid.Fields[0].DisplayLabel:=' ИД. ';DirectoryForm.TableDBGrid.Fields[1].DisplayLabel:=' Тип ';DirectoryForm.TableDBGrid.Fields[2].DisplayLabel:=' фото';DirectoryForm.TableDBGrid.Fields[3].DisplayLabel:='характеристика объекта';DirectoryForm.TableDBGrid.Fields[4].DisplayLabel:='кол.комнат';DirectoryForm.TableDBGrid.Fields[5].DisplayLabel:='площадь';DirectoryForm.TableDBGrid.Fields[6].DisplayLabel:='адрес';DirectoryForm.TableDBGrid.Fields[7].DisplayLabel:='этаж';DirectoryForm.TableDBGrid.Fields[8].DisplayLabel:='район';end;procedure TMainClientsForm.N9Click(Sender:TObject);begin IsMDIChildOpen(MainClientsForm,'DBDirectoryTemplateForm'); IsMDIChildOpen(MainClientsForm,'addForm'); mainflag:=false; mainclientsform.DataSource1.DataSet:=mainclientsform.ADOTable4;mainclientsform.ADOTable4.Active:=true;MainClientsForm.BuildGridDatabaseDirectoryItem('Агенты', mainclientsform.DataSource1);DirectoryForm.TableDBGrid.Fields[0].DisplayLabel:='Ид. ';DirectoryForm.TableDBGrid.Fields[1].DisplayLabel:='Фамилия';DirectoryForm.TableDBGrid.Fields[2].DisplayLabel:='Имя';DirectoryForm.TableDBGrid.Fields[3].DisplayLabel:='Отчество';DirectoryForm.TableDBGrid.Fields[4].DisplayLabel:='адрес';DirectoryForm.TableDBGrid.Fields[5].DisplayLabel:='телефон';end;procedure TMainClientsForm.RzRapidFireButton1Click(Sender:TObject);begin MainClientsForm.N3Click(Sender);end;procedure TMainClientsForm.RzRapidFireButton2Click(Sender:TObject);begin MainClientsForm.N4Click(Sender);end;procedure TMainClientsForm.RzRapidFireButton3Click(Sender:TObject);beginMainClientsForm.N15Click(Sender);end;procedure TMainClientsForm.RzRapidFireButton4Click(Sender:TObject);begin MainClientsForm.N14Click(Sender);end;procedure TMainClientsForm.RzRapidFireButton5Click(Sender:TObject);begin MainClientsForm.Close;end;procedure TMainClientsForm.N10Click(Sender:TObject);begin IsMDIChildOpen(MainClientsForm,'DBDirectoryTemplateForm'); IsMDIChildOpen(MainClientsForm,'addForm'); mainflag:=false; mainclientsform.DataSource1.DataSet:=mainclientsform.ADOTable5;mainclientsform.ADOTable5.Active:=true;MainClientsForm.BuildGridDatabaseDirectoryItem('Операции с недвижимостью', mainclientsform.DataSource1);DirectoryForm.TableDBGrid.Fields[0].DisplayLabel:='ИД';DirectoryForm.TableDBGrid.Fields[1].DisplayLabel:='операция';DirectoryForm.TableDBGrid.Fields[2].DisplayLabel:='примечание';end;procedure TMainClientsForm.N20Click(Sender:TObject);begin IsMDIChildOpen(MainClientsForm,'DBDirectoryTemplateForm'); IsMDIChildOpen(MainClientsForm,'addForm'); mainflag:=false; mainclientsform.DataSource1.DataSet:=mainclientsform.ADOTable6;mainclientsform.ADOTable6.Active:=true;MainClientsForm.BuildGridDatabaseDirectoryItem('документы', mainclientsform.DataSource1);DirectoryForm.TableDBGrid.Fields[0].DisplayLabel:='ИД';DirectoryForm.TableDBGrid.Fields[1].DisplayLabel:='название ';DirectoryForm.TableDBGrid.Fields[2].DisplayLabel:='дата';DirectoryForm.TableDBGrid.Fields[3].DisplayLabel:='ксерокс';end;procedure TMainClientsForm.N21Click(Sender:TObject);begin IsMDIChildOpen(MainClientsForm,'DBDirectoryTemplateForm'); IsMDIChildOpen(MainClientsForm,'addForm'); mainflag:=false; mainclientsform.DataSource1.DataSet:=mainclientsform.ADOTable7;mainclientsform.ADOTable7.Active:=true;MainClientsForm.BuildGridDatabaseDirectoryItem('Договора', mainclientsform.DataSource1);DirectoryForm.TableDBGrid.Fields[0].DisplayLabel:=' ИД ';DirectoryForm.TableDBGrid.Fields[1].DisplayLabel:=' ИД клиент';DirectoryForm.TableDBGrid.Fields[2].DisplayLabel:='Дата';DirectoryForm.TableDBGrid.Fields[3].DisplayLabel:='Дата окончания';//DirectoryForm.TableDBGrid.Fields[4].DisplayLabel:='куда';DirectoryForm.TableDBGrid.Fields[4].DisplayLabel:='№ операции';DirectoryForm.TableDBGrid.Fields[5].DisplayLabel:='Примечание';end;procedure TMainClientsForm.N22Click(Sender:TObject); begin IsMDIChildOpen(MainClientsForm,'addForm'); IsMDIChildOpen(MainClientsForm,'addForm'); mainflag:=false; MainClientsForm.N6Click(sender); prosmForm:=Taddform.Create(Owner); prosmForm.Top:=230; prosmForm.Left:=0; prosmForm.Width:=500; prosmForm.Height:=200; prosmForm.Caption:='просмотр записей'; prosmForm.DBNavigator2.Visible:=true; mainflag:=true; prosmForm.Show; prosmForm.Button1.Visible:=false; prosmForm.GroupBox3.Visible:=true; prosmForm.GroupBox1.Visible:=false; prosmForm.GroupBox2.Visible:=false; prosmForm.GroupBox4.Visible:=false; prosmForm.GroupBox5.Visible:=true; MainClientsForm.DataSource1.DataSet.last; MainClientsForm.DataSource2.DataSet.last;end;procedure TMainClientsForm.FormCreate(Sender:TObject); var NewConnection: Widestring;beginNewConnection := PromptDataSource(Handle, MainClientsForm.ADOConnection1.Connectionstring);MainClientsForm.ADOConnection1.Connectionstring:=NewConnection;MainClientsForm.ADOConnection1.Connected:=true;MainClientsForm.ADOTable1.Active:=true;MainClientsForm.ADOTable2.Active:=true;MainClientsForm.ADOTable3.Active:=true;MainClientsForm.ADOTable4.Active:=true;MainClientsForm.ADOTable5.Active:=true;MainClientsForm.ADOTable6.Active:=true;MainClientsForm.ADOTable7.Active:=true;MainClientsForm.ADOTable8.Active:=true;end;procedure TMainClientsForm.N3Click(Sender:TObject);var dobForm: Taddform;begin mainflag:=false; IsMDIChildOpen(MainClientsForm,'addForm'); dobForm:=Taddform.Create(Owner); dobForm.Top:=240; dobForm.Left:=3; dobForm.Caption:='добавление клиента'; dobForm.Show; dobForm.Button1.Visible:=true; dobForm.GroupBox1.Visible:=false; dobForm.GroupBox3.Visible:=false; dobForm.GroupBox4.Visible:=false; dobForm.GroupBox5.Visible:=false;end;procedure TMainClientsForm.DataSource1DataChange(Sender: TObject; Field: TField);beginif mainflag thenbegin prosmForm.Edit5.Text:=''; prosmForm.Edit54.Text:=''; prosmForm.Edit49.Text:=''; prosmForm.Edit50.Text:=''; prosmForm.Edit53.Text:=''; prosmForm.Edit51.Text:=''; prosmForm.Edit48.Text:=''; prosmForm.Edit46.Text:=''; prosmForm.Edit17.Text:=''; prosmForm.Edit47.Text:=''; prosmForm.Edit4.Text:=''; prosmForm.Edit55.Text:=''; prosmForm.Edit44.Text:=''; id_object:=MainClientsForm.ADOTable1.FieldByName('id_object').AsInteger; id_dokument:= MainClientsForm.ADOTable1.FieldByName('id_dokument').AsInteger; id_dogovor:= MainClientsForm.ADOTable1.FieldByName('id_dogovor').AsInteger; id_agent:= MainClientsForm.ADOTable1.FieldByName('id_agent').AsInteger; id_type:= MainClientsForm.ADOTable1.FieldByName('id_type').AsInteger; cena_expert:=MainClientsForm.ADOTable1.FieldByName('cena_expert').AsFloat; cena_client:=MainClientsForm.ADOTable1.FieldByName('cena_clint').AsFloat; prosmForm.Edit44.Text:=inttostr(id_dogovor); prosmForm.Edit45.Text:=inttostr(id_agent); prosmForm.Edit7.Text:=floattostr(cena_expert); prosmForm.Edit3.Text:=floattostr(cena_client); sql_str:='SELECT * from type where id_type= :P11'; MainClientsForm.ADOQuery1.Active:=false; MainClientsForm.ADOQuery1.SQL.Clear; P11 :=mainclientsform.ADOQuery1.Parameters.AddParameter; P11.Name:='P11'; p11.DataType := ftinteger; P11.Value:=id_type; P11.Size:=4; MainClientsForm.ADOQuery1.SQL.Add(sql_str); MainClientsForm.ADOQuery1.Active:=true; MainClientsForm.ADOQuery1.ExecSQL; type_ob:=MainClientsForm.ADOQuery1.FieldByName('type').AsString; prosmForm.Edit5.Text:=type_ob; komnat:= MainClientsForm.ADOQuery1.FieldByName('komnat').AsInteger; prosmForm.Edit54.Text:=inttostr(komnat); ploshad:= MainClientsForm.ADOQuery1.FieldByName('square').Asfloat; prosmForm.Edit49.Text:=floattostr(ploshad); kharak:= MainClientsForm.ADOQuery1.FieldByName('kharakteristic').AsString; prosmForm.Edit50.Text:=kharak; etag:=MainClientsForm.ADOQuery1.FieldByName('flor').AsString; prosmForm.Edit53.Text:=etag; adres:=MainClientsForm.ADOQuery1.FieldByName('adres').AsString; prosmForm.Edit51.Text:=adres; rayon:=MainClientsForm.ADOQuery1.FieldByName('rayon').AsString; prosmForm.Edit48.Text:=rayon; sql_str:='SELECT * from dokument where id_dokument= :P11'; MainClientsForm.ADOQuery1.Active:=false; MainClientsForm.ADOQuery1.SQL.Clear; P11 :=mainclientsform.ADOQuery1.Parameters.AddParameter; P11.Name:='P11'; p11.DataType := ftinteger; P11.Value:=id_dokument; P11.Size:=4; MainClientsForm.ADOQuery1.SQL.Add(sql_str); MainClientsForm.ADOQuery1.Active:=true; MainClientsForm.ADOQuery1.ExecSQL; rez:=MainClientsForm.ADOQuery1.FieldByName('document_name').AsString; prosmForm.Edit47.Text:=rez; doc_dok:=MainClientsForm.ADOQuery1.FieldByName('document_date').AsDateTime; prosmForm.Edit4.Text:=datetostr( doc_dok); sql_str:='SELECT * from dogovor where id_dogovor= :P11'; MainClientsForm.ADOQuery1.Active:=false; MainClientsForm.ADOQuery1.SQL.Clear; P11 :=mainclientsform.ADOQuery1.Parameters.AddParameter; P11.Name:='P11'; p11.DataType := ftinteger; P11.Value:=id_dogovor; P11.Size:=4; MainClientsForm.ADOQuery1.SQL.Add(sql_str); MainClientsForm.ADOQuery1.Active:=true; MainClientsForm.ADOQuery1.ExecSQL; id_operation:=MainClientsForm.ADOQuery1.FieldByName('id_operacyia').AsInteger; sql_str:='SELECT * from operaciya where id_operaciya= :P11'; MainClientsForm.ADOQuery1.Active:=false; MainClientsForm.ADOQuery1.SQL.Clear; P11 :=mainclientsform.ADOQuery1.Parameters.AddParameter; P11.Name:='P11'; p11.DataType := ftinteger; P11.Value:=id_operation; P11.Size:=4; MainClientsForm.ADOQuery1.SQL.Add(sql_str); MainClientsForm.ADOQuery1.Active:=true; MainClientsForm.ADOQuery1.ExecSQL; rez:=MainClientsForm.ADOQuery1.FieldByName('operaciya_name').AsString; prosmForm.Edit17.Text:=rez; rez:=MainClientsForm.ADOQuery1.FieldByName('notes').AsString; prosmForm.Edit46.Text:=rez;end;end;procedure TMainClientsForm.DataSource2DataChange(Sender: TObject; Field: TField);beginif mainflag thenbegin prosmForm.Edit22.Text:=''; prosmForm.Edit23.Text:=''; prosmForm.Edit25.Text:=''; prosmForm.Edit29.Text:=''; prosmForm.Edit42.Text:=''; prosmForm.Edit40.Text:=''; prosmForm.Edit32.Text:=''; prosmForm.Edit34.Text:=''; familiya:=MainClientsForm.DataSource2.DataSet.FieldByName('familiya').AsString; prosmForm.Edit22.Text:=familiya; imya:=MainClientsForm.DataSource2.DataSet.FieldByName('imya').AsString; prosmForm.Edit23.Text:=imya; otchestvo:=MainClientsForm.DataSource2.DataSet.FieldByName('otchestvo').AsString; prosmForm.Edit25.Text:=otchestvo; telefon:=MainClientsForm.DataSource2.DataSet.FieldByName('telefon').AsString; prosmForm.Edit29.Text:=telefon; id_client:=MainClientsForm.DataSource2.DataSet.FieldByName('id_client').AsInteger; // id_dogovor:= MainClientsForm.DataSource2.DataSet.FieldByName('id_dogovor').AsInteger; sql_str:='SELECT * from dogovor where id_client= :P11'; MainClientsForm.ADOQuery1.Active:=false; MainClientsForm.ADOQuery1.SQL.Clear; P11 :=mainclientsform.ADOQuery1.Parameters.AddParameter; P11.Name:='P11'; p11.DataType := ftinteger; P11.Value:=id_client; P11.Size:=4; MainClientsForm.ADOQuery1.SQL.Add(sql_str); MainClientsForm.ADOQuery1.Active:=true; MainClientsForm.ADOQuery1.ExecSQL; nomer:=MainClientsForm.ADOQuery1.FieldByName('nomer').AsString; prosmForm.Edit42.Text:=nomer; rezd:=MainClientsForm.ADOQuery1.FieldByName('konec').AsDateTime; prosmForm.Edit40.Text:=datetostr(rezd); rezd:=MainClientsForm.ADOQuery1.FieldByName('date').AsDateTime; prosmForm.Edit32.Text:=datetostr(rezd); id_operaciya:= MainClientsForm.ADOQuery1.FieldByName('id_operacyia').AsInteger; prosmForm.Edit34.Text:=inttostr(id_operaciya); end;end;procedure TMainClientsForm.N4Click(Sender:TObject);var zakForm: Taddform;begin mainflag:=false; IsMDIChildOpen(MainClientsForm,'zakForm'); IsMDIChildOpen(MainClientsForm,'addForm'); zakForm:=Taddform.Create(Owner); zakForm.Top:=240; zakForm.Left:=3; zakForm.Caption:='новый объект'; zakForm.Show; zakForm.Button1.Visible:=true; zakForm.GroupBox1.Visible:=false; zakForm.GroupBox2.Visible:=false; zakForm.GroupBox4.Visible:=false; zakForm.GroupBox5.Visible:=false; zakForm.GroupBox3.Visible:=true; zakForm.GroupBox3.Left:=2; zakForm.GroupBox3.Top:=2; // show;{ if addform.ModalResult=mrOK then begin // MainClientsForm.DataSource.DataSet.Post; end else begin MainClientsForm.DataSource.DataSet.Cancel;end;}end;procedure TMainClientsForm.N14Click(Sender:TObject);var poisk:Tparampoik;begin IsMDIChildOpen(MainClientsForm,'DBDirectoryTemplateForm'); IsMDIChildOpen(MainClientsForm,'addform'); IsMDIChildOpen(MainClientsForm,'parampoik'); poisk:=Tparampoik.Create(Owner); poisk.Left:=530; poisk.Top:=3; poisk.Width:=300; poisk.Caption:='поиск объекта недвижимости'; nomer_poisk:=1; poisk.Label2.Visible:=false; poisk.Label3.Visible:=false; poisk.Label7.Visible:=false; poisk.Edit2.Visible:=false; poisk.Edit3.Visible:=false; poisk.Edit4.Visible:=false; poisk.Edit5.Visible:=false; poisk.Edit6.Visible:=false; poisk.Edit7.Visible:=false; poisk.UpDown1.Visible:=false; poisk.UpDown2.Visible:=false; poisk.UpDown3.Visible:=false; poisk.UpDown4.Visible:=false;end;procedure TMainClientsForm.N15Click(Sender:TObject);var poisk:Tparampoik;begin IsMDIChildOpen(MainClientsForm,'DBDirectoryTemplateForm'); IsMDIChildOpen(MainClientsForm,'addform'); IsMDIChildOpen(MainClientsForm,'parampoik'); poisk:=Tparampoik.Create(Owner); poisk.Left:=530; poisk.Top:=3; poisk.Width:=300; poisk.Caption:='поиск клиента '; nomer_poisk:=2; poisk.Label2.Visible:=false; poisk.Label3.Visible:=false; poisk.Label7.Visible:=false; poisk.Edit2.Visible:=false; poisk.Edit3.Visible:=false; poisk.Edit4.Visible:=false; poisk.Edit5.Visible:=false; poisk.Edit6.Visible:=false; poisk.Edit7.Visible:=false; poisk.Label1.Caption:='Фамилия'; poisk.UpDown1.Visible:=false; poisk.UpDown2.Visible:=false; poisk.UpDown3.Visible:=false; poisk.UpDown4.Visible:=false; //poisk.Label4.Visible:=false; end;procedure TMainClientsForm.N16Click(Sender:TObject);var poisk:Tparampoik;begin IsMDIChildOpen(MainClientsForm,'DBDirectoryTemplateForm'); IsMDIChildOpen(MainClientsForm,'addform'); IsMDIChildOpen(MainClientsForm,'parampoik'); poisk:=Tparampoik.Create(Owner); poisk.Left:=530; poisk.Top:=3; poisk.Width:=300; poisk.Caption:='поиск клиента'; nomer_poisk:=3; poisk.Label2.Visible:=false; poisk.Label3.Visible:=false; poisk.Label7.Visible:=false; poisk.Edit2.Visible:=false; poisk.Edit3.Visible:=false; poisk.Edit4.Visible:=false; poisk.Edit5.Visible:=false; poisk.Edit6.Visible:=false; poisk.Edit7.Visible:=false; poisk.UpDown1.Visible:=false; poisk.UpDown2.Visible:=false; poisk.UpDown3.Visible:=false; poisk.UpDown4.Visible:=false; end;procedure TMainClientsForm.N11Click(Sender:TObject);var naklForm: Taddform;begin mainflag:=false; IsMDIChildOpen(MainClientsForm,'naklForm'); IsMDIChildOpen(MainClientsForm,'addForm'); naklForm:=Taddform.Create(Owner); naklForm.Top:=240; naklForm.Left:=3; naklForm.Caption:='создание сделки'; naklForm.Show; naklForm.GroupBox1.Visible:=false; naklForm.GroupBox2.Visible:=false; naklForm.GroupBox3.Visible:=false; naklForm.GroupBox5.Visible:=false; naklform.GroupBox4.Visible:=true;end;procedure TMainClientsForm.N1Click(Sender:TObject);var dobForm: Taddform;begin mainflag:=false; IsMDIChildOpen(MainClientsForm,'addForm'); dobForm:=Taddform.Create(Owner); dobForm.Top:=240; dobForm.Left:=3; dobForm.Caption:='добавление записи'; dobForm.Show; dobForm.Button1.Visible:=false; dobForm.GroupBox1.Visible:=true; dobForm.GroupBox3.Visible:=false; dobForm.GroupBox2.Visible:=false; dobForm.GroupBox4.Visible:=false; dobForm.GroupBox5.Visible:=false;end;procedure TMainClientsForm.N18Click(Sender:TObject);begin IsMDIChildOpen(MainClientsForm,'DBDirectoryTemplateForm'); // mainclientsform.ADOTable1.Active:=false; mainclientsform.DataSource1.DataSet:=mainclientsform.ADOTable8;mainclientsform.ADOTable8.Active:=true;MainClientsForm.BuildGridDatabaseDirectoryItem('сделки с недвижимостью ', mainclientsform.DataSource1);DirectoryForm.TableDBGrid.Fields[0].DisplayLabel:='ИД.';DirectoryForm.TableDBGrid.Fields[1].DisplayLabel:='Дата';DirectoryForm.TableDBGrid.Fields[2].DisplayLabel:='№ объекта';DirectoryForm.TableDBGrid.Fields[3].DisplayLabel:='сумма сделки ';DirectoryForm.TableDBGrid.Fields[4].DisplayLabel:='аванс';DirectoryForm.TableDBGrid.Fields[5].DisplayLabel:='Дог.покуп.';DirectoryForm.TableDBGrid.Fields[6].DisplayLabel:='Дог.продавца';DirectoryForm.TableDBGrid.Fields[7].DisplayLabel:='№ операции';DirectoryForm.TableDBGrid.Fields[7].DisplayLabel:='Дата выполнения';end;procedure TMainClientsForm.Button1Click(Sender:TObject);begin MainClientsForm.N22Click(sender);end;end.Модуль ADDunit addsorce;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, DB, ADODB, Menus, ChildTemplate, Grids, DBGrids, StdCtrls, Mask,DateUtils, ExtCtrls, ComCtrls, DBCtrls, comobj;type TaddForm = class(TForm) Panel1: TPanel; GroupBox3: TGroupBox; GroupBox2: TGroupBox; Button1: TButton; Label35: TLabel; Label30: TLabel; Label27: TLabel; Label23: TLabel; Label18: TLabel; Label15: TLabel; Edit18: TEdit; Edit21: TEdit; Edit26: TEdit; Label25: TLabel; Label16: TLabel; Edit19: TEdit; Edit28: TEdit; Edit24: TEdit; Edit37: TEdit; Edit39: TEdit; Label36: TLabel; Label34: TLabel; Edit38: TEdit; Label33: TLabel; Edit36: TEdit; Edit30: TEdit; Label21: TLabel; Edit33: TEdit; Label4: TLabel; Label5: TLabel; Label6: TLabel; Label7: TLabel; Label9: TLabel; Label12: TLabel; Label42: TLabel; Label43: TLabel; Label45: TLabel; Label48: TLabel; Label49: TLabel; Label50: TLabel; Label51: TLabel; Label54: TLabel; Edit4: TEdit; Edit5: TEdit; Edit17: TEdit; Edit44: TEdit; Edit45: TEdit; Edit46: TEdit; Edit47: TEdit; Edit48: TEdit; Edit49: TEdit; Edit50: TEdit; Edit51: TEdit; Edit53: TEdit; Edit54: TEdit; Edit55: TEdit; Label55: TLabel; Button2: TButton; Label3: TLabel; Edit3: TEdit; Label10: TLabel; Edit7: TEdit; GroupBox1: TGroupBox; Label1: TLabel; Label2: TLabel; Label13: TLabel; Label17: TLabel; Label19: TLabel; Button3: TButton; Edit1: TEdit; Edit2: TEdit; Edit9: TEdit; Edit11: TEdit; Edit14: TEdit; GroupBox4: TGroupBox; Label8: TLabel; Edit6: TEdit; Label11: TLabel; Edit8: TEdit; Label14: TLabel; Edit10: TEdit; Label20: TLabel; Edit12: TEdit; Label22: TLabel; Edit13: TEdit; Edit15: TEdit; Label26: TLabel; Edit16: TEdit; Label28: TLabel; Edit20: TEdit; Button4: TButton; Label24: TLabel; GroupBox5: TGroupBox; Label31: TLabel; Label37: TLabel; Label38: TLabel; Label39: TLabel; Label40: TLabel; Label44: TLabel; Label46: TLabel; Label47: TLabel; Edit22: TEdit; Edit23: TEdit; Edit25: TEdit; Edit29: TEdit; Edit32: TEdit; Edit34: TEdit; Edit40: TEdit; Edit42: TEdit; DBNavigator2: TDBNavigator; DBNavigator1: TDBNavigator; Button5: TButton;procedure Button5Click(Sender:TObject);procedure Button4Click(Sender:TObject);procedure FormClose(Sender: TObject; var Action: TCloseAction);procedure Button1Click(Sender:TObject);procedure Button2Click(Sender:TObject);procedure Button3Click(Sender:TObject);procedure FormCreate(Sender:TObject); private { Private declarations } public { Public declarations } end;var addForm: TaddForm; naim:string;ed_izm:string;kolvo:integer;cena:real;nomerpartiya:string;sernum:string;srok_godnost:tdate;data_postavka:tdate;postavchik:string;description:string; location:string; location_part:string; primech:string; Ayear, amonth,aday:word; razmer_part,kol:integer; id_part,idaddional,idlocation,idzapas:integer; idtov,id_proffesiya:integer; Familiya, imya, otchestvo, pasportnomer, pasportvudan:string; dogovor_nomer:string; data_dog,okonch: tdatetime; id_operac:integer;implementationuses MainClients;{$R *.dfm}procedure TaddForm.FormClose(Sender: TObject; var Action: TCloseAction);begin Action:=caFree;end;procedure TaddForm.Button1Click(Sender:TObject);begin Familiya:=edit18.Text; imya:=edit21.Text; otchestvo:=edit26.Text; pasportnomer:=edit19.Text; pasportvudan:=edit19.Text; adres:=edit30.Text; dom_tel:=edit28.Text; MainClientsForm.ADOTable2.Active:=true; MainClientsForm.ADOTable2.Insert; MainClientsForm.ADOTable2.FieldByName('familiya').AsString:=Familiya; MainClientsForm.ADOTable2.FieldByName('imya').AsString:=imya; MainClientsForm.ADOTable2.FieldByName('otchestvo').AsString:=otchestvo; MainClientsForm.ADOTable2.FieldByName('adres').AsString:=adres; MainClientsForm.ADOTable2.FieldByName('telefon').AsString:=dom_tel; MainClientsForm.ADOTable2.FieldByName('passport_nomer').AsString:=pasportnomer; MainClientsForm.ADOTable2.FieldByName('passport_vudan').AsString:=pasportvudan; MainClientsForm.ADOTable2.Post; id_client:=MainClientsForm.ADOTable2.FieldByName('id_client').AsInteger; dogovor_nomer:=Edit33.text; data_dog:=strtodate(edit36.Text); okonch:=strtodate(edit37.Text); id_operac:=strtoint(edit39.Text); notes:= Edit38.text; MainClientsForm.ADOTable7.Active:=true; MainClientsForm.ADOTable7.Insert; MainClientsForm.ADOTable7.FieldByName('id_client').AsInteger:=id_client; MainClientsForm.ADOTable7.FieldByName('nomer').AsString:=dogovor_nomer; MainClientsForm.ADOTable7.FieldByName('date').AsDateTime:=data_dog; MainClientsForm.ADOTable7.FieldByName('konec').AsDateTime:=okonch; MainClientsForm.ADOTable7.FieldByName('id_operacyia').AsInteger:=id_operac; MainClientsForm.ADOTable7.FieldByName('notes').AsString:=notes; MainClientsForm.ADOTable7.Post;end;procedure TaddForm.Button2Click(Sender:TObject);begin type_ob:=edit5.text; komnat:=strtoint(edit54.text); ploshad:=strtofloat(edit49.Text); harak:=edit50.Text; adres:=edit51.Text; etag:=edit53.Text; rayon:=edit48.Text; notes:=edit46.Text; operrac:=edit17.Text; dokument:=edit47.Text; data_dok:=strtodate(edit4.text); kseroks:=edit55.Text; id_dogovor:=strtoint(edit44.Text); id_agent:=strtoint(edit45.Text); cena_ekspert:=strtofloat(edit7.Text); cena_client:=strtofloat(edit3.Text); MainClientsForm.ADOTable5.Active:=true; MainClientsForm.ADOTable5.Insert; MainClientsForm.ADOTable5.FieldByName('operaciya_name').AsString:= operrac; MainClientsForm.ADOTable5.FieldByName('notes').AsString:=notes; MainClientsForm.ADOTable5.Post; id_operaciya:=MainClientsForm.ADOTable5.FieldByName('id_operaciya').AsInteger; MainClientsForm.ADOTable6.Active:=true; MainClientsForm.ADOTable6.Insert; MainClientsForm.ADOTable6.FieldByName('document_name').AsString:= dokument; MainClientsForm.ADOTable6.FieldByName('document_date').AsDateTime:= data_dok; MainClientsForm.ADOTable6.Post; id_dokument:= MainClientsForm.ADOTable6.FieldByName('id_dokument').AsInteger; MainClientsForm.ADOTable3.Active:=true; MainClientsForm.ADOTable3.Insert; MainClientsForm.ADOTable3.FieldByName('type').AsString:= type_ob; MainClientsForm.ADOTable3.FieldByName('kharakteristic').AsString:= harak; MainClientsForm.ADOTable3.FieldByName('komnat').AsInteger:=komnat; MainClientsForm.ADOTable3.FieldByName('square').asfloat:=ploshad; MainClientsForm.ADOTable3.FieldByName('adres').AsString:=adres; MainClientsForm.ADOTable3.FieldByName('flor').AsString:=etag; MainClientsForm.ADOTable3.FieldByName('rayon').AsString:=rayon; MainClientsForm.ADOTable3.FieldByName('notes').AsString:=notes; MainClientsForm.ADOTable3.Post; id_type:= MainClientsForm.ADOTable3.FieldByName('id_type').AsInteger; MainClientsForm.ADOTable1.Active:=true; MainClientsForm.ADOTable1.Insert; MainClientsForm.ADOTable1.FieldByName('id_dokument').AsInteger:= id_dokument; MainClientsForm.ADOTable1.FieldByName('id_dogovor').AsInteger:= id_dogovor; MainClientsForm.ADOTable1.FieldByName('id_agent').AsInteger:= id_agent; MainClientsForm.ADOTable1.FieldByName('id_type').AsInteger:= id_type; MainClientsForm.ADOTable1.FieldByName('cena_expert').asfloat:=cena_ekspert; MainClientsForm.ADOTable1.FieldByName('cena_clint').asfloat:=cena_client; MainClientsForm.ADOTable1.FieldByName('status').asstring:= ' в работе'; MainClientsForm.ADOTable1.Post;end;procedure TaddForm.Button3Click(Sender:TObject);var tovar, srtkl,name_poisk,sqlwhere,stroka_SQL :string;p1:tparameter;begin Familiya:=edit1.Text; imya:=edit2.Text; otchestvo:=edit9.Text; adres:=edit11.Text; dom_tel:=edit14.Text; MainClientsForm.ADOTable4.Active:=true; MainClientsForm.ADOTable4.Insert; MainClientsForm.ADOTable4.FieldByName('familiya').AsString:=Familiya; MainClientsForm.ADOTable4.FieldByName('imya').AsString:=imya; MainClientsForm.ADOTable4.FieldByName('otchestvo').AsString:=otchestvo; MainClientsForm.ADOTable4.FieldByName('adres').AsString:=adres; MainClientsForm.ADOTable4.FieldByName('telefon').AsString:=dom_tel; MainClientsForm.ADOTable4.Post;end;procedure TaddForm.Button4Click(Sender:TObject);var data_sd:tdatetime;id_object:integer;summa:real;avans:real;dog1,dog2:integer;id_operac:integer;data_prim:tdatetime;begin data_sd:=strtodate(edit6.text); id_object:=strtoint(edit8.text); summa:=strtofloat(edit10.text); avans:=strtofloat(edit12.text); dog1:=strtoint(edit13.text); dog2:=strtoint(edit15.text); id_operac:=strtoint(edit16.text); data_prim:=strtodate(edit20.text); MainClientsForm.ADOTable8.Active:=true; MainClientsForm.ADOTable8.Insert; MainClientsForm.ADOTable8.FieldByName('sdelka_date').AsDateTime:=data_sd; MainClientsForm.ADOTable8.FieldByName('id_object').AsInteger:=id_object; MainClientsForm.ADOTable8.FieldByName('summa').AsFloat:=summa; MainClientsForm.ADOTable8.FieldByName('avans').AsFloat:=avans; MainClientsForm.ADOTable8.FieldByName('dogovor1').AsInteger:=dog1; MainClientsForm.ADOTable8.FieldByName('dogovor2').AsInteger:=dog2; MainClientsForm.ADOTable8.FieldByName('id_operaciya').AsInteger:=id_operac; MainClientsForm.ADOTable8.FieldByName('sdelka_date').AsDateTime:=data_prim; MainClientsForm.ADOTable8.Post;end;procedure TaddForm.Button5Click(Sender:TObject);var XlApplication: OleVariant; XLWorkSheet: OleVariant;begin try XlApplication := GetActiveOleObject('Excel.Application'); except XlApplication := CreateOleObject('Excel.Application'); end; XlApplication.Workbooks.Open[ExtractFilePath(Application.ExeName)+'act.xlt', 0, true]; XlApplication.Visible := true; XLWorkSheet := XlApplication.ActiveWorkBook.ActiveSheet;//xlWorkSheet.Range['B1:F1']; XLWorkSheet.cells[1,2]:='объект недвижимости -'+type_ob; XLWorkSheet.cells[2,2]:='Контакты клиента '+' '+familiya+' '+imya+' '+otchestvo+' ' + telefon; XLWorkSheet.cells[3,2]:='Оценка объекта -'+ floattostr(cena_client); XLWorkSheet.cells[4,2]:='Оценка альтернативная -'+ floattostr(cena_expert); XLWorkSheet.cells[13,2]:='Адрес -'+adres; XLWorkSheet.cells[32,1]:='Адрес -'+adres; XLWorkSheet.cells[35,1]:='площадь -'+floattostr(ploshad); XLWorkSheet.cells[34,1]:=type_ob; XLWorkSheet.cells[34,4]:='Этажность -'+etag; XLWorkSheet.cells[42,2]:=rayon; XLWorkSheet.cells[54,7]:='Договор №'+ ' '+nomer;end;procedure TaddForm.FormCreate(Sender:TObject);beginedit37.Text:=datetostr(now);edit36.Text:=datetostr(now); edit4.Text:=datetostr(now);end;end.unit parampoisk;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, DB, ADODB, Menus, ChildTemplate, Grids, DBGrids,addsorce, StdCtrls, Mask,DateUtils, ExtCtrls, ComCtrls ;type Tparampoik = class(TForm) Button1: TButton; GroupBox1: TGroupBox; Label1: TLabel; Edit1: TEdit; Label7: TLabel; Edit2: TEdit; UpDown1: TUpDown; Edit3: TEdit; Edit4: TEdit; UpDown2: TUpDown; Edit5: TEdit; UpDown3: TUpDown; Edit6: TEdit; UpDown4: TUpDown; Edit7: TEdit; Label2: TLabel; Label3: TLabel;procedure RzBitBtn4Click(Sender:TObject);procedure RzBitBtn3Click(Sender:TObject);procedure FormClose(Sender: TObject; var Action: TCloseAction);procedure Button1Click(Sender:TObject); private { Private declarations } public { Public declarations } end;var parampoik: Tparampoik; ChildTemplateForm1: TChildTemplateForm; ff:string; flagpoisk:boolean; p1,p2:tparameter;all:boolean;ahour, aminute, asecond, amillisecond :word;priznak:string;stroka_SQL,pole,tabl, srtkl,name_poisk, sqlwhere:string;idnakl,idzapas,i,sravn,kolnakl,kolzapas, rezerv_kol:integer;implementationuses mainclients;{$R *.dfm}procedure Tparampoik.FormClose(Sender: TObject; var Action: TCloseAction);begin Action:=caFree;end;procedure Tparampoik.RzBitBtn3Click(Sender:TObject);var ChildTemplateForm:TChildTemplateform;all:boolean;stroka_SQL,pole,tabl, srtkl,name_poisk, sqlwhere:string; fl_book, fl_avtor, fl_izdat, fl_location, fl_vid, fl_category:boolean;begin{flagsort:=false;} MainClientsForm.IsMDIChildOpen(MainClientsForm,'DBDirectoryTemplateForm'); MainClientsForm.IsMDIChildOpen(MainClientsForm,'addform'); MainClientsForm.IsMDIChildOpen(MainClientsForm,'ChildTemplateForm'); ChildTemplateForm:=TChildTemplateform.Create(Owner); ChildTemplateForm.Left:=0; ChildTemplateForm.Top:=3; mainclientsform.DataSource1.DataSet:=mainclientsform.ADOQuery1; mainclientsform.ADOQuery1.Active:=false; mainclientsform.ADOQuery1.SQL.Clear; P1 :=mainclientsform.ADOQuery1.Parameters.AddParameter; P1.Name:='P1'; p1.DataType := ftstring;end;procedure Tparampoik.RzBitBtn4Click(Sender:TObject);begin flagpoisk:=false; MainClientsForm.IsMDIChildOpen(MainClientsForm,'parampoik');end;procedure Tparampoik.Button1Click(Sender:TObject);var ChildTemplateForm:TChildTemplateform; timenach,timekon:tdatetime;begin{flagsort:=false;} MainClientsForm.IsMDIChildOpen(MainClientsForm,'DBDirectoryTemplateForm'); MainClientsForm.IsMDIChildOpen(MainClientsForm,'addform'); MainClientsForm.IsMDIChildOpen(MainClientsForm,'ChildTemplateForm'); ChildTemplateForm:=TChildTemplateform.Create(Owner); ChildTemplateForm.Left:=0; ChildTemplateForm.Top:=3; mainclientsform.DataSource1.DataSet:=mainclientsform.ADOQuery2; mainclientsform.ADOQuery2.Active:=false; mainclientsform.ADOQuery2.SQL.Clear;if nomer_poisk=1 then begin P1 :=mainclientsform.ADOQuery2.Parameters.AddParameter; P1.Name:='P1'; p1.DataType := ftstring; if edit1.Text<>'' then begin srtkl := edit1.Text; end; if srtkl<>'' then beginsrtkl:='%'+ srtkl+'%';P1.Value:=srtkl; P1.Size:=Length(srtkl); end; ChildTemplateForm.Label1.Caption:='Информация об объекте: '+edit1.Text;sqlwhere:= ' where (object.id_type = ( select type.id_type from type where type.type like :P1))'; stroka_SQL:='select * from object'+sqlwhere ; mainclientsform.ADOQuery2.SQL.Add(stroka_SQL); if stroka_SQL<>'' then begin mainclientsform.ADOQuery2.Active:=true; mainclientsform.ADOQuery2.ExecSQL; end; end; if nomer_poisk=2 then begin P1 :=mainclientsform.ADOQuery2.Parameters.AddParameter; P1.Name:='P1'; p1.DataType := ftstring; if edit1.Text<>'' then begin srtkl := edit1.Text; end; if srtkl<>'' then beginsrtkl:='%'+ srtkl+'%';P1.Value:=srtkl; P1.Size:=Length(srtkl); end; ChildTemplateForm.Label1.Caption:='Информация о клиенте: '+edit1.Text;sqlwhere:= ' where client.familiya like :P1'; stroka_SQL:='select * from client'+sqlwhere ; mainclientsform.ADOQuery2.SQL.Add(stroka_SQL); if stroka_SQL<>'' then begin mainclientsform.ADOQuery2.Active:=true; mainclientsform.ADOQuery2.ExecSQL; end; end;end; end;end.unit DBDirectoryTemplate;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, Grids, DBGrids;type TDBDirectoryTemplateForm = class(TForm) TableDBGrid: TDBGrid;procedure FormClose(Sender: TObject; var Action: TCloseAction); private { Private declarations } public { Public declarations } end;var DBDirectoryTemplateForm: TDBDirectoryTemplateForm;implementation{$R *.dfm}procedure TDBDirectoryTemplateForm.FormClose(Sender: TObject; var Action: TCloseAction);begin Action:=caFree;end;end.unit ChildTemplate;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, Buttons, Grids, DBGrids, ExtCtrls, Menus, StdCtrls;type TChildTemplateForm = class(TForm) DBGrid1: TDBGrid; Label1: TLabel;procedure FormClose(Sender: TObject; var Action: TCloseAction);procedure RzToolbarButton2Click(Sender:TObject);procedure RzToolbarButton1Click(Sender:TObject); private { Private declarations } public { Public declarations } end;implementation{$R *.dfm}uses mainclients;procedure TChildTemplateForm.FormClose(Sender: TObject; var Action: TCloseAction);beginAction:=caFree;end;procedure TChildTemplateForm.RzToolbarButton1Click(Sender:TObject);begindbgrid1.DataSource.DataSet.Insert;end;procedure TChildTemplateForm.RzToolbarButton2Click(Sender:TObject);begindbgrid1.DataSource.DataSet.Edit;end;end.