Создание нового товара

Размещено на http://www.allbest.ru/

МИНИСТЕРСТВО ОБРАЗОВАНИЯ И НАУКИ РЕСПУБЛИКИ КАЗАХСТАН

Рудненский индустриальный институт

Кафедра «Информационные системы и технологии»

КУРСОВАЯ РАБОТА

на тему: «Создание нового товара»

Проверил: Стаценко Л.Г.

Выполнил: Олейник В.М

Группа: ИС - 07

Рудный 2010

Содержание

ВВЕДЕНИЕ

ПОСТАНОВКА ЗАДАЧИ

1. АНАЛИТИЧЕСКАЯ ЧАСТЬ

1.1 Понятие «новый товар» и его виды

1.2 Общая схема разработки товара

1.3 Описание объекта исследования

2. ПРОЕКТНАЯ ЧАСТЬ

2.1 Описание работы программы

ЗАКЛЮЧЕНИЕ

ПРИЛОЖЕНИЕ

ВВЕДЕНИЕ

Метод научного исследования - это способ познания объективной действительности. Способ представляет собой определенную последовательность действий, приемов, операций.

В зависимости от содержания изучаемых объектов различают методы естествознания и методы социально-гуманитарного исследования.

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

В зависимости от уровня познания выделяют методы эмпирического, теоретического и метатеоретического уровней.

К методам эмпирического уровня относят наблюдение, описание, сравнение, счет, измерение, анкетный опрос, собеседование, тестирование, эксперимент, моделирование и т.д.

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

Методами метатеоретического уровня являются диалектический, метафизический, герменевтический и др.

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

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

Любое научное исследование осуществляется определенными приемами и способами, по определенным правилам. Учение о системе этих приемов, способов и правил называют методологией.

Каждая наука имеет свою методологию.

Существуют следующие уровни методологии:

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

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

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

ПОСТАНОВКА ЗАДАЧИ

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

Проблема данного исследования носит актуальный характер в современных условиях.

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

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

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

1. АНАЛИТИЧЕСКАЯ ЧАСТЬ

1.1 Понятие “Новый товар” и его виды

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

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

Рисунок 1 - Жизненный цикл товара



Рисунок 2 - Наложение циклов двух товаров

Разработка нового товара является одним из важнейших направлений маркетинговой деятельности. Но сначала необходимо знать, что входит в понятие “новый товар “.

Известны не менее 50 трактовок понятия “новый товар". Можно выделить три основных подхода к определению понятия “новый товар".

1. Исходит из временного критерия: к новым относят любое вновь выпускаемое изделие. Критерий новизны в этом случае - не качественное своеобразие изделия, а время его освоения и производства.

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

3. Базируется на следующей посылке: надо исходить не из единственного критерия, а из определенной их совокупности, характеризующие те или иные стороны новизны товара. При этом можно выделить, например, три уровня новизны товара:

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

- принципиальное изменение потребительских свойств, вносящее существенные изменения в способ удовлетворения соответствующей потребности;

- появление товара, не имеющего аналогов.

1.2 Общая схема разработки товара

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

Рисунок 3 - Схема разработки нового товара

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

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

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

1. Поиск идей новых товаров.

Основные составляющие процесса поиска идей новых товаров - это анализ источников идей и применение творческих методов получения идей.

Можно выделить три основных источника идей для создания новых продуктов.

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

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

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

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

Почти 28% идей дает общение с покупателями (например, пользователи компьютеров IBM являются авторами приблизительно трети всех программных продуктов, созданных компанией для этих компьютеров). Около 30% новых идей обеспечивает анализ результатов деятельности конкурентов (источником новинок для популярной модели Taurus бкомпании Ford послужили более 50 конкурирующих моделей, от которых заимствованы около 400 прогрессивных элементов конструкции автомобиля).

На этапе генерации идей нового продукта проводят опросы (потребителей, сотрудников подразделений НИОКР, маркетинговых, сервисных и других служб самого предприятия, сотрудников торговых организаций, отдельных экспертов).

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

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

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

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

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

2. Селекция идей новых товаров.

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

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

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

3. Экономический анализ идей товаров.

Экономический анализ идей может быть осуществлен по следующим этапам:

1) прогноз затрат, связанных с развитием продукта, выходом на рынок и продажей.

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

2) оценка объема реализации (оборота, выручки).

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

3) прогноз прибыли.

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

4) учет неопределенности.

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

4. Развитие концепции товара

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

Концепция продукта изучается по следующим направлениям:

- какие функции должен выполнять определенный элемент продукта?

- какие вспомогательные функции он выполняет?

- какие затраты связаны с ним?

- так ли необходимы функции, выполняемые элементом продукта?

- может ли эта функция быть выполнена другим, более дешевым элементом и какая экономия может быть при этом получена?

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

5. Разработка дизайна товара

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

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

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

Цвет - это простейшее и дешевое средство для вариации продукта. Палитра цветов и оттенков необозрима. В мире насчитывается около 2800 названий цветов, а всего насчитывают более 7,5 млн. различных цветов и оттенков. Выбор цвета определяется материалом и рядом других факторов.

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

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

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

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

6. Разработка упаковки и товарной марки

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

Выделим ключевые факторы создания упаковок, которые должны учитываться при принятии решений в данном направлении.

1) Дизайн упаковки должен воздействовать на образ, который фирма ищет для своей продукции. Цвет, форма, материалы - все это влияет на представления потребителей о фирме и ее продукции. Более простая упаковка создает образ более низкого качества товаров общих марок.

2) Стандартизация упаковки увеличивает мировое признание. По этой причине "Пепси-кола" и "Кока-кола" используют одинаковую упаковку во всех частях земного шара.

3) Стоимость упаковки должна быть, конечно, учтена. Относительная стоимость упаковки может достигать до 40% розничной цены, в зависимости от целей и степени упаковки.

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

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

6) Множественная упаковка соединяет в себе две или более единицы товара. Это могут быть одинаковые продукты (например, лезвия для бритья, газированные напитки) или сочетания различных вещей (например, набор первой помощи). Цель такой упаковки - увеличить потребление, заставить потребителей покупать набор вещей или опробовать новую продукцию (например, новый товар, упакованный с хорошо известным и покупаемым старым). Отдельно упакованные порции какого-либо продукта могут создавать конкурентное преимущество. Однако это может быть дорогостоящим делом.

7) Наконец, компания должна убедиться, что дизайн упаковки соответствует маркетинговому плану предприятия.

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

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

Важность товарных марок определяется следующими причинами:

- облегчается идентификация продукции;

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

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

- вместо сравнения по ценам покупатель сравнивает марки;

- престиж продукции растет с ростом общественного признания марки;

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

- товарная марка может быть использована для выхода на новый продукт.

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

7. Обеспечение качества товара и оценка конкурентоспособности

Формирование системы качества товара на предприятии может быть основано на трех направлениях хозяйствования: обеспечения качества, управления качеством и улучшения качества.

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

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

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

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

8. Оценка рыночной адекватности товара

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

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

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

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

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

б) лабораторные маркетинговые исследования, предопределяющие возможность оценки эмоционального воздействия товара на потребителей;

в) аналитическое моделирование, обеспечивающее выявление оценки субъективного качества товара;

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

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

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

К наиболее известным аналитическим моделям рыночной адекватности товаров относятся модель Розенберга и модель с идеальной точкой.

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

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



где Wj - оценка рыночной адекватности j-того товара;

Xk - весовой коэффициент k-той характеристики;

Yjk - оценка k-той характеристики j-того товара.

Собрав таким способом данные о многих товарах, можно получить:

- общие оценки товаров, которые могут служить индикаторами предпочтений потребителей;

- информацию о том, как воспринимаются потребителями отдельные товары;

- информацию о важности различных характеристик для общей оценки.

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

Модель с идеальной точкой учитывает введение добавочной компоненты - идеальной величины характеристики продукта. Формульное выражение модели, в этом случае, имеет вид:

новый товар программа delphi

где Zk - идеальное значение k-той характеристики;

r = 1 для товара постоянной пользы;

r = 2 для товара убывающей пользы (находящегося на последних этапах своего жизненного цикла);

Wj, Xk, Yjk - параметры, описанные в соотношении (1).

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

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

1.3 Описание объекта исследования

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

В связи с этим, провести какие либо аналогии с существующими продуктами и прототипами невозможно.

2. ПРОЕКТНАЯ ЧАСТЬ

2.1 Описание работы программы

Для написания программы мной была выбрана среда Delphi, так как при своей относительной простоте она обладает всеми требуемыми функциями и возможностями для скоростной разработки приложений (Rapid Aplication Development).

Созданная мной программа состоит из базы данных MS Access, модуля статистики в виде документа MS Excel и оболочки созданной в Delphi.

База данных MS Access состоит из пяти таблиц: Goods, Market adequacy, Multicriteria estimation, Forecasts, The report on the goods.



Рисунок 4 - База данных MS Access

Таблица Goods содержит 4 поля:

- ID_goods;

- Goods;

- Idea_source;

- Explanatory.

Таблица Market adequacy 6 полей:

- ID_goods, Direct_marketing_researches;

- Laboratory_marketing_researches;

- Analytical_modeling;

- Multidimensional_computer_modeling;

- The_general_estimation_of_market_adequacy.

Таблица Multicriteria estimation 7 полей:

- ID_goods;

- The_expected_sales_volume;

- Conformity_to_distribution_channels;

- Problems_with_laws_or_morals;

- Realizability;

- Conformity_to_image_of_the_company;

- Multicriteria_estimation_points.

Таблица Forecasts 6 полей:

- ID_goods;

- Expenses_of_a_conclusion_for_the_market;

- Estimation_of_volume_of_realization;

- Predicted_profit;

- The_recommended_cost_for_unit;

- The_uncertainty_account.

Таблица The report on the goods 6 полей:

- Multicriteria_estimation_points;

- Expenses_of_a_conclusion_for_the_market;

- Predicted_profit;

- The_uncertainty_account;

- The_general_estimation_of_market_adequacy.

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



Рисунок 5 - модуль статистики в виде документа MS Excel

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

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

Последним компонентом программы является оболочка Delphi где и происходят все основные действия и вычисления, так же через нее заполняется база данных MS Access.



Рисунок 6 - Оболочка Delphi, главная форма

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

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

Так же для удобства все элементы подключения к базе данных, такие как ADOConnection и ADOTable вынесены в отдельный юнит.



Рисунок 6 - Оболочка Delphi, заполнение модуля статистики

Рисунок 6 - оболочка Delphi, элементы работы с БД

ЗАКЛЮЧЕНИЕ

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

? интуитивно понятному и простому в освоении интерфейсу, разработанному для максимального облегчения восприятия;

? отсутствию специальных требований к системным ресурсам и аппаратной части ПК;

? высокой скорости выполнения операций и обработки данных;

? возможности увеличения точности благодаря открытом возможностям усовершенствования (в лист MS Excel могут быть без труда добавлены дополнительные критерии оценки товара потребителями);

? благодаря разработке в среде Delphi программа может распространятся простым копированием (Portable version) не требуя установки;

? может использоватся людьми незнакомыми с маркетинговой деятельностью благодаря очень простому порядку ввода данных.

ПРИЛОЖЕНИЕ

Листинг программы

unit Unit1;

interface

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, StdCtrls, Grids, DBGrids, DB, ADODB, ExtCtrls, DBCtrls, Menus;

type

TForm1 = class(TForm)

Button1: TButton;

dbgrd1: TDBGrid;

dbgrd2: TDBGrid;

dbgrd3: TDBGrid;

dbgrd4: TDBGrid;

dbgrd5: TDBGrid;

btn1: TButton;

btn2: TButton;

btn4: TButton;

btn5: TButton;

btn6: TButton;

btn7: TButton;

btn8: TButton;

btn9: TButton;

btn10: TButton;

btn11: TButton;

btn12: TButton;

btn15: TButton;

lbl1: TLabel;

rg1: TRadioGroup;

rb1: TRadioButton;

rb2: TRadioButton;

btn3: TButton;

mm1: TMainMenu;

ables1: TMenuItem;

Edittable1: TMenuItem;

Goods1: TMenuItem;

Marketadequacy1: TMenuItem;

Multicriteriaestimation1: TMenuItem;

Forecasts1: TMenuItem;

Savechanges1: TMenuItem;

Goods2: TMenuItem;

Marketadequacy2: TMenuItem;

Multicriteriaestimation2: TMenuItem;

Forecasts2: TMenuItem;

Getresults1: TMenuItem;

Marketadequacy3: TMenuItem;

Multicriteriaestimation3: TMenuItem;

Forecasts3: TMenuItem;

hereportonthegoods3: TMenuItem;

Aditional1: TMenuItem;

statistic1: TMenuItem;

Help1: TMenuItem;

Gethelp1: TMenuItem;

Clear1: TMenuItem;

procedure Button1Click(Sender: TObject);

procedure btn1Click(Sender: TObject);

procedure btn2Click(Sender: TObject);

procedure btn4Click(Sender: TObject);

procedure btn5Click(Sender: TObject);

procedure btn6Click(Sender: TObject);

procedure btn7Click(Sender: TObject);

procedure btn8Click(Sender: TObject);

procedure btn9Click(Sender: TObject);

procedure btn10Click(Sender: TObject);

procedure btn11Click(Sender: TObject);

procedure btn12Click(Sender: TObject);

procedure btn14Click(Sender: TObject);

procedure btn15Click(Sender: TObject);

procedure btn3Click(Sender: TObject);

procedure btn13Click(Sender: TObject);

procedure statistic1Click(Sender: TObject);

procedure Goods1Click(Sender: TObject);

procedure Marketadequacy1Click(Sender: TObject);

procedure Multicriteriaestimation1Click(Sender: TObject);

procedure Forecasts1Click(Sender: TObject);

procedure Goods2Click(Sender: TObject);

procedure Marketadequacy2Click(Sender: TObject);

procedure Multicriteriaestimation2Click(Sender: TObject);

procedure Forecasts2Click(Sender: TObject);

procedure Marketadequacy3Click(Sender: TObject);

procedure Multicriteriaestimation3Click(Sender: TObject);

procedure Forecasts3Click(Sender: TObject);

procedure hereportonthegoods3Click(Sender: TObject);

procedure Clear1Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form1: TForm1;

a, b, c, d, e, f: Real;

implementation

uses Unit2, DataModule, QueryModule;

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);

begin

Form2.show;

end;

procedure TForm1.btn1Click(Sender: TObject);

begin

DataModuleUnit.tbl1.Edit;

end;

procedure TForm1.btn2Click(Sender: TObject);

begin

DataModuleUnit.tbl1.Post;

end;

procedure TForm1.btn4Click(Sender: TObject);

begin

DataModuleUnit.tbl2.Edit;

end;

procedure TForm1.btn5Click(Sender: TObject);

begin

DataModuleUnit.tbl2.Post;

end;

procedure TForm1.btn6Click(Sender: TObject);

begin

DataModuleUnit.tbl2.Edit;

a:=DataModuleUnit.tbl2.FieldValues['Direct_marketing_researches'];

b:=DataModuleUnit.tbl2.FieldValues['Laboratory_marketing_researches'];

c:=DataModuleUnit.tbl2.FieldValues['Analytical_modeling'];

d:=DataModuleUnit.tbl2.FieldValues['Multidimensional_computer_modeling'];

DataModuleUnit.tbl2.FieldValues['The_general_estimation_of_market_adequacy']:=a*b*c*d;

DataModuleUnit.tbl2.Post;

DataModuleUnit.tbl2.Refresh;

end;

procedure TForm1.btn7Click(Sender: TObject);

begin

DataModuleUnit.tbl3.Edit;

end;

procedure TForm1.btn8Click(Sender: TObject);

begin

DataModuleUnit.tbl3.Post;

end;

procedure TForm1.btn9Click(Sender: TObject);

begin

DataModuleUnit.tbl3.Edit;

a:=DataModuleUnit.tbl3.FieldValues['The_expected_sales_volume'];

b:=DataModuleUnit.tbl3.FieldValues['Conformity_to_distribution_channels'];

c:=DataModuleUnit.tbl3.FieldValues['Realizability'];

d:=DataModuleUnit.tbl3.FieldValues['Conformity_to_image_of_the_company'];

DataModuleUnit.tbl3.FieldValues['Multicriteria_estimation_points']:=a*b*c*d;

if rb1.Checked then DataModuleUnit.tbl3.FieldValues['Problems_with_laws_or_morals']:=1

else DataModuleUnit.tbl3.FieldValues['Problems_with_laws_or_morals']:=0;

DataModuleUnit.tbl3.Post;

DataModuleUnit.tbl3.Refresh;

if rb1.Checked then ShowMessage ('Development of this goods is illigal! FBI is already informed about your actions...');

if rb1.Checked then Close;

end;

procedure TForm1.btn10Click(Sender: TObject);

begin

DataModuleUnit.tbl4.Edit;

end;

procedure TForm1.btn11Click(Sender: TObject);

begin

DataModuleUnit.tbl4.Post;

end;

procedure TForm1.btn12Click(Sender: TObject);

begin

DataModuleUnit.tbl4.Edit;

a:=DataModuleUnit.tbl4.FieldValues['Expenses_of_a_conclusion_for_the_market'];

b:=DataModuleUnit.tbl4.FieldValues['Estimation_of_volume_of_realization'];

c:=DataModuleUnit.tbl4.FieldValues['Predicted_profit'];

d:=DataModuleUnit.tbl4.FieldValues['The_recommended_cost_for_unit'];

DataModuleUnit.tbl4.FieldValues['The_uncertainty_account']:=a*b*c*d;

DataModuleUnit.tbl4.Post;

DataModuleUnit.tbl4.Refresh;

end;

procedure TForm1.btn14Click(Sender: TObject);

begin

DataModuleUnit.tbl5.Post;

end;

procedure TForm1.btn15Click(Sender: TObject);

begin

DataModuleUnit.tbl2.Edit;

DataModuleUnit.tbl3.Edit;

DataModuleUnit.tbl4.Edit;

DataModuleUnit.tbl5.Edit;

DataModuleUnit.tbl5.FieldValues['Multicriteria_estimation_points']:=DataModuleUnit.tbl3.FieldValues['Multicriteria_estimation_points'];

DataModuleUnit.tbl5.FieldValues['Expenses_of_a_conclusion_for_the_market']:=DataModuleUnit.tbl4.FieldValues['Expenses_of_a_conclusion_for_the_market'];

DataModuleUnit.tbl5.FieldValues['Predicted_profit']:=DataModuleUnit.tbl4.FieldValues['Predicted_profit'];

DataModuleUnit.tbl5.FieldValues['The_uncertainty_account']:=DataModuleUnit.tbl4.FieldValues['The_uncertainty_account'];

DataModuleUnit.tbl5.FieldValues['The_general_estimation_of_market_adequacy']:=DataModuleUnit.tbl2.FieldValues['The_general_estimation_of_market_adequacy'];

DataModuleUnit.tbl5.Post;

DataModuleUnit.tbl5.Refresh;

end;

procedure TForm1.btn3Click(Sender: TObject);

begin

DataModuleUnit.tbl1.Edit;

DataModuleUnit.tbl1.FieldValues['Goods']:=0;

DataModuleUnit.tbl1.FieldValues['Idea_source']:=0;

DataModuleUnit.tbl1.FieldValues['Explanatory']:=0;

DataModuleUnit.tbl1.Post;

DataModuleUnit.tbl2.Edit;

DataModuleUnit.tbl2.FieldValues['Direct_marketing_researches']:=0;

DataModuleUnit.tbl2.FieldValues['Laboratory_marketing_researches']:=0;

DataModuleUnit.tbl2.FieldValues['Analytical_modeling']:=0;

DataModuleUnit.tbl2.FieldValues['Multidimensional_computer_modeling']:=0;

DataModuleUnit.tbl2.FieldValues['The_general_estimation_of_market_adequacy']:=0;

DataModuleUnit.tbl2.Post;

DataModuleUnit.tbl3.Edit;

DataModuleUnit.tbl3.FieldValues['The_expected_sales_volume']:=0;

DataModuleUnit.tbl3.FieldValues['Conformity_to_distribution_channels']:=0;

DataModuleUnit.tbl3.FieldValues['Realizability']:=0;

DataModuleUnit.tbl3.FieldValues['Conformity_to_image_of_the_company']:=0;

DataModuleUnit.tbl3.FieldValues['Multicriteria_estimation_points']:=0;

DataModuleUnit.tbl3.Post;

DataModuleUnit.tbl4.Edit;

DataModuleUnit.tbl4.FieldValues['Expenses_of_a_conclusion_for_the_market']:=0;

DataModuleUnit.tbl4.FieldValues['Estimation_of_volume_of_realization']:=0;

DataModuleUnit.tbl4.FieldValues['Predicted_profit']:=0;

DataModuleUnit.tbl4.FieldValues['The_recommended_cost_for_unit']:=0;

DataModuleUnit.tbl4.FieldValues['The_uncertainty_account']:=0;

DataModuleUnit.tbl4.Post;

DataModuleUnit.tbl5.Edit;

DataModuleUnit.tbl5.FieldValues['Multicriteria_estimation_points']:=0;

DataModuleUnit.tbl5.FieldValues['Expenses_of_a_conclusion_for_the_market']:=0;

DataModuleUnit.tbl5.FieldValues['Predicted_profit']:=0;

DataModuleUnit.tbl5.FieldValues['The_uncertainty_account']:=0;

DataModuleUnit.tbl5.FieldValues['The_general_estimation_of_market_adequacy']:=0;

DataModuleUnit.tbl5.Post;

end;

procedure TForm1.btn13Click(Sender: TObject);

begin

Form3.show;

end;

procedure TForm1.statistic1Click(Sender: TObject);

begin

Form2.show;

end;

procedure TForm1.Goods1Click(Sender: TObject);

begin

DataModuleUnit.tbl1.Edit;

end;

procedure TForm1.Marketadequacy1Click(Sender: TObject);

begin

DataModuleUnit.tbl2.Edit;

end;

procedure TForm1.Multicriteriaestimation1Click(Sender: TObject);

begin

DataModuleUnit.tbl3.Edit;

end;

procedure TForm1.Forecasts1Click(Sender: TObject);

begin

DataModuleUnit.tbl4.Edit;

end;

procedure TForm1.Goods2Click(Sender: TObject);

begin

DataModuleUnit.tbl1.Post;

end;

procedure TForm1.Marketadequacy2Click(Sender: TObject);

begin

DataModuleUnit.tbl2.Post;

end;

procedure TForm1.Multicriteriaestimation2Click(Sender: TObject);

begin

DataModuleUnit.tbl3.Post;

end;

procedure TForm1.Forecasts2Click(Sender: TObject);

begin

DataModuleUnit.tbl4.Post;

end;

procedure TForm1.Marketadequacy3Click(Sender: TObject);

begin

DataModuleUnit.tbl2.Edit;

a:=DataModuleUnit.tbl2.FieldValues['Direct_marketing_researches'];

b:=DataModuleUnit.tbl2.FieldValues['Laboratory_marketing_researches'];

c:=DataModuleUnit.tbl2.FieldValues['Analytical_modeling'];

d:=DataModuleUnit.tbl2.FieldValues['Multidimensional_computer_modeling'];

DataModuleUnit.tbl2.FieldValues['The_general_estimation_of_market_adequacy']:=a*b*c*d;

DataModuleUnit.tbl2.Post;

DataModuleUnit.tbl2.Refresh;

end;

procedure TForm1.Multicriteriaestimation3Click(Sender: TObject);

begin

DataModuleUnit.tbl3.Edit;

a:=DataModuleUnit.tbl3.FieldValues['The_expected_sales_volume'];

b:=DataModuleUnit.tbl3.FieldValues['Conformity_to_distribution_channels'];

c:=DataModuleUnit.tbl3.FieldValues['Realizability'];

d:=DataModuleUnit.tbl3.FieldValues['Conformity_to_image_of_the_company'];

DataModuleUnit.tbl3.FieldValues['Multicriteria_estimation_points']:=a*b*c*d;

if rb1.Checked then DataModuleUnit.tbl3.FieldValues['Problems_with_laws_or_morals']:=1

else DataModuleUnit.tbl3.FieldValues['Problems_with_laws_or_morals']:=0;

DataModuleUnit.tbl3.Post;

DataModuleUnit.tbl3.Refresh;

if rb1.Checked then ShowMessage ('Development of this goods is illigal! FBI is already informed about your actions...');

if rb1.Checked then Close;

end;

procedure TForm1.Forecasts3Click(Sender: TObject);

begin

DataModuleUnit.tbl4.Edit;

a:=DataModuleUnit.tbl4.FieldValues['Expenses_of_a_conclusion_for_the_market'];

b:=DataModuleUnit.tbl4.FieldValues['Estimation_of_volume_of_realization'];

c:=DataModuleUnit.tbl4.FieldValues['Predicted_profit'];

d:=DataModuleUnit.tbl4.FieldValues['The_recommended_cost_for_unit'];

DataModuleUnit.tbl4.FieldValues['The_uncertainty_account']:=a*b*c*d;

DataModuleUnit.tbl4.Post;

DataModuleUnit.tbl4.Refresh;

end;

procedure TForm1.hereportonthegoods3Click(Sender: TObject);

begin

DataModuleUnit.tbl2.Edit;

DataModuleUnit.tbl3.Edit;

DataModuleUnit.tbl4.Edit;

DataModuleUnit.tbl5.Edit;

DataModuleUnit.tbl5.FieldValues['Multicriteria_estimation_points']:=DataModuleUnit.tbl3.FieldValues['Multicriteria_estimation_points'];

DataModuleUnit.tbl5.FieldValues['Expenses_of_a_conclusion_for_the_market']:=DataModuleUnit.tbl4.FieldValues['Expenses_of_a_conclusion_for_the_market'];

DataModuleUnit.tbl5.FieldValues['Predicted_profit']:=DataModuleUnit.tbl4.FieldValues['Predicted_profit'];

DataModuleUnit.tbl5.FieldValues['The_uncertainty_account']:=DataModuleUnit.tbl4.FieldValues['The_uncertainty_account'];

DataModuleUnit.tbl5.FieldValues['The_general_estimation_of_market_adequacy']:=DataModuleUnit.tbl2.FieldValues['The_general_estimation_of_market_adequacy'];

DataModuleUnit.tbl5.Post;

DataModuleUnit.tbl5.Refresh;

end;

procedure TForm1.Clear1Click(Sender: TObject);

begin

DataModuleUnit.tbl1.Edit;

DataModuleUnit.tbl1.FieldValues['Goods']:=0;

DataModuleUnit.tbl1.FieldValues['Idea_source']:=0;

DataModuleUnit.tbl1.FieldValues['Explanatory']:=0;

DataModuleUnit.tbl1.Post;

DataModuleUnit.tbl2.Edit;

DataModuleUnit.tbl2.FieldValues['Direct_marketing_researches']:=0;

DataModuleUnit.tbl2.FieldValues['Laboratory_marketing_researches']:=0;

DataModuleUnit.tbl2.FieldValues['Analytical_modeling']:=0;

DataModuleUnit.tbl2.FieldValues['Multidimensional_computer_modeling']:=0;

DataModuleUnit.tbl2.FieldValues['The_general_estimation_of_market_adequacy']:=0;

DataModuleUnit.tbl2.Post;

DataModuleUnit.tbl3.Edit;

DataModuleUnit.tbl3.FieldValues['The_expected_sales_volume']:=0;

DataModuleUnit.tbl3.FieldValues['Conformity_to_distribution_channels']:=0;

DataModuleUnit.tbl3.FieldValues['Realizability']:=0;

DataModuleUnit.tbl3.FieldValues['Conformity_to_image_of_the_company']:=0;

DataModuleUnit.tbl3.FieldValues['Multicriteria_estimation_points']:=0;

DataModuleUnit.tbl3.Post;

DataModuleUnit.tbl4.Edit;

DataModuleUnit.tbl4.FieldValues['Expenses_of_a_conclusion_for_the_market']:=0;

DataModuleUnit.tbl4.FieldValues['Estimation_of_volume_of_realization']:=0;

DataModuleUnit.tbl4.FieldValues['Predicted_profit']:=0;

DataModuleUnit.tbl4.FieldValues['The_recommended_cost_for_unit']:=0;

DataModuleUnit.tbl4.FieldValues['The_uncertainty_account']:=0;

DataModuleUnit.tbl4.Post;

DataModuleUnit.tbl5.Edit;

DataModuleUnit.tbl5.FieldValues['Multicriteria_estimation_points']:=0;

DataModuleUnit.tbl5.FieldValues['Expenses_of_a_conclusion_for_the_market']:=0;

DataModuleUnit.tbl5.FieldValues['Predicted_profit']:=0;

DataModuleUnit.tbl5.FieldValues['The_uncertainty_account']:=0;

DataModuleUnit.tbl5.FieldValues['The_general_estimation_of_market_adequacy']:=0;

DataModuleUnit.tbl5.Post;

end;

end.

unit Unit2;

interface

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, StdCtrls, OleServer, ExcelXP, ComObj, Menus;

type

TForm2 = class(TForm)

Button1: TButton;

Label1: TLabel;

Label2: TLabel;

Label3: TLabel;

edt1: TEdit;

edt2: TEdit;

edt3: TEdit;

edt4: TEdit;

edt5: TEdit;

edt6: TEdit;

edt7: TEdit;

edt8: TEdit;

edt9: TEdit;

edt10: TEdit;

lbl1: TLabel;

lbl2: TLabel;

lbl3: TLabel;

lbl4: TLabel;

lbl5: TLabel;

mm1: TMainMenu;

Sendtodatabase1: TMenuItem;

Close1: TMenuItem;

procedure Button1Click(Sender: TObject);

procedure FormCreate(Sender: TObject);

procedure FormClose(Sender: TObject; var Action: TCloseAction);

procedure Sendtodatabase1Click(Sender: TObject);

procedure Close1Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form2: TForm2;

Ap : Variant;

implementation

uses

DataModule;

{$R *.dfm}

procedure TForm2.Button1Click(Sender: TObject);

begin

Ap := CreateOleObject('Excel.Application');

Ap.Workbooks.Open('С:\дип.Олейник\Анкета.xls');

Ap.Range['D2'] := edt1.Text;

Ap.Range['D3'] := edt2.Text;

Ap.Range['D4'] := edt3.Text;

Ap.Range['D5'] := edt4.Text;

Ap.Range['D6'] := edt5.Text;

Ap.Range['D9'] := edt6.Text;

Ap.Range['D10'] := edt7.Text;

Ap.Range['D11'] := edt8.Text;

Ap.Range['D12'] := edt9.Text;

Ap.Range['D13'] := edt10.Text;

Ap.Columns[4].Insert;

Ap.Application.Quit;

end;

procedure TForm2.FormCreate(Sender: TObject);

begin

Ap := CreateOleObject('Excel.Application');

Ap.Workbooks.Open('С:\дип.Олейник\Анкета.xls');

edt1.Text:=IntToStr(0);

edt2.Text:=IntToStr(0);

edt3.Text:=IntToStr(0);

edt4.Text:=IntToStr(0);

edt5.Text:=IntToStr(0);

edt6.Text:=IntToStr(0);

edt7.Text:=IntToStr(0);

edt8.Text:=IntToStr(0);

edt9.Text:=IntToStr(0);

edt10.Text:=IntToStr(0);

lbl1.Caption := Ap.Range['A2'];

lbl2.Caption := Ap.Range['A3'];

lbl3.Caption := Ap.Range['A4'];

lbl4.Caption := Ap.Range['A5'];

lbl5.Caption := Ap.Range['A6'];

Label2.Caption := Ap.Range['A1'];

Label3.Caption := Ap.Range['A8'];

Ap.Application.Quit;

end;

procedure TForm2.FormClose(Sender: TObject; var Action: TCloseAction);

begin

Ap := CreateOleObject('Excel.Application');

Ap.Workbooks.Open('С:\дип.Олейник\Анкета.xls');

DataModuleUnit.tbl2.Edit;

DataModuleUnit.tbl2.FieldValues['Analytical_modeling']:=Ap.Range['A15'];

DataModuleUnit.tbl2.Post;

Ap.Application.Quit;

end;

procedure TForm2.Sendtodatabase1Click(Sender: TObject);

begin

Ap := CreateOleObject('Excel.Application');

Ap.Workbooks.Open('С:\дип.Олейник\Анкета.xls');

Ap.Range['D2'] := edt1.Text;

Ap.Range['D3'] := edt2.Text;

Ap.Range['D4'] := edt3.Text;

Ap.Range['D5'] := edt4.Text;

Ap.Range['D6'] := edt5.Text;

Ap.Range['D9'] := edt6.Text;

Ap.Range['D10'] := edt7.Text;

Ap.Range['D11'] := edt8.Text;

Ap.Range['D12'] := edt9.Text;

Ap.Range['D13'] := edt10.Text;

Ap.Columns[4].Insert;

Ap.Application.Quit;

end;

procedure TForm2.Close1Click(Sender: TObject);

begin

Ap := CreateOleObject('Excel.Application');

Ap.Workbooks.Open('С:\дип.Олейник\Анкета.xls');

DataModuleUnit.tbl2.Edit;

DataModuleUnit.tbl2.FieldValues['Analytical_modeling']:=Ap.Range['A15'];

DataModuleUnit.tbl2.Post;

Ap.Application.Quit;

Form2.Close;

end;

end.

Размещено на Allbest.ru