Программное обеспечение автоматизированной информационной системы агенства недвижимости

Окно верхнего яруса имеют: среднеподвесные створки с углом открытия 60(С, (выт = 3,2 — коэффициент местного сопротивления. Фрамуги нижнего яруса имеют верхнеподвесные створки с углом открытия 45(С, (пр = 3,7.

F1 = (G/3600)* √ (пр*(в1/ g*h1*((н — (в1) = 1,5 м² (36)

F2 = (G/3600)* √ (выт*(в2/ g*h2*((н — (в2) = 1,1 м² (37)

P2

2850 м 1200

1 Р1

7.10 Расчет информационной нагрузки программиста

Программист, в зависимости от подготовки и опыта, решает задачи разной сложности, но в общем случае работа программиста строится по следующему алгоритму:

Таблица 7.2

Этап Содержание Затрата времени, % I

II Постановка задачи Изучение материала по поставленной задаче 6.25 III Определение метода решения задачи 6.25 IV Составление алгоритма решения задачи 12.5 V Программирование 25 VI Отладка программы, составление отчета 50

Данный алгоритм отражает общие действия программиста при решении поставленной задачи независимо от ее сложности.

Таблица 7.3

Этап Член алго-ритма Содержание работы Буквенное обозначение I 1 Получение первого варианта технического задания A1 2 Составление и уточнение технического задания B1 3 Получение окончательного варианта технического задания C1j1 ↑2 4 Составление перечня материалов, существующих по тематике задачи H1j2 5 Изучение материалов по тематике задачи A2 6 Выбор метода решения C2J3 7 Уточнение и согласование выбранного метода B2 ↑ 6 8 Окончательный выбор метода решения C3j4 9 Анализ входной и выходной информации, обрабатываемой задачей H2 10 Выбор языка программирования C4j5 11 Определение структуры программы H3C5q1 12 Составление блок-схемы программы C6q2 13 Составление текстов программы C7w1 14 Логический анализ программы и корректирование ее F1H4w2 15 Компиляция программы F2 ↓ 18 16 Исправление ошибок D1w3 17 Редактирование программы в единый загрузочный модуль F2H5B3w4 18 Выполнение программы F3 19 Анализ результатов выполнения H6w5 ↑ 15 20 Тестирование C8w6 ↑ 15 21 Подготовка отчета о работе F4

Подсчитаем количество членов алгоритма и их частоту (вероятность) относительно общего числа, принятого за единицу. Вероятность повторения i-ой ситуации определяется по формуле:

pi = k/n,

где k — количество повторений каждого элемента одного типа.

n — суммарное количество повторений от источника информации, одного типа.

Результаты расчета сведем в таблицу 7.4:

Таблица 7.

4.

Источник информации Члены алгоритма Символ Количество членов Частота повторений pi 1 Афферентные — всего (n),

в том числе (к): 6 1,00 Изучение технической документации и литературы A 2 0,33 Наблюдение полученных результатов F 4 0, 67 2 Эфферентные — всего, В том числе: 18 1,00 Уточнение и согласование полученных материалов B 3 0,17 Выбор наилучшего варианта из нескольких C 8 0,44 Исправление ошибок D 1 0,06 Анализ полученных результатов H 6 0,33 Выполнение механических действий K 0 0 3 Логические условия — всего в том числе 13 1,00 Принятие решений на основе изучения технической литературы j 5 0,39 Графического материала q 2 0,15 Полученного текста программы w 6 0,46 Всего: 37

Количественные характеристики алгоритма (Табл.

3) позволяют рассчитать информационную нагрузку программиста. Энтропия информации элементов каждого источника информации рассчитывается по формуле, бит/сигн:

где m — число однотипных членов алгоритма рассматриваемого источника информации.

H1 = 2 * 2 + 2 * 4 = 10

H2 = 3 * 1,585 + 8 * 3 + 0 + 6 * 2,585 = 44, 265

H3 = 5 * 2,323 + 2 * 1 + 6 + 2,585 = 29,125

Затем определяется общая энтропия информации, бит/сигн:

HΣ = H1 + H2 + H3,

где H1, H2, H3 — энтропия афферентных, эфферентных элементов и логических условий соответственно.

HΣ = 10 + 44,265 + 29,125 = 83,39

Далее определяется поток информационной нагрузки бит/мин,

где N — суммарное число всех членов алгоритма;

t — длительность выполнения всей работы, мин.

От каждого источника в информации (члена алгоритма) в среднем поступает 3 информационных сигнала в час, время работы — 225 часов, Ф = = 2,6 бит/с Рассчитанная информационная нагрузка сравнивается с допустимой. При необходимости принимается решение об изменениях в трудовом процессе.

Условия нормальной работы выполняются при соблюдении соотношения:

где Фдоп.

мин. и Фдоп.

макс. — минимальный и максимальный допустимые уровни информационных нагрузок (0,8 и 3,2 бит/с соответственно);

Фрасч. — расчетная информационная нагрузка

0,8 < 2,6 <3,2

7.11 Вывод

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

8. Выводы В процессе дипломного проектирования был проведен анализ АИС «Агенство недвижимости» и разработана автоматизированная система учета объектов и клиентов в агенстве.

С использованием программы BPWin 4.0 было проведено моделирование информационных потоков существующего процесса обработки данных и разработанной автоматизированной системы.

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

Реализация системы проводилась с использованием Borland Development studio 2006 и MS SQL Server 2005 Developer. При написании программы было уделено внимание удобству работы пользователя и построению дружественного интерфейса.

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

В рамках дипломного проекта также была рассмотрена эргономика рабочего места пользователя ПЭВМ и даны необходимые рекомендации.

В настоящий момент автоматизированная система «Агенство недвижимости» находится на стадии тестирования с последующим внедрением.

Федотова Д.Э., Семенов Ю. Д., Чижик К. Н. CASE — технологии. Москва, Горячая линия — Телеком, 2003 г.

Федотова Д. Э. Типы и структуры данных в современных языках программирования. / Учебное пособие. Москва, 1981 г.

Федотова Д. Э. Особенности архитектуры вычислительных систем и функциональная структура операционных систем. / Текст лекций. Москва, 1987 г.

Федотова Д. Э. Технология разработки и отладки программ: Учебн. пособие / МИРЭА.

М., 1987.-80с.

Андрианова E.Г., Колесников Г. С., Сыромятников В. П. Структуры и алгоритмы обработки данных — часть 1. / Учебное пособие дли студентов специальности 220 400. — МИРЭА, Москва, 2004 г.

Андрианова E.Г., Колесников Г. С., Сыромятников В. П. Структуры и алгоритмы обработки данных — часть 2. / Лабораторный практикум. МИРЭА, Москва, 2004 г.

Обеспечение безопасных и комфортных условий работы на ПЭВМ: учеб. пособие / Е. Г. Андрианова, Г. В.

Зикеева, Д. Э. Федотова. — М.

: 1995. — 76 с.

Л.Г.Гагарина, Д. В. Киселев и др. Разработка и эксплуатация автоматизированных информационных систем: учеб.

пособие/под ред.

проф.Л. Г. Гагариной.

М:ИД"Форум": ИНФРА-М, 2007. — 384 с.

Автоматизированные информационные системы. Криницкий Н. А., Миронов Г. А., Фролов Г. Д./ Под ред. А. А. Дородницына.

М.: Наука. Главная редакйия физико-математической литературы, 1982.-384 с.

Джеффри Д. Ульман, Дженнифер Уидом. Основы реляционных баз данных, Лори, М, 2006 г.

Сорокин А. В. Разработка баз данных, Питер, Сп-б, 2005 г.

Дейт К.

Введение

в системы баз данных. М., 1998.

Питер Роб, Карлос Коронел. Системы баз данных: проектирование, реализация и управление, БХВ-Петербург, Сп-б, 2004 г.

Дубицкий В. В., Огородникова И. А., Перепеча И. Ф.

и др. К концепции построения внутривузовской системы обеспечения качества образовательного процесса в ОмГУ. // Университетское управление: практика и анализ. — 2003. — N 2(25).

— С. 96−100.

Методические указания по разделу дипломного проекта «Экологичность и безопасность проекта», Москва 2009, МИРЭА. В. К. Монаков, В. С. Розанов, А. В. Трубицын.

Безопасность жизнедеятельности: Электробезопасность: учеб.

пособие / В. С. Розанов. — М.: 1999 г.

Экономика Предприятия Учебник Практикум 3-Е Изд; Грибов В. Д., Грузинов В. П.; Финансы и статистика; 2008 г.

Выполнение организационно-экономической части диплома./ Методическое пособие — МИРЭА, Москва, 2007 г.

Экономика предприятия (фирмы):/ Учебник/ под ред.

проф. О. И. Волкова и доц. О. В. Девяткина.- 3-е изд., перераб. и доп. ._М.: ИНФРА, М.-2004 г.

Э.Б. Самгин. Освещение рабочих мест./ Методическое пособие — МИРЭА, Москва, 1989 г.

РД 50−34.698−90. Автоматизированные системы требования к содержанию документов. Москва, 1992 г.

ГОСТ 2.119−73. Эскизный проект. Москва, 1974 г.

ГОСТ 2.120−73. Технический проект. Москва, 1974 г.

ГОСТ 19.201−78. Техническое задание. Требования к содержанию и оформлению. Москва, 1980 г.

ГОСТ 19.505−79. Руководство оператора. Требования к содержанию и оформлению. Москва, 1980 г.

ГОСТ 19.504−79. Руководство программиста. Требования к содержанию и оформлению. Москва. 1980 г.

Единая система программной документации.

http://www.nist.ru/hr/doc/gost/gost19.htm

СНиП 23−05−95. Естественное и искусственное освещение. Введен в действие с 02.

08.95. М.: Изд. стандартов, 1996. — 29 с.

Производственное освещение. Методические указания к практическим занятиям и лабораторным работам по курсу «Безопасность жизнедеятельности». Сост.: Н. В. Горшенина, Л. Г. Стишенко. — Омск: ОмГТУ, 2001. — 28 с.

Мамиконов А. Г. Проектирование АСУ. — М.: Высшая школа, 1987. — 304с.

Информация с сервера www.referats.aha.ru, изд. INTERNET

Ф. Я. Мотузко, редактор Э. Б. Самгин Методические указания по охране труда для дипломных работ — М. МИРЭА, 1999 г.

Меклер В.Я., Овчинников П. А., Агафонов Е. П. Вентиляция и кондиционирования воздуха на машиностроительных заводах. Справочник. М. Машиностроение, 1980 г.

Розанов В.С., Рязанов А. В. Обеспечение оптимальных параметров воздушной среды Сибаров К. Г., Сколотнев Н. Н., Васин В. К., Начинаев В. Н. Охрана труда в вычислительных центрах: учебное пособие, М.: Машиностроение, 1985.

В рабочей зоне: учебное пособие — М. МИРЭА, 1989 г.

ГОСТ 12.

1.005−88. ССБТ. Воздух рабочей зоны. Общие санитарно — гигиенические требования. М.: Изд-во стандартов, 1990.

Барабаш В.И., Щербак В. С. Психология безопасности труда. Учебное пособие. Санкт-Петербург. 1996, с 210.

Приложение № 1

Описание применения Разрабатываемая система предназначена для автоматизации учета товара в ООО «Фармамед».

Программа написана с использованием визуальной среды разработки Delphi 7.

0.

В качестве СУБД используется Paradox 7.

1.1 Функциональное назначение

Автоматизированная система учета клиентов и объектов недвижимости обеспечивает:

а) ведение базы данных объектов и клиентов б) регистрация появления объектов и клиентов, заказов;

в) поиск клиентов и объектов;

г) формирование отчетного документа в виде бланка агенства;

1.2 Описание логической структуры

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

1.3 Входные данные

Входными данными для системы являются:

данные оклиентах;

данные об объектах недвижимости;

данные одоговорах.

1.4 Выходные данные

Выходными данными для системы являются:

— сформированные отчеты в результате поиска объектов и клиентов

— бланк агенства недвижимости

Приложение № 2

Руководство пользователя

Приложение запускается с помощью исполняемого файла «Agency.exe».

После запуска приложения перед пользователем должно появиться главное окно программы (рис.

1). Главное окно состоит из трех основных частей: выпадающее меню в верхней части окна, в основной части окна расположена эмблема аптеки, в верхней части кнопки быстрого доступа часто используемые при работе с приложением (они дублируют некоторые функции выпадающего меню).

Рис. 1. Главное окно программы

Выпадающие меню Состав выпадающего меню:

«Информация «- данные о всех информационных таблицах базы данных клиенты, объекты, сделки, операции, договора, документы (рис.

2).

Рис.

2. Меню «Информация»

«Добавить» — создание новых объектов базы данных (рис.

3).

Рис.

3. Меню «Добавить»

«Получение справки» — осуществление поиска объектов и клиентов по базе данных (рис.

4).

Рис. 4 Меню «Получение справки»

«База данных» — просмотр всех связанных записей базы данных Далее рассмотрим подробнее некоторые пнукты меню.

Меню «Информация»

Все данные о клиентах, объектах, сделках, договорах заносятся в базу, к этим данные можно осуществить доступ используя меню «Информация» (рис.

5−12).

Рис. 5 Справочник объекты

Рис. 6 Справочник «Клиенты»

Рис.

7. Справочник «Дополнительные сведения об объектах»

Рис.

8. Справочник «Агенты»

Рис.

9. Справочник «Операции с недвижимостью»

Рис.

10. Справочник «Документы»

Рис.

11. Справочник «Договора»

Рис.

12. Справочник «Сделки»

Меню «Добавить»

Пункты меню позволяют создать динамические настриваемую форму для ввода информации о различных объектах (рис.

13−14).

Рис. 15 Добавление нового клиента

Рис. 16 Добавление нового объекта

Рис. 17 Добавление нового агента

Рис. 18 Добавление новой сделки

Меню «Получение справки»

Пункт «Получение справки» позволяет осуществить поиск записей о клиентах и объектах используя динамически создаваемые формы для отображения результатов поиска и для на формирования динамического запроса (рис.

19−23).

Рис. 19 Форма для настройки параметров поиска

Рис. 20 Результат поиска

Рис. 21 Форма для настройки параметров поиска Рис. 22 Результат поиска

Меню «База данных»

Данное меню предназначено для одновременного просмотра информации об объектах и клиентах, претендующих на покупку объектов (рис.

23)

Рис.

23. База данных

При вызове кнопки «Excell» автоматически формируется бланк в среде Excel с данными текущего клиента и объекта при просмотре даннях

.

Рис. 24 Бланк-отчет в «Excell»

Кнопки быстрого доступа Кнопки быстрого доступа в правой части главной формы программы (рис.

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

Рис.

25. Кнопки быстрого доступа Приложение № 3

Код программы

unit MainClients;

interface

uses

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 do

if (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 do

if (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);

begin

MainClientsForm.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;

begin

NewConnection := 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);

begin

if mainflag then

begin

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);

begin

if mainflag then

begin

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.

Модуль ADD

unit addsorce;

interface

uses

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;

implementation

uses 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);

begin

edit37.Text:=datetostr (now);

edit36.Text:=datetostr (now);

edit4.Text:=datetostr (now);

end;

end.

unit parampoisk;

interface

uses

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;

implementation

uses 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

begin

srtkl:='%'+ 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

begin

srtkl:='%'+ 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;

interface

uses

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;

interface

uses

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);

begin

Action:=caFree;

end;

procedure TChildTemplateForm. RzToolbarButton1Click (Sender: TObject);

begin

dbgrid1.DataSource.DataSet.Insert;

end;

procedure TChildTemplateForm. RzToolbarButton2Click (Sender: TObject);

begin

dbgrid1.DataSource.DataSet.Edit;

end;

end.

Проект

Главная форма приложения MainClients

childTemplate.pas

DbdDirectoryTemplate

AddSource.pas

ParamPoisk.pas