Арм пто руководство пользователя - Большая энциклопедия инструкций и руководств

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

Содержание

Введение

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 — Ориентировочное распределение затрат времени

Вид работ	Процент от трудоёмкости	Трудоёмкость в часах
		Всего	Машинное время
Техническое задание, эскизный проект	10	39,00	—
Технический проект	20	78,00	—
Рабочий проект (машинное время)	60	234,00	234,00
Внедрение в т. ч. − машинное время − немашинное время	10 5 5	39 19,5 19,5	19,5
Итого:	100	390	253,5

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

Данные о трудоёмкости разработки, определенные
опытно-статистическим путём подтверждаю. Общий объём программного обеспечения —
количество команд (V_kПО) — 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рм	M²	6
Стоимость 1 м² производственной площади	Спл	Рублей	1381605
Норма амортизации для оборудования	Нао	Проценты	20
Норма амортизации для зданий	Напл	Проценты	1,33
Отчисления на текущий ремонт оборудования (в процентах от балансовой стоимости)	РО	Проценты	3, 20
Часовая тарифная ставка 13 разряда	ЧТС₁₃	Рублей	10976,70

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

_______________

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

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

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

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

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

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

Показатель	Условное обозначение	Значение, рублей
		За год(ЗМ_г)	На 1 машино-час (СМ_ч)
Стоимость потребляемой электроэнергии	С_эл	1088102,40	531,30
Сумма ежегодных амортизационных отчислений	С_ао	2187252,08	1067,99
Затраты на текущий ремонт оборудования	З_Р	332320	162,27
Итого:	3607674,48	1761,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 — Расчёт основной заработной платы

Вид работ	Трудоемкость (T_i), час	Квалификационный разряд	Часовая тарифная ставка (ЧТС_i), руб.	Зарплата прямая, руб.
Техническое задание, эскизный проект	39	13	10976,7	428091,3
Технический проект	78	13	10976,7	856182,6
Рабочий проект	234	13	10976,7	2568547,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.6
3. Основная заработная плата	5565187,00	Таблица 3.4
4. Дополнительная заработная плата	556518,70	10% от п.3
5. Итого фонд оплаты труда (ФОТ)	6121705,70	п.3+п.4
6. Отчисления в фонд социальной защиты населения	2081379,94	34% от п.5
7. Обязательное страхование от несчастных случаев на производстве и профессиональных заболеваний	42239,77	0,69% от п.5
8. Итого: отчисления на социальные нужды	2123619,71	п.6+п.7
9. Прочие расходы (арендная плата, услуги связи, коммунальные услуги и др.)	5453883,26	98% от п.3
10. Полная себестоимость без учета расходов на сопровождение и адаптацию	14200164,13	п.1+п.2+п.5+п.8+п.9
11. Расходы на сопровождение и адаптацию	568006,57	4% от п.3.10
12. Полная себестоимость с учетом расходов на сопровождение и адаптацию	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

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

Приветствие

//
—————————————————————————

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

}

//
—————————————————————————__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
(); }

}

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

}

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

}

//
—————————————————————————__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;

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

// объекты->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;

// расценки

}

// —————————————————————————__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); }

}

{(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)

}

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

}

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

}

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

}

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

}

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

}

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

}

//
—————————————————————————__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 м², а объем — не менее
20,0 м³. Площадь на одно рабочее место с ВДТ и ПЭВМ во всех учебных
и дошкольных учреждениях должна быть не менее 6,0 м², а объем — не
менее 24 м³.

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

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

П5.1.1.3 Требования к организации рабочих мест

Расположение рабочих мест в ВДТ и ПЭВМ для пользователей в
подвальных помещениях не допускается.

Площадь на одно рабочее место с ВДТ и ПЭВМ для пользователей
должна составлять не менее 6 кв. м, а объем не менее 20 куб. м.

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

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

Конструкция ВДТ должна обеспечивать возможность фронтального
наблюдения экрана путем поворота корпуса в горизонтальной плоскости вокруг
вертикальной оси в пределах плюс — минус 30 градусов.

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

П5.1.1.4 Требования к освещению помещений для эксплуатации
аппаратных средств и рабочих мест

П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 Основания для разработки программного продукта

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
Назначение и область применения программного продукта

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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
Требования к языку программирования

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

— интегрированные средства 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
Разработка диаграмм

Рисунок 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
Определение трудоемкости разработки программного обеспечения

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

Вид работ	Процент от трудоёмкости	Трудоёмкость в часах
		Всего	Машинное время
Техническое задание, эскизный проект	10	39,00	—
Технический проект	20	78,00	—
Рабочий проект (машинное время)	60	234,00	234,00
Внедрение в т. ч. − машинное время − немашинное время	10 5 5	39 19,5 19,5	19,5
Итого:	100	390	253,5

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

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

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

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

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

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

_______________

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

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

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

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

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

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

Показатель	Условное обозначение	Значение, рублей
		За год(ЗМ_г)	На 1 машино-час (СМ_ч)
Стоимость потребляемой электроэнергии	С_эл	1088102,40	531,30
Сумма ежегодных амортизационных отчислений	С_ао	2187252,08	1067,99
Затраты на текущий ремонт оборудования	З_Р	332320	162,27
Итого:	3607674,48	1761,56

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

Вид работ	Трудоемкость (T_i), час	Квалификационный разряд	Часовая тарифная ставка (ЧТС_i), руб.	Зарплата прямая, руб.
Техническое задание, эскизный проект	39	13	10976,7	428091,3
Технический проект	78	13	10976,7	856182,6
Рабочий проект	234	13	10976,7	2568547,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

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

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

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

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

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

Наименование стадий затрат	Сумма, руб.	Обоснование расчета
1. Затраты на материалы	54400,00	Раздел 3.1.3.1
2. Стоимость машинного времени	446555,46	Раздел 3.1.2.6
3. Основная заработная плата	5565187,00	Таблица 3.4
4. Дополнительная заработная плата	556518,70	10% от п.3
5. Итого фонд оплаты труда (ФОТ)	6121705,70	п.3+п.4
6. Отчисления в фонд социальной защиты населения	2081379,94	34% от п.5
7. Обязательное страхование от несчастных случаев на производстве и профессиональных заболеваний	42239,77	0,69% от п.5
8. Итого: отчисления на социальные нужды	2123619,71	п.6+п.7
9. Прочие расходы (арендная плата, услуги связи, коммунальные услуги и др.)	5453883,26	98% от п.3
10. Полная себестоимость без учета расходов на сопровождение и адаптацию	14200164,13	п.1+п.2+п.5+п.8+п.9
11. Расходы на сопровождение и адаптацию	568006,57	4% от п.3.10
12. Полная себестоимость с учетом расходов на сопровождение и адаптацию	14768170,70	п.10+п.11