Вам нужна дипломная работа?
Интересует Программирование?
Оставьте заявку
на Дипломную работу
Получите бесплатную
консультацию по
написанию
Сделайте заказ и
скачайте
результат на сайте
1
2
3

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

  • 189 страниц
  • 39 источников
  • Добавлена 16.02.2011
3 500 руб. 7 000 руб.
  • Содержание
  • Часть работы
  • Список литературы

ВВЕДЕНИЕ
1. Анализ и описание предметной области
1.1 Обзор аналогов
1.2 Решение «ЦМД-софт: Microsoft Dynamics CRM для агентств недвижимости»
1.3 «Квартал – Недвижимость»
1.4 Программа для агентств недвижимости "База Данных Объектов Недвижимости"
1.4 «DL : Агентство Недвижимости»
1.5 Программа для агентства недвижимости Variant
1.6 Программа для агентства недвижимости
1.7 АСОИАН – учет объектов недвижимости
1.8 «Идеальный вариант: Недвижимость»
1.9 Программный комплекс "ПРАКТИК-РИЭЛТ
1.10 ДОМОВОЙ
2. ТЕХНИЧЕСКОЕ ЗАДАНИЕ
2.1 Назначение разработки
2.2 Требования к программе
2.2.1 Требования к функциональным характеристикам
2.2.2 Требования к обеспечению надежного функционирования программы
2.2.3 Требования к персоналу
2.2.4 Требования к составу и параметрам технических средств
2.2.5 Требования к информационной и программной совместимости
2.2.6 Время восстановления после отказа
2.2.7 Требования к программным средствам, используемым программой
2.2.8 Требования к исходным кодам и языкам программирования
2.2.9 Требования к программной документации
3. ЭСКИЗНЫЙ ПРОЕКТ
3.1. Объектная модель предметной области
3.2 База данных
3.3 Словарь базы данных
3.4. Бизнес процесс
4. ТЕХНИЧЕСКИЙ ПРОЕКТ
4.1 Алгоритмы системы
5. РАБОЧИЙ ПРОЕКТ
5.1 Разработка программных интерфейсов
5.2 Описание работы программы
5.3 Главное окно программы
5.4 Выпадающие меню
5.5 Меню ”Информация”
5.6 Меню ”Добавить”
5.7 Меню “Получение справки”
5.8 Меню “База данных”
5.9 Кнопки быстрого доступа
5.10 Разработка функциональной части
5.10.1 Обоснование выбора языка программирования
5.10.2 Высокопроизводительный компилятор в машинный код
5.10.3 Объектно-ориентированный язык
5.10.4 Объектно-ориентированная модель программных компонент
5.10.5 Библиотека визуальных компонентов
5.10.6 Приоритетная СУБД
5.10.7 Исходные данные
5.10.8 Автоматизированные функции
6. ОРГАНИЗАЦИОННО-ЭКОНОМИЧЕСКАЯ ЧАСТЬ
6.1. Организация и планирование работ
6.2. Сметная стоимость и цена проекта
6.2.1. Материалы и покупные изделия
6.2.2. Специальное оборудование для научных (экспериментальных) работ
6.2.3. Основная заработная плата научного и производственного персонала
6.2.4. Дополнительная заработная плата
6.2.5. Единый социальный налог
6.2.6. Расходы на научные и производственные командировки
6.2.7. Оплата работ, выполняемых сторонними организациями
6.2.8. Прочие расходы
6.2.9. Накладные расходы
6.2.10. Полная себестоимость
6.2.11. Плановая прибыль
6.2.12. Оптовая цена
6.2.13. Налог на добавленную стоимость (НДС)
6.2.14. Договорная цена
6.3. Оценка экономической эффективности и целесообразности проекта
6.4. Элементы бизнес-плана
7. ЭКОЛОГИЧНОСТЬ И БЕЗОПАСНОСТЬ
7.1 Введение
7.2 Проектирование оптимального рабочего места программиста
7.3 Организация рабочего места
7.4 Оборудование рабочих мест
7.5 Расчет тяжести труда
7.5 Расчет показателей искусственного освещения
7.6 Выбор типа ламп
7.7 Проектирование системы освещения
7.8 Качественные показатели освещения
7.9 Расчет оптимальных параметров воздушной среды в рабочей зоне
7.9.1 Расчет показателей вентилируемости помещения
7.9.2 Определение необходимых параметров воздухообмена при наличии в помещении избытка влаги
7.9.3 Определение необходимых параметров воздухообмена для выветривания вредных веществ, содержащихся в воздухе рабочей зоны
7.10 Расчет информационной нагрузки программиста
7.11 Вывод
8. ВЫВОДЫ
СПИСОК ИСПОЛЬЗОВАННОЙ ЛИТЕРАТУРЫ
Приложение №1 Описание применения
Приложение №2 Руководство пользователя
Приложение №3 Код программы

Фрагмент для ознакомления

Окно верхнего яруса имеют: среднеподвесные створки с углом открытия 60(С, (выт = 3,2 – коэффициент местного сопротивления. Фрамуги нижнего яруса имеют верхнеподвесные створки с углом открытия 45(С, (пр = 3,7.
F1 = (G/3600)* √ (пр*(в1/ g*h1*((н - (в1) = 1,5 м2 (36)
F2 = (G/3600)* √ (выт*(в2/ g*h2*((н - (в2) = 1,1 м2 (37)

P2
2
1200

0
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. / Учебное пособие дли студентов специальности 220400. - МИРЭА, Москва, 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.








57




Проект

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

childTemplate.pas

DbdDirectoryTemplate

AddSource.pas

ParamPoisk.pas

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

1.Федотова Д.Э., Семенов Ю.Д., Чижик К.Н. CASE - технологии. Москва, Горячая линия - Телеком, 2003 г.
2.Федотова Д.Э. Типы и структуры данных в современных языках программирования. / Учебное пособие. Москва, 1981 г.
3.Федотова Д.Э. Особенности архитектуры вычислительных систем и функциональная структура операционных систем. / Текст лекций. Москва, 1987 г.
4.Федотова Д.Э. Технология разработки и отладки программ: Учебн. пособие / МИРЭА.-М., 1987.-80с.
5.Андрианова E.Г., Колесников Г.С., Сыромятников В.П. Структуры и алгоритмы обработки данных - часть 1. / Учебное пособие дли студентов специальности 220400. - МИРЭА, Москва, 2004 г.
6.Андрианова E.Г., Колесников Г.С., Сыромятников В. П. Структуры и алгоритмы обработки данных - часть 2. / Лабораторный практикум. МИРЭА, Москва, 2004 г.
7.Обеспечение безопасных и комфортных условий работы на ПЭВМ: учеб. пособие / Е. Г. Андрианова, Г. В. Зикеева, Д. Э. Федотова. - М. : 1995. - 76 с.
8.Л.Г.Гагарина, Д.В.Киселев и др. Разработка и эксплуатация автоматизированных информационных систем: учеб.пособие/под ред.проф.Л.Г.Гагариной.-М:ИД»Форум»:ИНФРА-М,2007. – 384 с.
9.Автоматизированные информационные системы. Криницкий Н.А., Миронов Г.А., Фролов Г.Д./ Под ред. А.А.Дородницына.-М.: Наука. Главная редакйия физико-математической литературы, 1982.-384 с.
10.Джеффри Д. Ульман, Дженнифер Уидом. Основы реляционных баз данных, Лори, М, 2006 г.
11.Сорокин А.В. Разработка баз данных, Питер, Сп-б, 2005 г.
12.Дейт К. Введение в системы баз данных. М., 1998.
13.Питер Роб, Карлос Коронел. Системы баз данных: проектирование, реализация и управление, БХВ-Петербург, Сп-б, 2004 г.
14.Дубицкий В. В., Огородникова И. А., Перепеча И. Ф. и др. К концепции построения внутривузовской системы обеспечения качества образовательного процесса в ОмГУ. // Университетское управление: практика и анализ. - 2003. - N 2(25). - С. 96-100.
15.Методические указания по разделу дипломного проекта «Экологичность и безопасность проекта», Москва 2009, МИРЭА. В.К. Монаков, В.С. Розанов, А.В. Трубицын.
16.Безопасность жизнедеятельности: Электробезопасность: учеб.пособие / В. С. Розанов. - М. : 1999 г.
17.Экономика Предприятия Учебник Практикум 3-Е Изд; Грибов В.Д., Грузинов В.П.; Финансы и статистика; 2008 г.
18. Выполнение организационно-экономической части диплома./ Методическое пособие – МИРЭА, Москва, 2007 г.
19.Экономика предприятия (фирмы):/ Учебник/ под ред.проф. О.И.Волкова и доц. О.В.Девяткина.- 3-е изд., перераб. и доп. ._М.: ИНФРА, М.-2004 г.
20. Э.Б. Самгин. Освещение рабочих мест./ Методическое пособие – МИРЭА, Москва, 1989 г.
21.РД 50-34.698-90. Автоматизированные системы требования к содержанию документов. Москва, 1992 г.
22.ГОСТ 2.119-73. Эскизный проект. Москва, 1974 г.
23.ГОСТ 2.120-73. Технический проект. Москва, 1974 г.
24.ГОСТ 19.201-78. Техническое задание. Требования к содержанию и оформлению. Москва, 1980 г.
25.ГОСТ 19.505-79. Руководство оператора. Требования к содержанию и оформлению. Москва, 1980 г.
26.ГОСТ 19.504-79. Руководство программиста. Требования к содержанию и оформлению. Москва. 1980 г.
27. Единая система программной документации. http://www.nist.ru/hr/doc/gost/gost19.htm
28.СНиП 23-05-95. Естественное и искусственное освещение. Введен в действие с 02.08.95. М.: Изд. стандартов, 1996. - 29 с.
29.Производственное освещение. Методические указания к практическим занятиям и лабораторным работам по курсу "Безопасность жизнедеятельности". Сост.: Н.В. Горшенина, Л.Г. Стишенко. - Омск: ОмГТУ, 2001. - 28 с.
30.Мамиконов А.Г. Проектирование АСУ. - М.: Высшая школа, 1987. - 304с.
31. Информация с сервера www.referats.aha.ru, изд. INTERNET
32. Ф. Я. Мотузко, редактор Э.Б. Самгин Методические указания по охране труда для дипломных работ – М. МИРЭА, 1999 г.
33. Меклер В.Я., Овчинников П.А., Агафонов Е.П. Вентиляция и кондиционирования воздуха на машиностроительных заводах. Справочник. М. Машиностроение, 1980 г.
34.Розанов В.С., Рязанов А.В. Обеспечение оптимальных параметров воздушной среды Сибаров К.Г., Сколотнев Н.Н., Васин В.К., Начинаев В.Н. Охрана труда в вычислительных центрах: учебное пособие, М.: Машиностроение, 1985.
35. В рабочей зоне: учебное пособие – М. МИРЭА, 1989 г.
36. ГОСТ 12.1.005-88. ССБТ. Воздух рабочей зоны. Общие санитарно - гигиенические требования. М.: Изд-во стандартов, 1990.
37. Барабаш В.И., Щербак В.С. Психология безопасности труда. Учебное пособие. Санкт-Петербург. 1996, с 210.

У нас вы можете заказать