Автоматизированное рабочее место производственно-технического отдела

 

Содержание


Введение

1. Техническое задание

1.1 Назначение и область применения программного продукта

1.2 Основания для разработки программного продукта

1.3 Источники входной информации

1.4 Выходная информация

1.5 Методы решения задачи

1.5.1 Методы поиска информации, применяемые для разрабатываемого программного продукта

1.6 Требования к программному продукту

1.6.1 Требования к конфигурации электронно-вычислительных средств

1.6.2 Требования к операционной системе

1.6.3 Требования к языку программирования

2. Разработка программного продукта

2.1 Постановка задачи

2.1.1 Разработка структуры входных данных

2.1.2 Разработка диаграмм

2.1.3 Построение связей между объектами

2.1.4 Создание программных модулей

2.2 Создание контрольных тестов

3. Экономическая часть

3.1 Обоснование сметной стоимости программного обеспечения (ПО)

3.1.1 Обоснование себестоимости программного обеспечения (ПО)

3.1.1.1 Определение трудоемкости разработки программного обеспечения

3.1.2 Определение стоимости машинного времени

3.1.2.1 Исходная информация

3.1.2.3.Определение суммы амортизационных отчислений, руб.

3.1.2.4.Определяем затраты на текущий ремонт оборудования, руб.

3.1.2.5. Расчет затрат на один машино-час

3.1.2.6 Расчет стоимости машинного времени, руб.

3.1.3 Определение себестоимости программного обеспечения (ПО), как базы для формирования цены

3.1.3.1 Расчёт затрат на материалы

3.1.3.2 Расчёт затрат на оплату труда

3.1.3.3. Расчёт себестоимости программного обеспечения ведётся в таблице 3.5

3.2 Разработка стратегии распространения программного продукта

3.2.1 Факторы, определяющие успех программного обеспечения

3.2.2 Роль рекламы в реализации программного обеспечения. Планирование и средства рекламы

3.2.3 Стимулирование сбыта при продаже программного обеспечения

Заключение

Литература

Приложения

Введение


Задачей данного дипломного проектирования является создание программного продукта, который позволит автоматизировать систему оформления документов по строищимся объектам или производимым работам (реставрации и реконструкции зданий). Это облегчит работу сотрудникам строительных организаций, снизится время, затрачиваемое на обработку отчётной документации, повысится точность расчётов.

Тема "Автоматизированное работчее место производственно-технического отдела" выбрана в связи с острой необходимостью совершенствования и систематизации учётно-отчётной документации.

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

Программный продукт включает в себя: составление видомостей, актов по выполненым работам, накладных с денежными затратами на строительство и проведение различных видов работ. Кроме того, программа формирует отчёты и документы по новому строительсту, отделочным работам, ремонту, изменение цен с учётом НДС и увеличением/уменьшением надбавок.

Цель программы - облегчить работу производственных отделов, в частности инженерам, путём ведения автоматизированного учёта и подсчёта чен на строительство.

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

программное обеспечение автоматизация сбыт

1. Техническое задание


1.1 Назначение и область применения программного продукта


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

Данный программный продукт может применяться в строительных организациях: ОАО "Стройкомплекс", Стройтрест №9, РСУ "Витязь".


.2 Основания для разработки программного продукта


Основанием для разработки данного программного продукта является задание на дипломное проектирование.


.3 Источники входной информации


Источниками входной информации являются:

- справка о стоимости выполненых работ и затрат

- акт сдачи-приёмки выполненых строительных работ и иных специальных монтажных работ;

- локальные сметы;

- отчёты по затратам на материалы.


.4 Выходная информация


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

- отчёт о реестре розничных цен согласно накладной;

- накладная на строительный объект

- отчёт о реестре накладных;

- отчёт о проделанной работи и количество произведённых затрат;


.5 Методы решения задачи


1.5.1 Методы поиска информации, применяемые для разрабатываемого программного продукта

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


1.5.2 Описание методики решения задачи

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


1.6 Требования к программному продукту


1.6.1 Требования к конфигурации электронно-вычислительных средств

Минимальные требования к конфигурации электронно-вычислительных средств:

- процессор Pentium (R) Dual-Core T4300 2.10GHz

- 60 Мб свободного места на жёстком диске;

- 100 Мб оперативной памяти;

- принтер с разрешением не мене 300 dpi;

- видео карта SVGA;

- мышь;

- клавиатура;

- монитор с разрешением 800х600.


1.6.2 Требования к операционной системе

Программный продукт требует Microsoft Net Framework не ниже версии 2.0. Операционные системы Microsoft не ниже Windows XP SP1.


1.6.3 Требования к языку программирования

Средой разработки выбран Embarcadero C++Builder 2006 - это передовая среда разработки на языке C++, предназначенная для создания интерактивных приложений с пользовательским интерфейсом для настольных компьютеров, рабочих станций, сенсорных дисплеев, информационных терминалов и Интернета. Это единственная двусторонняя визуальная среда с широкими функциональными возможностями для быстрой разработки на языке C++ приложений с развитым пользовательским интерфейсом и приложений баз данных. Приложения, созданные в среде C++Builder, отличаются высочайшим быстродействием и компактностью, а также обладают полнофункциональным пользовательским интерфейсом и способностью подключаться практически к любой базе данных или другому источнику данных, не требуя дополнительной доработки.

Основные возможности:

- интегрированные средства ANSI/ISO C++ с поддержкой предварительной спецификации C++0x;

- интегрированная среда быстрой разработки приложений с функцией перетаскивания мышью;

- поддержка библиотек Boost и TR1;

- более 250 компонентов в библиотеке VCL;

- встроенная поддержка касаний и жестов;

- dbExpress с поддержкой 9 основных баз данных;

- многоуровневое промежуточное ПО DataSnap с поддержкой JSON, REST, HTTP, COM и XML;

- единая система для работы с Windows 2000, Windows XP, Windows Vista и Windows 7.


2. Разработка программного продукта


2.1 Постановка задачи


2.1.1 Разработка структуры входных данных

Структура входных данных представлена в десяти таблицах.


Таблица 2.1 - Расценки

Наименование реквизитаКод реквизитаТип данныхДлинаКодidСчётчик-ОбоснованияNameobosnovЧисловой8НаименованиеNameТекстовый25Еденицы измеренияEdizmТекстовый6Наименование материаловName_materialovТекстовый40Количество материаловKol_materialovЧисловой10Цена материаловCena_materialovЧисловой13СтоимостьStoimoctЧисловой13МеханизмыMehanizmiТекстовый25ТранспортTransport_nameТекстовый25ЗатратыKol_zatratЧисловой15Цена отп. ГородCena_city_otpЧисловой14Цена отп. СелоCena_celo_otpЧисловой14Цена смет. ГородCena_city_smetЧисловой14Цена смет. СелоCena_celo_smetЧисловой14

Таблица 2.2 - Расценки 2

Наименование реквизитаКод реквизитаТип данныхДлинаКодIdСчётчик-ОбоснованияNameЧисловой8Цена отп. ГородCena_city_otpЧисловой14Цена отп. СелоCena_celo_otpЧисловой14Цена смет. ГородCena_city_smetЧисловой14Цена смет. СелоCena_celo_smetЧисловой14

Таблица 2.3 - Новое строительство

Наименование реквизитаКод реквизитаТип данныхДлинаКодidСчётчик-НомерNumberЧисловой8Вид строительстваName_srojТекстовый25Наименование материаловName_materialovТекстовый6Единицы измеренияEdizmТекстовый40

Таблица 2.4 - Реконструкция

Наименование реквизитаКод реквизитаТип данныхДлинаКодidСчётчик-НомерNumberЧисловой8Вид строительстваName_srojТекстовый25Наименование материаловName_materialovТекстовый6Единицы измеренияEdizmТекстовый40

Таблица 2.5 - Реставрация

Наименование реквизитаКод реквизитаТип данныхДлинаКодidСчётчик-НомерNumberЧисловой8Вид строительстваName_srojТекстовый25Наименование материаловName_materialovТекстовый6Единицы измеренияEdizmТекстовый40

Таблица 2.6 - Объект

Наименование реквизитаКод реквизитаТип данныхДлинаКодidСчётчик-ОбъектыName_objТекстовый8ОбластиoblТекстовый25ЗаказчикиzakТекстовый6ПодрядчикиpodrТекстовый40Ген. пожрядчикgenpodrТекстовый10Тип строительстваTip_strojТекстовый13ПрорабыprorabiТекстовый13МастераmasteraТекстовый25Начало строительстваNew_strojДата25Конец строительстваClose_strojДата15Вид работVid_rabotТекстовый14МатериалыmaterialТекстовый14Таблица 2.7 - Наименование объектов

Наименование реквизитаКод реквизитаТип данныхДлинаКодidСчётчик-ОбъектыName_objectТекстовый25ИнвесторыInvestorТекстовый25

2.1.2 Разработка диаграмм

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

Диаграмма классов наиболее полно отражает схему работы приложения, так как программный продукт был разработан в среде объектно-ориентированного программирования. Диаграмма классов, разработанная в среде Rational Rose, представлена на рисунке 2.7, диаграмма вариантов использования - на рисунке 2.8, а диаграмма последовательности - на рисунке 2.9.


Рисунок 2.7 - Диаграмма деятельности


Рисунок 2.8 - Диаграмма состояния


Рисунок 2.9 - Диаграмма последовательности


2.1.3 Построение связей между объектами

Структурная схема основных модулей программы представлена на рисунке 3.0.


Рисунок 3.0 - Структурная схема основных модулей программы


Модули программы:

- Unit1. cpp - модуль содержащий Меню программы.

- Unit2. cpp - модуль содержащий Главную форму программы.

- Unit3. cpp - модуль содержащий Форму "Расценок".

- Unit4. cpp - модуль содержащий "Компоненты для работой с БД".

- Unit5. cpp - модуль содержащий Форму "Добовления данных".

- Unit5. cpp - модуль содержащий Форму "Редактирование данных"

- Unit6. cpp - модуль содержащий Форму "Редактирование данных"

- Unit7. cpp - модуль содержащий Форму "Настроек"

- Unit5. cpp - модуль содержащий Форму "О программе"

- Unit9. cpp, Unit10. cpp, Unit11. cpp, Unit13. cpp - модуль содержащий отчёты программы.

- Unit12. cpp - модуль содержащий Форму "Приветствия"

- Unit14. cpp - модуль содержащий Форму "Помощи пользователя"


Рисунок 3.1 - Блок-схема алгоритма работы основного расчётного модуля


Рисунок 3.2 - Блок-схема комплекса программ


2.1.4 Создание программных модулей


Таблица 2.1.4.11 - Программные модули

Наименование модуляВходная информацияВыходная информацияПоследовательность обработки информацииЗагрузкаПрограммные формыСостояние загрузки программы в виде progressbarЗагрузка форм: лицензия, база данных, настройки и остальноеМеню программыКнопки для перехода на другие формы программыВыбор и переход пользователем в нужный раздел, из предложенного спискаРасчётКоличество, стоимость 1 шт материалов, время работы, нормативные ценыРозничная ценаПроверяются входные данные, происходит расчёт по основным формуламДобавлениеВведенная информация в поля добавленияСохранённая запись базы данныхВвод информации в поля добавления, сохранениеУдалениеВыбранная запись базы данныхСообщениеОпределение выбранной записи, удаление записиРедактированиеВыбранная запись базы данныхИзменённая информацияОпределение выбранной записи, изменение записи, сохранение записиПоискВведенная в поле поиска информацияРезультат поискаПоиск данных введенных в поле поиска информации

2.2 Создание контрольных тестов


Таблица 2.1 - Контрольные тесты

Наименование тестаОписание тестаРезультат тестаТест "Расчёт"Проверка правильного расчёта розничной ценыПравильно рассчитанная розничная ценаТест "Добавление"Проверка правильного добавления информации в базу Информация корректно добавлена в базу данныхТест "Редактирование"Проверка правильного редактирования информацииИнформация корректно изменена в базе данныхТест "Поиск"Проверка корректности поиска информацииРезультат поиска отображен в таблице Тест "Удаление"Проверка корректности удаления данных в связанных таблицахДанные корректно удалены из базы данныхТест "Справка"Проверка вызова модуля помощиОкно справки запустилось по нажатию клавиши F1 Тест "Корректность"Проверка корректности вводимых данныхПри вводе некорректных данных выводятся соответствующие сообщения

3. Экономическая часть


3.1 Обоснование сметной стоимости программного обеспечения (ПО)


3.1.1 Обоснование себестоимости программного обеспечения (ПО)

"Автоматизированное рабочее место производственно-технического отдела"

Расчет произведен по данным на 29 апреля 2012 года.


3.1.1.1 Определение трудоемкости разработки программного обеспечения

Определение трудоёмкости ПО ведется следующим образом: на основании опытно-статистического (суммарного) метода, в целом на всю разработку, исходя из того, что ее выполнит один программист II-ой категории. Распределение трудоемкости по стадиям разработка ведется в соответствии с ГОСТ 19.102-77 "Стадии разработки" исходя из ориентировочного распределения затрат времени в таблице 3.1.


Таблица 3.1 - Ориентировочное распределение затрат времени

Вид работПроцент от трудоёмкостиТрудоёмкость в часахВсегоМашинное времяТехническое задание, эскизный проект1039,00-Технический проект2078,00-Рабочий проект (машинное время) 60234,00234,00Внедрение в т. ч. ? машинное время ? немашинное время10 5 539 19,5 19,5 19,5Итого: 100390253,5

Примечание: рабочий проект - машинное время является перекрываемым, то есть учитывается и в немашинном времени для расчета оплаты труда программиста.

Данные о трудоёмкости разработки, определенные опытно-статистическим путём подтверждаю. Общий объём программного обеспечения - количество команд (VkПО) - 1360

Руководитель дипломного проекта__________________ (подпись)


3.1.2 Определение стоимости машинного времени


3.1.2.1 Исходная информация

Исходная информация для расчета экономической части получена в бухгалтерском отделе ОАО "Ника" по состоянию на 28 апреля 2012.


Таблица 3.2 - Исходная информация

ПоказательУсловное обозначениеЕдиницы измеренияЗначениеБалансовая стоимость компьютераБКРублей7845000Мощность, потребляемая компьютеромМКкВт0,45Полезный фонд времени работы компьютера за годFКЧас2048Балансовая стоимость принтераБПРублей2540000Мощность, потребляемая принтеромМПкВт0,25Полезный фонд времени работы принтера за годFПЧас1024Стоимость 1 кВт/часСРублей1100Площадь на 1 рабочее местоSрмM26Стоимость 1 м2 производственной площадиСплРублей1381605Норма амортизации для оборудованияНаоПроценты20Норма амортизации для зданийНаплПроценты1,33Отчисления на текущий ремонт оборудования (в процентах от балансовой стоимости) РОПроценты3, 20Часовая тарифная ставка 13 разрядаЧТС13Рублей10976,70

Данные подтверждаю ОАО "Ника"

_______________

(печать, подпись)


3.1.2.3.Определение суммы амортизационных отчислений, руб.



3.1.2.4.Определяем затраты на текущий ремонт оборудования, руб.



Результаты расчетов сведены в таблицу 3.3.


3.1.2.5. Расчет затрат на один машино-час


Таблица 3.3 - Результаты затрат на один машино-час

ПоказательУсловное обозначение Значение, рублейЗа год(ЗМг) На 1 машино-час (СМч) Стоимость потребляемой электроэнергииСэл1088102,40531,30Сумма ежегодных амортизационных отчисленийСао2187252,081067,99Затраты на текущий ремонт оборудованияЗР332320162,27Итого: 3607674,481761,56

Расчет затрат на 1 машино-час ведется исходя из полезного фонда времени работы компьютера за год.



3.1.2.6 Расчет стоимости машинного времени, руб.



где Тм - машинное время работы компьютера в расчёте на программу, час;

Смч ? стоимость одного машино-часа, руб.



3.1.3 Определение себестоимости программного обеспечения (ПО), как базы для формирования цены

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

Широкое применение ВТ требует постоянного обновления и совершенствования ПО. Выбор эффективных проектов ПО связан с их экономической оценкой и расчетом экономического эффекта, который можно определять как у разработчика, так и у пользователя.

У разработчика экономический эффект выступает в виде чистой прибыли, остающейся в распоряжении предприятия от реализации ПО, пользователя в виде экономии трудовых, материальных, финансовых ресурсов, получаемой за счет:

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

- сокращения расходов на оплату машинного времени и других ресурсов на отладку программ;

- снижения расходов на материалы (магнитные ленты, магнитные диски и прочие материалы);

- ускорение ввода в эксплуатацию новых систем;

- улучшения показателей основной деятельности предприятия в результате использования ПО.

Стоимостная оценка ПО у разработчиков предполагает составление сметы затрат, которая включает следующие статьи:

- затраты на материалы;

- стоимость машинного времени;

- основная заработная плата;

- отчисление в фонд социальной защиты населения;

- обязательное страхование от несчастных случаев на производстве и от профессиональных заболеваний;

- прочие затраты;

- расходы на сопровождение и адаптацию;

На основании сметы затрат рассчитывается себестоимость и отпускная цена ПО.

3.1.3.1 Расчёт затрат на материалы

По статье "Материалы" отражаются расходы на магнитные носители, бумагу, красящие ленты и другие материалы, необходимые для разработки ПО.

Расчёт затрат на материалы (М), необходимые для разработки программного обеспечения (ПО) осуществляется по нормативу (Нр) на 100 команд (принимаем равным 4000 руб.), с учетом общего объема команд (VкПО).



где НР - норматив расхода материалов в расчёте на 100 команд;k ПО - общий объём программного продукта в командах.



3.1.3.2 Расчёт затрат на оплату труда

Расчёт основной заработной платы ведётся по видам работ в таблице 3.4.



где Тi - трудоёмкость, час;

ЧТСi - часовая тарифная ставка, руб.


Таблица 3.4 - Расчёт основной заработной платы

Вид работТрудоемкость (Ti), часКвалификационный разрядЧасовая тарифная ставка (ЧТСi), руб. Зарплата прямая, руб. Техническое задание, эскизный проект391310976,7428091,3Технический проект781310976,7856182,6Рабочий проект2341310976,72568547,8Внедрение в т. ч. немашинное время машинное время 19,5 19,5 13 13 10976,7 10976,7 214045,7 214045,7Итого прямая заработная плата (ЗПР) 4280913,1Премии (30% от прямой заработной платы) (Пр) 1284273,9Итого, основная заработная плата (ЗПР + Пр) 5565187

Примечание: инженер-программист II категории - 13 разряд.

Дополнительная заработная плата на конкретное ПО (Зд) включает выплаты, предусмотренные законодательством о труде (оплата отпусков, льготных часов, времени выполнения государственных обязанностей и других выплат, не связанных с основной деятельностью исполнителей), и определяется по нормативу в процентах к основной заработной плате, в рублях.



где Зос - основная заработная плата;

Зд - дополнительная заработная плата на конкретное ПО в руб.;

Нд - норматив дополнительной заработной платы принимается 10% от основной.



3.1.3.3. Расчёт себестоимости программного обеспечения ведётся в таблице 3.5


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



где Нсз- норматив отчислений в фонд социальной защиты населения (%).



Обязательное страхование от несчастных случаев на производстве и профессиональных заболеваний (Зстр) берется по нормативу, установленному в целом по организации (Нстр - примерно 0,69%), в рублях.



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

Относятся на конкретное ПО по нормативу (Нпз) в процентном отношении к основной заработной плате исполнителей. Норматив устанавливается в целом по организации (принимаем 98%). Определяем Пз, в рублях:



Общая сумма всех расходов по статьям сметы рассчитывается в таблице 1.5.

Кроме того, организация-разработчик осуществляет затраты на сопровождение и адаптацию ПО (Рса), которые определяются по нормативу Нрса (принимаем 4%):



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



Общая сумма расходов на разработку (с затратами на сопровождение и адаптацию) (Спл) определяется по формуле:



Результаты всех расчетов сведены в таблицу 3.5.


Таблица 3.5 - Стоимость программного обеспечения

Наименование стадий затратСумма, руб. Обоснование расчета1. Затраты на материалы54400,00Раздел 3.1.3.1 2. Стоимость машинного времени446555,46Раздел 3.1.2.63. Основная заработная плата5565187,00Таблица 3.44. Дополнительная заработная плата556518,7010% от п.35. Итого фонд оплаты труда (ФОТ) 6121705,70п.3+п.46. Отчисления в фонд социальной защиты населения2081379,9434% от п.57. Обязательное страхование от несчастных случаев на производстве и профессиональных заболеваний42239,770,69% от п.58. Итого: отчисления на социальные нужды2123619,71п.6+п.79. Прочие расходы (арендная плата, услуги связи, коммунальные услуги и др.) 5453883,2698% от п.310. Полная себестоимость без учета расходов на сопровождение и адаптацию14200164,13п.1+п.2+п.5+п.8+п.911. Расходы на сопровождение и адаптацию568006,574% от п.3.1012. Полная себестоимость с учетом расходов на сопровождение и адаптацию14768170,70п.10+п.11

3.2 Разработка стратегии распространения программного продукта


3.2.1 Факторы, определяющие успех программного обеспечения

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

Качество продукта определяется тем, как он спроектирован и реализован. На качество продукта влияет его быстродействие, отсутствие ошибок, интерактивность, интерфейс, дизайн. Улучшения по сравнению с лидером в данной области или собственная значимость продукта оценивается пользователями или их отсутствием. От предприимчивости фирмы-разработчика зависит то, как быстро продукт получит оценку, на это влияет наличие связей с теми, чье мнение имеет вес.

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

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


3.2.2 Роль рекламы в реализации программного обеспечения. Планирование и средства рекламы

Реклама при реализации программного продукта играет такую же роль, как и при реализации любого другого товара. Но, несмотря на это, существуют некоторые отличия.

Размер средств, вкладываемых в рекламу программ, меньше, нежели в рекламу других товаров. Все это потому, что пользоваться данным продуктом могут не все, а лишь обладатели ПЭВМ, то есть определенный сегмент рынка потребителей. Следовательно, планирование рекламы должно исходить из того, что данный вид продукции не является массовым, а значит и подходы к ее реализации должны быть соответствующими. Отсюда вытекают и требования к средствам рекламы. Для рекламы, например, графического редактора достаточно разместить свои объявления в специальных изданиях, в тех, которые ориентированы на данный сегмент.

Таким образом, рекламу программного продукта лучше организовать с использованием средств вычислительной техники. Здесь все зависит от имеющихся у фирмы ресурсов и технических средств. В настоящее время для создания рекламы используется компьютер класса "Pentium IV", принтер, сканер и т.д. А из редакторов, используемых для этих целей, известны следующие: 3D Studio, Adobe Photoshop, Corel Draw, Page Maker, Microsoft Office Word, Power Point, которые в свою очередь требуют определенной конфигурации ПЭВМ.


3.2.3 Стимулирование сбыта при продаже программного обеспечения

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

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

Заключение


В результате выполнения дипломного проектирования была разработана программа для расчёта цен на строительные материалы и строительство объектов, формирования отчётов о затратах на материалы, технику и др средства для строительства. Программный продукт разработан в среде C++Builder 2006. Программа выполняет все поставленные задачи в полной мере, а также за имеющееся время на разработку программного продукта был обеспечен высокий уровень интерфейса, удобства работы с программой, полностью реализована помощь пользователю в виде справки и всплывающих подсказок во время работы с программой. Результаты, которые могут быть достигнуты при дальнейшем совершенствовании продукта, могут в несколько раз увеличить его функциональные возможности. Для этого необходимо внедрить модули ведения бухгалтерского учёта в программу, обеспечить взаимодействие программного продукта с другими системами учёта, которые применяются в организациях.

Литература


1. Объектно-ориентированный анализ и проектирование с примерами пользователя/ Пер. с англ.Г. Г. Буг. - М.: ДМК, 2000. - 224 с.: ил.

. ГОСТ 19.101-77. Программа и методика испытаний. - Введ.01.01.1981 г. - М.: Изд-во стандартов, 2001г.

. ГОСТ 19.102-77 Стадии разработки. - Введ.81-07-01. - М.: Изд-во стандартов, 2001г.

. ГОСТ 19.104-78. Единая система программной документации. Основные надписи. - Введ.81-07-01. - М.: Изд-во стандартов, 2001г.

. ГОСТ 19.106-78. Единая система программной документации. Требования к программным документам, выполненным печатным способом. - Введ 81-07-01. - М.: Изд-во стандартов, 2001г.

. ГОСТ 19.201-78 Техническое задание. Требования к содержанию и оформлению. - Введ.81-07-01. - М.: Изд-во стандартов, 2001г.

. ГОСТ 19.103-80. Единая система программной документации. Схемы алгоритмов и программ. Обозначение условные графические. - Введ.81-07-01. - М.: Изд-во стандартов, 2001г.

. ГОСТ 19.701-80. Единая система программной документации. Схемы алгоритмов, программ, данных и систем. Условные обозначения и правила выполнения. - Введ 81-07-01 - М.: Изд-во стандартов, 2001г.

. ГОСТ 7.1-2003. Библиографическая запись. Библиографическое описание. Общие требования и правила составления. - Взамен ГОСТ 7.1-84, ГОСТ 7.16-79, ГОСТ 7.18-79, ГОСТ 7.34-81, ГОСТ 7.40-82.; Введ. 2004-10-01. - Мн.: Госстандарт Республики Беларусь, 2004г. - 47 с.

. Глушаков С.В. Базы данных: учебный курс, С.В. Глушаков Д.В. Ломотько. - Киев.: Абрис, 2000г. - 480 с.: ил.

. Зелковец М.В. Принципы разработки программного обеспечения, М.В. Земковец. - Москва: Мир, 1982г. - 400 с.: ил.

. Зиглер К.К. Методы проектирования программных систем, К.К. Зиглер - М.: Мир, 1985. - 520 с.: ил.

. Карпей Т.В. Экономика. Организация и планирование промышленного производства, Т.В. Карпей - М.: Дизайн ПРО, 2004г. - 321 с.: ил.

. Палицын В.А. Технико-экономическое обоснование дипломных проектов. Методическое пособие, В.А. Палицын - М.: Минск, УО БГУИР, Кафедра экономики, 2005г. - Часть 4.

. Крёнке Д.Р. Теория и практика построения баз данных, Д.Р. Кренке. - СПб.: Питер, 2003г. - 540 с.: ил.

. Константайн Л.О. Разработка программного обеспечения, Л.О. Константайн, Л. Локвуд. - СПб.: Питер, 2004г. - 592 с.: ил.

. Левчук Е.А. Технология организации, хранения и обработки данных, А.Е. Левчук. - М.: Вышэйшая школа, 2005г. - 450 с.: ил.

. Малыхина М.М. Базы данных: основы, проектирование, использование, М.М. Малыхина. - СПб.: БХВ-Петербург, 2004г. - 423 с.: ил.

. Поливкина Т.В. Сборник инструкций по охране труда для учреждений образования, Поливкина Т.В., А.А. Тарасевич. - М.: ЦОТЖ, 2004г. - с.161-163.

. Сокол Т.С. Охрана труда, Т.С. Сокол, Н.В. Овчинникова. - М.: Дизайн ПРО, 2005г. - 304 с.: ил.

. Система безопасности труда: сборник. - М.: Изд-во стандартов, 2002. - 102 с.

. Тассел Д.Д. Стиль, разработка, эффективность, отладка, испытание программ, Д.Д. Тассел. - М.: Мир, 1981г. - 450 с.: ил.

. Тиори Т.О. Проектирование структур баз данных, Т.О. Тиори. - М.: Мир, 1985г. - 430 с.: ил.

. Фрай Дж.Т. SQL в примерах и задачах, Дж.Т. Фрай [и др.]. - Мн.: ООО "Новое знание", 2002г. - 578 с.: ил.

. Нехорошева Л.Н. Экономика предприятия, Под общей редакцией Л.Н. Нехорошевой - Мн.: высшая школа, 2005г., раздел 2.

Приложения


Приложение 1


Исходный текст программы

Приветствие

// ---------------------------------------------------------------------------

#include <vcl. h>

#pragma hdrstop

#include "Unit1. h"

#include "Unit2. h"

#include "Unit4. h"

#include "Unit5. h"

#include "Unit12. h"

// ---------------------------------------------------------------------------

#pragma package (smart_init)

#pragma link "sGauge"

#pragma link "sPanel"

#pragma link "sRadioButton"

#pragma link "sLabel"

#pragma link "sSkinManager"

#pragma resource "*. dfm"*Form12;

// ---------------------------------------------------------------------------

__fastcall TForm12:: TForm12 (TComponent* Owner)

: TForm (Owner)

{

}

// ---------------------------------------------------------------------------__fastcall TForm12:: Timer1Timer (TObject *Sender)

{( (ExtractFilePath (ParamStr (0)) +"Launcher // "+"Launcher1. exe"). c_str (), (ExtractFilePath (ParamStr (0)) +"Обновление. exe"). c_str (),true);->AlphaBlendValue++;(Form12->AlphaBlendValue==255) {( (ExtractFilePath (ParamStr (0)) +"Launcher // "+"Launcher1. exe"). c_str ());->Enabled=false;->Enabled=true; }

}

// ---------------------------------------------------------------------------__fastcall TForm12:: Timer2Timer (TObject *Sender)

{->Progress++;(sGauge1->Progress==1) {sGauge1->Suffix="% Проверка на наличие обновления. "; }(sGauge1->Progress==5) {sGauge1->Suffix="% Загрузка модулей программы. "; }(sGauge1->Progress==16) {sGauge1->Suffix="% Загрузка стиля ''Pulsar'' программы. "; }(sGauge1->Progress==30) {sGauge1->Suffix="% Подключение базы данных. "; }(sGauge1->Progress==44) {sGauge1->Suffix="% Оптимизация всех компонентов программы. "; }(sGauge1->Progress==sGauge1->MaxValue) {sGauge1->Suffix="% Запуск программы. ";(1500); Timer2->Enabled=false; Timer3->Enabled=true; }

}

// ---------------------------------------------------------------------------__fastcall TForm12:: Timer4Timer (TObject *Sender)

{char *FileTo = (ExtractFilePath (ParamStr (0)) +"Launcher // "+"Project1. exe"). c_str ();char *FileFrom = (ExtractFilePath (ParamStr (0)) +"Обновление. exe"). c_str ();(FileExists (FileTo) ==false) {Timer4->Enabled=false; Timer1->Enabled=true; }{Timer4->Enabled=false; Form12->Close ();(Handle, "open", FileFrom, 0, 0, SW_SHOWNORMAL); }

}

// ---------------------------------------------------------------------------__fastcall TForm12:: Timer3Timer (TObject *Sender)

{->AlphaBlendValue--;(Form12->AlphaBlendValue==0) {->ADOConnection1->Connected=true;->ADOQuery1->Active=true;->ADOQuery2->Active=true;->ADOQuery3->Active=true;->ADOQuery4->Active=true;->ADOQuery5->Active=true;->ADOQuery6->Active=true;->ADOQuery7->Active=true;->ADOQuery8->Active=true;->ADOQuery9->Active=true;->ADOQuery10->Active=true;->ADOQuery11->Active=true;->ADOQuery12->Active=true;->ADOQuery13->Active=true;->ADOQuery14->Active=true;->ADOQuery15->Active=true;->ADOQuery16->Active=true;->ADOTable1->Active=true;->ADOTable2->Active=true;->ADOTable3->Active=true;->ADOTable4->Active=true;->ADOTable5->Active=true;->ADOTable6->Active=true;->ADOTable7->Active=true;->ADOTable8->Active=true;->ADOTable9->Active=true;->ADOTable10->Active=true;->ADOTable11->Active=true;->ADOTable12->Active=true;->ADOTable13->Active=true;->ADOTable14->Active=true;->ADOTable15->Active=true;->ADOTable16->Active=true;->Timer1->Enabled=true;->Timer1->Enabled=true;->Enabled=false;->Hide ();->Show (); }

}

// ---------------------------------------------------------------------------

Меню программы

// ---------------------------------------------------------------------------

#include <vcl. h>

#pragma hdrstop

#include "Unit1. h"

#include "Unit2. h"

#include "Unit3. h"

#include "Unit5. h"

#include "Unit6. h"

#include "Unit7. h"

#include "Unit8. h"

#include "Unit12. h"

// ---------------------------------------------------------------------------

#pragma package (smart_init)

#pragma link "sLabel"

#pragma link "sPanel"

#pragma link "sStatusBar"

#pragma link "sBitBtn"

#pragma link "sBevel"

#pragma link "sMonthCalendar"

#pragma link "sSkinManager"

#pragma link "sButton"

#pragma resource "*. dfm"*Form1;

// ---------------------------------------------------------------------------

__fastcall TForm1:: TForm1 (TComponent* Owner)

: TForm (Owner)

{

}

// ---------------------------------------------------------------------------__fastcall TForm1:: sBitBtn1Click (TObject *Sender)

{->Close ();->Show ();->sGroupBox1->Visible=true;->sGroupBox2->Visible=false;->sGroupBox3->Visible=false;->sGroupBox4->Visible=false;->sGroupBox5->Visible=false;

}

// ---------------------------------------------------------------------------__fastcall TForm1:: sBitBtn2Click (TObject *Sender)

{->Close ();->Show ();->sPageControl1->ActivePage=Form5->sTabSheet1;->sButton1->SetFocus ();->sGroupBox2->Visible=false;->sGroupBox1->Visible=true;->sGroupBox3->Visible=false;->sGroupBox6->Visible=false;

}

// ---------------------------------------------------------------------------__fastcall TForm1:: sBitBtn3Click (TObject *Sender)

{->Close ();->Show ();->sPageControl1->ActivePage=Form5->sTabSheet1;->sButton2->SetFocus ();->sGroupBox1->Visible=false;->sGroupBox2->Visible=true;->sGroupBox3->Visible=false;->sGroupBox6->Visible=false;

}

// ---------------------------------------------------------------------------__fastcall TForm1:: sBitBtn4Click (TObject *Sender)

{->Close ();->Show ();->sPageControl1->ActivePage=Form5->sTabSheet1;->sButton3->SetFocus ();->sGroupBox1->Visible=false;->sGroupBox2->Visible=false;->sGroupBox3->Visible=true;->sGroupBox6->Visible=false;

}

// ---------------------------------------------------------------------------__fastcall TForm1:: sBitBtn9Click (TObject *Sender)

{->Close ();

}

// ---------------------------------------------------------------------------__fastcall TForm1:: Timer1Timer (TObject *Sender)

{->Panels->Items [0] - >Text=Time ();->Panels->Items [1] - >Text=Date ();->Panels->Items [2] - >Text="Copyright. © 2012-2013";->Panels->Items [3] - >Text="АРМ ПТО_Beta v0.1";->sStatusBar1->Panels->Items [0] - >Text=Time ();->sStatusBar1->Panels->Items [1] - >Text=Date ();->sStatusBar1->Panels->Items [2] - >Text="Copyright. © 2012-2013";->sStatusBar1->Panels->Items [3] - >Text="АРМ ПТО_Beta v0.1";->sStatusBar1->Panels->Items [0] - >Text=Time ();->sStatusBar1->Panels->Items [1] - >Text=Date ();->sStatusBar1->Panels->Items [2] - >Text="Copyright. © 2012-2013";->sStatusBar1->Panels->Items [3] - >Text="АРМ ПТО_Beta v0.1";->sStatusBar1->Panels->Items [0] - >Text=Time ();->sStatusBar1->Panels->Items [1] - >Text=Date ();->sStatusBar1->Panels->Items [2] - >Text="Copyright. © 2012-2013";->sStatusBar1->Panels->Items [3] - >Text="АРМ ПТО_Beta v0.1";->sStatusBar1->Panels->Items [0] - >Text=Time ();->sStatusBar1->Panels->Items [1] - >Text=Date ();->sStatusBar1->Panels->Items [2] - >Text="Copyright. © 2012-2013";->sStatusBar1->Panels->Items [3] - >Text="АРМ ПТО_Beta v0.1";->sStatusBar1->Panels->Items [0] - >Text=Time ();->sStatusBar1->Panels->Items [1] - >Text=Date ();->sStatusBar1->Panels->Items [2] - >Text="АРМ ПТО_Beta v0.1";

}

// ---------------------------------------------------------------------------__fastcall TForm1:: sButton1Click (TObject *Sender)

{->Close ();->Show ();->sPageControl1->ActivePage=Form5->sTabSheet1;->sButton20->SetFocus ();->sGroupBox1->Visible=false;->sGroupBox2->Visible=false;->sGroupBox3->Visible=false;->sGroupBox6->Visible=true;

}

// ---------------------------------------------------------------------------__fastcall TForm1:: sButton2Click (TObject *Sender)

{->Close ();->Show ();->sPageControl1->ActivePage=Form5->sTabSheet2;->sPageControl2->ActivePage=Form5->sTabSheet3;->sPageControl4->ActivePage=Form5->sTabSheet18;

}

// ---------------------------------------------------------------------------__fastcall TForm1:: FormKeyDown (TObject *Sender, WORD &Key,Shift)

{(Key==VK_ESCAPE) {sBitBtn9Click (sBitBtn9); }(Key==VK_F1) {sBitBtn8Click (sBitBtn8); }

}

// ---------------------------------------------------------------------------__fastcall TForm1:: sBitBtn8Click (TObject *Sender)

{FILE_HELP_NAME_STR = "help. chm";(FileExists (FILE_HELP_NAME_STR)) {(Handle, "open", "help. chm", 0, 0, SW_SHOWNORMAL);; }{Application->MessageBoxA ("Справка отсутствует!","Ошибка. ",16);; }

}

// ---------------------------------------------------------------------------__fastcall TForm1:: sBitBtn7Click (TObject *Sender)

{->ShowModal ();

}

// ---------------------------------------------------------------------------__fastcall TForm1:: sBitBtn5Click (TObject *Sender)

{->ShowModal ();->sPageControl1->ActivePage=Form7->sTabSheet1;->sPageControl2->ActivePage=Form7->sTabSheet3;

}

// ---------------------------------------------------------------------------__fastcall TForm1:: sBitBtn6Click (TObject *Sender)

{->Show ();->sPageControl1->ActivePage=Form7->sTabSheet2;

}

// ---------------------------------------------------------------------------__fastcall TForm1:: sButton3Click (TObject *Sender)

{->Close ();->Show ();->sGroupBox1->Visible=true;->sGroupBox2->Visible=false;

}

// ---------------------------------------------------------------------------

Нормативно-справочная информация

// ---------------------------------------------------------------------------

#include <vcl. h>

#pragma hdrstop

#include "Unit1. h"

#include "Unit2. h"

#include "Unit3. h"

#include "Unit4. h"

#include "Unit5. h"

#include "Unit6. h"

#include "Unit7. h"

#include "Unit8. h"

#include "Unit12. h"

// ---------------------------------------------------------------------------

#pragma package (smart_init)

#pragma link "sGroupBox"

#pragma link "sPanel"

#pragma link "sRadioButton"

#pragma link "sStatusBar"

#pragma link "acDBGrid"

#pragma link "sButton"

#pragma link "sDBEdit"

#pragma link "sLabel"

#pragma resource "*. dfm"*Form2;

// ---------------------------------------------------------------------------

__fastcall TForm2:: TForm2 (TComponent* Owner)

: TForm (Owner)

{

}

// ---------------------------------------------------------------------------__fastcall TForm2:: sRadioButton2Click (TObject *Sender)

{->Visible=true;->Visible=false;->Visible=false;

}

// ---------------------------------------------------------------------------__fastcall TForm2:: sRadioButton3Click (TObject *Sender)

{->Visible=true;->Visible=false;->Visible=false;

}

// ---------------------------------------------------------------------------__fastcall TForm2:: sRadioButton1Click (TObject *Sender)

{->Visible=true;->Visible=false;->Visible=false;

}

// ---------------------------------------------------------------------------__fastcall TForm2:: sButton1Click (TObject *Sender)

{->ADOTable1->First ();->Enabled=false;->Enabled=false;->Visible=true;->Visible=false;->Visible=false;->Visible=false;->Visible=false;

}

// ---------------------------------------------------------------------------__fastcall TForm2:: sButton8Click (TObject *Sender)

{->Close ();->Show ();

}

// ---------------------------------------------------------------------------__fastcall TForm2:: sButton7Click (TObject *Sender)

{->Close ();->Show ();

}

// ---------------------------------------------------------------------------__fastcall TForm2:: sButton6Click (TObject *Sender)

{->ADOTable6->First ();->ADOTable7->First ();->ADOTable8->First ();->Enabled=false;->Enabled=false;->Visible=true;->Visible=false;->Visible=false;->Visible=false;->Visible=false;

}

// ---------------------------------------------------------------------------__fastcall TForm2:: sButton5Click (TObject *Sender)

{->ADOTable5->First ();->Enabled=false;->Enabled=false;->Visible=true;->Visible=false;->Visible=false;->Visible=false;->Visible=false;

}

// ---------------------------------------------------------------------------__fastcall TForm2:: sButton4Click (TObject *Sender)

{->ADOTable4->First ();->Enabled=false;->Enabled=false;->Visible=true;->Visible=false;->Visible=false;->Visible=false;->Visible=false;

}

// ---------------------------------------------------------------------------__fastcall TForm2:: sButton3Click (TObject *Sender)

{->ADOTable3->First ();->Enabled=false;->Enabled=false;->Visible=true;->Visible=false;->Visible=true;->Visible=false;->Visible=false;->Visible=false;->Visible=false;

}

// ---------------------------------------------------------------------------__fastcall TForm2:: sButton2Click (TObject *Sender)

{->ADOTable2->First ();->Enabled=false;->Enabled=false;->Visible=true;->Visible=false;->Visible=true;->Visible=false;->Visible=false;->Visible=false;->Visible=false;

}

// ---------------------------------------------------------------------------__fastcall TForm2:: sButton16Click (TObject *Sender)

{->Close ();->Show ();->sPageControl1->ActivePage=Form5->sTabSheet1;->sGroupBox2->Visible=false;->sGroupBox1->Visible=true;->sGroupBox3->Visible=false;->sGroupBox6->Visible=false;

}

// ---------------------------------------------------------------------------__fastcall TForm2:: sButton15Click (TObject *Sender)

{(DataModule4->ADOTable1->IsEmpty () ==true) // если записей нет то будет true>MessageBoxA ("Запись удалена!","Удаление. ",64); // уведомление пользователю{->ADOTable1->Delete ();("Запись удалена");

} // удаляем с последующем уведомлением

}

// ---------------------------------------------------------------------------__fastcall TForm2:: Timer1Timer (TObject *Sender)

{(sRadioButton1->Checked==true) {Label22->Caption=IntToStr (DataModule4->ADOTable6->RecordCount); }(sRadioButton2->Checked==true) {Label22->Caption=IntToStr (DataModule4->ADOTable7->RecordCount); }(sRadioButton3->Checked==true) {Label22->Caption=IntToStr (DataModule4->ADOTable8->RecordCount); }

}

// ---------------------------------------------------------------------------__fastcall TForm2:: sButton14Click (TObject *Sender)

{->Close ();->Show ();->sPageControl1->ActivePage=Form5->sTabSheet2;->sPageControl2->ActivePage=Form5->sTabSheet3;->sPageControl4->ActivePage=Form5->sTabSheet18;

}

// ---------------------------------------------------------------------------__fastcall TForm2:: N9Click (TObject *Sender)

{FILE_HELP_NAME_STR = "help. chm";(FileExists (FILE_HELP_NAME_STR))

{ShellExecute (Handle, "open", "help. chm", 0, 0, SW_SHOWNORMAL);; }{Application->MessageBoxA ("Справка отсутствует!","Ошибка. ",16);; }

}

// ---------------------------------------------------------------------------__fastcall TForm2:: FormActivate (TObject *Sender)

{ /*->ADOTable1->Active=false; DataModule4->ADOTable1->Active=true;->ADOTable2->Active=false; DataModule4->ADOTable2->Active=true;->ADOTable3->Active=false; DataModule4->ADOTable3->Active=true;->ADOTable4->Active=false; DataModule4->ADOTable4->Active=true;->ADOTable5->Active=false; DataModule4->ADOTable5->Active=true;->ADOTable6->Active=false; DataModule4->ADOTable6->Active=true;->ADOTable7->Active=false; DataModule4->ADOTable7->Active=true;->ADOTable8->Active=false; DataModule4->ADOTable8->Active=true;->ADOTable9->Active=false; DataModule4->ADOTable9->Active=true; */

}

// ---------------------------------------------------------------------------__fastcall TForm2:: N7Click (TObject *Sender)

{->Show ();

}

// ---------------------------------------------------------------------------__fastcall TForm2:: sButton9Click (TObject *Sender)

{(sGroupBox1->Visible==true) {->ADOTable1->First ();->Enabled=false; sButton10->Enabled=false; sButton11->Enabled=true; sButton12->Enabled=true; }(sGroupBox2->Visible==true && sRadioButton1->Checked==true) {->ADOTable6->First ();->Enabled=false; sButton10->Enabled=false; sButton11->Enabled=true; sButton12->Enabled=true; }(sGroupBox2->Visible==true && sRadioButton2->Checked==true) {->ADOTable7->First ();->Enabled=false; sButton10->Enabled=false; sButton11->Enabled=true; sButton12->Enabled=true; }(sGroupBox2->Visible==true && sRadioButton3->Checked==true) {->ADOTable8->First ();->Enabled=false; sButton10->Enabled=false; sButton11->Enabled=true; sButton12->Enabled=true; }(sGroupBox5->Visible==true && sDBGrid2->Visible==true) {->ADOTable2->First ();->Enabled=false; sButton10->Enabled=false; sButton11->Enabled=true; sButton12->Enabled=true; }(sGroupBox5->Visible==true && sDBGrid3->Visible==true) {->ADOTable3->First ();->Enabled=false; sButton10->Enabled=false; sButton11->Enabled=true; sButton12->Enabled=true; }(sGroupBox4->Visible==true) {->ADOTable4->First ();->Enabled=false; sButton10->Enabled=false; sButton11->Enabled=true; sButton12->Enabled=true; }(sGroupBox3->Visible==true) {->ADOTable5->First ();->Enabled=false; sButton10->Enabled=false; sButton11->Enabled=true; sButton12->Enabled=true; }

}

// ---------------------------------------------------------------------------__fastcall TForm2:: sButton10Click (TObject *Sender)

{(sGroupBox1->Visible==true) {(DataModule4->ADOTable1->RecNo>1)

{sButton11->Enabled=true; sButton12->Enabled=true; }

{sButton9->Enabled=false; sButton10->Enabled=false; }(DataModule4->ADOTable1->RecNo==1)

{sButton9->Enabled=false; sButton10->Enabled=false; sButton11->Enabled=true; sButton12->Enabled=true; }->ADOTable1->Prior (); }(sGroupBox5->Visible==true && sDBGrid2->Visible==true) {(DataModule4->ADOTable2->RecNo>1)

{sButton11->Enabled=true; sButton12->Enabled=true; }

{sButton9->Enabled=false; sButton10->Enabled=false; }(DataModule4->ADOTable2->RecNo==1)

{sButton9->Enabled=false; sButton10->Enabled=false; sButton11->Enabled=true; sButton12->Enabled=true; }->ADOTable2->Prior (); }(sGroupBox5->Visible==true && sDBGrid3->Visible==true) {(DataModule4->ADOTable3->RecNo>1)

{sButton11->Enabled=true; sButton12->Enabled=true; }

{sButton9->Enabled=false; sButton10->Enabled=false; }(DataModule4->ADOTable3->RecNo==1)

{sButton9->Enabled=false; sButton10->Enabled=false; sButton11->Enabled=true; sButton12->Enabled=true; }->ADOTable3->Prior (); }(sGroupBox4->Visible==true) {(DataModule4->ADOTable4->RecNo>1)

{sButton11->Enabled=true; sButton12->Enabled=true; }

{sButton9->Enabled=false; sButton10->Enabled=false; }(DataModule4->ADOTable4->RecNo==1)

{sButton9->Enabled=false; sButton10->Enabled=false; sButton11->Enabled=true; sButton12->Enabled=true; }->ADOTable4->Prior (); }(sGroupBox3->Visible==true) {(DataModule4->ADOTable5->RecNo>1)

{sButton11->Enabled=true; sButton12->Enabled=true; }

{sButton9->Enabled=false; sButton10->Enabled=false; }(DataModule4->ADOTable5->RecNo==1)

{sButton9->Enabled=false; sButton10->Enabled=false; sButton11->Enabled=true; sButton12->Enabled=true; }->ADOTable5->Prior (); }(sGroupBox2->Visible==true && sRadioButton1->Checked==true) {(DataModule4->ADOTable6->RecNo>1)

{sButton11->Enabled=true; sButton12->Enabled=true; }

{sButton9->Enabled=false; sButton10->Enabled=false; }(DataModule4->ADOTable6->RecNo==1)

{sButton9->Enabled=false; sButton10->Enabled=false; sButton11->Enabled=true; sButton12->Enabled=true; }->ADOTable6->Prior (); }(sGroupBox2->Visible==true && sRadioButton2->Checked==true) {(DataModule4->ADOTable7->RecNo>1)

{sButton11->Enabled=true; sButton12->Enabled=true; }

{sButton9->Enabled=false; sButton10->Enabled=false; }(DataModule4->ADOTable7->RecNo==1)

{sButton9->Enabled=false; sButton10->Enabled=false; sButton11->Enabled=true; sButton12->Enabled=true; }->ADOTable7->Prior (); }(sGroupBox2->Visible==true && sRadioButton3->Checked==true) {(DataModule4->ADOTable8->RecNo>1)

{sButton11->Enabled=true; sButton12->Enabled=true; }

{sButton9->Enabled=false; sButton10->Enabled=false; }(DataModule4->ADOTable8->RecNo==1)

{sButton9->Enabled=false; sButton10->Enabled=false; sButton11->Enabled=true; sButton12->Enabled=true; }->ADOTable8->Prior (); }

}

// ---------------------------------------------------------------------------__fastcall TForm2:: sButton12Click (TObject *Sender)

{(sGroupBox1->Visible==true) {->ADOTable1->Last ();->Enabled=false; sButton12->Enabled=false; sButton9->Enabled=true; sButton10->Enabled=true; }(sGroupBox2->Visible==true && sRadioButton1->Checked==true) {->ADOTable6->Last ();->Enabled=false; sButton12->Enabled=false; sButton9->Enabled=true; sButton10->Enabled=true; }(sGroupBox2->Visible==true && sRadioButton2->Checked==true) {->ADOTable7->Last ();->Enabled=false; sButton12->Enabled=false; sButton9->Enabled=true; sButton10->Enabled=true; }(sGroupBox2->Visible==true && sRadioButton3->Checked==true) {->ADOTable8->Last ();->Enabled=false; sButton12->Enabled=false; sButton9->Enabled=true; sButton10->Enabled=true; }(sGroupBox5->Visible==true && sDBGrid2->Visible==true) {->ADOTable2->Last ();->Enabled=false; sButton12->Enabled=false; sButton9->Enabled=true; sButton10->Enabled=true; }(sGroupBox5->Visible==true && sDBGrid3->Visible==true) {->ADOTable3->Last ();->Enabled=false; sButton12->Enabled=false; sButton9->Enabled=true; sButton10->Enabled=true; }(sGroupBox4->Visible==true) {->ADOTable4->Last ();->Enabled=false; sButton12->Enabled=false; sButton9->Enabled=true; sButton10->Enabled=true; }(sGroupBox3->Visible==true) {->ADOTable5->Last ();->Enabled=false; sButton12->Enabled=false; sButton9->Enabled=true; sButton10->Enabled=true; }

}

// ---------------------------------------------------------------------------__fastcall TForm2:: sButton11Click (TObject *Sender)

{(sGroupBox1->Visible==true) {(DataModule4->ADOTable1->RecNo<DataModule4->ADOTable1->RecordCount)

{sButton9->Enabled=true; sButton10->Enabled=true; }

{sButton11->Enabled=false; sButton12->Enabled=false; }(DataModule4->ADOTable1->RecNo==DataModule4->ADOTable1->RecordCount)

{sButton11->Enabled=false; sButton12->Enabled=false; sButton9->Enabled=true; sButton10->Enabled=true; }->ADOTable1->Next (); }(sGroupBox2->Visible==true && sRadioButton1->Checked==true) {(DataModule4->ADOTable6->RecNo<DataModule4->ADOTable6->RecordCount)

{sButton9->Enabled=true; sButton10->Enabled=true; }

{sButton11->Enabled=false; sButton12->Enabled=false; }(DataModule4->ADOTable6->RecNo==DataModule4->ADOTable6->RecordCount)

{sButton11->Enabled=false; sButton12->Enabled=false; sButton9->Enabled=true; sButton10->Enabled=true; }->ADOTable6->Next (); }(sGroupBox2->Visible==true && sRadioButton2->Checked==true) {(DataModule4->ADOTable7->RecNo<DataModule4->ADOTable7->RecordCount)

{sButton9->Enabled=true; sButton10->Enabled=true; }

{sButton11->Enabled=false; sButton12->Enabled=false; }(DataModule4->ADOTable7->RecNo==DataModule4->ADOTable7->RecordCount)

{sButton11->Enabled=false; sButton12->Enabled=false; sButton9->Enabled=true; sButton10->Enabled=true; }->ADOTable7->Next (); }(sGroupBox2->Visible==true && sRadioButton3->Checked==true) {(DataModule4->ADOTable8->RecNo<DataModule4->ADOTable8->RecordCount)

{sButton9->Enabled=true; sButton10->Enabled=true; }

{sButton11->Enabled=false; sButton12->Enabled=false; }(DataModule4->ADOTable8->RecNo==DataModule4->ADOTable8->RecordCount)

{sButton11->Enabled=false; sButton12->Enabled=false; sButton9->Enabled=true; sButton10->Enabled=true; }->ADOTable8->Next (); }(sGroupBox5->Visible==true && sDBGrid2->Visible==true) {(DataModule4->ADOTable2->RecNo<DataModule4->ADOTable2->RecordCount)

{sButton9->Enabled=true; sButton10->Enabled=true; }

{sButton11->Enabled=false; sButton12->Enabled=false; }(DataModule4->ADOTable2->RecNo==DataModule4->ADOTable2->RecordCount)

{sButton11->Enabled=false; sButton12->Enabled=false; sButton9->Enabled=true; sButton10->Enabled=true; }->ADOTable2->Next (); }(sGroupBox5->Visible==true && sDBGrid3->Visible==true) {(DataModule4->ADOTable3->RecNo<DataModule4->ADOTable3->RecordCount)

{sButton9->Enabled=true; sButton10->Enabled=true; }

{sButton11->Enabled=false; sButton12->Enabled=false; }(DataModule4->ADOTable3->RecNo==DataModule4->ADOTable3->RecordCount)

{sButton11->Enabled=false; sButton12->Enabled=false; sButton9->Enabled=true; sButton10->Enabled=true; }->ADOTable3->Next (); }(sGroupBox4->Visible==true) {(DataModule4->ADOTable4->RecNo<DataModule4->ADOTable4->RecordCount)

{sButton9->Enabled=true; sButton10->Enabled=true; }

{sButton11->Enabled=false; sButton12->Enabled=false; }(DataModule4->ADOTable4->RecNo==DataModule4->ADOTable4->RecordCount)

{sButton11->Enabled=false; sButton12->Enabled=false; sButton9->Enabled=true; sButton10->Enabled=true; }->ADOTable4->Next (); }(sGroupBox3->Visible==true) {(DataModule4->ADOTable5->RecNo<DataModule4->ADOTable5->RecordCount)

{sButton9->Enabled=true; sButton10->Enabled=true; }

{sButton11->Enabled=false; sButton12->Enabled=false; }(DataModule4->ADOTable5->RecNo==DataModule4->ADOTable5->RecordCount)

{sButton11->Enabled=false; sButton12->Enabled=false; sButton9->Enabled=true; sButton10->Enabled=true; }->ADOTable5->Next (); }

}

// ---------------------------------------------------------------------------__fastcall TForm2:: sButton17Click (TObject *Sender)

{->Close ();->Show ();->sGroupBox2->Visible=true;->sGroupBox1->Visible=false;

}

// ---------------------------------------------------------------------------__fastcall TForm2:: FormKeyDown (TObject *Sender, WORD &Key,Shift)

{(Key==VK_ESCAPE) {sButton8Click (sButton8); }

}

// ---------------------------------------------------------------------------__fastcall TForm2:: N16Click (TObject *Sender)

{->Close ();

}

// ---------------------------------------------------------------------------__fastcall TForm2:: N4Click (TObject *Sender)

{->Show ();->sPageControl1->ActivePage=Form7->sTabSheet1;->sPageControl2->ActivePage=Form7->sTabSheet3;

}

// ---------------------------------------------------------------------------__fastcall TForm2:: N17Click (TObject *Sender)

{->Show ();->sPageControl1->ActivePage=Form7->sTabSheet1;->sPageControl2->ActivePage=Form7->sTabSheet4;

}

// ---------------------------------------------------------------------------__fastcall TForm2:: N18Click (TObject *Sender)

{->Show ();->sPageControl1->ActivePage=Form7->sTabSheet2;->sPageControl3->ActivePage=Form7->sTabSheet5;

}

// ---------------------------------------------------------------------------__fastcall TForm2:: N19Click (TObject *Sender)

{->Show ();->sPageControl1->ActivePage=Form7->sTabSheet2;->sPageControl3->ActivePage=Form7->sTabSheet6;

}

// ---------------------------------------------------------------------------__fastcall TForm2:: N21Click (TObject *Sender)

{->Show ();->sPageControl1->ActivePage=Form7->sTabSheet2;->sPageControl3->ActivePage=Form7->sTabSheet7;->sPageControl4->ActivePage=Form7->sTabSheet8;

}

// ---------------------------------------------------------------------------__fastcall TForm2:: N22Click (TObject *Sender)

{->Show ();->sPageControl1->ActivePage=Form7->sTabSheet2;->sPageControl3->ActivePage=Form7->sTabSheet7;->sPageControl4->ActivePage=Form7->sTabSheet9;

}

// ---------------------------------------------------------------------------__fastcall TForm2:: N13Click (TObject *Sender)

{->Close ();->Show ();->sGroupBox1->Visible=true;->sGroupBox2->Visible=false;

}

// ---------------------------------------------------------------------------__fastcall TForm2:: N3Click (TObject *Sender)

{->Close ();->Show ();->sPageControl1->ActivePage=Form5->sTabSheet2;->sPageControl2->ActivePage=Form5->sTabSheet3;->sPageControl4->ActivePage=Form5->sTabSheet18;

}

// ---------------------------------------------------------------------------__fastcall TForm2:: N23Click (TObject *Sender)

{->Close ();->Show ();->sPageControl1->ActivePage=Form5->sTabSheet1;->sButton1->SetFocus ();->sGroupBox2->Visible=false;->sGroupBox1->Visible=true;->sGroupBox3->Visible=false;->sGroupBox6->Visible=false;

}

// ---------------------------------------------------------------------------__fastcall TForm2:: N24Click (TObject *Sender) {->Close ();->Show ();->sPageControl1->ActivePage=Form5->sTabSheet1;->sButton2->SetFocus ();->sGroupBox1->Visible=false;->sGroupBox2->Visible=true;->sGroupBox3->Visible=false;->sGroupBox6->Visible=false; }

// ---------------------------------------------------------------------------__fastcall TForm2:: N25Click (TObject *Sender) {->Close ();->Show ();->sPageControl1->ActivePage=Form5->sTabSheet1;->sButton3->SetFocus ();->sGroupBox1->Visible=false;->sGroupBox2->Visible=false;->sGroupBox3->Visible=true;->sGroupBox6->Visible=false; }

// ---------------------------------------------------------------------------__fastcall TForm2:: N26Click (TObject *Sender) {->Close ();->Show ();->sPageControl1->ActivePage=Form5->sTabSheet1;->sButton20->SetFocus ();->sGroupBox1->Visible=false;->sGroupBox2->Visible=false;->sGroupBox3->Visible=false;->sGroupBox6->Visible=true; }

// ---------------------------------------------------------------------------

Расценки

// ---------------------------------------------------------------------------

#include <vcl. h>

#pragma hdrstop

#include "Unit2. h"

#include "Unit3. h"

#include "Unit4. h"

#include "Unit5. h"

#include "Unit9. h"

#include "Unit13. h"

// ---------------------------------------------------------------------------

#pragma package (smart_init)

#pragma link "sEdit"

#pragma link "sGroupBox"

#pragma link "sLabel"

#pragma link "sPanel"

#pragma link "sStatusBar"

#pragma link "sButton"

#pragma link "acProgressBar"

#pragma link "sGauge"

#pragma link "acDBGrid"

#pragma link "sDBEdit"

#pragma link "sBevel"

#pragma link "sBitBtn"

#pragma resource "*. dfm"*Form3;

// ---------------------------------------------------------------------------

__fastcall TForm3:: TForm3 (TComponent* Owner)

: TForm (Owner)

{

}

// ---------------------------------------------------------------------------__fastcall TForm3:: sButton3Click (TObject *Sender)

{->ADOQuery14->Active=false;->ADOQuery14->Active=true;->Close ();->Show ();

}

// ---------------------------------------------------------------------------__fastcall TForm3:: sEdit1Change (TObject *Sender)

{(sEdit1->Text! ="") {Timer1->Enabled=true; }(int i=0; i<=0; i++) {( (sEdit1->Text==" [") || (sEdit1->Text=="] ")) { MessageBoxA (NULL,"Не корректное значение для поиска! Проверьте и повторите ввод данных!","Ошибка",MB_OK); break; }{->ADOQuery14->Close ();->ADOQuery14->SQL->Clear ();->ADOQuery14->SQL->Add ("select * from Razcenki where nameobosnov LIKE '%"+sEdit1->Text+"%' and Name Like '%"+sEdit7->Text+"%'; ");->ADOQuery14->Open ();->Visible=true;->Text="Найдено записей: " + (IntToStr (DataModule4->ADOQuery14->RecordCount));(IntToStr (DataModule4->ADOQuery14->RecordCount) ==1) {sGroupBox1->Visible=true; sGroupBox2->Visible=false; }(IntToStr (DataModule4->ADOQuery14->RecordCount) ==2) {sEdit7->Visible=true; sLabel4->Visible=true; }{sEdit7->Visible=false; sEdit7->Clear (); sLabel4->Visible=false; }( (IntToStr (DataModule4->ADOQuery14->RecordCount)! =1) && (IntToStr (DataModule4->ADOQuery14->RecordCount)! =0)) {sGroupBox1->Visible=false; sGroupBox2->Visible=true; }( (IntToStr (DataModule4->ADOQuery14->RecordCount) ==0) || (sEdit1->Text=="")) {sEdit2->Visible=false; sGroupBox1->Visible=false; sGroupBox2->Visible=false; sGroupBox3->Visible=false; }}}

}

// ---------------------------------------------------------------------------__fastcall TForm3:: sButton1Click (TObject *Sender)

{(sButton1->Caption=="Поиск по наименованию") {->ADOQuery14->Close ();->ADOQuery14->SQL->Clear ();->ADOQuery14->SQL->Add ("select * from Razcenki");->ADOQuery14->Open ();->Clear ();->Clear ();->Visible=false;->Visible=false;->Visible=false;->Visible=false;->Visible=true;->Visible=false;->Visible=false;->Caption="Закрыть"; }{->ADOQuery14->Close ();->ADOQuery14->SQL->Clear ();->ADOQuery14->SQL->Add ("select * from Razcenki");->ADOQuery14->Open ();->Visible=true;->Visible=true;->Visible=true;->Visible=true;->Visible=false;->Visible=false;->Visible=false;->Caption="Поиск по наименованию"; }

}

// ---------------------------------------------------------------------------__fastcall TForm3:: sEdit3Change (TObject *Sender)

{(sEdit3->Text! ="") {Timer1->Enabled=true; }(int i=0; i<=0; i++) {( (sEdit3->Text==" [") || (sEdit3->Text=="] ")) { Application->MessageBoxA ("Не корректное значение для поиска! Повторите ввод данных!","Ошибка",16);; break; }->ADOQuery14->Active=false;->ADOQuery14->SQL->Clear ();->ADOQuery14->SQL->Add ("select * from Razcenki where Name LIKE '%"+sEdit3->Text+"%'; ");->ADOQuery14->Active=true; }

}

// ---------------------------------------------------------------------------__fastcall TForm3:: FormKeyDown (TObject *Sender, WORD &Key,Shift) {(Key==VK_ESCAPE) {sButton3Click (sButton3); }

}

// ---------------------------------------------------------------------------__fastcall TForm3:: Timer1Timer (TObject *Sender)

{->Progress++;(sGauge1->Progress==sGauge1->MaxValue) {Timer1->Enabled=false; sGauge1->Progress=0; }

}

// ---------------------------------------------------------------------------__fastcall TForm3:: Timer2Timer (TObject *Sender)

{(sEdit4->Text! ="" && sEdit5->Text! ="" && sEdit6->Text! ="") {sButton4->Enabled=true; }{sButton4->Enabled=false; }

}

// ---------------------------------------------------------------------------__fastcall TForm3:: sButton4Click (TObject *Sender)

{a;->QRLabel2->Caption=sEdit4->Text;->QRLabel5->Caption=sEdit5->Text+" "+sEdit6->Text;(int i=0; DataModule4->ADOQuery14->RecordCount>i; i++) {=a+ (DataModule4->ADOQuery14->FieldValues ["Stoimoct"]);->ADOQuery14->Next (); }->QRLabel21->Caption=IntToStr (a) +" руб. ";->QuickRep1->Preview ();

}

// ---------------------------------------------------------------------------__fastcall TForm3:: sEdit7Change (TObject *Sender)

{(int i=0; i<=0; i++) {( (sEdit1->Text==" [") || (sEdit1->Text=="] ")) { MessageBoxA (NULL,"Не корректное значение для поиска! Проверьте и повторите ввод данных!","Ошибка",MB_OK); break; }{->ADOQuery14->Close ();->ADOQuery14->SQL->Clear ();->ADOQuery14->SQL->Add ("select * from Razcenki where nameobosnov LIKE '%"+sEdit1->Text+"%' and Name Like '%"+sEdit7->Text+"%'; ");->ADOQuery14->Open (); }}->Text="Найдено записей: " + (IntToStr (DataModule4->ADOQuery14->RecordCount));(IntToStr (DataModule4->ADOQuery14->RecordCount) ==1) {sGroupBox1->Visible=true; sGroupBox2->Visible=false; }( (IntToStr (DataModule4->ADOQuery14->RecordCount)! =1) && (IntToStr (DataModule4->ADOQuery14->RecordCount)! =0)) {sGroupBox1->Visible=false; sGroupBox2->Visible=true; }

}

// ---------------------------------------------------------------------------__fastcall TForm3:: sButton7Click (TObject *Sender)

{->Visible=false;

}

// ---------------------------------------------------------------------------__fastcall TForm3:: sButton5Click (TObject *Sender)

{(DataModule4->ADOQuery16Name->Text==DataModule4->ADOQuery14Name->Text) {Application->MessageBoxA ("Запись существует, добавление не возможно!","Ошибка. ",16); }{->ADOQuery16->Append ();->ADOQuery16Name->Text=DataModule4->ADOQuery14Name->Text;->ADOQuery16cena_city_otp->Text=DataModule4->ADOQuery14cena_city_otp->Text;->ADOQuery16cena_selo_otp->Text=DataModule4->ADOQuery14cena_selo_otp->Text;->ADOQuery16cena_city_smet->Text=DataModule4->ADOQuery14cena_city_smet->Text;->ADOQuery16cena_selo_smet->Text=DataModule4->ADOQuery14cena_selo_smet->Text;->ADOQuery16->Post (); }

}

// ---------------------------------------------------------------------------__fastcall TForm3:: sButton11Click (TObject *Sender)

{->Visible=true;

}

// ---------------------------------------------------------------------------__fastcall TForm3:: sButton6Click (TObject *Sender)

{i;a1,a2,a3,a4;(i=0; DataModule4->ADOQuery16->RecordCount>i; i++) {=a1+ (DataModule4->ADOQuery16->FieldValues ["cena_city_otp"]);=a2+ (DataModule4->ADOQuery16->FieldValues ["cena_selo_otp"]);=a3+ (DataModule4->ADOQuery16->FieldValues ["cena_city_smet"]);=a4+ (DataModule4->ADOQuery16->FieldValues ["cena_selo_smet"]);->ADOQuery16->Next (); }->QRLabel9->Caption=FormatFloat ("0.00",a1) +" руб. ";->QRLabel10->Caption=FormatFloat ("0.00",a2) +" руб. ";->QRLabel11->Caption=FormatFloat ("0.00",a3) +" руб. ";->QRLabel12->Caption=FormatFloat ("0.00",a4) +" руб. ";->QuickRep1->Preview ();

}

// ---------------------------------------------------------------------------__fastcall TForm3:: sButton8Click (TObject *Sender)

{->ADOQuery16->Delete ();

}

// ---------------------------------------------------------------------------__fastcall TForm3:: sButton2Click (TObject *Sender) {->Close ();->Show (); }

// ---------------------------------------------------------------------------

Добавление/Редактирование

// ---------------------------------------------------------------------------

#include <vcl. h>

#include <String. h>

#pragma hdrstop

#include "Unit1. h"

#include "Unit2. h"

#include "Unit3. h"

#include "Unit4. h"

#include "Unit5. h"

// ---------------------------------------------------------------------------

#pragma package (smart_init)

#pragma link "acDBGrid"

#pragma link "sButton"

#pragma link "sDBEdit"

#pragma link "sDBLookupComboBox"

#pragma link "sGroupBox"

#pragma link "sLabel"

#pragma link "sPanel"

#pragma link "sStatusBar"

#pragma link "sCustomComboEdit"

#pragma link "sMaskEdit"

#pragma link "sTooledit"

#pragma link "sDBLookupListBox"

#pragma link "sCurrEdit"

#pragma link "sDBListBox"

#pragma link "sPageControl"

#pragma link "sSpeedButton"

#pragma link "sCheckListBox"

#pragma link "sListBox"

#pragma link "sBevel"

#pragma link "sCheckBox"

#pragma link "sEdit"

#pragma link "sRadioButton"

#pragma link "sMemo"

#pragma resource "*. dfm"*Form5;

// ---------------------------------------------------------------------------

__fastcall TForm5:: TForm5 (TComponent* Owner)

: TForm (Owner)

{

}

// ---------------------------------------------------------------------------__fastcall TForm5:: sButton4Click (TObject *Sender)

{->Close ();->Show ();

}

// ---------------------------------------------------------------------------__fastcall TForm5:: sButton3Click (TObject *Sender)

{->Visible=false;->Visible=true;->Visible=false;->Visible=false;

}

// ---------------------------------------------------------------------------__fastcall TForm5:: sButton2Click (TObject *Sender)

{->Visible=false;->Visible=true;->Visible=false;->Visible=false;->Visible=true;->Visible=false;->Visible=false;->Visible=false;->Visible=false;->Visible=false;->Visible=false;->Visible=false;->Visible=false;

}

// ---------------------------------------------------------------------------__fastcall TForm5:: sButton1Click (TObject *Sender)

{->Visible=false;->Visible=true;->Visible=false;->Visible=false;

}

// ---------------------------------------------------------------------------__fastcall TForm5:: sButton8Click (TObject *Sender)

{->Visible=true;->Visible=false;->Visible=false;->Visible=false;->Visible=false;->Visible=false;->Visible=false;->Visible=false;->Visible=false;->Visible=false;

}

// ---------------------------------------------------------------------------__fastcall TForm5:: sButton9Click (TObject *Sender)

{->Visible=true;->Visible=false;->Visible=false;->Visible=false;->Visible=false;->Visible=false;->Visible=false;->Visible=false;->Visible=false;->Visible=false;

}

// ---------------------------------------------------------------------------__fastcall TForm5:: sButton10Click (TObject *Sender)

{->Visible=true;->Visible=false;->Visible=false;->Visible=false;->Visible=false;->Visible=false;->Visible=false;->Visible=false;->Visible=false;->Visible=false;

}

// ---------------------------------------------------------------------------__fastcall TForm5:: sButton11Click (TObject *Sender)

{->Visible=true;->Visible=false;->Visible=false;->Visible=false;->Visible=false;->Visible=false;->Visible=false;->Visible=false;->Visible=false;->Visible=false;

}

// ---------------------------------------------------------------------------__fastcall TForm5:: sButton12Click (TObject *Sender)

{->Visible=true;->Visible=false;->Visible=false;->Visible=false;->Visible=false;->Visible=false;->Visible=false;->Visible=false;->Visible=false;->Visible=false;

}

// ---------------------------------------------------------------------------__fastcall TForm5:: sButton13Click (TObject *Sender)

{->Visible=true;->Visible=false;->Visible=false;->Visible=false;->Visible=false;->Visible=false;->Visible=false;->Visible=false;->Visible=false;->Visible=false;

}

// ---------------------------------------------------------------------------__fastcall TForm5:: sButton14Click (TObject *Sender)

{->Visible=true;->Visible=false;->Visible=false;->Visible=false;->Visible=false;->Visible=false;->Visible=false;->Visible=false;->Visible=false;->Visible=false;

}

// ---------------------------------------------------------------------------__fastcall TForm5:: sButton15Click (TObject *Sender)

{->Visible=true;->Visible=false;->Visible=false;->Visible=false;->Visible=false;->Visible=false;->Visible=false;->Visible=false;->Visible=false;->Visible=false;

}

// ---------------------------------------------------------------------------__fastcall TForm5:: sButton19Click (TObject *Sender)

{->Close ();->Show ();->sGroupBox1->Visible=true;->sGroupBox2->Visible=false;->sGroupBox3->Visible=false;->sGroupBox4->Visible=false;->sGroupBox5->Visible=false;

}

// ---------------------------------------------------------------------------__fastcall TForm5:: sButton16Click (TObject *Sender)

{->Caption="Отмена";->Enabled=false;->Enabled=true;->ReadOnly=false;->ADOTable4->Append ();->Enabled=false;->SetFocus ();

}

// ---------------------------------------------------------------------------__fastcall TForm5:: sButton17Click (TObject *Sender)

{

// Области(sDBEdit1->Text=="") {Application->MessageBoxA ("Заполнены не все поля!","Заполнение полей. ",16); }{->Enabled=true;->Enabled=false;->Caption="Редактировать";->ADOTable4->Post ();->Enabled=true;->ReadOnly=true; }

}

// ---------------------------------------------------------------------------__fastcall TForm5:: sButton5Click (TObject *Sender)

{->ADOTable1->Append (); // добавляет пустую запись в конец таблицы->Enabled=false;->Enabled=true;->Enabled=true;->Enabled=true;->Enabled=true;->Enabled=true;->Enabled=true;->Enabled=true;->Enabled=true;->Enabled=true;->Enabled=true;->Enabled=true;->Enabled=true;->Enabled=true;->Enabled=true;->Enabled=true;->Enabled=true;

}

// ---------------------------------------------------------------------------__fastcall TForm5:: sButton6Click (TObject *Sender)

{ int i=0*1;(sDBLookupComboBox1->Text=="" || sDBLookupComboBox2->Text=="" || sDBLookupComboBox3->Text=="" || sDBLookupComboBox4->Text=="" || sDBLookupComboBox5->Text=="" || sDBLookupComboBox6->Text=="" || sDBLookupComboBox7->Text=="" || sDBLookupComboBox8->Text=="" || sDateEdit1->Text=="" || sDateEdit2->Text=="" || Memo2->Text=="") {>MessageBoxA ("Заполнены не все поля!","Заполнение полей",16);

}{->ADOTable1new_stroj->Value=sDateEdit1->Date;->ADOTable1close_stoj->Value=sDateEdit2->Date;(i=0; i<Memo2->Lines->Count; i++) {(i<Memo2->Lines->Count-1) {->ADOTable1materiali->Text=DataModule4->ADOTable1materiali->Text+Memo2->Lines->Strings [i] +", "; }DataModule4->ADOTable1materiali->Text=DataModule4->ADOTable1materiali->Text+Memo2->Lines->Strings [i];

}(sRadioButton3->Checked) {DataModule4->ADOTable1tip_stoj->Text="Действующее строительство"; }{DataModule4->ADOTable1tip_stoj->Text="Строительство прекращено"; }->ADOTable1->Post ();->Enabled=true;->Enabled=false;->Enabled=false;->Enabled=false;->Enabled=false;->Enabled=false;->Enabled=false;->Enabled=false;->Enabled=false;->Enabled=false;->Enabled=false;->Enabled=false;->Enabled=false;->Enabled=false;->Enabled=false;->Clear ();->Clear ();->Clear ();->Clear ();->Enabled=false;->Enabled=false;>MessageBoxA ("Запись сохранена!","Сохранение. ",64); }

}

// ---------------------------------------------------------------------------__fastcall TForm5:: sButton7Click (TObject *Sender)

{->ADOTable1->Cancel ();->Enabled=true;->Enabled=false;->Enabled=false;->Enabled=false;->Enabled=false;->Enabled=false;->Enabled=false;->Enabled=false;->Enabled=false;->Enabled=false;->Enabled=false;->Enabled=false;->Enabled=false;->Enabled=false;->Enabled=false;->Clear ();->Clear ();->Clear ();->Clear ();->Enabled=false;->Enabled=false;

}

// ---------------------------------------------------------------------------__fastcall TForm5:: sButton20Click (TObject *Sender)

{->Visible=false;->Visible=true;->Visible=false;->Visible=false;->Visible=true;->Visible=true;->Visible=false;->Visible=false;->Visible=false;->Visible=false;

}

// ---------------------------------------------------------------------------__fastcall TForm5:: sButton21Click (TObject *Sender)

{->Visible=true;->Visible=false;->Visible=false;->Visible=false;->Visible=false;->Visible=false;->Visible=false;->Visible=false;->Visible=false;->Visible=false;

}

// ---------------------------------------------------------------------------__fastcall TForm5:: sButton22Click (TObject *Sender)

{->Visible=true;->Visible=true;->Visible=false;->Visible=false;->Visible=false;->Visible=false;->Enabled=true;->Enabled=true;->Enabled=false;->Enabled=false;->ADOTable12->Cancel ();->Enabled=false;->Enabled=false;->Enabled=false;->Enabled=true;->Enabled=true;->Enabled=false;->Enabled=false;->ADOTable11->Cancel ();->Enabled=false;->Enabled=false;->Enabled=false;->Enabled=true;->Enabled=true;->Enabled=false;->Enabled=false;->ADOTable10->Cancel ();->Enabled=false;->Enabled=false;->Enabled=false;

}

// ---------------------------------------------------------------------------__fastcall TForm5:: sButton23Click (TObject *Sender)

{->Visible=true;->Visible=true;->Visible=false;->Visible=false;->Visible=false;->Visible=false;->Enabled=true;->Enabled=true;->Enabled=false;->Enabled=false;->ADOTable12->Cancel ();->Enabled=false;->Enabled=false;->Enabled=false;->Enabled=true;->Enabled=true;->Enabled=false;->Enabled=false;->ADOTable11->Cancel ();->Enabled=false;->Enabled=false;->Enabled=false;->Enabled=true;->Enabled=true;->Enabled=false;->Enabled=false;->ADOTable10->Cancel ();->Enabled=false;->Enabled=false;->Enabled=false;

}

// ---------------------------------------------------------------------------__fastcall TForm5:: sButton24Click (TObject *Sender)

{->Visible=true;->Visible=true;->Visible=false;->Visible=false;->Visible=false;->Visible=false;->Enabled=true;->Enabled=true;->Enabled=false;->Enabled=false;->ADOTable12->Cancel ();->Enabled=false;->Enabled=false;->Enabled=false;->Enabled=true;->Enabled=true;->Enabled=false;->Enabled=false;->ADOTable11->Cancel ();->Enabled=false;->Enabled=false;->Enabled=false;->Enabled=true;->Enabled=true;->Enabled=false;->Enabled=false;->ADOTable10->Cancel ();->Enabled=false;->Enabled=false;->Enabled=false;

}

// ---------------------------------------------------------------------------__fastcall TForm5:: sButton25Click (TObject *Sender)

{

// новое строительство(sGroupBox9->Visible==true) {->ADOTable10->Append ();->Enabled=false;->Enabled=true;->Enabled=true;->Enabled=false;->Enabled=true;->Enabled=true;->Enabled=true; }

}

// ---------------------------------------------------------------------------__fastcall TForm5:: sButton26Click (TObject *Sender)

{

// новое строительство( (sGroupBox9->Visible==true) && (sDBEdit12->Text=="" || sDBLookupComboBox13->Text=="" || sDBLookupComboBox9->Text=="")) {>MessageBoxA ("Заполнены не все поля!","Заполнение полей",16); }{->Enabled=true;->Enabled=true;->Enabled=false;->Enabled=false;->ADOTable10name_newstroj->Text="Новое строительство";->ADOQuery9->Active=false;->ADOQuery9->Active=true;->ADOTable10->Post ();->Enabled=false;->Enabled=false;->Enabled=false; }

}

// ---------------------------------------------------------------------------__fastcall TForm5:: sButton27Click (TObject *Sender)

{

// новое строительство(sGroupBox9->Visible==true) {->Enabled=true;->Enabled=true;->Enabled=false;->Enabled=false;->ADOTable10->Cancel ();->Enabled=false;->Enabled=false;->Enabled=false; }

}

// ---------------------------------------------------------------------------__fastcall TForm5:: sPageControl1Change (TObject *Sender)

{(sPageControl1->ActivePage==sTabSheet1) {sButton1->SetFocus (); }->ActivePage=sTabSheet3;->ActivePage=sTabSheet18;->Visible=false;->Visible=true;->Visible=false;->Visible=false;

// SQL reset->ADOQuery1->Active=false; DataModule4->ADOQuery1->Active=true;->ADOQuery2->Active=false; DataModule4->ADOQuery2->Active=true;->ADOQuery3->Active=false; DataModule4->ADOQuery3->Active=true;->ADOQuery4->Active=false; DataModule4->ADOQuery4->Active=true;->ADOQuery5->Active=false; DataModule4->ADOQuery5->Active=true;->ADOQuery6->Active=false; DataModule4->ADOQuery6->Active=true;->ADOQuery7->Active=false; DataModule4->ADOQuery7->Active=true;->ADOQuery8->Active=false; DataModule4->ADOQuery8->Active=true;->ADOQuery9->Active=false; DataModule4->ADOQuery9->Active=true;->ADOQuery10->Active=false; DataModule4->ADOQuery10->Active=true;->ADOQuery11->Active=false; DataModule4->ADOQuery11->Active=true;->ADOQuery12->Active=false; DataModule4->ADOQuery12->Active=true;->ADOQuery13->Active=false; DataModule4->ADOQuery13->Active=true;->ADOQuery14->Active=false; DataModule4->ADOQuery14->Active=true;

// BD reset->ADOTable1->Active=false; DataModule4->ADOTable1->Active=true;->ADOTable2->Active=false; DataModule4->ADOTable2->Active=true;->ADOTable3->Active=false; DataModule4->ADOTable3->Active=true;->ADOTable4->Active=false; DataModule4->ADOTable4->Active=true;->ADOTable5->Active=false; DataModule4->ADOTable5->Active=true;->ADOTable6->Active=false; DataModule4->ADOTable6->Active=true;->ADOTable7->Active=false; DataModule4->ADOTable7->Active=true;->ADOTable8->Active=false; DataModule4->ADOTable8->Active=true;->ADOTable9->Active=false; DataModule4->ADOTable9->Active=true;->ADOTable10->Active=false; DataModule4->ADOTable10->Active=true;->ADOTable11->Active=false; DataModule4->ADOTable11->Active=true;->ADOTable12->Active=false; DataModule4->ADOTable12->Active=true;->ADOTable13->Active=false; DataModule4->ADOTable13->Active=true;->ADOTable14->Active=false; DataModule4->ADOTable14->Active=true;->ADOTable15->Active=false; DataModule4->ADOTable15->Active=true;

// блокировка полей редактирования

// объекты->ReadOnly=true;->ReadOnly=true; sDBEdit29->ReadOnly=true; sDBEdit30->ReadOnly=true;->ReadOnly=true; sDBEdit32->ReadOnly=true;->ReadOnly=true; sDBEdit35->ReadOnly=true; sDBEdit38->ReadOnly=true;->ReadOnly=true;->ReadOnly=true; sDateEdit4->ReadOnly=true;->Enabled=false; sDBLookupComboBox16->Enabled=false; sDBLookupComboBox17->Enabled=false;->Enabled=false; sDBLookupComboBox19->Enabled=false; sDBLookupComboBox20->Enabled=false;->Enabled=false; sDBLookupComboBox22->Enabled=false; sDBLookupComboBox23->Enabled=false;->Enabled=false; sDateEdit6->Enabled=false;

// виды работ->ReadOnly=true; sDBEdit52->ReadOnly=true;->ReadOnly=true; sDBEdit55->ReadOnly=true;->ReadOnly=true; sDBEdit58->ReadOnly=true;

// прорабы - материалы->ReadOnly=true; sDBEdit37->ReadOnly=true; sDBEdit42->ReadOnly=true;->ReadOnly=true; sDBEdit44->ReadOnly=true; sDBEdit45->ReadOnly=true;->ReadOnly=true; sDBEdit47->ReadOnly=true; sDBEdit48->ReadOnly=true;->ReadOnly=true;

// расценки

}

// ---------------------------------------------------------------------------__fastcall TForm5:: sPageControl2Change (TObject *Sender)

{->ActivePage=sTabSheet15;->ActivePage=sTabSheet18;

// SQL reset->ADOQuery1->Active=false; DataModule4->ADOQuery1->Active=true;->ADOQuery2->Active=false; DataModule4->ADOQuery2->Active=true;->ADOQuery3->Active=false; DataModule4->ADOQuery3->Active=true;->ADOQuery4->Active=false; DataModule4->ADOQuery4->Active=true;->ADOQuery5->Active=false; DataModule4->ADOQuery5->Active=true;->ADOQuery6->Active=false; DataModule4->ADOQuery6->Active=true;->ADOQuery7->Active=false; DataModule4->ADOQuery7->Active=true;->ADOQuery8->Active=false; DataModule4->ADOQuery8->Active=true;->ADOQuery9->Active=false; DataModule4->ADOQuery9->Active=true;->ADOQuery10->Active=false; DataModule4->ADOQuery10->Active=true;->ADOQuery11->Active=false; DataModule4->ADOQuery11->Active=true;->ADOQuery12->Active=false; DataModule4->ADOQuery12->Active=true;->ADOQuery13->Active=false; DataModule4->ADOQuery13->Active=true;->ADOQuery14->Active=false; DataModule4->ADOQuery14->Active=true;

// BD reset->ADOTable1->Active=false; DataModule4->ADOTable1->Active=true;->ADOTable2->Active=false; DataModule4->ADOTable2->Active=true;->ADOTable3->Active=false; DataModule4->ADOTable3->Active=true;->ADOTable4->Active=false; DataModule4->ADOTable4->Active=true;->ADOTable5->Active=false; DataModule4->ADOTable5->Active=true;->ADOTable6->Active=false; DataModule4->ADOTable6->Active=true;->ADOTable7->Active=false; DataModule4->ADOTable7->Active=true;->ADOTable8->Active=false; DataModule4->ADOTable8->Active=true;->ADOTable9->Active=false; DataModule4->ADOTable9->Active=true;->ADOTable10->Active=false; DataModule4->ADOTable10->Active=true;->ADOTable11->Active=false; DataModule4->ADOTable11->Active=true;->ADOTable12->Active=false; DataModule4->ADOTable12->Active=true;->ADOTable13->Active=false; DataModule4->ADOTable13->Active=true;->ADOTable14->Active=false; DataModule4->ADOTable14->Active=true;->ADOTable15->Active=false; DataModule4->ADOTable15->Active=true;

// блокировка полей редактирования

// объекты->ReadOnly=true;->ReadOnly=true; sDBEdit29->ReadOnly=true; sDBEdit30->ReadOnly=true;->ReadOnly=true; sDBEdit32->ReadOnly=true;->ReadOnly=true; sDBEdit35->ReadOnly=true; sDBEdit38->ReadOnly=true;->ReadOnly=true;->ReadOnly=true; sDateEdit4->ReadOnly=true;->Enabled=false; sDBLookupComboBox16->Enabled=false; sDBLookupComboBox17->Enabled=false;->Enabled=false; sDBLookupComboBox19->Enabled=false; sDBLookupComboBox20->Enabled=false;->Enabled=false; sDBLookupComboBox22->Enabled=false; sDBLookupComboBox23->Enabled=false;->Enabled=false; sDateEdit6->Enabled=false;

// виды работ->ReadOnly=true; sDBEdit52->ReadOnly=true;->ReadOnly=true; sDBEdit55->ReadOnly=true;->ReadOnly=true; sDBEdit58->ReadOnly=true;

// прорабы - материалы->ReadOnly=true; sDBEdit37->ReadOnly=true; sDBEdit42->ReadOnly=true;->ReadOnly=true; sDBEdit44->ReadOnly=true; sDBEdit45->ReadOnly=true;->ReadOnly=true; sDBEdit47->ReadOnly=true; sDBEdit48->ReadOnly=true;->ReadOnly=true;

// расценки

}

// ---------------------------------------------------------------------------__fastcall TForm5:: sButton18Click (TObject *Sender)

{

// Области/Города(sButton18->Caption=="Отмена") {->Enabled=true;->Enabled=false;->Enabled=true;->ADOTable4->Cancel ();->Caption="Редактировать"; }{->ActivePage=sTabSheet2;->ActivePage=sTabSheet6; }

}

// ---------------------------------------------------------------------------__fastcall TForm5:: FormKeyDown (TObject *Sender, WORD &Key,Shift)

{(Key==VK_ESCAPE) {sButton4Click (sButton4); }

}

// ---------------------------------------------------------------------------__fastcall TForm5:: sButton30Click (TObject *Sender)

{->Caption="Отмена";->Enabled=false;->Enabled=true;->ReadOnly=false;->ADOTable6->Append ();->Enabled=false;->SetFocus ();

}

// ---------------------------------------------------------------------------__fastcall TForm5:: sButton31Click (TObject *Sender)

{(sDBEdit2->Text=="") {Application->MessageBoxA ("Заполнены не все поля!","Заполнение полей. ",16); }{->Enabled=true;->Enabled=false;->Caption="Редактировать";->ADOTable6->Post ();->Enabled=true;->ReadOnly=true; }

}

// ---------------------------------------------------------------------------__fastcall TForm5:: sButton32Click (TObject *Sender)

{(sButton32->Caption=="Отмена") {->Enabled=true;->Enabled=false;->Enabled=true;->ADOTable6->Cancel ();->Caption="Редактировать"; }{->ActivePage=sTabSheet2;->ActivePage=sTabSheet8; }

}

// ---------------------------------------------------------------------------__fastcall TForm5:: sButton33Click (TObject *Sender)

{->Caption="Отмена";->Enabled=false;->Enabled=true;->ReadOnly=false;->ADOTable7->Append ();->Enabled=false;->SetFocus ();

}

// ---------------------------------------------------------------------------__fastcall TForm5:: sButton34Click (TObject *Sender)

{(sDBEdit3->Text=="") {Application->MessageBoxA ("Заполнены не все поля!","Заполнение полей. ",16); }{->Enabled=true;->Enabled=false;->Caption="Редактировать";->ADOTable7->Post ();->Enabled=true;->ReadOnly=true; }

}

// ---------------------------------------------------------------------------__fastcall TForm5:: sButton35Click (TObject *Sender)

{(sButton35->Caption=="Отмена") {->Enabled=true;->Enabled=false;->Enabled=true;->ADOTable7->Cancel ();->Caption="Редактировать"; }{->ActivePage=sTabSheet2;->ActivePage=sTabSheet9; }

}

// ---------------------------------------------------------------------------__fastcall TForm5:: sButton36Click (TObject *Sender)

{->Caption="Отмена";->Enabled=false;->Enabled=true;->ReadOnly=false;->ADOTable8->Append ();->Enabled=false;->SetFocus ();

}

// ---------------------------------------------------------------------------__fastcall TForm5:: sButton37Click (TObject *Sender)

{(sDBEdit4->Text=="") {Application->MessageBoxA ("Заполнены не все поля!","Заполнение полей. ",16); }{->Enabled=true;->Enabled=false;->Caption="Редактировать";->ADOTable8->Post ();->Enabled=true;->ReadOnly=true; }

}

// ---------------------------------------------------------------------------__fastcall TForm5:: sButton38Click (TObject *Sender)

{(sButton38->Caption=="Отмена") {->Enabled=true;->Enabled=false;->Enabled=true;->ADOTable8->Cancel ();->Caption="Редактировать"; }{->ActivePage=sTabSheet2;->ActivePage=sTabSheet10; }

}

// ---------------------------------------------------------------------------__fastcall TForm5:: sButton41Click (TObject *Sender)

{(sButton41->Caption=="Отмена") {->Enabled=true;->Enabled=false;->Enabled=true;->ADOTable2->Cancel ();->Caption="Редактировать"; }{->ActivePage=sTabSheet2;->ActivePage=sTabSheet4; }

}

// ---------------------------------------------------------------------------__fastcall TForm5:: sButton40Click (TObject *Sender)

{(sDBEdit5->Text=="") {Application->MessageBoxA ("Заполнены не все поля!","Заполнение полей. ",16); }{->Enabled=true;->Enabled=false;->Caption="Редактировать";->ADOTable2->Post ();->Enabled=true;->ReadOnly=true; }

}

// ---------------------------------------------------------------------------__fastcall TForm5:: sButton39Click (TObject *Sender)

{->Caption="Отмена";->Enabled=false;->Enabled=true;->ReadOnly=false;->ADOTable2->Append ();->Enabled=false;->SetFocus ();

}

// ---------------------------------------------------------------------------__fastcall TForm5:: sButton42Click (TObject *Sender)

{->Caption="Отмена";->Enabled=false;->Enabled=true;->ReadOnly=false;->ADOTable3->Append ();->Enabled=false;->SetFocus ();

}

// ---------------------------------------------------------------------------__fastcall TForm5:: sButton43Click (TObject *Sender)

{(sDBEdit1->Text=="") {Application->MessageBoxA ("Заполнены не все поля!","Заполнение полей. ",16); }{->Enabled=true;->Enabled=false;->Caption="Редактировать";->ADOTable3->Post ();->Enabled=true;->ReadOnly=true; }

}

// ---------------------------------------------------------------------------__fastcall TForm5:: sButton44Click (TObject *Sender)

{(sButton44->Caption=="Отмена") {->Enabled=true;->Enabled=false;->Enabled=true;->ADOTable3->Cancel ();->Caption="Редактировать"; }{->ActivePage=sTabSheet2;->ActivePage=sTabSheet5; }

}

// ---------------------------------------------------------------------------__fastcall TForm5:: sButton50Click (TObject *Sender)

{(sButton50->Caption=="Отмена") {->Enabled=true;->Enabled=false;->Enabled=true;->ADOTable5->Cancel ();->Caption="Редактировать"; }{->ActivePage=sTabSheet2;->ActivePage=sTabSheet7; }

}

// ---------------------------------------------------------------------------__fastcall TForm5:: sButton49Click (TObject *Sender)

{( (sDBEdit9->Text=="" && sDBEdit10->Text=="") && (sDBEdit9->Text=="" || sDBEdit10->Text=="")) {Application->MessageBoxA ("Заполнены не все поля!","Заполнение полей. ",16); }{->Enabled=true;->Enabled=false;->Caption="Редактировать";->ADOTable5->Post ();->Enabled=true;->ReadOnly=true;->ReadOnly=true; }

}

// ---------------------------------------------------------------------------__fastcall TForm5:: sButton48Click (TObject *Sender)

{->Caption="Отмена";->Enabled=false;->Enabled=true;->ReadOnly=false;->ReadOnly=false;->ADOTable5->Append ();->Enabled=false;->SetFocus ();

}

// ---------------------------------------------------------------------------__fastcall TForm5:: sButton51Click (TObject *Sender)

{->Caption="Отмена";->Enabled=false;->Enabled=true;->ReadOnly=false;->ADOTable9->Append ();->Enabled=false;->SetFocus ();

}

// ---------------------------------------------------------------------------__fastcall TForm5:: sButton52Click (TObject *Sender)

{(sDBEdit11->Text=="") {Application->MessageBoxA ("Заполнены не все поля!","Заполнение полей. ",16); }{->Enabled=true;->Enabled=false;->Caption="Редактировать";->ADOTable9->Post ();->Enabled=true;->ReadOnly=true; }

}

// ---------------------------------------------------------------------------__fastcall TForm5:: sButton53Click (TObject *Sender)

{(sButton53->Caption=="Отмена") {->Enabled=true;->Enabled=false;->Enabled=true;->ADOTable9->Cancel ();->Caption="Редактировать"; }{->ActivePage=Form5->sTabSheet2;->ActivePage=Form5->sTabSheet3;->ActivePage=Form5->sTabSheet19; }

}

// ---------------------------------------------------------------------------__fastcall TForm5:: sDateEdit2Change (TObject *Sender)

{->MinDate=sDateEdit1->Date;

}

// ---------------------------------------------------------------------------__fastcall TForm5:: sDateEdit1Change (TObject *Sender)

{->MaxDate=sDateEdit2->Date;

}

// ---------------------------------------------------------------------------__fastcall TForm5:: sButton45Click (TObject *Sender)

{->Caption="Отмена";->Enabled=false;->Enabled=true;->ReadOnly=false;->ReadOnly=false;->ADOTable14->Append ();->Enabled=false;->SetFocus ();

}

// ---------------------------------------------------------------------------__fastcall TForm5:: sButton46Click (TObject *Sender)

{( (sDBEdit7->Text=="" && sDBEdit8->Text=="" && sDBEdit27->Text=="") && (sDBEdit7->Text=="" || sDBEdit8->Text=="" || sDBEdit27->Text=="")) {Application->MessageBoxA ("Заполнены не все поля!","Заполнение полей. ",16); }{->Enabled=true;->Enabled=false;->Caption="Редактировать";->ADOTable14->Post ();->Enabled=true;->ReadOnly=true;->ReadOnly=true; }

}

// ---------------------------------------------------------------------------__fastcall TForm5:: sButton47Click (TObject *Sender)

{(sButton47->Caption=="Отмена") {->Enabled=true;->Enabled=false;->Enabled=true;->ADOTable14->Cancel ();->Caption="Редактировать"; }{->ActivePage=sTabSheet2;->ActivePage=sTabSheet11; }

}

// ---------------------------------------------------------------------------__fastcall TForm5:: sEdit1Change (TObject *Sender)

{(int i=0; i<=0; i++) {( (sEdit1->Text==" [") || (sEdit1->Text=="] ")) { Application->MessageBoxA ("Не корректное значение для поиска! Повторите ввод данных!","Ошибка",16);; break; }->ADOQuery1->Active=false;->ADOQuery1->SQL->Clear ();->ADOQuery1->SQL->Add ("select * from prorabi where prorabi LIKE '%"+sEdit1->Text+"%'; ");->ADOQuery1->Active=true; }

}

// ---------------------------------------------------------------------------__fastcall TForm5:: Timer1Timer (TObject *Sender)

{(sPageControl1->ActivePage==sTabSheet1) {Form5->Caption="Добавление данных"; }(sPageControl1->ActivePage==sTabSheet2) {Form5->Caption="Редактирование данных"; }

// объекты(sPageControl4->ActivePage==sTabSheet18) {sLabelFX12->Caption=IntToStr (DataModule4->ADOQuery12->RecordCount); }(sPageControl4->ActivePage==sTabSheet19) {sLabelFX13->Caption=IntToStr (DataModule4->ADOQuery13->RecordCount); }(sPageControl2->ActivePage==sTabSheet4) {sLabelFX1->Caption=IntToStr (DataModule4->ADOQuery1->RecordCount); }(sPageControl2->ActivePage==sTabSheet5) {sLabelFX2->Caption=IntToStr (DataModule4->ADOQuery2->RecordCount); }(sPageControl2->ActivePage==sTabSheet6) {sLabelFX3->Caption=IntToStr (DataModule4->ADOQuery3->RecordCount); }(sPageControl2->ActivePage==sTabSheet7) {sLabelFX4->Caption=IntToStr (DataModule4->ADOQuery4->RecordCount); }(sPageControl2->ActivePage==sTabSheet8) {sLabelFX5->Caption=IntToStr (DataModule4->ADOQuery5->RecordCount); }(sPageControl2->ActivePage==sTabSheet9) {sLabelFX6->Caption=IntToStr (DataModule4->ADOQuery6->RecordCount); }(sPageControl2->ActivePage==sTabSheet10) {sLabelFX7->Caption=IntToStr (DataModule4->ADOQuery7->RecordCount); }(sPageControl2->ActivePage==sTabSheet11) {sLabelFX8->Caption=IntToStr (DataModule4->ADOQuery8->RecordCount); }(sPageControl2->ActivePage==sTabSheet13) {sLabelFX14->Caption=IntToStr (DataModule4->ADOQuery14->RecordCount); }

// виды строительных работ(sPageControl3->ActivePage==sTabSheet15) {sLabelFX9->Caption=IntToStr (DataModule4->ADOQuery9->RecordCount); }(sPageControl3->ActivePage==sTabSheet16) {sLabelFX10->Caption=IntToStr (DataModule4->ADOQuery10->RecordCount); }(sPageControl3->ActivePage==sTabSheet17) {sLabelFX11->Caption=IntToStr (DataModule4->ADOQuery11->RecordCount); }

}

// ---------------------------------------------------------------------------__fastcall TForm5:: sDateEdit3Change (TObject *Sender)

{->MaxDate=sDateEdit4->Date;

}

// ---------------------------------------------------------------------------__fastcall TForm5:: sDateEdit4Change (TObject *Sender)

{->MinDate=sDateEdit3->Date;

}

// ---------------------------------------------------------------------------__fastcall TForm5:: sEdit2Change (TObject *Sender)

{(int i=0; i<=0; i++) {( (sEdit2->Text==" [") || (sEdit2->Text=="] ")) { Application->MessageBoxA ("Не корректное значение для поиска! Повторите ввод данных!","Ошибка",16);; break; }->ADOQuery2->Active=false;->ADOQuery2->SQL->Clear ();->ADOQuery2->SQL->Add ("select * from mastera where mastera LIKE '%"+sEdit2->Text+"%'; ");->ADOQuery2->Active=true; }

}

// ---------------------------------------------------------------------------__fastcall TForm5:: sEdit3Change (TObject *Sender)

{(int i=0; i<=0; i++) {( (sEdit3->Text==" [") || (sEdit3->Text=="] ")) { Application->MessageBoxA ("Не корректное значение для поиска! Повторите ввод данных!","Ошибка",16);; break; }->ADOQuery3->Active=false;->ADOQuery3->SQL->Clear ();->ADOQuery3->SQL->Add ("select * from obl where name_obl LIKE '%"+sEdit3->Text+"%'; ");->ADOQuery3->Active=true; }

}

// ---------------------------------------------------------------------------__fastcall TForm5:: sEdit4Change (TObject *Sender)

{(int i=0; i<=0; i++) {( (sEdit4->Text==" [") || (sEdit4->Text=="] ")) { Application->MessageBoxA ("Не корректное значение для поиска! Повторите ввод данных!","Ошибка",16);; break; }->ADOQuery4->Active=false;->ADOQuery4->SQL->Clear ();->ADOQuery4->SQL->Add ("select * from izm where nameEdizmer LIKE '%"+sEdit4->Text+"%'; ");->ADOQuery4->Active=true; }

}

// ---------------------------------------------------------------------------__fastcall TForm5:: sEdit5Change (TObject *Sender)

{(int i=0; i<=0; i++) {( (sEdit5->Text==" [") || (sEdit5->Text=="] ")) { Application->MessageBoxA ("Не корректное значение для поиска! Повторите ввод данных!","Ошибка",16);; break; }->ADOQuery5->Active=false;->ADOQuery5->SQL->Clear ();->ADOQuery5->SQL->Add ("select * from zak where namezak LIKE '%"+sEdit5->Text+"%'; ");->ADOQuery5->Active=true; }

}

// ---------------------------------------------------------------------------__fastcall TForm5:: sEdit6Change (TObject *Sender)

{(int i=0; i<=0; i++) {( (sEdit6->Text==" [") || (sEdit6->Text=="] ")) { Application->MessageBoxA ("Не корректное значение для поиска! Повторите ввод данных!","Ошибка",16);; break; }->ADOQuery6->Active=false;->ADOQuery6->SQL->Clear ();->ADOQuery6->SQL->Add ("select * from podr where namepodr LIKE '%"+sEdit6->Text+"%'; ");->ADOQuery6->Active=true; }

}

// ---------------------------------------------------------------------------__fastcall TForm5:: sEdit7Change (TObject *Sender)

{(int i=0; i<=0; i++) {( (sEdit7->Text==" [") || (sEdit7->Text=="] ")) { Application->MessageBoxA ("Не корректное значение для поиска! Повторите ввод данных!","Ошибка",16);; break; }->ADOQuery7->Active=false;->ADOQuery7->SQL->Clear ();->ADOQuery7->SQL->Add ("select * from genpodr where namegenpodr LIKE '%"+sEdit7->Text+"%'; ");->ADOQuery7->Active=true; }

}

// ---------------------------------------------------------------------------__fastcall TForm5:: sEdit8Change (TObject *Sender)

{(int i=0; i<=0; i++) {( (sEdit8->Text==" [") || (sEdit8->Text=="] ")) { Application->MessageBoxA ("Не корректное значение для поиска! Повторите ввод данных!","Ошибка",16);; break; }->ADOQuery8->Active=false;->ADOQuery8->SQL->Clear ();->ADOQuery8->SQL->Add ("select * from mat where namematerial LIKE '%"+sEdit8->Text+"%'; ");->ADOQuery8->Active=true; }

}

// ---------------------------------------------------------------------------__fastcall TForm5:: sEdit12Change (TObject *Sender)

{(int i=0; i<=0; i++) {( (sEdit12->Text==" [") || (sEdit12->Text=="] ")) { MessageBoxA (NULL,"Не корректное значение для поиска! Проверьте и повторите ввод данных!","Ошибка",MB_OK); break; }->ADOQuery12->Active=false;->ADOQuery12->SQL->Clear ();->ADOQuery12->SQL->Add ("Select * from obj where name_object Like '%"+sEdit12->Text+"%' and obl Like '%"+sEdit13->Text+"%'");->ADOQuery12->Active=true; }

}

// ---------------------------------------------------------------------------__fastcall TForm5:: sEdit13Change (TObject *Sender)

{(int i=0; i<=0; i++) {( (sEdit13->Text==" [") || (sEdit13->Text=="] ")) { MessageBoxA (NULL,"Не корректное значение для поиска! Проверьте и повторите ввод данных!","Ошибка",MB_OK); break; }->ADOQuery12->Active=false;->ADOQuery12->SQL->Clear ();->ADOQuery12->SQL->Add ("Select * from obj where name_object Like '%"+sEdit12->Text+"%' and obl Like '%"+sEdit13->Text+"%'");->ADOQuery12->Active=true; }

}

// ---------------------------------------------------------------------------__fastcall TForm5:: sButton90Click (TObject *Sender)

{

// ремонт(sGroupBox10->Visible==true) {->ADOTable11->Append ();->Enabled=false;->Enabled=true;->Enabled=true;->Enabled=false;->Enabled=true;->Enabled=true;->Enabled=true; }

}

// ---------------------------------------------------------------------------__fastcall TForm5:: sButton91Click (TObject *Sender)

{

// ремонт( (sGroupBox10->Visible==true) && (sDBLookupComboBox10->Text=="" || sDBLookupComboBox12->Text=="")) {>MessageBoxA ("Заполнены не все поля!","Заполнение полей",16); }{->Enabled=true;->Enabled=true;->Enabled=false;->Enabled=false;->ADOTable11name_restavr->Text="Ремонт";->ADOQuery10->Active=false;->ADOQuery10->Active=true;->ADOTable11->Post ();->Enabled=false;->Enabled=false;->Enabled=false; }

}

// ---------------------------------------------------------------------------__fastcall TForm5:: sButton92Click (TObject *Sender)

{

// ремонт(sGroupBox10->Visible==true) {->Enabled=true;->Enabled=true;->Enabled=false;->Enabled=false;->ADOTable11->Cancel ();->Enabled=false;->Enabled=false;->Enabled=false; }

}

// ---------------------------------------------------------------------------__fastcall TForm5:: sButton93Click (TObject *Sender)

{

// реконструкция(sGroupBox11->Visible==true) {->ADOTable12->Append ();->Enabled=false;->Enabled=true;->Enabled=true;->Enabled=false;->Enabled=true;->Enabled=true;->Enabled=true; }

}

// ---------------------------------------------------------------------------__fastcall TForm5:: sButton94Click (TObject *Sender)

{

// реконструкция( (sGroupBox11->Visible==true) && (sDBEdit22->Text=="" || sDBLookupComboBox11->Text=="" || sDBLookupComboBox14->Text=="")) {>MessageBoxA ("Заполнены не все поля!","Заполнение полей",16); }{->Enabled=true;->Enabled=true;->Enabled=false;->Enabled=false;->ADOTable12name_rekonctrik->Text="Реконструкция";->ADOQuery11->Active=false;->ADOQuery11->Active=true;->ADOTable12->Post ();->Enabled=false;->Enabled=false;->Enabled=false; }

}

// ---------------------------------------------------------------------------__fastcall TForm5:: sButton95Click (TObject *Sender)

{

// реконструкция(sGroupBox11->Visible==true) {->Enabled=true;->Enabled=true;->Enabled=false;->Enabled=false;->ADOTable12->Cancel ();->Enabled=false;->Enabled=false;->Enabled=false; }

}

// ---------------------------------------------------------------------------__fastcall TForm5:: sEdit9Change (TObject *Sender)

{(int i=0; i<=0; i++) {( (sEdit9->Text==" [") || (sEdit9->Text=="] ")) { Application->MessageBoxA ("Не корректное значение для поиска! Повторите ввод данных!","Ошибка",16);; break; }->ADOQuery9->Active=false;->ADOQuery9->SQL->Clear ();->ADOQuery9->SQL->Add ("select * from new_stoitelstvo where Name_stroj_materiala LIKE '%"+sEdit9->Text+"%'; ");->ADOQuery9->Active=true; }

}

// ---------------------------------------------------------------------------__fastcall TForm5:: sEdit10Change (TObject *Sender)

{(int i=0; i<=0; i++) {( (sEdit10->Text==" [") || (sEdit10->Text=="] ")) { Application->MessageBoxA ("Не корректное значение для поиска! Повторите ввод данных!","Ошибка",16);; break; }->ADOQuery10->Active=false;->ADOQuery10->SQL->Clear ();->ADOQuery10->SQL->Add ("select * from restavraciya where Name_stroj_materiala LIKE '%"+sEdit10->Text+"%'; ");->ADOQuery10->Active=true; }

}

// ---------------------------------------------------------------------------__fastcall TForm5:: sEdit11Change (TObject *Sender)

{(int i=0; i<=0; i++) {( (sEdit11->Text==" [") || (sEdit11->Text=="] ")) { Application->MessageBoxA ("Не корректное значение для поиска! Повторите ввод данных!","Ошибка",16);; break; }->ADOQuery11->Active=false;->ADOQuery11->SQL->Clear ();->ADOQuery11->SQL->Add ("select * from rekoctrykciya where Name_stroj_materiala LIKE '%"+sEdit11->Text+"%'; ");->ADOQuery11->Active=true; }

}

// ---------------------------------------------------------------------------__fastcall TForm5:: sButton55Click (TObject *Sender)

{(sDBEdit28->Text=="" || sDBEdit29->Text=="" || sDBEdit30->Text=="" || sDBEdit31->Text=="" || sDBEdit32->Text==""|| sDBEdit34->Text=="" || sDBEdit35->Text=="" || sDBEdit38->Text=="" || sDBEdit39->Text=="" || sDateEdit3->Text=="" || sDateEdit4->Text=="" || sDateEdit5->Text=="" || sDateEdit6->Text=="") {Application->MessageBoxA ("Какие-то из полей пусты, сохранение не возможно!","Сохранение. ",16); }{->Enabled=false;->Enabled=true;->Caption="Удалить";->Enabled=false;->Enabled=false;->ReadOnly=true; sDBEdit29->ReadOnly=true; sDBEdit30->ReadOnly=true;->ReadOnly=true; sDBEdit32->ReadOnly=true;->ReadOnly=true; sDBEdit35->ReadOnly=true; sDBEdit38->ReadOnly=true;->ReadOnly=true;->ReadOnly=true; sDateEdit4->ReadOnly=true;->Enabled=false; sDBLookupComboBox16->Enabled=false; sDBLookupComboBox17->Enabled=false;->Enabled=false; sDBLookupComboBox19->Enabled=false; sDBLookupComboBox20->Enabled=false;->Enabled=false; sDBLookupComboBox22->Enabled=false; sDBLookupComboBox23->Enabled=false;->Enabled=false; sDateEdit6->Enabled=false;->ADOQuery12->Post ();->Enabled=true;>MessageBoxA ("Изменения в БД успешно сохранены!","Сохранение. ",64); }

}

// ---------------------------------------------------------------------------__fastcall TForm5:: sButton54Click (TObject *Sender)

{(DataModule4->ADOQuery12->IsEmpty () ==true) {>MessageBoxA ("Редактирование не возможно, БД пуста!","Ошибка. ",16); }{->Enabled=false;->Enabled=true;->Caption="Отмена";->Enabled=true;->Enabled=true;(sRadioButton1->Checked) {->SetFocus ();->Visible=false;->Visible=true;->ReadOnly=false; sDBEdit29->ReadOnly=false; sDBEdit30->ReadOnly=false;->ReadOnly=false; sDBEdit32->ReadOnly=false;->ReadOnly=false; sDBEdit35->ReadOnly=false; sDBEdit38->ReadOnly=false;->ReadOnly=false; sDateEdit3->ReadOnly=false; sDateEdit4->ReadOnly=false;->Enabled=false; sDBLookupComboBox16->Enabled=false; sDBLookupComboBox17->Enabled=false;->Enabled=false; sDBLookupComboBox19->Enabled=false; sDBLookupComboBox20->Enabled=false;->Enabled=false; sDBLookupComboBox22->Enabled=false; sDBLookupComboBox23->Enabled=false;->Enabled=false; sDateEdit6->Enabled=false; }{->ReadOnly=true; sDBEdit29->ReadOnly=true; sDBEdit30->ReadOnly=true;->ReadOnly=true; sDBEdit32->ReadOnly=true;->ReadOnly=true; sDBEdit35->ReadOnly=true; sDBEdit38->ReadOnly=true;->ReadOnly=true; sDateEdit3->ReadOnly=true; sDateEdit4->ReadOnly=true;->Enabled=true; sDBLookupComboBox16->Enabled=true; sDBLookupComboBox17->Enabled=true;->Enabled=true; sDBLookupComboBox19->Enabled=true; sDBLookupComboBox20->Enabled=true;->Enabled=true; sDBLookupComboBox22->Enabled=true; sDBLookupComboBox23->Enabled=true;->Enabled=true; sDateEdit6->Enabled=true;->SetFocus (); }->ADOQuery12->Edit ();->Enabled=false;>MessageBoxA ("БД открыта для редактирования!","Внимение. ",64); }

}

// ---------------------------------------------------------------------------__fastcall TForm5:: sButton56Click (TObject *Sender)

{(DataModule4->ADOQuery12->IsEmpty () ==true) {>MessageBoxA ("Удаление не возможно, БД пуста!","Ошибка. ",16); }if (DataModule4->ADOQuery12->IsEmpty () ==false && sButton56->Caption=="Удалить") {->ADOQuery12->Delete ();>MessageBoxA ("Запись БД удалена!","Удаление. ",64); }{->Caption="Удалить";->Enabled=false;->Enabled=true;->Enabled=false;->Enabled=false;->ReadOnly=true; sDBEdit29->ReadOnly=true; sDBEdit30->ReadOnly=true;->ReadOnly=true; sDBEdit32->ReadOnly=true;->ReadOnly=true; sDBEdit35->ReadOnly=true; sDBEdit38->ReadOnly=true;->ReadOnly=true; sDateEdit3->ReadOnly=true; sDateEdit4->ReadOnly=true;->Enabled=false; sDBLookupComboBox16->Enabled=false; sDBLookupComboBox17->Enabled=false;->Enabled=false; sDBLookupComboBox19->Enabled=false; sDBLookupComboBox20->Enabled=false;->Enabled=false; sDBLookupComboBox22->Enabled=false; sDBLookupComboBox23->Enabled=false;->Enabled=false; sDateEdit6->Enabled=false;->ADOQuery12->Cancel ();->Enabled=true;>MessageBoxA ("Вы отменили редактирование БД! Поля были заблокированы!","Отмена. ",64); }

}

// ---------------------------------------------------------------------------__fastcall TForm5:: sButton57Click (TObject *Sender)

{(DataModule4->ADOQuery1->IsEmpty () ==true) {>MessageBoxA ("Редактирование не возможно, БД пуста!","Ошибка. ",16); }{->Enabled=false;->Enabled=true;->Caption="Отмена";->ReadOnly=false;->ADOQuery1->Edit ();->Enabled=false;->SetFocus ();>MessageBoxA ("БД открыта для редактирования!","Внимение. ",64); }

}

// ---------------------------------------------------------------------------__fastcall TForm5:: sButton58Click (TObject *Sender)

{(sDBEdit36->Text=="") {Application->MessageBoxA ("Пустое поле редактирования, сохранение не возможно!","Сохранение. ",16); }{->Enabled=false;->Enabled=true;->Caption="Удалить";->ReadOnly=true;->ADOQuery1->Post ();->Enabled=true;>MessageBoxA ("Изменения в БД успешно сохранены!","Сохранение. ",64); }

}

// ---------------------------------------------------------------------------__fastcall TForm5:: sButton59Click (TObject *Sender)

{(DataModule4->ADOQuery1->IsEmpty () ==true) {>MessageBoxA ("Удаление не возможно, БД пуста!","Ошибка. ",16); }if (DataModule4->ADOQuery1->IsEmpty () ==false && sButton59->Caption=="Удалить") {->ADOQuery1->Delete ();>MessageBoxA ("Запись БД удалена!","Удаление. ",64); }{->Caption="Удалить";->Enabled=false;->Enabled=true;->ReadOnly=true;->ADOQuery1->Cancel ();->Enabled=true;>MessageBoxA ("Вы отменили редактирование БД! Поле редактирования заблокировано!","Отмена. ",64); }

}

// ---------------------------------------------------------------------------__fastcall TForm5:: sButton60Click (TObject *Sender)

{(DataModule4->ADOQuery2->IsEmpty () ==true) {>MessageBoxA ("Редактирование не возможно, БД пуста!","Ошибка. ",16); }{->Enabled=false;->Enabled=true;->Caption="Отмена";->ReadOnly=false;->ADOQuery2->Edit ();->Enabled=false;->SetFocus ();>MessageBoxA ("БД открыта для редактирования!","Внимение. ",64); }

}

// ---------------------------------------------------------------------------__fastcall TForm5:: sButton61Click (TObject *Sender)

{(sDBEdit37->Text=="") {Application->MessageBoxA ("Пустое поле редактирования, сохранение не возможно!","Сохранение. ",16); }{->Enabled=false;->Enabled=true;->Caption="Удалить";->ReadOnly=true;->ADOQuery2->Post ();->Enabled=true;>MessageBoxA ("Изменения в БД успешно сохранены!","Сохранение. ",64); }

}

// ---------------------------------------------------------------------------__fastcall TForm5:: sButton62Click (TObject *Sender)

{(DataModule4->ADOQuery2->IsEmpty () ==true) {>MessageBoxA ("Удаление не возможно, БД пуста!","Ошибка. ",16); }if (DataModule4->ADOQuery2->IsEmpty () ==false && sButton62->Caption=="Удалить") {->ADOQuery2->Delete ();>MessageBoxA ("Запись БД удалена!","Удаление. ",64); }{->Caption="Удалить";->Enabled=false;->Enabled=true;->ReadOnly=true;->ADOQuery2->Cancel ();->Enabled=true;>MessageBoxA ("Вы отменили редактирование БД! Поле редактирования заблокировано!","Отмена. ",64); }

}

// ---------------------------------------------------------------------------__fastcall TForm5:: sButton63Click (TObject *Sender)

{(DataModule4->ADOQuery3->IsEmpty () ==true) {>MessageBoxA ("Редактирование не возможно, БД пуста!","Ошибка. ",16); }{->Enabled=false;->Enabled=true;->Caption="Отмена";->ReadOnly=false;->ADOQuery3->Edit ();->Enabled=false;->SetFocus ();>MessageBoxA ("БД открыта для редактирования!","Внимение. ",64); }

}

// ---------------------------------------------------------------------------__fastcall TForm5:: sButton64Click (TObject *Sender)

{(sDBEdit42->Text=="") {Application->MessageBoxA ("Пустое поле редактирования, сохранение не возможно!","Сохранение. ",16); }{->Enabled=false;->Enabled=true;->Caption="Удалить";->ReadOnly=true;->ADOQuery3->Post ();->Enabled=true;>MessageBoxA ("Изменения в БД успешно сохранены!","Сохранение. ",64); }

}

// ---------------------------------------------------------------------------__fastcall TForm5:: sButton65Click (TObject *Sender)

{(DataModule4->ADOQuery3->IsEmpty () ==true) {>MessageBoxA ("Удаление не возможно, БД пуста!","Ошибка. ",16); }if (DataModule4->ADOQuery3->IsEmpty () ==false && sButton65->Caption=="Удалить") {->ADOQuery3->Delete ();>MessageBoxA ("Запись БД удалена!","Удаление. ",64); }{->Caption="Удалить";->Enabled=false;->Enabled=true;->ReadOnly=true;->ADOQuery3->Cancel ();->Enabled=true;>MessageBoxA ("Вы отменили редактирование БД! Поле редактирования заблокировано!","Отмена. ",64); }

}

// ---------------------------------------------------------------------------__fastcall TForm5:: sButton66Click (TObject *Sender)

{(DataModule4->ADOQuery4->IsEmpty () ==true) {>MessageBoxA ("Редактирование не возможно, БД пуста!","Ошибка. ",16); }{->Enabled=false;->Enabled=true;->Caption="Отмена";->ReadOnly=false;->ReadOnly=false;->ADOQuery4->Edit ();->Enabled=false;->SetFocus ();>MessageBoxA ("БД открыта для редактирования!","Внимение. ",64); }

}

// ---------------------------------------------------------------------------__fastcall TForm5:: sButton67Click (TObject *Sender) {(sDBEdit43->Text=="" || sDBEdit50->Text=="") {Application->MessageBoxA ("Пустое поле редактирования, сохранение не возможно!","Сохранение. ",16); }{->Enabled=false;->Enabled=true;->Caption="Удалить";->ReadOnly=true;->ReadOnly=true;->ADOQuery4->Post ();->Enabled=true;>MessageBoxA ("Изменения в БД успешно сохранены!","Сохранение. ",64); }}

// ---------------------------------------------------------------------------__fastcall TForm5:: sButton68Click (TObject *Sender)

{(DataModule4->ADOQuery4->IsEmpty () ==true) {>MessageBoxA ("Удаление не возможно, БД пуста!","Ошибка. ",16); }if (DataModule4->ADOQuery4->IsEmpty () ==false && sButton68->Caption=="Удалить") {->ADOQuery4->Delete ();>MessageBoxA ("Запись БД удалена!","Удаление. ",64); }{->Caption="Удалить";->Enabled=false;->Enabled=true;->ReadOnly=true;->ReadOnly=true;->ADOQuery4->Cancel ();->Enabled=true;>MessageBoxA ("Вы отменили редактирование БД! Поле редактирования заблокировано!","Отмена. ",64); }

}

// ---------------------------------------------------------------------------__fastcall TForm5:: sButton69Click (TObject *Sender)

{(DataModule4->ADOQuery5->IsEmpty () ==true) {>MessageBoxA ("Редактирование не возможно, БД пуста!","Ошибка. ",16); }{->Enabled=false;->Enabled=true;->Caption="Отмена";->ReadOnly=false;->ADOQuery5->Edit ();->Enabled=false;->SetFocus ();>MessageBoxA ("БД открыта для редактирования!","Внимение. ",64); }

}

// ---------------------------------------------------------------------------__fastcall TForm5:: sButton70Click (TObject *Sender)

{(sDBEdit44->Text=="") {Application->MessageBoxA ("Пустое поле редактирования, сохранение не возможно!","Сохранение. ",16); }{->Enabled=false;->Enabled=true;->Caption="Удалить";->ReadOnly=true;->ADOQuery5->Post ();->Enabled=true;>MessageBoxA ("Изменения в БД успешно сохранены!","Сохранение. ",64); }

}

// ---------------------------------------------------------------------------__fastcall TForm5:: sButton71Click (TObject *Sender)

{(DataModule4->ADOQuery5->IsEmpty () ==true) {>MessageBoxA ("Удаление не возможно, БД пуста!","Ошибка. ",16); }if (DataModule4->ADOQuery5->IsEmpty () ==false && sButton71->Caption=="Удалить") {->ADOQuery5->Delete ();>MessageBoxA ("Запись БД удалена!","Удаление. ",64); }{->Caption="Удалить";->Enabled=false;->Enabled=true;->ReadOnly=true;->ADOQuery5->Cancel ();->Enabled=true;>MessageBoxA ("Вы отменили редактирование БД! Поле редактирования заблокировано!","Отмена. ",64); }}

// ---------------------------------------------------------------------------__fastcall TForm5:: sButton72Click (TObject *Sender) {(DataModule4->ADOQuery6->IsEmpty () ==true) {>MessageBoxA ("Редактирование не возможно, БД пуста!","Ошибка. ",16); }{->Enabled=false;->Enabled=true;->Caption="Отмена";->ReadOnly=false;->ADOQuery6->Edit ();->Enabled=false;->SetFocus ();>MessageBoxA ("БД открыта для редактирования!","Внимение. ",64); }}

// ---------------------------------------------------------------------------__fastcall TForm5:: sButton73Click (TObject *Sender)

{(sDBEdit45->Text=="") {Application->MessageBoxA ("Пустое поле редактирования, сохранение не возможно!","Сохранение. ",16); }{->Enabled=false;->Enabled=true;->Caption="Удалить";->ReadOnly=true;->ADOQuery6->Post ();->Enabled=true;>MessageBoxA ("Изменения в БД успешно сохранены!","Сохранение. ",64); }

}

// ---------------------------------------------------------------------------__fastcall TForm5:: sButton74Click (TObject *Sender)

{(DataModule4->ADOQuery6->IsEmpty () ==true) {>MessageBoxA ("Удаление не возможно, БД пуста!","Ошибка. ",16); }if (DataModule4->ADOQuery6->IsEmpty () ==false && sButton74->Caption=="Удалить") {->ADOQuery6->Delete ();>MessageBoxA ("Запись БД удалена!","Удаление. ",64); }{->Caption="Удалить";->Enabled=false;->Enabled=true;->ReadOnly=true;->ADOQuery6->Cancel ();->Enabled=true;>MessageBoxA ("Вы отменили редактирование БД! Поле редактирования заблокировано!","Отмена. ",64); }

}

// ---------------------------------------------------------------------------__fastcall TForm5:: sButton75Click (TObject *Sender)

{(DataModule4->ADOQuery7->IsEmpty () ==true) {>MessageBoxA ("Редактирование не возможно, БД пуста!","Ошибка. ",16); }{->Enabled=false;->Enabled=true;->Caption="Отмена";->ReadOnly=false;->ADOQuery7->Edit ();->Enabled=false;->SetFocus ();>MessageBoxA ("БД открыта для редактирования!","Внимение. ",64); }

}

// ---------------------------------------------------------------------------__fastcall TForm5:: sButton76Click (TObject *Sender)

{(sDBEdit46->Text=="") {Application->MessageBoxA ("Пустое поле редактирования, сохранение не возможно!","Сохранение. ",16); }{->Enabled=false;->Enabled=true;->Caption="Удалить";->ReadOnly=true;->ADOQuery7->Post ();->Enabled=true;>MessageBoxA ("Изменения в БД успешно сохранены!","Сохранение. ",64); }

}

// ---------------------------------------------------------------------------__fastcall TForm5:: sButton77Click (TObject *Sender)

{(DataModule4->ADOQuery7->IsEmpty () ==true) {>MessageBoxA ("Удаление не возможно, БД пуста!","Ошибка. ",16); }if (DataModule4->ADOQuery7->IsEmpty () ==false && sButton77->Caption=="Удалить") {->ADOQuery7->Delete ();>MessageBoxA ("Запись БД удалена!","Удаление. ",64); }{->Caption="Удалить";->Enabled=false;->Enabled=true;->ReadOnly=true;->ADOQuery7->Cancel ();->Enabled=true;>MessageBoxA ("Вы отменили редактирование БД! Поле редактирования заблокировано!","Отмена. ",64); }

}

// ---------------------------------------------------------------------------__fastcall TForm5:: sButton78Click (TObject *Sender)

{(DataModule4->ADOQuery8->IsEmpty () ==true) {>MessageBoxA ("Редактирование не возможно, БД пуста!","Ошибка. ",16); }{->Enabled=false;->Enabled=true;->Caption="Отмена";->ReadOnly=false;->ReadOnly=false;->ADOQuery8->Edit ();->Enabled=false;->SetFocus ();>MessageBoxA ("БД открыта для редактирования!","Внимение. ",64); }

}

// ---------------------------------------------------------------------------__fastcall TForm5:: sButton79Click (TObject *Sender)

{(sDBEdit47->Text=="" || sDBEdit48->Text=="") {Application->MessageBoxA ("Пустое поле редактирования, сохранение не возможно!","Сохранение. ",16); }{->Enabled=false;->Enabled=true;->Caption="Удалить";->ReadOnly=true;->ReadOnly=true;->ADOQuery8->Post ();->Enabled=true;>MessageBoxA ("Изменения в БД успешно сохранены!","Сохранение. ",64); }

}

// ---------------------------------------------------------------------------__fastcall TForm5:: sButton80Click (TObject *Sender)

{(DataModule4->ADOQuery8->IsEmpty () ==true) {>MessageBoxA ("Удаление не возможно, БД пуста!","Ошибка. ",16); }if (DataModule4->ADOQuery8->IsEmpty () ==false && sButton80->Caption=="Удалить") {->ADOQuery8->Delete ();>MessageBoxA ("Запись БД удалена!","Удаление. ",64); }{->Caption="Удалить";->Enabled=false;->Enabled=true;->ReadOnly=true;->ReadOnly=true;->ADOQuery8->Cancel ();->Enabled=true;>MessageBoxA ("Вы отменили редактирование БД! Поле редактирования заблокировано!","Отмена. ",64); }

}

// ---------------------------------------------------------------------------__fastcall TForm5:: sButton81Click (TObject *Sender)

{(DataModule4->ADOQuery9->IsEmpty () ==true) {>MessageBoxA ("Редактирование не возможно, БД пуста!","Ошибка. ",16); }{->Enabled=false;->Enabled=true;->Caption="Отмена";->ReadOnly=false;->ReadOnly=false;->ADOQuery9->Edit ();->Enabled=false;->SetFocus ();>MessageBoxA ("БД открыта для редактирования!","Внимение. ",64); }

}

// ---------------------------------------------------------------------------__fastcall TForm5:: sButton82Click (TObject *Sender)

{(sDBEdit51->Text=="" || sDBEdit52->Text=="") {Application->MessageBoxA ("Пустое поле редактирования, сохранение не возможно!","Сохранение. ",16); }{->Enabled=false;->Enabled=true;->Caption="Удалить";->ReadOnly=true;->ReadOnly=true;->ADOQuery9->Post ();->Enabled=true;>MessageBoxA ("Изменения в БД успешно сохранены!","Сохранение. ",64); }

}

// ---------------------------------------------------------------------------__fastcall TForm5:: sButton83Click (TObject *Sender)

{(DataModule4->ADOQuery9->IsEmpty () ==true) {>MessageBoxA ("Удаление не возможно, БД пуста!","Ошибка. ",16); }if (DataModule4->ADOQuery9->IsEmpty () ==false && sButton83->Caption=="Удалить") {->ADOQuery9->Delete ();>MessageBoxA ("Запись БД удалена!","Удаление. ",64); }{->Caption="Удалить";->Enabled=false;->Enabled=true;->ReadOnly=true;->ReadOnly=true;->ADOQuery9->Cancel ();->Enabled=true;>MessageBoxA ("Вы отменили редактирование БД! Поле редактирования заблокировано!","Отмена. ",64); }

}

// ---------------------------------------------------------------------------__fastcall TForm5:: sButton84Click (TObject *Sender)

{(DataModule4->ADOQuery10->IsEmpty () ==true) {>MessageBoxA ("Редактирование не возможно, БД пуста!","Ошибка. ",16); }{->Enabled=false;->Enabled=true;->Caption="Отмена";->ReadOnly=false;->ReadOnly=false;->ADOQuery10->Edit ();->Enabled=false;->SetFocus ();>MessageBoxA ("БД открыта для редактирования!","Внимение. ",64); }

}

// ---------------------------------------------------------------------------__fastcall TForm5:: sButton85Click (TObject *Sender)

{(sDBEdit54->Text=="" || sDBEdit55->Text=="") {Application->MessageBoxA ("Пустое поле редактирования, сохранение не возможно!","Сохранение. ",16); }{->Enabled=false;->Enabled=true;->Caption="Удалить";->ReadOnly=true;->ReadOnly=true;->ADOQuery10->Post ();->Enabled=true;>MessageBoxA ("Изменения в БД успешно сохранены!","Сохранение. ",64); }

}

// ---------------------------------------------------------------------------__fastcall TForm5:: sButton86Click (TObject *Sender)

{(DataModule4->ADOQuery10->IsEmpty () ==true) {>MessageBoxA ("Удаление не возможно, БД пуста!","Ошибка. ",16); }if (DataModule4->ADOQuery10->IsEmpty () ==false && sButton86->Caption=="Удалить") {->ADOQuery10->Delete ();>MessageBoxA ("Запись БД удалена!","Удаление. ",64); }{->Caption="Удалить";->Enabled=false;->Enabled=true;->ReadOnly=true;->ReadOnly=true;->ADOQuery10->Cancel ();->Enabled=true;>MessageBoxA ("Вы отменили редактирование БД! Поле редактирования заблокировано!","Отмена. ",64); }

}

// ---------------------------------------------------------------------------__fastcall TForm5:: sButton87Click (TObject *Sender)

{(DataModule4->ADOQuery11->IsEmpty () ==true) {>MessageBoxA ("Редактирование не возможно, БД пуста!","Ошибка. ",16); }{->Enabled=false;->Enabled=true;->Caption="Отмена";->ReadOnly=false;->ReadOnly=false;->ADOQuery11->Edit ();->Enabled=false;->SetFocus ();>MessageBoxA ("БД открыта для редактирования!","Внимение. ",64); }

}

// ---------------------------------------------------------------------------__fastcall TForm5:: sButton88Click (TObject *Sender)

{(sDBEdit57->Text=="" || sDBEdit58->Text=="") {Application->MessageBoxA ("Пустое поле редактирования, сохранение не возможно!","Сохранение. ",16); }{->Enabled=false;->Enabled=true;->Caption="Удалить";->ReadOnly=true;->ReadOnly=true;->ADOQuery11->Post ();->Enabled=true;>MessageBoxA ("Изменения в БД успешно сохранены!","Сохранение. ",64); }

}

// ---------------------------------------------------------------------------__fastcall TForm5:: sButton89Click (TObject *Sender)

{(DataModule4->ADOQuery11->IsEmpty () ==true) {>MessageBoxA ("Удаление не возможно, БД пуста!","Ошибка. ",16); }if (DataModule4->ADOQuery11->IsEmpty () ==false && sButton89->Caption=="Удалить") {->ADOQuery11->Delete ();>MessageBoxA ("Запись БД удалена!","Удаление. ",64); }{->Caption="Удалить";->Enabled=false;->Enabled=true;->ReadOnly=true;->ReadOnly=true;->ADOQuery11->Cancel ();->Enabled=true;>MessageBoxA ("Вы отменили редактирование БД! Поле редактирования заблокировано!","Отмена. ",64); }

}

// ---------------------------------------------------------------------------__fastcall TForm5:: sPageControl3Change (TObject *Sender)

{

// SQL reset->ADOQuery9->Active=false; DataModule4->ADOQuery9->Active=true;->ADOQuery10->Active=false; DataModule4->ADOQuery10->Active=true;->ADOQuery11->Active=false; DataModule4->ADOQuery11->Active=true;

// BD reset->ADOTable10->Active=false; DataModule4->ADOTable10->Active=true;->ADOTable11->Active=false; DataModule4->ADOTable11->Active=true;->ADOTable12->Active=false; DataModule4->ADOTable12->Active=true;

// блокировка полей редактирования

// виды работ->ReadOnly=true; sDBEdit52->ReadOnly=true;->ReadOnly=true; sDBEdit55->ReadOnly=true;->ReadOnly=true; sDBEdit58->ReadOnly=true;

}

// ---------------------------------------------------------------------------__fastcall TForm5:: sButton96Click (TObject *Sender)

{->Enabled=true;->Enabled=true;->Enabled=false;->Enabled=false;->ADOTable10->Cancel ();->Enabled=false;->Enabled=false;->Enabled=false;->ActivePage=sTabSheet2;->ActivePage=sTabSheet12;->ActivePage=sTabSheet15;

}

// ---------------------------------------------------------------------------__fastcall TForm5:: sButton97Click (TObject *Sender)

{->Enabled=true;->Enabled=true;->Enabled=false;->Enabled=false;->ADOTable11->Cancel ();->Enabled=false;->Enabled=false;->Enabled=false;->ActivePage=sTabSheet2;->ActivePage=sTabSheet12;->ActivePage=sTabSheet16;

}

// ---------------------------------------------------------------------------__fastcall TForm5:: sButton98Click (TObject *Sender)

{->Enabled=true;->Enabled=true;->Enabled=false;->Enabled=false;->ADOTable12->Cancel ();->Enabled=false;->Enabled=false;->Enabled=false;->ActivePage=sTabSheet2;->ActivePage=sTabSheet12;->ActivePage=sTabSheet17;

}

// ---------------------------------------------------------------------------__fastcall TForm5:: sButton99Click (TObject *Sender)

{->ActivePage=sTabSheet1;->SetFocus ();->Visible=false;->Visible=true;->Visible=false;->Visible=false;->Visible=true;->Visible=true;->Visible=false;->Visible=false;->Visible=false;->Visible=false;

}

// ---------------------------------------------------------------------------__fastcall TForm5:: sButton100Click (TObject *Sender)

{->ActivePage=sTabSheet1;->SetFocus ();->Visible=false;->Visible=true;->Visible=false;->Visible=false;->Visible=true;->Visible=true;->Visible=false;->Visible=false;->Visible=false;->Visible=false;

}

// ---------------------------------------------------------------------------__fastcall TForm5:: sButton101Click (TObject *Sender)

{->ActivePage=sTabSheet1;->SetFocus ();->Visible=false;->Visible=true;->Visible=false;->Visible=false;->Visible=true;->Visible=true;->Visible=false;->Visible=false;->Visible=false;->Visible=false;

}

// ---------------------------------------------------------------------------__fastcall TForm5:: sButton102Click (TObject *Sender)

{->Close ();->Show ();->sGroupBox1->Visible=true;->sGroupBox2->Visible=false;->sGroupBox3->Visible=false;->sGroupBox4->Visible=false;->sGroupBox5->Visible=false;

}

// ---------------------------------------------------------------------------__fastcall TForm5:: sButton103Click (TObject *Sender)

{->ActivePage=sTabSheet1;->Visible=false;->Visible=true;->Visible=false;->Visible=false;->Visible=false;->Visible=true;->Visible=false;->Visible=false;->Visible=false;->Visible=false;->Visible=false;->Visible=false;->Visible=false;

}

// ---------------------------------------------------------------------------__fastcall TForm5:: sEdit14Change (TObject *Sender)

{(int i=0; i<=0; i++) {( (sEdit14->Text==" [") || (sEdit14->Text=="] ")) { Application->MessageBoxA ("Не корректное значение для поиска! Повторите ввод данных!","Ошибка",16);; break; }->ADOQuery1->Active=false;->ADOQuery1->SQL->Clear ();->ADOQuery1->SQL->Add ("select * from name_obj where name_object LIKE '%"+sEdit14->Text+"%'; ");->ADOQuery1->Active=true; }

}

// ---------------------------------------------------------------------------__fastcall TForm5:: sButton104Click (TObject *Sender)

{(DataModule4->ADOQuery13->IsEmpty () ==true) {>MessageBoxA ("Редактирование не возможно, БД пуста!","Ошибка. ",16); }{->Enabled=false;->Enabled=true;->Caption="Отмена";->ReadOnly=false;->ADOQuery13->Edit ();->Enabled=false;->SetFocus ();>MessageBoxA ("БД открыта для редактирования!","Внимение. ",64); }

}

// ---------------------------------------------------------------------------__fastcall TForm5:: sButton105Click (TObject *Sender)

{(sDBEdit13->Text=="") {Application->MessageBoxA ("Пустое поле редактирования, сохранение не возможно!","Сохранение. ",16); }{->Enabled=false;->Enabled=true;->Caption="Удалить";->ReadOnly=true;->ADOQuery13->Post ();->Enabled=true;>MessageBoxA ("Изменения в БД успешно сохранены!","Сохранение. ",64); }

}

// ---------------------------------------------------------------------------__fastcall TForm5:: sPageControl4Change (TObject *Sender)

{->ADOQuery12->Active=false; DataModule4->ADOQuery12->Active=true;->ADOQuery13->Active=false; DataModule4->ADOQuery13->Active=true;

// блокировка полей редактирования

// объекты->ReadOnly=true;->ReadOnly=true; sDBEdit29->ReadOnly=true; sDBEdit30->ReadOnly=true;->ReadOnly=true; sDBEdit32->ReadOnly=true;->ReadOnly=true; sDBEdit35->ReadOnly=true; sDBEdit38->ReadOnly=true;->ReadOnly=true; sDateEdit3->ReadOnly=true; sDateEdit4->ReadOnly=true;->Enabled=false; sDBLookupComboBox16->Enabled=false; sDBLookupComboBox17->Enabled=false;->Enabled=false; sDBLookupComboBox19->Enabled=false; sDBLookupComboBox20->Enabled=false;->Enabled=false; sDBLookupComboBox22->Enabled=false; sDBLookupComboBox23->Enabled=false;->Enabled=false; sDateEdit6->Enabled=false;

}

// ---------------------------------------------------------------------------__fastcall TForm5:: sButton106Click (TObject *Sender)

{(DataModule4->ADOQuery13->IsEmpty () ==true) {>MessageBoxA ("Удаление не возможно, БД пуста!","Ошибка. ",16); }if (DataModule4->ADOQuery13->IsEmpty () ==false && sButton106->Caption=="Удалить") {->ADOQuery13->Delete ();>MessageBoxA ("Запись БД удалена!","Удаление. ",64); }{->Caption="Удалить";->Enabled=false;->Enabled=true;->ReadOnly=true;->ADOQuery13->Cancel ();->Enabled=true;>MessageBoxA ("Вы отменили редактирование БД! Поле редактирования заблокировано!","Отмена. ",64); }

}

// ---------------------------------------------------------------------------__fastcall TForm5:: sButton28Click (TObject *Sender)

{->ActivePage=sTabSheet1;->SetFocus ();->Visible=false;->Visible=true;->Visible=false;->Visible=false;->Visible=true;->Visible=false;->Visible=false;->Visible=false;->Visible=false;->Visible=false;->Visible=false;->Visible=false;->Visible=false;

}

// ---------------------------------------------------------------------------__fastcall TForm5:: sButton107Click (TObject *Sender)

{->ActivePage=sTabSheet1;->SetFocus ();->Visible=false;->Visible=true;->Visible=false;->Visible=false;->Visible=true;->Visible=false;->Visible=false;->Visible=false;->Visible=false;->Visible=false;->Visible=false;->Visible=false;->Visible=false;

}

// ---------------------------------------------------------------------------__fastcall TForm5:: sButton108Click (TObject *Sender)

{->ActivePage=sTabSheet1;->SetFocus ();->Visible=false;->Visible=true;->Visible=false;->Visible=false;->Visible=true;->Visible=false;->Visible=false;->Visible=false;->Visible=false;->Visible=false;->Visible=false;->Visible=false;->Visible=false;

}

// ---------------------------------------------------------------------------__fastcall TForm5:: sButton109Click (TObject *Sender)

{->ActivePage=sTabSheet1;->SetFocus ();->Visible=false;->Visible=true;->Visible=false;->Visible=false;->Visible=true;->Visible=false;->Visible=false;->Visible=false;->Visible=false;->Visible=false;->Visible=false;->Visible=false;->Visible=false;

}

// ---------------------------------------------------------------------------__fastcall TForm5:: sButton110Click (TObject *Sender)

{->ActivePage=sTabSheet1;->SetFocus ();->Visible=false;->Visible=true;->Visible=false;->Visible=false;->Visible=true;->Visible=false;->Visible=false;->Visible=false;->Visible=false;->Visible=false;->Visible=false;->Visible=false;->Visible=false;

}

// ---------------------------------------------------------------------------__fastcall TForm5:: sButton111Click (TObject *Sender)

{->ActivePage=sTabSheet1;->SetFocus ();->Visible=false;->Visible=true;->Visible=false;->Visible=false;->Visible=true;->Visible=false;->Visible=false;->Visible=false;->Visible=false;->Visible=false;->Visible=false;->Visible=false;->Visible=false;

}

// ---------------------------------------------------------------------------__fastcall TForm5:: sButton112Click (TObject *Sender)

{->ActivePage=sTabSheet1;->SetFocus ();->Visible=false;->Visible=true;->Visible=false;->Visible=false;->Visible=true;->Visible=false;->Visible=false;->Visible=false;->Visible=false;->Visible=false;->Visible=false;->Visible=false;->Visible=false;

}

// ---------------------------------------------------------------------------__fastcall TForm5:: sButton113Click (TObject *Sender)

{->ActivePage=sTabSheet1;->SetFocus ();->Visible=false;->Visible=true;->Visible=false;->Visible=false;->Visible=true;->Visible=false;->Visible=false;->Visible=false;->Visible=false;->Visible=false;->Visible=false;->Visible=false;->Visible=false;

}

// ---------------------------------------------------------------------------__fastcall TForm5:: sButton117Click (TObject *Sender)

{->ActivePage=sTabSheet1;->Visible=false;->Visible=true;->Visible=false;->Visible=false;

}

// ---------------------------------------------------------------------------__fastcall TForm5:: sEdit15Change (TObject *Sender)

{(int i=0; i<=0; i++) {( (sEdit15->Text==" [") || (sEdit15->Text=="] ")) { Application->MessageBoxA ("Не корректное значение для поиска! Повторите ввод данных!","Ошибка",16);; break; }->ADOQuery14->Active=false;->ADOQuery14->SQL->Clear ();->ADOQuery14->SQL->Add ("select * from Razcenki where nameobosnov LIKE '%"+sEdit15->Text+"%'; ");->ADOQuery14->Active=true; }

}

// ---------------------------------------------------------------------------__fastcall TForm5:: sRadioButton2Click (TObject *Sender)

{(sRadioButton2->Checked) {->Visible=false;->Visible=true;->ReadOnly=true; sDBEdit29->ReadOnly=true; sDBEdit30->ReadOnly=true;->ReadOnly=true; sDBEdit32->ReadOnly=true;->ReadOnly=true; sDBEdit35->ReadOnly=true; sDBEdit38->ReadOnly=true;->ReadOnly=true; sDateEdit3->ReadOnly=true; sDateEdit4->ReadOnly=true;->Enabled=true; sDBLookupComboBox16->Enabled=true; sDBLookupComboBox17->Enabled=true;->Enabled=true; sDBLookupComboBox19->Enabled=true; sDBLookupComboBox20->Enabled=true;->Enabled=true; sDBLookupComboBox22->Enabled=true; sDBLookupComboBox23->Enabled=true;->Enabled=true; sDateEdit6->Enabled=true;->SetFocus ();>MessageBoxA ("Вы изменили режим редактирования БД!","Внимание. ",64); }

}

// ---------------------------------------------------------------------------__fastcall TForm5:: sRadioButton1Click (TObject *Sender)

{(sRadioButton1->Checked) {->Visible=false;->Visible=true;->ReadOnly=false; sDBEdit29->ReadOnly=false; sDBEdit30->ReadOnly=false;->ReadOnly=false; sDBEdit32->ReadOnly=false;->ReadOnly=false; sDBEdit35->ReadOnly=false; sDBEdit38->ReadOnly=false;->ReadOnly=false; sDateEdit3->ReadOnly=false; sDateEdit4->ReadOnly=false;->Enabled=false; sDBLookupComboBox16->Enabled=false; sDBLookupComboBox17->Enabled=false;->Enabled=false; sDBLookupComboBox19->Enabled=false; sDBLookupComboBox20->Enabled=false;->Enabled=false; sDBLookupComboBox22->Enabled=false; sDBLookupComboBox23->Enabled=false;->Enabled=false; sDateEdit6->Enabled=false;->SetFocus ();>MessageBoxA ("Вы изменили режим редактирования БД!","Внимание. ",64); }

}

// ---------------------------------------------------------------------------__fastcall TForm5:: sDateEdit5Change (TObject *Sender)

{->MaxDate=sDateEdit6->Date;

}

// ---------------------------------------------------------------------------__fastcall TForm5:: sDateEdit6Change (TObject *Sender)

{->MinDate=sDateEdit5->Date;

}

// ---------------------------------------------------------------------------__fastcall TForm5:: FormClose (TObject *Sender, TCloseAction &Action)

{

// SQL reset->ADOQuery1->Active=false; DataModule4->ADOQuery1->Active=true; DataModule4->ADOQuery2->Active=false; DataModule4->ADOQuery2->Active=true;->ADOQuery3->Active=false; DataModule4->ADOQuery3->Active=true; DataModule4->ADOQuery4->Active=false; DataModule4->ADOQuery4->Active=true;->ADOQuery5->Active=false; DataModule4->ADOQuery5->Active=true; DataModule4->ADOQuery6->Active=false; DataModule4->ADOQuery6->Active=true;->ADOQuery7->Active=false; DataModule4->ADOQuery7->Active=true; DataModule4->ADOQuery8->Active=false; DataModule4->ADOQuery8->Active=true;->ADOQuery9->Active=false; DataModule4->ADOQuery9->Active=true; DataModule4->ADOQuery10->Active=false; DataModule4->ADOQuery10->Active=true;->ADOQuery11->Active=false; DataModule4->ADOQuery11->Active=true; DataModule4->ADOQuery12->Active=false; DataModule4->ADOQuery12->Active=true;->ADOQuery13->Active=false; DataModule4->ADOQuery13->Active=true; DataModule4->ADOQuery14->Active=false; DataModule4->ADOQuery14->Active=true;

// BD reset->ADOTable1->Active=false; DataModule4->ADOTable1->Active=true;->ADOTable2->Active=false; DataModule4->ADOTable2->Active=true; DataModule4->ADOTable3->Active=false; DataModule4->ADOTable3->Active=true;->ADOTable4->Active=false; DataModule4->ADOTable4->Active=true; DataModule4->ADOTable5->Active=false; DataModule4->ADOTable5->Active=true;->ADOTable6->Active=false; DataModule4->ADOTable6->Active=true; DataModule4->ADOTable7->Active=false; DataModule4->ADOTable7->Active=true;->ADOTable8->Active=false; DataModule4->ADOTable8->Active=true; DataModule4->ADOTable9->Active=false; DataModule4->ADOTable9->Active=true;->ADOTable10->Active=false; DataModule4->ADOTable10->Active=true; DataModule4->ADOTable11->Active=false; DataModule4->ADOTable11->Active=true;->ADOTable12->Active=false; DataModule4->ADOTable12->Active=true; DataModule4->ADOTable13->Active=false; DataModule4->ADOTable13->Active=true;->ADOTable14->Active=false; DataModule4->ADOTable14->Active=true; DataModule4->ADOTable15->Active=false; DataModule4->ADOTable15->Active=true;

// объекты->ReadOnly=true; sDBEdit28->ReadOnly=true; sDBEdit29->ReadOnly=true; sDBEdit30->ReadOnly=true;->ReadOnly=true; sDBEdit32->ReadOnly=true; sDBEdit34->ReadOnly=true; sDBEdit35->ReadOnly=true;->ReadOnly=true; sDBEdit39->ReadOnly=true; sDateEdit3->ReadOnly=true; sDateEdit4->ReadOnly=true;->Enabled=false; sDBLookupComboBox16->Enabled=false; sDBLookupComboBox17->Enabled=false;->Enabled=false; sDBLookupComboBox19->Enabled=false; sDBLookupComboBox20->Enabled=false;->Enabled=false; sDBLookupComboBox22->Enabled=false; sDBLookupComboBox23->Enabled=false;->Enabled=false; sDateEdit6->Enabled=false;

// виды работ->ReadOnly=true; sDBEdit52->ReadOnly=true; sDBEdit54->ReadOnly=true; sDBEdit55->ReadOnly=true; sDBEdit37->ReadOnly=true; sDBEdit58->ReadOnly=true;

// прорабы - материалы->ReadOnly=true; sDBEdit37->ReadOnly=true; sDBEdit42->ReadOnly=true; sDBEdit43->ReadOnly=true; sDBEdit44->ReadOnly=true; sDBEdit45->ReadOnly=true;->ReadOnly=true; sDBEdit47->ReadOnly=true; sDBEdit48->ReadOnly=true; sDBEdit50->ReadOnly=true;->ADOTable15->Cancel (); sMemo2->Clear (); sMemo4->Clear (); sMemo1->Enabled=false; sMemo2->Enabled=false; sMemo3->Enabled=false; sMemo4->Enabled=false;->Enabled=true; sButton119->Enabled=false; sButton120->Enabled=false; sDBEdit14->Enabled=false; sDBEdit20->Enabled=false;->Enabled=false; sDBEdit24->Enabled=false; sDBEdit25->Enabled=false; sDBLookupComboBox24->Enabled=false; sDBLookupComboBox25->Enabled=false;->Enabled=true; sButton52->Enabled=false; sDBGrid9->Enabled=true; DataModule4->ADOTable9->Cancel (); sButton53->Caption="Редактировать";->Enabled=true; sButton17->Enabled=false; sDBGrid1->Enabled=true; DataModule4->ADOTable4->Cancel (); sButton18->Caption="Редактировать";->Enabled=true; sButton31->Enabled=false; sDBGrid2->Enabled=true; DataModule4->ADOTable6->Cancel (); sButton32->Caption="Редактировать";->Enabled=true; sButton34->Enabled=false; sDBGrid3->Enabled=true; DataModule4->ADOTable7->Cancel (); sButton35->Caption="Редактировать";->Enabled=true; sButton37->Enabled=false; sDBGrid1->Enabled=true; DataModule4->ADOTable8->Cancel (); sButton38->Caption="Редактировать";->Enabled=true; sButton40->Enabled=false; sDBGrid5->Enabled=true; DataModule4->ADOTable2->Cancel (); sButton41->Caption="Редактировать";->Enabled=true; sButton43->Enabled=false; sDBGrid6->Enabled=true; DataModule4->ADOTable3->Cancel (); sButton18->Caption="Редактировать";->Enabled=true; sButton46->Enabled=false; sDBGrid7->Enabled=true; DataModule4->ADOTable14->Cancel (); sButton47->Caption="Редактировать";->Enabled=true; sButton49->Enabled=false; sDBGrid8->Enabled=true; DataModule4->ADOTable5->Cancel (); sButton50->Caption="Редактировать";->Enabled=true; sButton124->Enabled=false; sDBGrid26->Enabled=true; DataModule4->ADOTable16->Cancel (); sButton125->Caption="Редактировать"; DataModule4->ADOTable1->Cancel ();->Enabled=true; sButton6->Enabled=false; sButton7->Enabled=false; sRadioButton3->Enabled=false; sRadioButton4->Enabled=false;->Enabled=false; sDBLookupComboBox2->Enabled=false;->Enabled=false;->Enabled=false; sDBLookupComboBox5->Enabled=false;->Enabled=false; sDBLookupComboBox7->Enabled=false;->Enabled=false; sDateEdit1->Enabled=false; sDateEdit2->Enabled=false; Memo1->Clear (); Memo2->Clear ();->Enabled=false; Memo2->Enabled=false;->Enabled=true; sButton93->Enabled=true; sButton94->Enabled=false; sButton95->Enabled=false; DataModule4->ADOTable12->Cancel ();->Enabled=false; sDBLookupComboBox11->Enabled=false; sDBLookupComboBox14->Enabled=false;->Enabled=true; sButton90->Enabled=true; sButton91->Enabled=false; sButton92->Enabled=false; DataModule4->ADOTable11->Cancel ();->Enabled=false; sDBLookupComboBox10->Enabled=false; sDBLookupComboBox12->Enabled=false;->Enabled=true; sButton25->Enabled=true; sButton26->Enabled=false; sButton27->Enabled=false; DataModule4->ADOTable10->Cancel ();->Enabled=false; sDBLookupComboBox13->Enabled=false; sDBLookupComboBox9->Enabled=false;->Caption="Удалить"; sButton55->Enabled=false; sButton54->Enabled=true; sRadioButton1->Enabled=false; sRadioButton2->Enabled=false;->ReadOnly=true; sDBEdit29->ReadOnly=true; sDBEdit30->ReadOnly=true; sDBEdit31->ReadOnly=true; sDBEdit32->ReadOnly=true; sDBEdit34->ReadOnly=true;->ReadOnly=true; sDBEdit38->ReadOnly=true; sDBEdit39->ReadOnly=true; sDateEdit3->ReadOnly=true; sDateEdit4->ReadOnly=true;->Enabled=false; sDBLookupComboBox16->Enabled=false; sDBLookupComboBox17->Enabled=false;->Enabled=false; sDBLookupComboBox19->Enabled=false; sDBLookupComboBox20->Enabled=false;->Enabled=false; sDBLookupComboBox22->Enabled=false; sDBLookupComboBox23->Enabled=false;->Enabled=false; sDateEdit6->Enabled=false; DataModule4->ADOQuery12->Cancel (); sDBGrid13->Enabled=true;->Caption="Удалить"; sButton105->Enabled=false; sButton104->Enabled=true; sDBEdit13->ReadOnly=true; DataModule4->ADOQuery13->Cancel (); sDBGrid27->Enabled=true;->Caption="Удалить"; sButton58->Enabled=false; sButton57->Enabled=true; sDBEdit36->ReadOnly=true; DataModule4->ADOQuery1->Cancel (); sDBGrid14->Enabled=true;->Caption="Удалить"; sButton61->Enabled=false; sButton60->Enabled=true; sDBEdit37->ReadOnly=true; DataModule4->ADOQuery2->Cancel (); sDBGrid15->Enabled=true;->Caption="Удалить"; sButton64->Enabled=false; sButton63->Enabled=true; sDBEdit42->ReadOnly=true; DataModule4->ADOQuery3->Cancel (); sDBGrid16->Enabled=true;->Caption="Удалить"; sButton67->Enabled=false; sButton66->Enabled=true; sDBEdit43->ReadOnly=true; sDBEdit50->ReadOnly=true; DataModule4->ADOQuery4->Cancel (); sDBGrid17->Enabled=true;->Caption="Удалить"; sButton70->Enabled=false; sButton69->Enabled=true; sDBEdit44->ReadOnly=true; DataModule4->ADOQuery5->Cancel (); sDBGrid18->Enabled=true;->Caption="Удалить"; sButton73->Enabled=false; sButton72->Enabled=true; sDBEdit45->ReadOnly=true; DataModule4->ADOQuery6->Cancel (); sDBGrid19->Enabled=true;->Caption="Удалить"; sButton76->Enabled=false; sButton75->Enabled=true; sDBEdit46->ReadOnly=true; DataModule4->ADOQuery7->Cancel (); sDBGrid20->Enabled=true;->Caption="Удалить"; sButton79->Enabled=false; sButton78->Enabled=true; sDBEdit47->ReadOnly=true; sDBEdit48->ReadOnly=true; DataModule4->ADOQuery8->Cancel (); sDBGrid21->Enabled=true;->Caption="Удалить"; sButton82->Enabled=false; sButton81->Enabled=true; sDBEdit51->ReadOnly=true; sDBEdit52->ReadOnly=true; DataModule4->ADOQuery9->Cancel (); sDBGrid22->Enabled=true;->Caption="Удалить"; sButton85->Enabled=false; sButton84->Enabled=true; sDBEdit54->ReadOnly=true; sDBEdit55->ReadOnly=true; DataModule4->ADOQuery10->Cancel (); sDBGrid23->Enabled=true;->Caption="Удалить"; sButton88->Enabled=false; sButton87->Enabled=true; sDBEdit57->ReadOnly=true; sDBEdit58->ReadOnly=true; DataModule4->ADOQuery11->Cancel (); sDBGrid24->Enabled=true;->Caption="Удалить"; sButton115->Enabled=false; sButton114->Enabled=true; sDBEdit18->ReadOnly=true; sDBEdit26->ReadOnly=true; sDBEdit49->ReadOnly=true;->ReadOnly=true; sDBEdit61->ReadOnly=true; sDBEdit63->ReadOnly=true; sDBEdit64->ReadOnly=true; sDBEdit65->ReadOnly=true; sDBEdit66->ReadOnly=true;->ADOQuery14->Cancel ();->Enabled=true; }

// ---------------------------------------------------------------------------__fastcall TForm5:: Memo1Click (TObject *Sender)

{ int select_m=0*1;i=0*1,t=0*1, ii=0*1;=0; select_m=Memo1->CaretPos. y;(Memo1->Lines->Strings [select_m]! ="") {->Lines->Add (Memo1->Lines->Strings [select_m]);->Lines->Delete (select_m); }

}

// ---------------------------------------------------------------------------__fastcall TForm5:: Memo2Click (TObject *Sender)

{ int select_m=0*1;_m=Memo2->CaretPos. y;(Memo2->Lines->Strings [select_m]! ="") {->Lines->Add (Memo2->Lines->Strings [select_m]);->Lines->Delete (select_m); }

}

// ---------------------------------------------------------------------------__fastcall TForm5:: sDBLookupComboBox7Click (TObject *Sender)

{->Clear ();(sDBLookupComboBox7->Text=="Новое строительство") {i=0*1;->ADOTable10->First ();->Clear ();(i=0; i<DataModule4->ADOTable10->RecordCount; i++) {->Lines->Strings [i] =DataModule4->ADOTable10->FieldValues ["Name_stroj_materiala"];->Lines->Add ("");->ADOTable10->Next ();

} }if (sDBLookupComboBox7->Text=="Ремонт") {i=0*1;->ADOTable11->First ();->Clear ();(i=0; i<DataModule4->ADOTable11->RecordCount; i++) {->Lines->Strings [i] =DataModule4->ADOTable11->FieldValues ["Name_stroj_materiala"];->Lines->Add ("");->ADOTable11->Next ();

}} else {i=0*1;->ADOTable12->First ();->Clear ();(i=0; i<DataModule4->ADOTable12->RecordCount; i++) {->Lines->Strings [i] =DataModule4->ADOTable12->FieldValues ["Name_stroj_materiala"];->Lines->Add ("");->ADOTable12->Next ();

}}

}

// ---------------------------------------------------------------------------__fastcall TForm5:: sButton123Click (TObject *Sender)

{->Caption="Отмена";->Enabled=false;->Enabled=true;->ReadOnly=false;->ReadOnly=false;->ADOTable16->Append ();->Enabled=false;->SetFocus ();

}

// ---------------------------------------------------------------------------__fastcall TForm5:: sButton124Click (TObject *Sender)

{(sDBEdit8->Text=="" || sDBEdit33->Text=="") {Application->MessageBoxA ("Заполнены не все поля!","Заполнение полей. ",16); }{->Enabled=true;->Enabled=false;->Caption="Редактировать";->ADOTable16->Post ();->Enabled=true;->ReadOnly=true;->ReadOnly=true; }

}

// ---------------------------------------------------------------------------__fastcall TForm5:: sButton125Click (TObject *Sender) {(sButton125->Caption=="Отмена") {->Enabled=true;->Enabled=false;->Enabled=true;->ADOTable16->Cancel ();->Caption="Редактировать"; }{->Caption="Отмена";->Enabled=false;->Enabled=true;->ReadOnly=false;->ReadOnly=false;->ADOTable16->Edit ();->Enabled=false;->SetFocus ();

}

}

// ---------------------------------------------------------------------------__fastcall TForm5:: sButton122Click (TObject *Sender)

{->Visible=false;->Visible=false;->Visible=false;->Visible=false;->Visible=false;->Visible=false;->Visible=false;->Visible=false;->Visible=false;->Visible=true;

}

// ---------------------------------------------------------------------------__fastcall TForm5:: sButton114Click (TObject *Sender)

{(DataModule4->ADOQuery14->IsEmpty () ==true) {>MessageBoxA ("Редактирование не возможно, БД пуста!","Ошибка. ",16); }{->Enabled=false;->Enabled=false;->Enabled=true;->Caption="Отмена";->SetFocus ();->ReadOnly=false; sDBEdit26->ReadOnly=false; sDBEdit49->ReadOnly=false;->ReadOnly=false; sDBEdit61->ReadOnly=false; sDBEdit63->ReadOnly=false;->ReadOnly=false; sDBEdit65->ReadOnly=false; sDBEdit66->ReadOnly=false; }

}

// ---------------------------------------------------------------------------__fastcall TForm5:: sButton115Click (TObject *Sender)

{(sDBEdit18->Text=="" || sDBEdit26->Text=="" || sDBEdit49->Text=="" || sDBEdit60->Text=="" || sDBEdit61->Text=="" || sDBEdit63->Text==""|| sDBEdit64->Text=="" || sDBEdit65->Text=="" || sDBEdit66->Text=="") {>MessageBoxA ("Какие-то из полей пусты, сохранение не возможно!","Сохранение. ",16); }{->Enabled=false;->Enabled=true;->Caption="Удалить";->ReadOnly=true; sDBEdit26->ReadOnly=true; sDBEdit49->ReadOnly=true;->ReadOnly=true; sDBEdit61->ReadOnly=true; sDBEdit63->ReadOnly=true;->ReadOnly=true; sDBEdit65->ReadOnly=true; sDBEdit66->ReadOnly=true;->ADOQuery14->Post ();->Enabled=true;>MessageBoxA ("Изменения в БД успешно сохранены!","Сохранение. ",64); }

}

// ---------------------------------------------------------------------------__fastcall TForm5:: sButton116Click (TObject *Sender)

{(DataModule4->ADOQuery14->IsEmpty () ==true) {>MessageBoxA ("Удаление не возможно, БД пуста!","Ошибка. ",16); }if (DataModule4->ADOQuery14->IsEmpty () ==false && sButton116->Caption=="Удалить") {->ADOQuery14->Delete ();>MessageBoxA ("Запись БД удалена!","Удаление. ",64); }{->Caption="Удалить";->Enabled=false;->Enabled=true;->ReadOnly=true; sDBEdit26->ReadOnly=true; sDBEdit49->ReadOnly=true;->ReadOnly=true; sDBEdit61->ReadOnly=true; sDBEdit63->ReadOnly=true;->ReadOnly=true; sDBEdit65->ReadOnly=true; sDBEdit66->ReadOnly=true;->ADOQuery14->Cancel ();->Enabled=true;>MessageBoxA ("Вы отменили редактирование БД! Поля были заблокированы!","Отмена. ",64); }

}

// ---------------------------------------------------------------------------__fastcall TForm5:: sButton118Click (TObject *Sender)

{i=0*1;i2=0*1;->ADOTable16->First ();->Clear ();(i=0; i<DataModule4->ADOTable16->RecordCount; i++) {->Lines->Strings [i] =DataModule4->ADOTable16->FieldValues ["Mexanizm"];->Lines->Add ("");->ADOTable16->Next (); }->ADOTable16->First ();->Clear ();(i2=0; i2<DataModule4->ADOTable16->RecordCount; i2++) {->Lines->Strings [i2] =DataModule4->ADOTable16->FieldValues ["Mashin"];->Lines->Add ("");->ADOTable16->Next (); }->Enabled=true;->Enabled=true;->Enabled=true;->Enabled=true;->ADOTable15->Append ();->Enabled=false;->Enabled=true;->Enabled=true;->Enabled=true;->Enabled=true;->Enabled=true;->Enabled=true;->Enabled=true;->Enabled=true;->Enabled=true;

}

// ---------------------------------------------------------------------------__fastcall TForm5:: sButton120Click (TObject *Sender)

{a,a2;t1,t2,t3,t4;(sDBLookupComboBox24->Text=="" || sDBLookupComboBox25->Text=="" || sDBEdit20->Text=="" || sDBEdit21->Text=="" || sDBEdit24->Text=="" || sDBEdit25->Text=="") {>MessageBoxA ("Заполнены не все поля!","Заполнение полей",16);

}{(int i=0; i<sMemo2->Lines->Count; i++) {(i<sMemo2->Lines->Count-1) {->ADOTable15Mehanizmi->Text=DataModule4->ADOTable15Mehanizmi->Text+sMemo2->Lines->Strings [i] +", "; }DataModule4->ADOTable15Mehanizmi->Text=DataModule4->ADOTable15Mehanizmi->Text+sMemo2->Lines->Strings [i]; }(int i2=0; i2<sMemo4->Lines->Count; i2++) {(i2<sMemo4->Lines->Count-1) {->ADOTable15Transport_name->Text=DataModule4->ADOTable15Transport_name->Text+sMemo4->Lines->Strings [i2] +", "; }DataModule4->ADOTable15Transport_name->Text=DataModule4->ADOTable15Transport_name->Text+sMemo4->Lines->Strings [i2]; }=StrToFloat (sDBEdit21->Text. ToDouble () *sDBEdit24->Text. ToDouble ());=StrToFloat (sDBEdit25->Text. ToDouble ()) +a2;=a+ (a*0.3);=t1- (t1*0.24);=a+ (a*0.43);=t3- (t3*0.37);->ADOTable15cena_city_otp->Text=FormatFloat ("0.00",t1);->ADOTable15cena_selo_otp->Text=FormatFloat ("0.00",t2);->ADOTable15cena_city_smet->Text=FormatFloat ("0.00",t3);->ADOTable15cena_selo_smet->Text=FormatFloat ("0.00",t4);->ADOTable15Stoimoct->Text=a2;->ADOTable15->Post ();->Clear ();->Clear ();->Enabled=false;->Enabled=false;->Enabled=false;->Enabled=false;->Enabled=true;->Enabled=false;->Enabled=false;->Enabled=false;->Enabled=false;->Enabled=false;->Enabled=false;->Enabled=false;->Enabled=false;->Enabled=false;>MessageBoxA ("Запись сохранена!","Сохранение. ",64); }

}

// ---------------------------------------------------------------------------__fastcall TForm5:: sButton119Click (TObject *Sender) {->ADOTable15->Cancel ();->Clear ();->Clear ();->Enabled=false;->Enabled=false;->Enabled=false;->Enabled=false;->Enabled=true;->Enabled=false;->Enabled=false;->Enabled=false;->Enabled=false;->Enabled=false;->Enabled=false;->Enabled=false;->Enabled=false;->Enabled=false; }

// ---------------------------------------------------------------------------__fastcall TForm5:: sMemo1Click (TObject *Sender) {select_m=0*1;i=0*1,t=0*1, ii=0*1;=0; select_m=sMemo1->CaretPos. y;(sMemo1->Lines->Strings [select_m]! ="") {->Lines->Add (sMemo1->Lines->Strings [select_m]);->Lines->Delete (select_m); }}

// ---------------------------------------------------------------------------__fastcall TForm5:: sMemo3Click (TObject *Sender) {select_m=0*1;i=0*1,t=0*1, ii=0*1;=0; select_m=sMemo3->CaretPos. y;(sMemo3->Lines->Strings [select_m]! ="") {->Lines->Add (sMemo3->Lines->Strings [select_m]);->Lines->Delete (select_m); }}

// ---------------------------------------------------------------------------__fastcall TForm5:: sMemo2Click (TObject *Sender) {select_m=0*1;_m=sMemo2->CaretPos. y;(sMemo2->Lines->Strings [select_m]! ="") {->Lines->Add (sMemo2->Lines->Strings [select_m]);->Lines->Delete (select_m); }}

// ---------------------------------------------------------------------------__fastcall TForm5:: sMemo4Click (TObject *Sender) {select_m=0*1;_m=sMemo4->CaretPos. y;(sMemo4->Lines->Strings [select_m]! ="") {->Lines->Add (sMemo4->Lines->Strings [select_m]);->Lines->Delete (select_m); }}

// ---------------------------------------------------------------------------__fastcall TForm5:: sButton121Click (TObject *Sender) {->Close ();->Show (); }

// ---------------------------------------------------------------------------

Расчёты

// ---------------------------------------------------------------------------

#include <vcl. h>

#pragma hdrstop

#include "Unit1. h"

#include "Unit4. h"

#include "Unit6. h"

#include "Unit10. h"

#include "Unit11. h"

// ---------------------------------------------------------------------------

#pragma package (smart_init)

#pragma link "sButton"

#pragma link "sPanel"

#pragma link "sStatusBar"

#pragma link "sPageControl"

#pragma link "sLabel"

#pragma link "sGroupBox"

#pragma link "acDBGrid"

#pragma link "sCustomComboEdit"

#pragma link "sMaskEdit"

#pragma link "sTooledit"

#pragma link "sCheckBox"

#pragma link "sEdit"

#pragma resource "*. dfm"*Form6;

// ---------------------------------------------------------------------------

__fastcall TForm6:: TForm6 (TComponent* Owner)

: TForm (Owner)

{

}

// ---------------------------------------------------------------------------__fastcall TForm6:: sButton6Click (TObject *Sender)

{->Close ();->Show ();

}

// ---------------------------------------------------------------------------__fastcall TForm6:: sButton2Click (TObject *Sender)

{->Visible=true;->Visible=false;

}

// ---------------------------------------------------------------------------__fastcall TForm6:: sDateEdit1Change (TObject *Sender)

{->MaxDate=sDateEdit2->Date;->ADOQuery12->Active=false;->ADOQuery12->SQL->Clear ();->ADOQuery12->SQL->Add ("select * from obj Where new_stroj Between: datastart and: datastop ");->ADOQuery12->Parameters->ParamByName ("datastart") - >Value=FormatDateTime ("dd. mm. yyyy",sDateEdit1->Date);->ADOQuery12->Parameters->ParamByName ("datastop") - >Value =FormatDateTime ("dd. mm. yyyy",sDateEdit2->Date);->ADOQuery12->Active=true;

}

// ---------------------------------------------------------------------------__fastcall TForm6:: sDateEdit2Change (TObject *Sender)

{->MinDate=sDateEdit1->Date;->ADOQuery12->Active=false;->ADOQuery12->SQL->Clear ();->ADOQuery12->SQL->Add ("select * from obj Where close_stoj Between: datastart and: datastop ");->ADOQuery12->Parameters->ParamByName ("datastart") - >Value=FormatDateTime ("dd. mm. yyyy",sDateEdit1->Date);->ADOQuery12->Parameters->ParamByName ("datastop") - >Value = FormatDateTime ("dd. mm. yyyy",sDateEdit2->Date);->ADOQuery12->Active=true;

}

// ---------------------------------------------------------------------------__fastcall TForm6:: sButton7Click (TObject *Sender)

{->ADOQuery12->Active=false;->ADOQuery12->SQL->Clear ();->ADOQuery12->SQL->Add ("select * from obj");->ADOQuery12->Active=true;

}

// ---------------------------------------------------------------------------__fastcall TForm6:: sCheckBox3Click (TObject *Sender)

{(sCheckBox3->Checked==true) {->Text="";->Text="";->ADOQuery12->Active=false;->ADOQuery12->SQL->Clear ();->ADOQuery12->SQL->Add ("select * from obj");->ADOQuery12->Active=true;->Checked=false;->Visible=true;->Visible=true;->Visible=true; }{->ADOQuery12->Active=false;->ADOQuery12->SQL->Clear ();->ADOQuery12->SQL->Add ("select * from obj");->ADOQuery12->Active=true;->Visible=false;->Visible=false;->Visible=false; }

}

// ---------------------------------------------------------------------------__fastcall TForm6:: sCheckBox4Click (TObject *Sender)

{(sCheckBox4->Checked==true) {->ADOQuery12->Active=false;->ADOQuery12->SQL->Clear ();->ADOQuery12->SQL->Add ("select * from obj");->ADOQuery12->Active=true;->Checked=false;->Visible=true;->Visible=true;->Visible=true;->Visible=true;->Visible=true; }{->ADOQuery12->Active=false;->ADOQuery12->SQL->Clear ();->ADOQuery12->SQL->Add ("select * from obj");->ADOQuery12->Active=true;->Visible=false;->Visible=false;->Visible=false;->Visible=false;->Visible=false; }

}

// ---------------------------------------------------------------------------__fastcall TForm6:: sButton8Click (TObject *Sender)

{(sDateEdit1->Text=="" || sDateEdit2->Text=="") {Application->MessageBoxA ("Заполнены не все поля, вывод отчёта не возможен!","Формирование отчёта. ",16); }{->QRLabel2->Caption=sEdit1->Text;->QRLabel5->Caption=sEdit2->Text+" "+sEdit3->Text;(sCheckBox3->Checked==true) {Form11->QRLabel8->Caption="строительству";->QRLabel9->Caption="";->QRLabel10->Caption="";->QRLabel12->Caption="";->QRLabel13->Caption=""; }(sCheckBox4->Checked==true) {Form11->QRLabel8->Caption="дате";->QRLabel9->Caption="с";->QRLabel10->Caption=sDateEdit1->Date;->QRLabel12->Caption="по";->QRLabel13->Caption=sDateEdit1->Date; }->QuickRep1->Preview (); }

}

// ---------------------------------------------------------------------------__fastcall TForm6:: sCheckBox1Click (TObject *Sender)

{(sCheckBox1->Checked==true) {->Checked=false;->Text="Действующее строительство"; }{->Text=""; }

}

// ---------------------------------------------------------------------------__fastcall TForm6:: sCheckBox2Click (TObject *Sender)

{(sCheckBox2->Checked==true) {->Checked=false;->Text="Строительство прекращено"; }{->Text=""; }

}

// ---------------------------------------------------------------------------__fastcall TForm6:: sEdit4Change (TObject *Sender)

{->ADOQuery12->Active=false;->ADOQuery12->SQL->Clear ();->ADOQuery12->SQL->Add ("select * from obj where tip_stoj LIKE '%"+sEdit4->Text+"%'; ");->ADOQuery12->Active=true;

}

// ---------------------------------------------------------------------------__fastcall TForm6:: sEdit5Change (TObject *Sender)

{->ADOQuery12->Active=false;->ADOQuery12->SQL->Clear ();->ADOQuery12->SQL->Add ("select * from obj where tip_stoj LIKE '%"+sEdit5->Text+"%'; ");->ADOQuery12->Active=true;

}

// ---------------------------------------------------------------------------__fastcall TForm6:: sButton5Click (TObject *Sender)

{->Visible=false;->Visible=true;->ADOQuery12->Active=false;->ADOQuery12->SQL->Clear ();->ADOQuery12->SQL->Add ("select * from obj");->ADOQuery12->Active=true;

}

// ---------------------------------------------------------------------------__fastcall TForm6:: FormKeyDown (TObject *Sender, WORD &Key,Shift)

{(Key==VK_ESCAPE) {sButton6Click (sButton6); }

}

// ---------------------------------------------------------------------------__fastcall TForm6:: Timer1Timer (TObject *Sender)

{(sEdit7->Text! ="" && sEdit8->Text! ="" && sEdit6->Text! ="") {sButton1->Enabled=true; }{sButton1->Enabled=false; }

}

// ---------------------------------------------------------------------------__fastcall TForm6:: sButton1Click (TObject *Sender)

{a;->QRLabel2->Caption=sEdit6->Text;->QRLabel5->Caption=sEdit7->Text+" "+sEdit8->Text;(int i=0; DataModule4->ADOQuery14->RecordCount>i; i++) {=a+ (DataModule4->ADOQuery14->FieldValues ["Stoimoct"]);->ADOQuery14->Next (); }->QRLabel27->Caption=IntToStr (a) +" руб. ";->QuickRep1->Preview ();

}

// ---------------------------------------------------------------------------


Настройки/Сервис

// ---------------------------------------------------------------------------

#include <vcl. h>

#pragma hdrstop

#include "Unit1. h"

#include "Unit2. h"

#include "Unit3. h"

#include "Unit4. h"

#include "Unit5. h"

#include "Unit6. h"

#include "Unit7. h"

// ---------------------------------------------------------------------------

#pragma package (smart_init)

#pragma link "sButton"

#pragma link "sPageControl"

#pragma link "sPanel"

#pragma link "sStatusBar"

#pragma link "sComboBox"

#pragma link "sGauge"

#pragma link "sGroupBox"

#pragma link "sCustomComboEdit"

#pragma link "sLabel"

#pragma link "sMaskEdit"

#pragma link "sTooledit"

#pragma link "acProgressBar"

#pragma link "sMemo"

#pragma resource "*. dfm"*Form7;

// ---------------------------------------------------------------------------

__fastcall TForm7:: TForm7 (TComponent* Owner)

: TForm (Owner)

{

}

// ---------------------------------------------------------------------------__fastcall TForm7:: sButton1Click (TObject *Sender)

{();->Visible=false;

}

// ---------------------------------------------------------------------------__fastcall TForm7:: sButton3Click (TObject *Sender)

{->Timer1->Enabled=false;->Timer1->Enabled=false;->ADOQuery1->Active=false;->ADOQuery2->Active=false;->ADOQuery3->Active=false;->ADOQuery4->Active=false;->ADOQuery5->Active=false;->ADOQuery6->Active=false;->ADOQuery7->Active=false;->ADOQuery8->Active=false;->ADOQuery9->Active=false;->ADOQuery10->Active=false;->ADOQuery11->Active=false;->ADOQuery12->Active=false;->ADOQuery13->Active=false;->ADOQuery14->Active=false;->ADOQuery15->Active=false;->ADOTable1->Active=false;->ADOTable2->Active=false;->ADOTable3->Active=false;->ADOTable4->Active=false;->ADOTable5->Active=false;->ADOTable6->Active=false;->ADOTable7->Active=false;->ADOTable8->Active=false;->ADOTable9->Active=false;->ADOTable10->Active=false;->ADOTable11->Active=false;->ADOTable12->Active=false;->ADOTable13->Active=false;->ADOTable14->Active=false;->ADOTable15->Active=false;->ADOTable16->Active=false;->ADOConnection1->Connected=false;->Enabled=true;

}

// ---------------------------------------------------------------------------__fastcall TForm7:: Timer1Timer (TObject *Sender)

{->Progress++;(sGauge1->Progress==1) {sGauge1->Suffix="% Отключение базы данных. "; }(sGauge1->Progress==2) {sGauge1->Suffix="% Копирование базы данных. "; }(sGauge1->Progress==sGauge1->MaxValue) {sGauge1->Suffix="% Подключение базы данных. ";->Enabled=false;( (ExtractFilePath (ParamStr (0)) +"backup // "+"PTO_"+Date () +". mdb"). c_str (), (ExtractFilePath (ParamStr (0)) +"PTO. mdb"). c_str (),false);->ADOConnection1->Connected=true;->ADOQuery1->Active=true;->ADOQuery2->Active=true;->ADOQuery3->Active=true;->ADOQuery4->Active=true;->ADOQuery5->Active=true;->ADOQuery6->Active=true;->ADOQuery7->Active=true;->ADOQuery8->Active=true;->ADOQuery9->Active=true;->ADOQuery10->Active=true;->ADOQuery11->Active=true;->ADOQuery12->Active=true;->ADOQuery13->Active=true;->ADOQuery14->Active=true;->ADOQuery15->Active=true;->ADOTable1->Active=true;->ADOTable2->Active=true;->ADOTable3->Active=true;->ADOTable4->Active=true;->ADOTable5->Active=true;->ADOTable6->Active=true;->ADOTable7->Active=true;->ADOTable8->Active=true;->ADOTable9->Active=true;->ADOTable10->Active=true;->ADOTable11->Active=true;->ADOTable12->Active=true;->ADOTable13->Active=true;->ADOTable14->Active=true;->ADOTable15->Active=true;->ADOTable16->Active=true;>MessageBoxA ("Backup базы данных завершён успешно!","Копирование базы данных",64);->Suffix="%";->MaxValue=0;->Timer1->Enabled=true;->Timer1->Enabled=true;

}

}

// ---------------------------------------------------------------------------__fastcall TForm7:: sButton2Click (TObject *Sender)

{char *FileTo = (ExtractFilePath (ParamStr (0)) +"backup // "+"PTO_"+Date () +". mdb"). c_str ();(StrToInt (Date (). FormatString ("dd")) ==DaysPerMonth (StrToInt (Date (). FormatString ("yyyy")),StrToInt (Date (). FormatString ("mm")))) {(FileExists (FileTo) ==false) {( (ExtractFilePath (ParamStr (0)) +"PTO. mdb"). c_str (),FileTo,true);>MessageBoxA ("Backup базы данных завершён успешно!","Копирование базы данных",64); }{ if (Application->MessageBoxA ("База существует, перезаписать?","Копирование базы данных",4+32) == 6) {( (ExtractFilePath (ParamStr (0)) +"PTO. mdb"). c_str (),FileTo,true);>MessageBoxA ("Backup базы данных завершён успешно!","Копирование базы данных",64); }}}{Application->MessageBoxA ("Копирование БД возможно в последний день месяца!","Копирование базы данных",64); }

}

// ---------------------------------------------------------------------------__fastcall TForm7:: sButton4Click (TObject *Sender)

{(sButton4->Caption=="Инфо") {->Width=297;->Visible=true;->Visible=true;->Caption="Закрыть"; }{->Width=0;->Visible=false;->Caption="Инфо"; }

}

// ---------------------------------------------------------------------------__fastcall TForm7:: sButton5Click (TObject *Sender)

{(sButton5->Caption=="Инфо") {->Width=297;->Visible=true;->Visible=true;->Caption="Закрыть"; }{->Width=0;->Visible=false;->Caption="Инфо"; }

}

// ---------------------------------------------------------------------------__fastcall TForm7:: sWebLabel26Click (TObject *Sender)

{char *FileTo = (ExtractFilePath (ParamStr (0)) +"index // "+"01.2012. xls"). c_str ();(FileExists (FileTo)) {(Handle, "open", FileTo, 0, 0, SW_SHOWNORMAL);; }{MessageBoxA (NULL,"Индекс отсутствует!","Ошибка",16);; }

}

// ---------------------------------------------------------------------------__fastcall TForm7:: sWebLabel27Click (TObject *Sender)

{char *FileTo = (ExtractFilePath (ParamStr (0)) +"index // "+"02.2012. xls"). c_str ();(FileExists (FileTo)) {(Handle, "open", FileTo, 0, 0, SW_SHOWNORMAL);; }{MessageBoxA (NULL,"Индекс отсутствует!","Ошибка",16);; }

}

// ---------------------------------------------------------------------------__fastcall TForm7:: sWebLabel28Click (TObject *Sender)

{char *FileTo = (ExtractFilePath (ParamStr (0)) +"index // "+"03.2012. xls"). c_str ();(FileExists (FileTo)) {(Handle, "open", FileTo, 0, 0, SW_SHOWNORMAL);; }{MessageBoxA (NULL,"Индекс отсутствует!","Ошибка",16);; }

}

// ---------------------------------------------------------------------------__fastcall TForm7:: sWebLabel29Click (TObject *Sender)

{char *FileTo = (ExtractFilePath (ParamStr (0)) +"index // "+"04.2012. xls"). c_str ();(FileExists (FileTo)) {(Handle, "open", FileTo, 0, 0, SW_SHOWNORMAL);; }{MessageBoxA (NULL,"Индекс отсутствует!","Ошибка",16);; }

}

// ---------------------------------------------------------------------------__fastcall TForm7:: sWebLabel30Click (TObject *Sender)

{char *FileTo = (ExtractFilePath (ParamStr (0)) +"index // "+"05.2012. xls"). c_str ();(FileExists (FileTo)) {(Handle, "open", FileTo, 0, 0, SW_SHOWNORMAL);; }{MessageBoxA (NULL,"Индекс отсутствует!","Ошибка",16);; }

}

// ---------------------------------------------------------------------------__fastcall TForm7:: sWebLabel31Click (TObject *Sender)

{char *FileTo = (ExtractFilePath (ParamStr (0)) +"index // "+"2012.05. xls"). c_str ();(FileExists (FileTo)) {(Handle, "open", FileTo, 0, 0, SW_SHOWNORMAL);; }{MessageBoxA (NULL,"Индекс отсутствует!","Ошибка",16);; }

}

// ---------------------------------------------------------------------------__fastcall TForm7:: sWebLabel32Click (TObject *Sender)

{char *FileTo = (ExtractFilePath (ParamStr (0)) +"index // "+"2012.06. xls"). c_str ();(FileExists (FileTo)) {(Handle, "open", FileTo, 0, 0, SW_SHOWNORMAL);; }{MessageBoxA (NULL,"Индекс отсутствует!","Ошибка",16);; }

}

// ---------------------------------------------------------------------------__fastcall TForm7:: sPageControl3Change (TObject *Sender)

{->ActivePage=sTabSheet8;

}

// ---------------------------------------------------------------------------__fastcall TForm7:: sPageControl1Change (TObject *Sender)

{->ActivePage=sTabSheet3;->ActivePage=sTabSheet5;->ActivePage=sTabSheet8; }

// ---------------------------------------------------------------------------__fastcall TForm7:: FormKeyDown (TObject *Sender, WORD &Key,Shift) {(Key==VK_ESCAPE) {sButton1Click (sButton1); } }

// ---------------------------------------------------------------------------

Приложение 2


Структурная схема программного продукта представлена на рисунке 2.1.


Рисунок 2.1 - Структурная схема программного продукта

Приложение 3


Блок-схема алгоритма работы основных расчётных модулей представлена на рисунке 3.1.


Рисунок 3.1 - Блок-схема алгоритма работы основных расчётных модулей

Приложение 4


Распечатка контрольных тестов

.1 Тест "Приветствие"

Тест проверяет загрузку программы. Его результатом являются:

Индикатор загрузки программы (см. рис.4.1).


Рисунок 4.1 - Индикатор загрузки программы

.2 Тест "Расчёт"


Рисунок 4.2 - Расчёт цена на строительство


.3 Тест "Добавление"

Корректное добавление информации в базу данных тестировалось на примере нормативно-справочной информации (см. рис.4.3).


Рисунок 4.3 - Добавление информации в базу данных


.4 Тест "Редактирование"

Корректное редактировании информации в базе данных тестировалось на примере нормативно-справочной информации. Редактировалась запись 1, которая была добавлена при добавлении (см. рис.4.4).


Рисунок 4.4 - Редактирование информации в базе данных


.5 Тест "Поиск"

Поиск информации тестировался на примере нормативно-справочной информации

(см. рис.4.5).


Рисунок 4.5 - Поиск информации


.6 Тест "Удаление"

Удаление информации рассматривалось на примере нормативно-справочной информации. Удаление объекта привело к удалению записи и все информации по нему (см. рис.4.6).



Рисунок 4.6 - Удаление объекта


Данное удаление сопровождалось сообщением (см. рис.4.7)


Рисунок 4.7 - Сообщение о удалении записи


.7 Тест "Справка"

Вызов справки осуществляется нажатием клавиши F1 (см. рис.4.8).


Рисунок 4.8 - Справочная информация


.8 Тест "Корректность"

Корректность ввода информации и её сохранение, а также попытке удалить не существующую запись. Корректность представлена сообщениями и невозможностью вводить, сохранять и удалять эти данные (см. рис.4.9).


Рисунок 4.9 - Сообщение о попытке сохранить в базу запись с пустым полем


Рисунок 4.10 - Сообщение о попытку удалить пустую запись

Приложение 5


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

П5.1 ПРАВИЛА ЭКСПЛУАТАЦИИ ПРОГРАММНОГО ОБЕСПЕЧЕНИЯ

П5.1.1 Условия эксплуатации программного обеспечения

П5.1.1.1 Требования к аппаратному обеспечению

Для эксплуатации программы к программному обеспечению предъявляются следующие требования:

процессор с тактовой частотой 600 МГц и выше;

объем оперативной памяти 128 Мб и выше;

объем дискового пространства 100 Мб;

монитор 1024Ч768 VGA;

манипулятор типа мышь;

принтер.

П5.1.1.2 Климатические условия эксплуатации

Помещения с видео-дисплейными терминалами (ВДТ) и ПЭВМ должны оборудоваться системами отопления, кондиционирования воздуха или эффективной приточной вытяжной вентиляцией. Эти помещения также должны иметь естественное и искусственное освещение.

Естественное освещение должно осуществляться через светопроемы, ориентированные преимущественно на север и северо-восток, и обеспечивать коэффициент естественной освещенности (КЕО) не ниже 1,2% в зонах с устойчивым снежным покровом и не ниже 1,5% на остальной территории. Указанные значения КЕО нормируются для зданий, расположенных в III климатическом поясе. Расчет КЕО для других поясов светового климата проводится по общепринятой методике.

Искусственное освещение в помещениях эксплуатации ВДТ и ПЭВМ должно осуществляться системой общего равномерного освещения. В производственных и административно-общественных помещениях, в случаях преимущественной работы с документами, допускается применение системы комбинированного освещения (к общему освещению дополнительно устанавливаются светильники местного освещения, предназначенные для освещения зоны расположения документов).

Искусственное освещение должно обеспечивать на рабочих местах с ВДТ и ПЭВМ в производственных и административно-общественных, дошкольных и учебных помещениях освещенность не ниже нормируемых значений.

Следует ограничивать неравномерность распределения яркости в поле зрения пользователя ВДТ и ПЭВМ, при этом соотношение яркости между рабочими поверхностями не должно превышать 3: 1-5: 1, а между рабочими поверхностями и поверхностями стен и оборудования - 10: 1.

В качестве источников света при искусственном освещении должны применяться преимущественно люминесцентные лампы типа ЛБ. При устройстве отраженного освещения в производственных и административно-общественных помещениях допускается применение металлогалогенных ламп мощностью до 250 Вт. Допускается применение ламп накаливания в светильниках местного освещения.

Общее освещение следует выполнять в виде сплошных или прерывистых линий светильников, расположенных сбоку от рабочих мест, преимущественно слева, параллельно линии зрения пользователей. При периметральном расположении рабочих мест с ВДТ и ПЭВМ в дошкольных и учебных помещениях, светильники общего освещения следует располагать локализовано относительно рабочих мест.

Яркость светильников общего освещения в зоне углов излучения от 50 град. До 90 град. с вертикалью в продольной и поперечной плоскостях должна составлять не более 200 кд/м, защитный угол светильников должен быть не менее 40 град.

Для обеспечения нормируемых значений освещенности в помещениях использования ВДТ и ПЭВМ следует проводить чистку остекленения световых проемов и светильников не реже двух раз в год, а также современную замену перегоревших ламп.

Расположение рабочих мест с ВДТ и ПЭВМ в цокольных и подвальных помещениях не допускается.

В случае производственной необходимости, эксплуатация ВДТ и ПЭВМ в помещениях без естественного света может проводиться только по согласованию с органами Государственного санитарно-эпидемиологического надзора.

Площадь на одно рабочее место с ВДТ и ПЭВМ для взрослых пользователей должна составлять не менее 6,0 м2, а объем - не менее 20,0 м3. Площадь на одно рабочее место с ВДТ и ПЭВМ во всех учебных и дошкольных учреждениях должна быть не менее 6,0 м2, а объем - не менее 24 м3.

Звукоизоляция ограждающих конструкций помещения с ВДТ и ПЭВМ должна отвечать гигиеническим требованиям и обеспечивать нормируемые параметры шума согласно требованиям раздела 5 настоящих Санитарных правил и норм.

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

П5.1.1.3 Требования к организации рабочих мест

Расположение рабочих мест в ВДТ и ПЭВМ для пользователей в подвальных помещениях не допускается.

Площадь на одно рабочее место с ВДТ и ПЭВМ для пользователей должна составлять не менее 6 кв. м, а объем не менее 20 куб. м.

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

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

Конструкция ВДТ должна обеспечивать возможность фронтального наблюдения экрана путем поворота корпуса в горизонтальной плоскости вокруг вертикальной оси в пределах плюс - минус 30 градусов.

Дизайн ВДТ должен предусматривать окраску корпуса в мягкие тона с диффузионным рассеиванием света. Корпус ВДТ и ПЭВМ, клавиатура и другие блоки и устройства ПЭВМ должны иметь матовую поверхность одного цвета с коэффициентом отражения 0.4-0.6 и не иметь блестящих деталей, способных создавать блики.

П5.1.1.4 Требования к освещению помещений для эксплуатации аппаратных средств и рабочих мест

Искусственное освещение в помещениях эксплуатации ВДТ и ПЭВМ должно осуществляться системой общего равномерного освещения. В производственных и административно-общественных помещениях, в случаях преимущественной работы с документами, допускается применение системы комбинированного освещения (к общему освещению дополнительно устанавливаются светильники местного освещения, предназначенные для освещения зоны расположения документов).

Искусственное освещение должно обеспечивать на рабочих местах с ВДТ и ПЭВМ в производственных и административно-общественных, дошкольных и учебных помещениях освещенность не ниже нормируемых значений.

Следует ограничивать неравномерность распределения яркости в поле зрения пользователя ВДТ и ПЭВМ, при этом соотношение яркости между рабочими поверхностями не должно превышать 3: 1-5: 1, а между рабочими поверхностями и поверхностями стен и оборудования - 10: 1.

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

Общее освещение следует выполнять в виде сплошных или прерывистых линий светильников, расположенных сбоку от рабочих мест, преимущественно слева, параллельно линии зрения пользователей. При периметральном расположении рабочих мест с ВДТ и ПЭВМ в дошкольных и учебных помещениях, светильники общего освещения следует располагать локализовано относительно рабочих мест.

Яркость светильников общего освещения в зоне углов излучения от 50 град. До 90 град. с вертикалью в продольной и поперечной плоскостях должна составлять не более 200 кд/м, защитный угол светильников должен быть не менее 40 град.

Для обеспечения нормируемых значений освещенности в помещениях использования ВДТ и ПЭВМ следует проводить чистку остекленения световых проемов и светильников не реже двух раз в год, а также современную замену перегоревших ламп.

П5.1.1.5 Требования к организации режима труда и отдыха при работе с аппаратным обеспечением

Режимы труда и отдыха при профессиональной работе с ПЭВМ и ВТД должны организовываться в зависимости от вида и категории трудовой деятельности.

Виды трудовой деятельности разделяются на три группы:

группа А - работа по считыванию информации с экрана ВТД и ПЭВМ с предварительным запросом;

группа Б - работа по поводу информации;

группа В - творческая работа в режиме диалога с ЭВМ. При выполнении в течении рабочей смены работ, относящихся к разным видам трудовой деятельности, за основную работу с ПЭВМ и ВТД следует принимать такую, которая занимает не менее 50% времени в течение рабочей смены или рабочего дня.

Для видов трудовой деятельности устанавливается три категории тяжести и напряженности работы с ВТД и ПЭВМ, которые определяются: для групп А и Б - по суммарному числу считываемых или вводимых знаков за рабочую смену; для группы В - по суммарному времени непосредственной работы с ВТД и ПЭВМ за рабочую смену.

Нагрузка на рабочую смену любой продолжительности не должна превышать: для группы А - 60000 знаков, для групп Б - 45000 знаков, для группы В - суммарное время непосредственной работы с ВТД и ПЭВМ за смену не более 6 часов.

Продолжительность работы педагогов при ведении занятий с ВТД и ПЭВМ во всех учебных заведениях не должна превышать 4 часов в день. Для обеспечения оптимальной работоспособности и сохранения здоровья профессиональных пользователей, на протяжении рабочей смены должны устанавливаться регламентированные перерывы. Время регламентированных перерывов в течение рабочей смены следует устанавливать в зависимости от ее продолжительности, вида и категории трудовой деятельности с ВТД и ПЭВМ.

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

Продолжительность непрерывной работы с ВТД и ПЭВМ без регламентированного перерыва не должна превышать 2 часов.

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

В случаях возникновения у работающих с ВТД и ПЭВМ зрительного дискомфорта или неблагоприятных субъективных ощущений, несмотря на соблюдение санитарно-гигиенических и эргономических требований и режимов труда и отдыха, следует применять индивидуальный подход в ограничении времени работы с ВТД и ПЭВМ и коррекцию длительности перерывов для отдыха или проводить смену деятельности, заменив ее на работу, не связанную с использованием ВТД и ПЭВМ.

П5.2 ЭКСПЛУАТАЦИЯ ПРОГРАММНОГО ОБЕСПЕЧЕНИЯ

П5.2.1 Установка программного обеспечения на ЭВМ

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

П5.2.2 Вызов программного обеспечения

Вызов приложения "Автоматизированное рабочее место производственно-технического отдела" осуществляется запуском ярлыка ARM PTO, который располагается на рабочем столе, либо любым из известных способов загрузки исполняемых файлов в среде Windows. В данном случае исполняемым файлом является файл ARM PTO. exe, расположенный в директории с программой.

П5.2.3 Ввод исходных данных

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

П5.2.4 Действия пользователя по обработке информации

При работе с программой пользователь должен заполнить все справочники из меню "Формирование справочников", после этого необходимо заполнить расценку перейдя в меня "Заполнение базы расценок" где пользователь заполняет наименоание расценки, используемые материлы, ед. измерения, их количество и чтоисмоть за единицу, а также затраты на транспорт и механизмы которыми доставляются данные материалы. Перед тем, как начать заполнять информацию для открытия объекта в меню "Добавление нового объекта", пользователю необходимо заполнить базы материалов по видам работ в меню "Видыв работ". После того как все необходимые базы заполнены, пользователь начинает формировать объекты на начало строительства. Отчёты получить можно по различным затратам на материалы, транспорт и механизмы.

П5.2.5 Вывод результатов обработки информации

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

П5.2.6 Сообщения программного продукта

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

В данной программе предусмотрены различные сообщения:

После того, как будут загружены все компоненты программы откроется меню программы (см. рис.5.1.11). Вся дальнейшая работа будет состоять из последовательности действий, которые приведут к формированию нового объекта и составления отчётов по ценам на материалы транспорт и т.д.:

. Нормативно-справочная информация (см. рис.5.1.12).

. Формирование нового объекта (см. рис.5.1.13).

. Формирование справочников (см. рис.5.1.14).

. Заполнение базы расценок (см. рис.5.1.15).

. Виды работ (см. рис.5.1.16).

. Формирование документов по объектам (см. рис.5.1.17.1, 5.1.17.2).

. Редактирование (см. рис.5.1.1.8).

. Настройки (см. рис.5.1.1.9).

. Сервис (см. рис.5.1.20).

. Расценки 1 (см. рис.5.1.21).

. Расценки 2 (см. рис.5.1.22).


Рисунок 5.1.11 - Форма "Меню программы"


Рисунок 5.1.12 - Форма "Нормативно-справочной информации"


Рисунок 5.1.13 - Форма "Формирование нового объекта"


Рисунок 5.1.14 - Форма "Формирование справочников"


Рисунок 5.1.15 - Форма "Заполнения базы расценок"


Рисунок 5.1.16 - Форма "Виды работ"


Рисунок 5.1.17.1 - Форма "Формирование документов по объектам"


Рисунок 5.1.17.2 - Форма "Формирование документов по объектам"


Рисунок 5.1.18 - Форма "Редактирования"


Рисунок 5.1.19 - Форма "Настройки"


Рисунок 5.1.20 - Форма "Сервис"


Рисунок 5.1.21 - Форма "Расценки 1"


Рисунок 5.1.22 - Форма "Расценки 2"


Приложение 6


Протокол испытаний программного продукта

Комиссия в составе:

  • председатель цикловой комиссии - С.Г. Тыбербай
  • руководитель дипломного проекта - А.А. Брылёва
  • представитель заказчика - Н.Н. Иванова

произвела проверку работоспособности программного продукта, разработанного в порядке выполнения дипломного проекта.

.Информация о программном продукте:

.1.Название программного продукта "Автоматизированное рабочее место производственно-технического отдела"

1.2 Номер версии программного продукта 2.01

.3 Дата разработки версии программного продукта 10.06.2012

1.4 Назначение программного продукта

Программа "Автоматизированное рабочее место производственно-технического отдела" предназначена для составления документов для строительства и ведения отчётности.

1.5 Функции программного продукта: С помощью данной программы пользователь с легкостью сможет рассчитать розничную цену материалов, узнать сумму на затраты по материалам, транспорту, механизмам.

1.6. Язык программирования: Embarcadero C++Builder 2006

.7 Наличие программы: Есть

1.8 Тип компьютера (ов): Pentium (R) Dual-Core T4300 2.10GHz

1.9 Требования к компьютеру:

.9.1 Оперативная память: 128 Мбайт и выше

1.9.2 Ёмкость жесткого диска (ов) 100 Мбайт

1.9.3 Монитор (ы) 1024Ч768 VGA

1.9.4 Дополнительное периферийное оборудование: манипулятор, клавиатура, мышь, принтер

.10 Тип операционной системы (систем): Windows XP,7,8

2. Информация о разработчике программного продукта.

.1 Полное официальное наименование: Учреждение образования "Витебский государственный политехнический колледж"

2.2 Место нахождения (почтовый адрес): 210027 г. Витебск пр-т. Черняховского 14а

2.3 Номер контактного телефона (ов): (8-0212) 21-90-80

.4 Номер факса: (8-0212) 21-90-80

.5 Адрес электронной почты: VGPT@tut. by

.6 Фамилия, имя, отчество учащегося, разработавшего программный продукт: Загудаев Кирилл Сергеевич

Работоспособность программного продукта проверена на контрольных примерах, предусматривающих все возможные варианты исходных и промежуточных данных.

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

Председатель цикловой комиссии С.Г. Тыбербай

Руководитель дипломного проекта А.А. Брылёва

Представитель заказчика Н.Н. Иванова


Содержание Введение 1. Техническое задание 1.1 Назначение и область применения программного продукта 1.2 Основания для разработки программного п

Больше работ по теме:

КОНТАКТНЫЙ EMAIL: [email protected]

Скачать реферат © 2017 | Пользовательское соглашение

Скачать      Реферат

ПРОФЕССИОНАЛЬНАЯ ПОМОЩЬ СТУДЕНТАМ