Курсовая Скидки. Целью курсовой работы является разработка программы для расчета скидок в прикладной программе msexceloffice. Поставленная цель предполагает выполнение следующих задач
 Скачать 261.2 Kb.
|
|
Введение Экономика во всем мире не стоит на одном месте, с каждым годом наряду с традиционными, появляются новые направления. Именно они требуют особого анализа и внедрения гибких, своевременных инструментов в маркетинге. Скидки в наше время очень актуальны, так как они являются первым признаком привлечения внимания покупателя. В настоящее время практика предоставления скидок используются крупными и средними компаниями, организациями малого бизнеса и индивидуальными предпринимателями. Система скидок является чрезвычайно гибким и полезным инструментом маркетинговой политики предприятия. Размер скидок зависит от спроса, издержек по географическому признаку, требований конкретных сегментов рынка, распределения закупок по времени, объема заказов, графика поставок, гарантии, договоров об обслуживании. Здесь, несомненно, приходят на помощь новые информационные технологии в экономике. В этом и заключается актуальность курсовой работы. В этом направлении активно работают Ю.Б.Бекаревич, Н.В.Пушкина, С.Гуриков, А.Н.Дукин, Л.Д.Слепцова и другие. Разработка различных экономических программ совершенствуется вместе с развитием экономики и маркетинговых направлений. Целью курсовой работы является разработка программы для расчета скидок в прикладной программе MSEXCELOFFICE. Поставленная цель предполагает выполнение следующих задач: - рассмотреть понятийный аппарат стоимости, классификацию и характеристику скидки; - рассмотреть порядок предоставления и основы расчета скидки; - поставить задачи к разработке программы по выполнению расчета стоимости товара с учетом скидки; -сформировать входную и выходную информацию для формирования скидки; -составить алгоритм и программу реализации; -сформировать пользовательский интерфейс; - определить набор приложений необходимых для выполнения поставленных задач; - описать работу программы по расчету стоимости товара с учетом скидки. Объектом исследования являются «Расчеты скидок в прикладной программе MSEXCELOFFICE» Предметом исследования данной работы является «Программирование расчетов с использованием VBA» Структура работы состоит из введения, двух основных глав, заключения, списка использованной литературы, приложений. I Общая характеристика предприятия и анализ начисления скидок Особенности предприятия и его деятельность в условиях рыночной экономики В условиях современных рыночных отношений в нашей стране предприятие является основным звеном всей экономики, поскольку именно на этом уровне создается нужная обществу продукция , оказываются необходимые услуги. Главной целью создания и функционирования предприятия является получение максимально возможной прибыли за счет реализации потребителям производимой продукции. Такая система отношений более гибкая, способная адаптироваться под постоянно меняющиеся потребности общества. В основе взаимодействия лежат финансовые отношения, максимально удовлетворяющие обе стороны. Для целей совершения сделок купли-продажи производители устанавливают ценообразование, при котором руководствуются следующими принципами: Ориентация на уровень предложения и спроса на рынке; Отслеживание ценовой политики конкурентов; Формирование цены на основе собственных издержек. Перед тем, как приступить к ценообразованию руководству предприятия необходимо определить цели, которые необходимо будет решить. К ним относятся: Увеличение объемов сбыта, захват рынка. В долгосрочной перспективе необходимо поддерживать низкие цены на продукцию. Максимальная прибыль в краткосрочном периоде. Цены устанавливаются на самой высокой отметке, по которой покупатель готов приобретать благо. Сохранение компании на рынке. Для этого устанавливаются цены на уровне предельных издержек. Таким образом, покрываются только себестоимость и текущие издержки. Достижение лидерских позиций по качеству. Формируя ценовую политику, стратегию и тактику, предприятие создает целую систему ценообразования, позволяющую устанавливать такие цены на товары, которые могут учитывать множественное влияние различных рыночных факторов, в том числе и требования конкретных потребителей продукции. 1.2 Скидочная политика предприятия Широко распространенным в ценовой борьбе за потребителя является применение различных скидок с цен. Как показывает традиционная практика, скидки появились и стали использоваться в условиях уличной торговли товарами, когда продавец в результате торга предоставлял скидку тому покупателю, который приобретает больше товаров. Скидка – это сумма, на которую снижается продажная цена товара, реализуемого покупателю. Как показывает современная практика предоставления скидок используется крупными и средними компаниями, организациями малого бизнеса и индивидуальными предпринимателями. Она является добровольным, односторонним снижением стоимости товара (услуги) продавцом (поставщиком услуги) от первоначальной стоимости товара (услуги). Предоставление скидок, прежде всего, стимулирует продажи, что, в свою очередь, влияет на объем получаемой выручки, поэтому формирование системы скидок является не только элементом маркетинговой политики, но и методом, используемым при разработке финансовой политики предприятия и оказывающим влияние на ее результаты. По своей коммерческой природе скидка может быть одного из двух типов: плановая и тактическая скидки. Плановые скидки формируются за счет общей суммы накладных расходов и обычно настолько скрыты, что их называют еще “замаскированными”. Именно к таким скидкам можно отнести организацию фирмой-производителем рекламы своей продукции с указанием списка торговых фирм, которые этой продукцией торгуют. Тем самым фирма-производитель реально экономит средства своих дилеров на рекламу ими торговых названий, что по экономической природе равнозначно предоставлению им дополнительной скидки. Прочие скидки предоставляются за счет прибыли компании, поэтому их относят к категории тактических. Предназначение данных скидок определяется необходимостью формирования дополнительных условий для привлечения покупателей и увеличения объемов продаж. Основная задача тактических скидок основывается на создании дополнительного стимула для покупателя совершить покупку немедленно, за счет прямого снижения цены. Использование тактических скидок обеспечивает снижение реальной цены приобретения товара и ведет к увеличению величины премии покупателю (эта премия представляет собой разницу между экономической ценностью товара для покупателя и ценой, по которой ему этот товар удалось купить).Таким образом, существует несколько видов скидок, которые актуально применяются в экономической политике любого предприятия или организации: простая (общая) скидка бонусная сезонная скидка специальная скидка за платеж наличными скидка за объем покупаемого товара функциональная прогрессивная дилерская сервисные скидка за ускорение оплаты скидки за возврат ранее купленного товара у данной фирмы Следовательно, применение скидочной политики в предприятии стимулирует те или иные продажи, влияет на объем конечной выручки. Здесь необходимо отметить, что формирование системы скидок является особенной частью маркетинговой политики, который применяется при разработке финансовой составляющей предприятия и непосредственно оказывает влияние на ее результаты. Описание функции реализуемые программой, описание входной и выходной информации На современном этапе практика предоставления скидок используется крупными и средними компаниями, организациями малого бизнеса и индивидуальными предпринимателями. В.И. Аверченков, со своими соавторами Ф.Ю.Лозбиневым и А.А.Тищенко в научном труде «Информационные технологии в производстве и экономике» обратились к основным направлениям реализации определенной программы, с описанием входной и входной информации. В издании рассматриваются основные подходы к управлению инновационными процессами, включающими создание, освоение и распространение нововведений как возможных факторов развития рыночной экономики [ 1] К примеру, компания «ИНТЕРСПОРТ» специализируется на продаже спортивных товаров. Во всех магазинах « Интерспорт» широко представлены более тысячи наименований различных спортивных товаров: широкий ассортимент тренажеров, экипировка и принадлежности для занятий зимними и летними видами спорта, одежда для детей, женщин и мужчин, только открывающие для себя мир спорта, и профессионалов, предъявляющих высокие требования к качеству. Таким образом, разберем подробнее перечисленные виды скидок предприятия ООО «ИНТЕРСПОРТ». Общая (простая) скидка предоставляется с прейскурантной или со справочной цены и обычно составляет 20 – 30%, а в некоторых случаях - до 40%. Такие скидки широко практикуются при заключении сделок на машины и оборудование, в частности, на стандартные виды оборудования. Скидка за оборот, бонусная скидка, предоставляется постоянным покупателям на основании специальной доверенности. В контракте в этом случае устанавливается шкала скидок, в зависимости от достигнутого оборота в течение определенного срока (обычно одного года), а также порядок выплаты сумм на основе этих скидок. Рассмотрим данные скидки на конкретном предприятии и их реализацию.
Таблица.1- Скидочная программа ООО «ИНТЕРСПОРТ» Специальные скидки предоставляются привилегированным покупателям, в заказах которых особо заинтересованы продавцы. К категории специальных скидок относятся также скидки на пробные партии и заказы, имеющие целью заинтересовать покупателя, и скидки за регулярность или устойчивость заказов, с помощью которых производители стремятся удержать постоянную клиентуру. Скидка за внесезонную покупку – это мера снижения стандартной продажной цены, которая гарантируется покупателю, если он приобретет товары сезонного спроса вне периода года, для которого они предназначены. Цель использования скидок за внесезонную закупку состоит в том, чтобы побудить покупателей приобрести эти товары до начала очередного сезона, в самом его начале, либо вообще вне сезона. Рассчитать скидку на товар не составляет большого труда. Все что необходимо знать – это стоимость товара и скидка на него. Стоимость товара с учетом скидки высчитывается по следующей формуле:  Где: R– стоимость товара с учетом скидки; C – стоимость товара без учета скидки; D– процент скидки; Таким образом, в этой главе рассмотрены процесс реализации товара со скидкой и особенности предприятия и его деятельности, скидочной политики предприятия В современных условиях экономики все большее применение находит система скидок с цен как один из важнейших факторов стимулирования продаж. Это позволяет продавцам не только удерживать постоянных покупателей, но и привлекать новых. В гражданском и налоговом законодательстве отсутствует определение понятия скидки. В соответствии с понятиями делового оборота под скидкой понимается уменьшение продавцом ранее заявленной стоимости товара, что приводит к снижению цены его реализации На данном этапе курсовой работы нами проанализирована скидочная деятельность работы предприятия. Далее нам необходимо перейти к разработке и программированию поставленной задачи. 2 Разработка программы расчёта скидок на предприятии 2.1 Характеристика программного инструментария Среди активных популяризаторов проблемы программного оснащения экономической разработки расчета скидок на различных предприятиях уверенно можно назвать авторов Ю.Б. Бекаревич и Н.В.Пушкину. Их самоучители позволяет освоить интерфейс и инструменты различных версий Access , а также помогают научиться разрабатывать базу данных и приложение для собственной предметной области пользователя. В них доходчиво описаны новые средства разработки веб-приложения пользователя, автоматически публикуемого на сайтах Share Point организации или в облаках Microsoft Office и доступного для коллективного использования с помощью веб-браузера. Самоучители построены на примерах, демонстрирующих основные приемы работы с инструментарием Access при разработке объектов как локальной базы данных, так и веб-приложения пользователя [3:4:5] Для выполнения поставленной задачи необходим определённый набор таких приложений: Microsoft Office Access или просто Microsoft Access — реляционная система управления базами данных (СУБД). Использование Access позволяет: добавлять новую информацию в базу данных; изменять информацию, уже находящуюся в базе; удалять информацию; упорядочивать и просматривать данные различными способами; обмениваться данными с другими людьми с помощью отчетов, сообщений электронной почты, внутренней сети или Интернета Причины выбора MS Access: Полностью совместим с операционной системой Windows; Очень простой графический интерфейс, который позволяет не только создавать собственную базу данных, но и разрабатывать приложения, используя встроенные средства; распространенность, которая обусловлена тем, что Access является продуктом компании Microsoft. полностью совместим с операционной системой Windows; очень простой графический интерфейс, который позволяет не только создавать собственную базу данных, но и разрабатывать приложения, используя встроенные средства; распространенность, которая обусловлена тем, что Access является продуктом компании Microsoft. Visual Basic for Applications или (VBA, Visual Basic для приложений). Здесь отмечается немного упрощённая реализация языка программирования Visual Basic, встроенная в линейку продуктов Microsoft Office (включая версии для Mac OS), а также во многие другие программные пакеты. VBA является самым удобным языком для работы с приложениями Office. Главная причина проста, здесь язык VBA встроен в приложения Office (и не только), и код на языке VBA можно хранить внутри документов приложений Office документах Word, книгах Excel, презентациях Power Point и т.п. Конечно же, этот код можно запускать оттуда на выполнение, поскольку среда выполнения кода VBA встроена внутрь этих приложений. VBA изначально был ориентирован на пользователей, а не на профессиональных программистов (хотя профессионалы пользуются им очень активно), поэтому создавать программы на нем можно очень быстро и легко. Microsoft Excel (также иногда называется Microsoft Office Excel) — программа для работы с электронными таблицами, созданная корпорацией Microsoft для Microsoft Windows, Windows NT и Mac OS. Она предоставляет возможности экономико-статистических расчетов, графические инструменты и язык макропрограммирования VBA (Visual Basic for Application). Microsoft Excel входит в состав Microsoft Office и на сегодняшний день Excel является одним из наиболее популярных приложений в мире. Excel используется повсеместно в качестве простейшей и наиболее дешевой автоматизированной системы. Она прекрасно знакома всем финансистам и позволяет вводить любые формулы и строить практически любые взаимосвязи и прогнозы. Кроме того, в эту программу можно импортировать информацию из большинства учетных систем, что облегчает ввод данных. Мы определились с набор программ, необходимых для выполнения поставленной задачи. Следующий момент состоит в необходимости приступить непосредственно к написанию программы по расчету стоимости товара с учетом скидки. 2.2 Алгоритм решения задач Для того чтобы начать разработку программы по расчету стоимости товара с учетом скидки необходимо сформировать постановку задачи, а также выявить необходимые этапы работы над программой. Для успешного решения задач, следует определиться с основной целью. Целью алгоритма решения задач является повышение эффективности процесса расчета стоимости продукции, с учетом скидки в современных условиях. Здесь необходима разработка программы расчета стоимости продукции с учетом скидки. Для того чтобы разработать программу для расчета стоимости товара с учетом скидки, необходимо выполнить определенные задачи: Написать программу для создания базы данных при помощи языка программирования VBA и языка запросов SQL; в данной базе данных должна быть таблица с полями для таких значений как: Название товара, Количество товара, Цена товара, Скидка на товар. Написать программу для внесения значений из электронной таблицы MSExcel в созданную базу данных. Написать программу, способную извлекать записи из базы данных и проводить расчет простой (общей) скидки на основе данных записей. Основываясь на поставленные задачи, необходимо определится с выбором приложений для достижения поставленных целей. 2.3 Разработка программы по расчету стоимости товара с учетом скидки Изучив теоретический материал и выявив необходимый инструментарий, перейдем к разработке программы по расчету стоимости товара с учетом скидки. Для начала работ, необходимо создать базу данных, используя следующий код1:  Рисунок 1 - Код для создания Базы Данных После выполнения данного кода, в директории расположения книги электронной таблицы Excel появится База Данных MSAccess под названием “Prob1.mdb”, в которой: “prod_name” – текстовое значение с ограничение в 50 символов; “prod_price” – числовое значение формата long; “prod_amount” – числовое значение формата long; “prod_dis” - числовое значение формата long; Следующим шагом необходимо заполнить таблицу. Для этого необходимо подготовить данные в электронной таблице Excel в следующем виде:
В данной программе будут использованы 4 категории товаров: «Продукты питания», «Бытовая химия», «Одежда», «Обувь». Пример:
После внесения всех необходимых данных в электронную таблицу, необходимо выполнить следующий код:  Рисунок 2 - Код для заполнения БД Теперь существует база данных с именем “Prob1.mdb” в директории excelфайла из которого был запущен макрос, показанный на рисунке 1,значения в которой удовлетворяют поставленным условиям. Следующим шагом станет создание формы, в которой и будет производится отображение записей из базы данных, а также расчет стоимости товара с учетом скидки и сумма скидки на основе информации, полученной из базы данных. Форма будет иметь следующий вид:  Рисунок 3 - Форма "Расчет скидки" Форма готова, осталось добавить функционал. Для этого необходимо записать следующий код2:  Рисунок 4 - Код для заполнения формы при запуске Данный код при запуске формы автоматически добавит значения в соответствующие поля, а именно: Значение «prod_name» первой записи в Базе Данных в ячейку «Название:»; Значение «prod_price» первой записи в Базе данных в ячейку «Цена за шт.»; Значение «prod_dis» первой записи в Базе данных в ячейку «Скидка, %» и так далее. Значение «Стоимость» будет рассчитано автоматически по формуле «Цена за шт.» * «Количество». После чего форма примет вид:  Рисунок 5 - Вид формы после запуска Теперь необходимо добавить функциональности кнопкам. Для этого будет использован следующий код:  Рисунок 6 - Код кнопки перехода по записям Базы Данных  Рисунок 7 - Код выпадающего списка  Рисунок 8 - Код кнопки "Вывести на Лист2..." Данный код позволит перемещаться по записям Базы Данных, при этом значение «Стоимость» будет рассчитано автоматически по формуле «Цена за шт.» * «Количество».  Рисунок 9 - Код кнопки "Рассчитать" Код, показанный на Рисунке 7, производит расчет суммы скидки по следующей формуле:  Где:  – сумма скидки; – стоимость товара; – скидка в процентах.Стоимость скидки с учетом скидки будет рассчитана по следующей формуле:  Где:  – стоимость товара с учетом скидки. Рисунок 10 - Форма после расчета стоимости продукции с учетом скидки Также необходимо создать макрос, который будет вызывать созданную ранее форму. Макрос будет иметь вид: Sub sform() UserForm1.Show End Sub В данном пункте была разработана программа, которая производит расчет стоимости товара с учетом скидки; а также были разработаны условия по ее эксплуатации. Программа по расчету стоимости товара с учетом скидки позволяет произвести этот самый расчет для нескольких товаров из базы данных. Для начала работы необходимо открыть файл «Pylot.xlsm», после чего в ячейки столбца «А» поместить название товара; в ячейки столбца «B» поместить цену на товар; в ячейки столбца «С» поместить количество товара; в ячейки столбца «D» поместить значение скидки на товар. После внесения всех данных в таблицу необходимо выполнить макрос под названием «DBCreate», который создаст базу данных. Следующим шагом будет выполнения макроса «DBFill», который внесет значения из таблицы в созданную базу данных. Для того, чтобы приступить к расчетам, необходимо выполнить макрос «sform», который запустит форму: Рисунок 11 - Вид формы после запуска В данной форме будут отображаться название товара, его цена, количество, скидка и стоимость. Для того, чтобы перейти к определенной записи, необходимо выбрать соответствующую категорию из выпадающего списка (по умолчанию имеет значение «Все»), а затем использовать кнопки, расположенные в нижней центральной части формы:  Рисунок 12 - Кнопки для перехода по записям Базы Данных Для того чтобы рассчитать стоимость товара с учетом скидки, необходимо нажать на кнопку «Рассчитать», которая произведет расчет суммы скидки и стоимость товара с учетом скидки, которые отобразятся в соответствующих полях:  Рисунок 13 - Кнопка рассчитатьи соответствующие поля Также следует отметить что значение поля «Скидка, %» можно изменить, в отличие от значений полей «Цена», «Количество» и «Стоимость». Это сделано для корректировки данного значения, например в случае предоставления купона или в любом другом случае изменения скидки. Таким образом, в данной главе были поставлены и выполнены требования к написанию программы для расчета скидок, в том числе: определен и использован набор программ, создана база данных, разработана программа и описание работы этой программы. Заключение В ходе выполнения данной курсовой работы была достигнута поставленная цель – разработана программа по расчету стоимости товара с учетом скидки, а также выполнены следующие задачи: - рассмотрено понятие себестоимости (стоимости) продукции; - исследованы понятийный аппарат, классификация и характеристика скидок; - определены порядок предоставления и основы расчета скидки; - составлены требования к разработке программы; - определен набор приложений необходимых при разработке программы; - составлено описание работы программы по расчету стоимости товара с учетом скидки, которая позволит любому пользователю ее освоить; - выполнено тестирование программы. В ходе тестирования ошибок не выявлено, программа работает стабильно. По завершению разработки имеется программа, которая позволяет ознакомиться со значениями базы данных и провести расчет стоимости товара с учетом скидки. Выполненная курсовая работа будет востребована и интересна для студентов учебных заведений экономического профиля, программистов, широкого круга заинтересованного в данном направлении людей. Список литературы Аверченков, В.И. Информационные технологии в производстве и экономике: учеб. пособие/ В.И.Аверченков, Ф.Ю.Лозбинев, А.А.Тищенко.- М.: Флинта,2011 Андон, Ф. Язык запросов SQL / Ф.Андон – СПб.: БХВ-Петербург, 2008 – 416 с. Бекаревич, Ю.Б. Самоучитель Microsoft Access 2009/Ю.Б. Бекаревич, Н.В.Пушкина – СПб.: БХВ-Петербург,2009. – 720 с. Бекаревич, Ю.Б. Самоучитель Microsoft Access 2010/ Ю.Б. Бекаревич, Н.В.Пушкина - СПб.: БХВ-Петербург, 2012. – 432с Бекаревич, Ю. Б. Б Самоучитель Microsoft Access 2013 / Ю. Б. Бекаревич, Н. В. Пушкина. — СПб.: БХВ-Петербург, 2014. — 464 с. Берндт, Г. Измерение, управление и регулирование с помощью макросов VBA в Word и Excel / Г.Берндт.- СПб.: Корона-Век, 2008. – 256 с. Гуриков, С. Введение в программирование на языке Visual Basic : уч.пособие / С.Гуриков.- М.: ИНФРА – М, 2019.- 317с. Дукин, А.Н. Самоучитель Visual Basic 2010 / А.Н. Дуки. А.А.Пожидаев. – СПб.: БХВ – Петербург, 2012. – 560 с. Зиборов, В. В. Visual Basic 2010 на примерах / В. В. Зиборов. - СПб.: БХВ-Петербург, 2010.- 336 с. Шеявкова, Д. Visual Basic / Д. Шеявкова, А.Степанов. – СПб.: БХВ – Петербург 2008.- 542 с. Слепцова, Л.Д. Программирование на VBA в Microsoft Office 2010. Самоучитель / Л.Д. Слепцова. – М: Издательский дом Диалектика, Вильямс, 2010. - 432 с. Электронные ресурсы: Мир Excel [Электронный ресурс]:справочник.-URL: http://www.excelworld.ru/index/spravochniki/0-48, свободный. Microsoft Excel // Википедия. [2017—2017]. Дата обновления: 20.10.2017. URL: http://ru.wikipedia.org/?oldid=88436982 (дата обращения: 20.10.2017). Microsoft Access // Википедия. [2017—2017]. Дата обновления: 30.10.2017. URL: http://ru.wikipedia.org/?oldid=88698857 (дата обращения: 30.10.2017). PHP // Википедия. [2017—2017]. Дата обновления: 16.11.2017. URL: http://ru.wikipedia.org/?oldid=89033703 (дата обращения: 16.11.2017). VBA для Excel [Электронный ресурс]: справочник.- URL: http://www.firststeps.ru/vba/excel/vbaexcel1.html, свободный. Себестоимость // Википедия. [2017—2017]. Дата обновления: 13.10.2017. URL: http://ru.wikipedia.org/?oldid=88292810 (дата обращения: 13.10.2017). Скидка // Википедия. [2017—2017]. Дата обновления: 10.09.2017. URL: http://ru.wikipedia.org/?oldid=87546338 (дата обращения: 10.09.2017). Справочник с примерами по языку SQL [Электронный ресурс]: справочник.- URL:http://sql.itsoft.ru, свободный. Справочник экономиста.- 2015.- №3 [Электронный ресурс]: справочник.- URL: https://www.profiz.ru/se/3_2015/uchet_skidok/, свободный Visual Basic for Applications // Википедия. [2017—2017]. Дата обновления: 07.10.2017. URL: http://ru.wikipedia.org/?oldid=88170101 (дата обращения: 07.10.2017). Visual Basic Scripting Edition // Википедия. [2017—2017]. Дата обновления: 07.10.2017. URL: http://ru.wikipedia.org/?oldid=88170100 (дата обращения: 07.10.2017). Электронный учебник по VBA [Электронный ресурс]: URL: http://www.mini-soft.ru/soft/vba/, свободный ПРИЛОЖЕНИЕ А Текст макросов для подготовки к работе с программой Sub DBCreate() Dim str As String, mydb As Database, myws As Workspace dbn = "Prob1.mdb" Path = ThisWorkbook.Path + "\" If Dir(Path + dbn) <> "" Then Kill Path + dbn Set myws = DBEngine.Workspaces(0) Set mydb = myws.CreateDatabase(Path + dbn, dbLangCyrillic, dbVersion40) str = "CREATE TABLE product ([prod_key] COUNTER CONSTRAINT key_stud PRIMARY KEY, [prod_name] TEXT (255), " & vbLf & _ "[prod_price] LONG, [prod_amount] LONG, [prod_dis] LONG, [prod_fac] TEXT (255))" mydb.Execute (str) End Sub Sub DBFill() Dim str As String, mydb As Database, myws As Workspace Dim name As String, price As Integer, amount As Integer, dis As Integer, counter As Integer, prodfac As String dbn = "Prob1.mdb" Path = ThisWorkbook.Path + "\" Set myws = DBEngine.Workspaces(0) Set mydb = myws.OpenDatabase(Path + dbn) counter = 1 Do While Cells(counter, 1).Value <> "" prodfac = Cells(counter, 5).Value name = Cells(counter, 1).Value price = Cells(counter, 2).Value amount = Cells(counter, 3).Value dis = Cells(counter, 4).Value str = "INSERT INTO product (prod_name,prod_price,prod_amount,prod_dis,prod_fac) VALUES ('" & name & "'," & vbLf & _ " '" & price & "','" & amount & "','" & dis & "', '" & prodfac & "')" mydb.Execute (str) counter = counter + 1 Loop End Sub Sub sform() UserForm1.Show End Sub ПРИЛОЖЕНИЕ Б Текст программы по расчету стоимости товара с учетом скидки Dim rs As DAO.Recordset Public Sub ComboBox1_Change() Dim str As String Set myws = DBEngine.Workspaces(0) Path = ThisWorkbook.Path + "\" dbn = "Prob1.mdb" Set mydb = myws.OpenDatabase(Path + dbn) If ComboBox1.Value = "Все" Then str = "SELECT * FROM product" Set rs = mydb.OpenRecordset(str, dbOpenSnapshot) Else str = "SELECT * FROM product WHERE prod_fac LIKE '" & ComboBox1.Value & "' " Set rs = mydb.OpenRecordset(str, dbOpenSnapshot) End If rs.MoveFirst Label1.Caption = "Код в БД: " & rs.Fields("prod_key") TextBox1.Text = rs.Fields("prod_name") TextBox2.Text = rs.Fields("prod_price") TextBox3.Text = rs.Fields("prod_dis") TextBox5.Text = rs.Fields("prod_amount") End Sub Private Sub CommandButton2_Click() Dim str As String If rs.BOF = True Then rs.MoveLast Label1.Caption = "Код в БД: " & rs.Fields("prod_key") TextBox1.Text = rs.Fields("prod_name") TextBox2.Text = rs.Fields("prod_price") TextBox3.Text = rs.Fields("prod_dis") TextBox5.Text = rs.Fields("prod_amount") Else rs.MovePrevious If rs.BOF = True Then rs.MoveLast Label1.Caption = "Код в БД: " & rs.Fields("prod_key") TextBox1.Text = rs.Fields("prod_name") TextBox2.Text = rs.Fields("prod_price") TextBox3.Text = rs.Fields("prod_dis") TextBox5.Text = rs.Fields("prod_amount") End If TextBox4.Text = CInt(TextBox2.Text) * CInt(TextBox5.Text) TextBox6.Text = "" TextBox7.Text = "" End Sub Private Sub CommandButton3_Click() Dim str As String If rs.EOF = True Then rs.MoveFirst Label1.Caption = "Код в БД: " & rs.Fields("prod_key") TextBox1.Text = rs.Fields("prod_name") TextBox2.Text = rs.Fields("prod_price") TextBox3.Text = rs.Fields("prod_dis") TextBox5.Text = rs.Fields("prod_amount") Else rs.MoveNext If rs.EOF = True Then rs.MoveFirst Label1.Caption = "Код в БД: " & rs.Fields("prod_key") TextBox1.Text = rs.Fields("prod_name") TextBox2.Text = rs.Fields("prod_price") TextBox3.Text = rs.Fields("prod_dis") TextBox5.Text = rs.Fields("prod_amount") End If TextBox4.Text = CInt(TextBox2.Text) * CInt(TextBox5.Text) TextBox6.Text = "" TextBox7.Text = "" End Sub Private Sub CommandButton4_Click() Dim idk1 As Double, idk2 As Double idk1 = CDbl(TextBox4.Text) * (CDbl(TextBox3.Text) / 100) TextBox6.Text = idk1 idk2 = CDbl(TextBox4.Text) - idk1 TextBox7.Text = idk2 End Sub Public Sub UserForm_Initialize() Dim str As String Set myws = DBEngine.Workspaces(0) Path = ThisWorkbook.Path + "\" dbn = "Prob1.mdb" Set mydb = myws.OpenDatabase(Path + dbn) str = "SELECT * FROM product" Set rs = mydb.OpenRecordset(str, dbOpenSnapshot) If ComboBox1.Value = "" Then ComboBox1.AddItem ("Все") ComboBox1.Value = "Все" ComboBox1.AddItem ("Продукты питания") ComboBox1.AddItem ("Бытовая химия") ComboBox1.AddItem ("Одежда") ComboBox1.AddItem ("Обувь") End If If rs.RecordCount = 0 Then Exit Sub Else rs.MoveFirst Label1.Caption = "Код в БД: " & rs.Fields("prod_key") TextBox1.Text = rs.Fields("prod_name") TextBox2.Text = rs.Fields("prod_price") TextBox3.Text = rs.Fields("prod_dis") TextBox5.Text = rs.Fields("prod_amount") End If TextBox4.Text = CInt(TextBox2.Text) * CInt(TextBox5.Text) End Sub 1 Полную версию кода программы можно найти в Приложении А 2 Полный код формы имеется в приложении Б |