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

• Введение
• 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, РСУ «Витязь» .

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

процессор Pentium ® 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 — Расценки

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

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

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

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

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

Таблица 2.7 — Наименование объектов

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 — Программные модули

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

_______________

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

где Н_Р — норматив расхода материалов в расчёте на 100 команд;

V_k ПО — общий объём программного продукта в командах.

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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 с.: ил.

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

Приложения

Приложение 1

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

// —————————————————————————————————————;

#include

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

TForm12 *Form12;

// —————————————————————————————————————;

__fastcall TForm12: TForm12 (TComponent* Owner)

: TForm (Owner)

{

}

// —————————————————————————————————————;

void __fastcall TForm12: Timer1Timer (TObject *Sender)

{

CopyFileA ((ExtractFilePath (ParamStr (0)) +" Launcher // «+» Launcher1. exe"). c_str (), (ExtractFilePath (ParamStr (0)) +" Обновление. exe"). c_str (), true);

Form12->AlphaBlendValue++;

if (Form12->AlphaBlendValue==255) {

DeleteFileA ((ExtractFilePath (ParamStr (0)) +" Launcher // «+» Launcher1. exe"). c_str ());

Timer1->Enabled=false;

Timer2->Enabled=true; }

}

// —————————————————————————————————————;

void __fastcall TForm12: Timer2Timer (TObject *Sender)

{

sGauge1->Progress++;

if (sGauge1->Progress==1) {sGauge1->Suffix="% Проверка на наличие обновления. «; }

if (sGauge1->Progress==5) {sGauge1->Suffix="% Загрузка модулей программы. «; }

if (sGauge1->Progress==16) {sGauge1->Suffix="% Загрузка стиля ''Pulsar'' программы. «; }

if (sGauge1->Progress==30) {sGauge1->Suffix="% Подключение базы данных. «; }

if (sGauge1->Progress==44) {sGauge1->Suffix="% Оптимизация всех компонентов программы. «; }

if (sGauge1->Progress==sGauge1->MaxValue) {sGauge1->Suffix="% Запуск программы. «;

Sleep (1500); Timer2->Enabled=false; Timer3->Enabled=true; }

}

// —————————————————————————————————————;

void __fastcall TForm12: Timer4Timer (TObject *Sender)

{

const char *FileTo = (ExtractFilePath (ParamStr (0)) +" Launcher // «+» Project1. exe"). c_str ();

const char *FileFrom = (ExtractFilePath (ParamStr (0)) +" Обновление. exe"). c_str ();

if (FileExists (FileTo) ==false) {Timer4->Enabled=false; Timer1->Enabled=true; }

else {Timer4->Enabled=false; Form12->Close ();

ShellExecute (Handle, «open», FileFrom, 0, 0, SW_SHOWNORMAL); }

}

// —————————————————————————————————————;

void __fastcall TForm12: Timer3Timer (TObject *Sender)

{

Form12->AlphaBlendValue—;

if (Form12->AlphaBlendValue==0) {

DataModule4->ADOConnection1->Connected=true;

DataModule4->ADOQuery1->Active=true;

DataModule4->ADOQuery2->Active=true;

DataModule4->ADOQuery3->Active=true;

DataModule4->ADOQuery4->Active=true;

DataModule4->ADOQuery5->Active=true;

DataModule4->ADOQuery6->Active=true;

DataModule4->ADOQuery7->Active=true;

DataModule4->ADOQuery8->Active=true;

DataModule4->ADOQuery9->Active=true;

DataModule4->ADOQuery10->Active=true;

DataModule4->ADOQuery11->Active=true;

DataModule4->ADOQuery12->Active=true;

DataModule4->ADOQuery13->Active=true;

DataModule4->ADOQuery14->Active=true;

DataModule4->ADOQuery15->Active=true;

DataModule4->ADOQuery16->Active=true;

DataModule4->ADOTable1->Active=true;

DataModule4->ADOTable2->Active=true;

DataModule4->ADOTable3->Active=true;

DataModule4->ADOTable4->Active=true;

DataModule4->ADOTable5->Active=true;

DataModule4->ADOTable6->Active=true;

DataModule4->ADOTable7->Active=true;

DataModule4->ADOTable8->Active=true;

DataModule4->ADOTable9->Active=true;

DataModule4->ADOTable10->Active=true;

DataModule4->ADOTable11->Active=true;

DataModule4->ADOTable12->Active=true;

DataModule4->ADOTable13->Active=true;

DataModule4->ADOTable14->Active=true;

DataModule4->ADOTable15->Active=true;

DataModule4->ADOTable16->Active=true;

Form2->Timer1->Enabled=true;

Form5->Timer1->Enabled=true;

Timer3->Enabled=false;

Form12->Hide ();

Form1->Show (); }

}

// —————————————————————————————————————;

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

// —————————————————————————————————————;

#include

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

TForm1 *Form1;

// —————————————————————————————————————;

__fastcall TForm1: TForm1 (TComponent* Owner)

: TForm (Owner)

{

}

// —————————————————————————————————————;

void __fastcall TForm1: sBitBtn1Click (TObject *Sender)

{

Form1->Close ();

Form2->Show ();

Form2->sGroupBox1->Visible=true;

Form2->sGroupBox2->Visible=false;

Form2->sGroupBox3->Visible=false;

Form2->sGroupBox4->Visible=false;

Form2->sGroupBox5->Visible=false;

}

// —————————————————————————————————————;

void __fastcall TForm1: sBitBtn2Click (TObject *Sender)

{

Form1->Close ();

Form5->Show ();

Form5->sPageControl1->ActivePage=Form5->sTabSheet1;

Form5->sButton1->SetFocus ();

Form5->sGroupBox2->Visible=false;

Form5->sGroupBox1->Visible=true;

Form5->sGroupBox3->Visible=false;

Form5->sGroupBox6->Visible=false;

}

// —————————————————————————————————————;

void __fastcall TForm1: sBitBtn3Click (TObject *Sender)

{

Form1->Close ();

Form5->Show ();

Form5->sPageControl1->ActivePage=Form5->sTabSheet1;

Form5->sButton2->SetFocus ();

Form5->sGroupBox1->Visible=false;

Form5->sGroupBox2->Visible=true;

Form5->sGroupBox3->Visible=false;

Form5->sGroupBox6->Visible=false;

}

// —————————————————————————————————————;

void __fastcall TForm1: sBitBtn4Click (TObject *Sender)

{

Form1->Close ();

Form5->Show ();

Form5->sPageControl1->ActivePage=Form5->sTabSheet1;

Form5->sButton3->SetFocus ();

Form5->sGroupBox1->Visible=false;

Form5->sGroupBox2->Visible=false;

Form5->sGroupBox3->Visible=true;

Form5->sGroupBox6->Visible=false;

}

// —————————————————————————————————————;

void __fastcall TForm1: sBitBtn9Click (TObject *Sender)

{

Form12->Close ();

}

// —————————————————————————————————————;

void __fastcall TForm1: Timer1Timer (TObject *Sender)

{

sStatusBar1->Panels->Items — >Text=Time ();

sStatusBar1->Panels->Items — >Text=Date ();

sStatusBar1->Panels->Items — >Text="Copyright. © 2012;2013″ ;

sStatusBar1->Panels->Items — >Text="АРМ ПТО_Beta v0.1″ ;

Form2->sStatusBar1->Panels->Items — >Text=Time ();

Form2->sStatusBar1->Panels->Items — >Text=Date ();

Form2->sStatusBar1->Panels->Items — >Text="Copyright. © 2012;2013″ ;

Form2->sStatusBar1->Panels->Items — >Text="АРМ ПТО_Beta v0.1″ ;

Form3->sStatusBar1->Panels->Items — >Text=Time ();

Form3->sStatusBar1->Panels->Items — >Text=Date ();

Form3->sStatusBar1->Panels->Items — >Text="Copyright. © 2012;2013″ ;

Form3->sStatusBar1->Panels->Items — >Text="АРМ ПТО_Beta v0.1″ ;

Form5->sStatusBar1->Panels->Items — >Text=Time ();

Form5->sStatusBar1->Panels->Items — >Text=Date ();

Form5->sStatusBar1->Panels->Items — >Text="Copyright. © 2012;2013″ ;

Form5->sStatusBar1->Panels->Items — >Text="АРМ ПТО_Beta v0.1″ ;

Form6->sStatusBar1->Panels->Items — >Text=Time ();

Form6->sStatusBar1->Panels->Items — >Text=Date ();

Form6->sStatusBar1->Panels->Items — >Text="Copyright. © 2012;2013″ ;

Form6->sStatusBar1->Panels->Items — >Text="АРМ ПТО_Beta v0.1″ ;

Form7->sStatusBar1->Panels->Items — >Text=Time ();

Form7->sStatusBar1->Panels->Items — >Text=Date ();

Form7->sStatusBar1->Panels->Items — >Text="АРМ ПТО_Beta v0.1″ ;

}

// —————————————————————————————————————;

void __fastcall TForm1: sButton1Click (TObject *Sender)

{

Form1->Close ();

Form5->Show ();

Form5->sPageControl1->ActivePage=Form5->sTabSheet1;

Form5->sButton20->SetFocus ();

Form5->sGroupBox1->Visible=false;

Form5->sGroupBox2->Visible=false;

Form5->sGroupBox3->Visible=false;

Form5->sGroupBox6->Visible=true;

}

// —————————————————————————————————————;

void __fastcall TForm1: sButton2Click (TObject *Sender)

{

Form1->Close ();

Form5->Show ();

Form5->sPageControl1->ActivePage=Form5->sTabSheet2;

Form5->sPageControl2->ActivePage=Form5->sTabSheet3;

Form5->sPageControl4->ActivePage=Form5->sTabSheet18;

}

// —————————————————————————————————————;

void __fastcall TForm1: FormKeyDown (TObject *Sender, WORD &Key,

TShiftState Shift)

{

if (Key==VK_ESCAPE) {sBitBtn9Click (sBitBtn9); }

if (Key==VK_F1) {sBitBtn8Click (sBitBtn8); }

}

// —————————————————————————————————————;

void __fastcall TForm1: sBitBtn8Click (TObject *Sender)

{

AnsiString FILE_HELP_NAME_STR = «help. chm» ;

if (FileExists (FILE_HELP_NAME_STR)) {

ShellExecute (Handle, «open», «help. chm», 0, 0, SW_SHOWNORMAL);

return; }

else{Application->MessageBoxA («Справка отсутствует!» ," Ошибка. «, 16);

return; }

}

// —————————————————————————————————————;

void __fastcall TForm1: sBitBtn7Click (TObject *Sender)

{

Form8->ShowModal ();

}

// —————————————————————————————————————;

void __fastcall TForm1: sBitBtn5Click (TObject *Sender)

{

Form7->ShowModal ();

Form7->sPageControl1->ActivePage=Form7->sTabSheet1;

Form7->sPageControl2->ActivePage=Form7->sTabSheet3;

}

// —————————————————————————————————————;

void __fastcall TForm1: sBitBtn6Click (TObject *Sender)

{

Form7->Show ();

Form7->sPageControl1->ActivePage=Form7->sTabSheet2;

}

// —————————————————————————————————————;

void __fastcall TForm1: sButton3Click (TObject *Sender)

{

Form1->Close ();

Form6->Show ();

Form6->sGroupBox1->Visible=true;

Form6->sGroupBox2->Visible=false;

}

// —————————————————————————————————————;

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

// —————————————————————————————————————;

#include

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

TForm2 *Form2;

// —————————————————————————————————————;

__fastcall TForm2: TForm2 (TComponent* Owner)

: TForm (Owner)

{

}

// —————————————————————————————————————;

void __fastcall TForm2: sRadioButton2Click (TObject *Sender)

{

sDBGrid7->Visible=true;

sDBGrid8->Visible=false;

sDBGrid6->Visible=false;

}

// —————————————————————————————————————;

void __fastcall TForm2: sRadioButton3Click (TObject *Sender)

{

sDBGrid8->Visible=true;

sDBGrid7->Visible=false;

sDBGrid6->Visible=false;

}

// —————————————————————————————————————;

void __fastcall TForm2: sRadioButton1Click (TObject *Sender)

{

sDBGrid6->Visible=true;

sDBGrid7->Visible=false;

sDBGrid8->Visible=false;

}

// —————————————————————————————————————;

void __fastcall TForm2: sButton1Click (TObject *Sender)

{

DataModule4->ADOTable1->First ();

sButton9->Enabled=false;

sButton10->Enabled=false;

sGroupBox1->Visible=true;

sGroupBox2->Visible=false;

sGroupBox3->Visible=false;

sGroupBox4->Visible=false;

sGroupBox5->Visible=false;

}

// —————————————————————————————————————;

void __fastcall TForm2: sButton8Click (TObject *Sender)

{

Form2->Close ();

Form1->Show ();

}

// —————————————————————————————————————;

void __fastcall TForm2: sButton7Click (TObject *Sender)

{

Form2->Close ();

Form3->Show ();

}

// —————————————————————————————————————;

void __fastcall TForm2: sButton6Click (TObject *Sender)

{

DataModule4->ADOTable6->First ();

DataModule4->ADOTable7->First ();

DataModule4->ADOTable8->First ();

sButton9->Enabled=false;

sButton10->Enabled=false;

sGroupBox2->Visible=true;

sGroupBox1->Visible=false;

sGroupBox3->Visible=false;

sGroupBox4->Visible=false;

sGroupBox5->Visible=false;

}

// —————————————————————————————————————;

void __fastcall TForm2: sButton5Click (TObject *Sender)

{

DataModule4->ADOTable5->First ();

sButton9->Enabled=false;

sButton10->Enabled=false;

sGroupBox3->Visible=true;

sGroupBox2->Visible=false;

sGroupBox1->Visible=false;

sGroupBox4->Visible=false;

sGroupBox5->Visible=false;

}

// —————————————————————————————————————;

void __fastcall TForm2: sButton4Click (TObject *Sender)

{

DataModule4->ADOTable4->First ();

sButton9->Enabled=false;

sButton10->Enabled=false;

sGroupBox4->Visible=true;

sGroupBox2->Visible=false;

sGroupBox3->Visible=false;

sGroupBox1->Visible=false;

sGroupBox5->Visible=false;

}

// —————————————————————————————————————;

void __fastcall TForm2: sButton3Click (TObject *Sender)

{

DataModule4->ADOTable3->First ();

sButton9->Enabled=false;

sButton10->Enabled=false;

sDBGrid3->Visible=true;

sDBGrid2->Visible=false;

sGroupBox5->Visible=true;

sGroupBox2->Visible=false;

sGroupBox3->Visible=false;

sGroupBox4->Visible=false;

sGroupBox1->Visible=false;

}

// —————————————————————————————————————;

void __fastcall TForm2: sButton2Click (TObject *Sender)

{

DataModule4->ADOTable2->First ();

sButton9->Enabled=false;

sButton10->Enabled=false;

sDBGrid2->Visible=true;

sDBGrid3->Visible=false;

sGroupBox5->Visible=true;

sGroupBox2->Visible=false;

sGroupBox3->Visible=false;

sGroupBox4->Visible=false;

sGroupBox1->Visible=false;

}

// —————————————————————————————————————;

void __fastcall TForm2: sButton16Click (TObject *Sender)

{

Form2->Close ();

Form5->Show ();

Form5->sPageControl1->ActivePage=Form5->sTabSheet1;

Form5->sGroupBox2->Visible=false;

Form5->sGroupBox1->Visible=true;

Form5->sGroupBox3->Visible=false;

Form5->sGroupBox6->Visible=false;

}

// —————————————————————————————————————;

void __fastcall TForm2: sButton15Click (TObject *Sender)

{

if (DataModule4->ADOTable1->IsEmpty () ==true) // если записей нет то будет true

Application->MessageBoxA («Запись удалена!» ," Удаление. «, 64); // уведомление пользователю

else {

DataModule4->ADOTable1->Delete ();

ShowMessage («Запись удалена»);

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

}

// —————————————————————————————————————;

void __fastcall TForm2: Timer1Timer (TObject *Sender)

{

if (sRadioButton1->Checked==true) {Label22->Caption=IntToStr (DataModule4->ADOTable6->RecordCount); }

if (sRadioButton2->Checked==true) {Label22->Caption=IntToStr (DataModule4->ADOTable7->RecordCount); }

if (sRadioButton3->Checked==true) {Label22->Caption=IntToStr (DataModule4->ADOTable8->RecordCount); }

}

// —————————————————————————————————————;

void __fastcall TForm2: sButton14Click (TObject *Sender)

{

Form2->Close ();

Form5->Show ();

Form5->sPageControl1->ActivePage=Form5->sTabSheet2;

Form5->sPageControl2->ActivePage=Form5->sTabSheet3;

Form5->sPageControl4->ActivePage=Form5->sTabSheet18;

}

// —————————————————————————————————————;

void __fastcall TForm2: N9Click (TObject *Sender)

{

AnsiString FILE_HELP_NAME_STR = «help. chm» ;

if (FileExists (FILE_HELP_NAME_STR))

{ShellExecute (Handle, «open», «help. chm», 0, 0, SW_SHOWNORMAL);

return; }

else{Application->MessageBoxA («Справка отсутствует!» ," Ошибка. «, 16);

return; }

}

// —————————————————————————————————————;

void __fastcall TForm2: FormActivate (TObject *Sender)

{ /*

DataModule4->ADOTable1->Active=false; DataModule4->ADOTable1->Active=true;

DataModule4->ADOTable2->Active=false; DataModule4->ADOTable2->Active=true;