Разработка информационной системы в учете лекарственных средств
Содержание
Введение
.
Теоретическая часть
.1
Необходимость автоматизации
.2
Какие ИС нужны аптеке
.3
Тенденции и перспективы
.
Аналитическая часть
.1
Характеристика объекта автоматизации
.
Проектная часть
.1
Постановка задачи
.2
Программное обеспечение
. Экономическая
часть
.1
Выбор и обоснование методики расчета экономической эффективности
.2
Расчет показателей экономической эффективности проекта
Заключение
Список
использованной литературы
Приложение
А
Введение
Данный курсовой проект посвящен теме разработки информационной системы в
учете лекарственных средств.
Объектом разработки является информационная система для накопления,
доступа, обработки и администрирования информации, хранящейся в базе данных
сети аптек.
На сегодняшний день в мире информационные технологии достигли высокого
уровня развития. В связи с этим некоторые сети аптек используют автоматические
средства, позволяющие эффективно хранить, обрабатывать и распределять
накопленные данные. Исходя из современных требований, предъявляемых к качеству
работы предприятия, нельзя не отметить, что их эффективная работа всецело
зависит от уровня оснащения информационными средствами на базе компьютерных
систем автоматизированного учета.
При организации учета в сети аптек важную роль играют программные и технические
средства автоматизации как мобильные, так и стационарные: сканеры штрих кодов,
принтеры этикеток, терминалы сбора данных. Все это, наряду с программным
обеспечением, позволяет вести учет товара в тот момент, когда он перемещается
или продается. Темп современного бизнеса не позволяет откладывать процесс
регистрации движения товаров.
В этой связи тема настоящего курсового проекта является на сегодняшний
день актуальной значимой для эффективного функционирования сети аптек
Цель курсового проекта - разработать информационную систему учета
лекарственных средств, которая обеспечит корректное ведение базы данных,
содержащих данные о товарном ассортименте, клиентах и поставщиках, приходе и
расходе товара, счетах, счетах-фактурах, накладных, чеках, а также дополнить ее
средствами точного и частичного поиска информации, обеспечения ссылочной
целостности базы данных, формирования различных отчетов т.д.
Объектом исследования является сеть аптек "Солнечная"
Разрабатываемая система предназначена для автоматизации
торгово-закупочной деятельности предприятия с учетом всех требований,
выдвигаемых к программному обеспечению специфичному в рамках данной предметной
области.
Основной задачей данного проекта является создание диалоговой
автоматизированной системы управления торговой деятельностью, позволяющей
устранить недостатки настоящих торговых процессов.
Важной задачей создания системы является сокращение времени на проведение
основных операций персоналом организации, что, безусловно, должно повлечь за
собой качественные улучшения в деятельности организации.
Формирование достоверной информации в виде различных отчетов и диаграмм,
для объективной оценки текущего состояния дел на предприятии.
Система должна обеспечивать выполнение функций, связанных с ведением
учета закупок и продаж продукции, а именно программа должна обеспечивать:
1. Корректное ведение базы данных (добавление, удаление, редактирование
записей);
2. Вести учет прихода/расхода товаров;
. Данные должны иметь возможность выгрузки в MS Excel. Также
должна быть возможность графического отображения выходных данных.
. Общим требованием системы является создание дружественного
интерфейса, с помощью которого пользователь мог бы легко и быстро занести
информацию в базу данных, по вышеперечисленным требованиям.
В дополнение к основным функциям для практического использования должен
быть разработан пользовательский интерфейс (сделан компактнее и
систематизирован).
Программа должна:
обладать развитым графическим интерфейсом. С данной программой смогут
работать пользователи различной квалификации.
позволять заносить и хранить информацию в базе данных, редактировать её,
формировать отчёты.
значительно уменьшить затраты времени на составление текущей документации
и итоговых отчетов, исключает возможность ошибок в расчетах, может
использоваться в различных масштабах, т.е. может работать с огромным
количеством данных, не требует перепрограммирования при смене моделей
оборудования, характеристиках, ценах и т.п.
Программа должна быть создана в инструментальной среде разработки
приложений Borland Delphi 7.0, реализующей современные подходы к
программированию: объектно-ориентированный подход и визуальные средства быстрой
разработки приложений.
1.
Теоретическая часть
.1
Необходимость автоматизации
Аптека - это в первую очередь точка, где осуществляются продажи, поэтому
многие бизнес-процессы здесь те же, что и в обычном магазине. Перечень задач,
подлежащих автоматизации в отдельной (самостоятельной) аптеке, включает в себя:
. бухгалтерский учет;
2. заказ товара у поставщиков (широкий ассортимент и наличие
большого числа поставщиков диктуют необходимость реализации электронного заказа
с применением специальных возможностей для сравнения цен разных поставщиков);
. анализ товародвижения и формирование аналитических отчетов по
разным группам товаров;
. регистрация и учет продаж.
Для аптечной сети список таких задач будет более длинным, в него входят,
например, ведение классификаторов товаров, централизованный финансовый и
планово-экономический учет, логистика (переброска товара со склада в розничные
точки), управление персоналом. Помимо этого в зависимости от принятых схем
работы заказ товара у поставщиков может осуществляться либо централизованно,
либо самими точками продаж (т. е. децентрализовано). То же относится и к
ценообразованию: расценка фарм-препаратов может осуществляться как
непосредственно в аптеках, так и в центральном офисе.
Кроме того, сегодня в рознице для активизации продаж применяют целый
спектр инструментов для повышения лояльности потребителей. "Один из них -
дисконтные программы разного типа. Они включают в себя проведение ограниченных
по времени действия рекламных акций; кроме того, востребовано ведение
автоматизированной работы с врачами и возможность бронирования товара по
телефону. Интегрированный в систему справочник "Видаль" позволяет
непосредственно из терминала программы осуществлять выбор препарата по
болезням, АТХ и фармгруппам, предоставляя доступ к аннотациям препаратов,
информации об аналогах и их наличии в аптеке".
Однако помимо задач, сходных с задачами любой розничной точки (или сети
магазинов), в аптечном деле существует немало специфических бизнес-процессов,
требующих нестандартного подхода и других (нежели в обычной торговле)
алгоритмов решения.
Во-первых, аптечные сети работают с огромным ассортиментом и практически
все товары в аптеке имеют сроки годности. "Это предъявляет специфические
требования к информационной системе, которая должна располагать функционалом
для учета сроков годности нескольких тысяч позиций. Еще одной особенностью
товарного ассортимента в аптеке является наличие нескольких видов одного и того
же препарата: это может быть один медикамент в различных формах выпуска -
спрей, гель, мазь и т. д., в различных дозировках, препараты для детей,
взрослых и т. д. ИС должна позволять просматривать и выбирать товарные позиции,
перемещаясь по каталогу товаров, создавая подгруппы в рамках одной группы
товара, и помогать осуществлять оперативный поиск препарата в процессе работы с
клиентом".
Во-вторых, в аптеках ведется строгий партионный учет (иногда учет по
серийным номерам) в соответствии с требованиями GMP, особенно если есть
собственное производство (приготовление лекарств на заказ). "В последнем
случае данный стандарт (GMP) предусматривает обеспечение определенного
документооборота, правил хранения, а также учет по составу вещества в сырье.
Здесь имеется своя специфика: все поступающие партии субстанций, препаратов
проходят в аптеках обязательный входной контроль. Все действия, связанные с
получением, производством, распределением, в том числе и с контролем,
описываются стандартными процедурами. Контроль выполняется в соответствии с
фармакопеей, сборником стандартов и положений, регламентирующих качество
лекарственных средств (ЛС). Уникальный номер присваивается каждой партии для
того, чтобы можно было на готовый препарат собрать досье серии, где указываются
место и дата приобретения всех компонентов (субстанций, вспомогательных
веществ), которые входят в готовый препарат согласно спецификации, а также
приводятся результаты испытаний этих компонентов, условия производства и ход
технологического процесса (сколько, при какой температуре выдерживалась смесь,
какие происходили реакции и т. д.). Кроме того, существует такое понятие, как
спецификация. Это перечень веществ, входящих в готовый препарат. Обычно здесь
указывается, какую влажность и/или какую концентрацию активного вещества в
субстанции должны иметь компоненты, из которых готовится ЛС, а следовательно, и
информационная система должна иметь функционал для работы с учетом массы,
влажности, содержания активного вещества".
В отношении готовых препаратов важность партионного учета также не
вызывает сомнения, так как могут возникнуть ситуации, когда необходимо изъять
целую партию бракованного товара. Производителю надо знать, куда она разошлась -
по каким торговым точкам, через каких дистрибьюторов. ИС должна давать
возможность отследить путь движения бракованного товара практически до
покупательского чека.
Эксперты называют еще ряд функций, обязательных для аптечной
информационной системы: расценка товара в соответствии с правилами
регулируемого ценообразования на отдельные группы ЛС, по серийный учет ЛС и
отслеживание забракованных серий, наличие функции отпуска по льготным и
бесплатным рецептам и персонифицированный учет отпуска данного вида ЛС больным,
имеющим право на льготы; отслеживание фальсификатов, контроль за обязательным
ассортиментом, специальный учет ряда групп ЛС - сильнодействующие ЛС, группы А
и Б и пр. Организация справочной службы с функцией предоставления информации о
наличии товара в любом подразделении аптечной сети в режиме реального времени,
взаимодействие автоматизированной системы управления аптекой с внешними
справочными системами, работа с банковскими картами; возможность использования
подарочных сертификатов, промо акций, торговли "по образцам".
Для обеспечения всех этих запросов необходимы ИС, обладающие
соответствующим функционалом.
.2 Какие ИС нужны аптеке
автоматизация ассортимент аптека лекарство
Базовый комплект ПО для аптеки должен обеспечивать
электронное взаимодействие с поставщиками (от заказа до приходования
накладных), ведение партионного учета, контроль сроков годности и забракованных
серий медицинских препаратов, возможность возврата товара поставщику (например,
в случаях когда у лекарства, лежащего в аптеке, заканчивается срок годности или
обнаруживаются какие-то дефекты) и возврата товара от потребителя (если,
скажем, обнаруживается, что данная партия - фальсификат) переоценку товара,
межаптечную переброску товара для сетей и аптек с удаленными киосками, розничную
реализацию (кассовый модуль), инвентаризацию, выгрузку данных в систему
бухгалтерского учета и предоставление оперативной отчетности.
Средняя аптека сегодня включает следующее
оборудование: два-три автоматизированных торговых места на базе фискального
регистратора (компьютер, собственно фискальный регистратор, сканер штрих кодов,
дисплей покупателя, денежный ящик), один компьютер материально-ответственного
лица, один компьютер в качестве сервера БД.
В аптеках с открытой выкладкой могут также применяться
системы безопасности (в частности, антикражные устройства) и видеонаблюдения. В
крупных торговых сетях уже существует практика интеграции таких систем с ИС
(например, с кассовыми системами - для предотвращения или пресечения
злоупотреблений персонала и покупателей), но в аптечном деле, даже в крупных
сетях это пока мало востребовано в связи со вторичностью такой задачи по
отношению к автоматизации основных бизнес-процессов.
Система контроля доступа (СКД) может применяться для
учета посещений склада с медикаментами. "Связано это с тем, что аптеки
работают с наркотическими препаратами, и для предотвращения злоупотреблений с
этими продуктами СКД очень эффективны. Их интеграция с бэк-офисом позволяет
создать единое информационное пространство и в режиме реального времени
контролировать посещаемость склада. В случае каких-либо нарушений система
помогает легко выявить виновного. Кроме того, это дает возможность жестко
ограничить и доступ к хранящейся здесь информации. Таким способом топ-менеджер
компании получает полное представление о системе безопасности во всей сети и
может вовремя отслеживать возникновение нештатных ситуаций и принимать меры для
их разрешения".
Ключевыми критериями при выборе ИС являются:
· стоимость базового комплекта и услуг
технической поддержки (что особенно критично для не сетевых аптек);
· возможность своевременных доработок
системы под новые требования рынка и пожелания заказчика (пользователя);
· невысокие требования к оборудованию
(сервер, рабочее место директора, рабочее место кассира) - это позволяет
избежать дополнительных затрат на закупку нового оборудования и использовать
уже имеющиеся в наличии компьютеры;
· поддержка системой большого спектра
периферии (фискальные регистраторы, сканеры штрих кода, дисплеи покупателя,
термопринтеры печати штрих кода и т. п.);
· наличие и доступная цена
дополнительных модулей для увеличения функционала базового комплекта (особенно
важно для динамично развивающихся аптечных учреждений);
· для используемой СУБД важны стоимость
самой СУБД и дополнительных лицензий на рабочее место, квалификация
ИТ-персонала для администрирования;
· способность взаимодействовать с
наиболее распространенными программами бухгалтерского учета.
Для аптечных сетей, особенно крупных и динамично
развивающихся, иерархия ключевых критериев будет несколько другой, чем для
отдельных аптек. Так, здесь на первое место выйдут высокие требования к СУБД,
используемой в офисе для консолидации данных, а также к аппаратной части офиса
(сервер, рабочее место менеджера). Для крупных аптечных сетей рекомендуется
оборудование, гарантирующее отказоустойчивость и бесперебойность в работе, так
как сбои в офисном оборудовании могут оказывать негативное влияние на всю
аптечную сеть.
Очень важно, чтобы в ИС была возможность оперативной
консолидации данных, для быстрого обмена информацией о наличии товара в режиме
реального времени как между несколькими аптеками одной сети, так и между
аптеками сети и центральным офисом. Центральный офис получает от аптек отчеты о
реализации товаров и на их основе осуществляет планирование закупок.
Чрезвычайно важна также масштабируемость ИС, особенно на современном этапе,
когда аптечные сети быстро увеличиваются. Если компания растет более чем на 30%
в год, это значит, что система должна легко справляться с увеличением числа
пользователей.
Большое количество периферийного оборудования,
поддерживаемого системой, приобретает особую актуальность для межрегиональных
аптечных сетей. Сегодня нельзя забывать также и об эквайринговых системах:
обеспечение работы с кредитными картами стало уже распространенной практикой, а
уход от отдельного EFT-терминала к встроенному снижает время обслуживания
клиента и, главное, устраняет ошибки, вызванные дополнительным ручным вводом
информации.
Важен для сетевых аптек и такой критерий, как
стоимость доработки ПО по индивидуальным заказам: как правило, крупные аптечные
сети со временем вырабатывают собственное ноу-хау, следуя маркетинговым
тенденциям в своих регионах, и предоставляют запросы на доработку ПО с учетом
местной специфики.
Иными словами, необходимо обратить внимание на
следующее: клиент в конечном итоге покупает не программу, а технологию, в
которой существенны не только функционал ИС, но и время внедрения, стоимость
проекта и совокупная стоимость владения продуктом (TCO, включающая в том числе
и стоимость адаптации и сопровождения).
.3 Тенденции и перспективы
Как уже упоминалось, одной из наиболее серьезных
тенденций сегодня является интенсивное развитие аптечных сетей и уменьшение
количества независимых аптек. Понятно, что не только полноценное развитие, но и
само существование торговой сети ныне невозможно без использования
соответствующих ИТ. Именно поэтому, наиболее востребованными будут решения,
позволяющие централизованно, но в то же время гибко управлять ассортиментом, маркетинговыми
программами, ценовой политикой в рамках аптечной сети. При этом должны
соблюдаться высокие требования к надежности работы ПО в аптеках с тем, чтобы не
росли издержки, связанные с его эксплуатацией. Преимущество получат компании,
предлагающие решения не для аптеки как таковой, а для сети аптек и использующие
в качестве платформы высоконадежные СУБД.
Одно из новых направлений на этом рынке, создание
компаний, берущих на аутсорсинг управление товарными запасами аптеки, ценовой
политикой, маркетинговыми программами. Аптеки при этом сохраняют юридическую и
финансовую независимость и получают имеющиеся у аптечных сетей преимущества в
отношении уровня цен (при закупках товара у поставщиков) и использования труда
высококвалифицированных (и, следовательно, высокооплачиваемых) менеджеров.
Интересной тенденцией на фармацевтическом рынке
является и рождение новых торговых форматов: так, сегодня актуальны уже не
просто аптеки, где продаются только лекарственные препараты, но так называемые
"магазины здоровья", где можно купить препараты по уходу за
внешностью, получить консультацию офтальмолога, который может работать здесь
же, и т. п. Для обеспечения работы таких комплексных торговых центров, нужны ИС
с расширенным спектром возможностей.
Однако и независимые аптеки не желают сдавать позиции,
стремясь к оптимизации работы, к прозрачности учета товародвижения и финансовых
средств с помощью ИТ. Ведь небольшим аптекам зачастую достаточно автоматизации
приходования товара, печати накладных и ценников и ведения необходимой
первичной документации. Для самостоятельных аптек (впрочем, и для многих сетей)
важными критериями являются удобство системы в эксплуатации, простота в
обучении персонала работе с ПО, а также стоимость и качество обслуживания.
Сегодняшнее состояние автоматизации аптечной розницы
во многом напоминает ситуацию с внедрением ИТ в торговых сетях несколько лет
назад, когда комплексный подход к автоматизации здесь еще только зарождался, не
все виды ИС были востребованы, не было особых требований к интеграции систем.
Кстати, и тот факт, что в беседах с экспертами нам не удалось получить оценки
общего объема этого сегмента рынка, говорит о начальной стадии его развития.
"На данном этапе автоматизации аптечных учреждений комплексный подход в
основном заключается во внедрении бухгалтерской и учетной системы. Одно лишь
сокращение дублирования ввода высвобождает до 50% времени персонала, как
правило, имеющего высокую квалификацию и получающего за свой труд немалое
вознаграждение. Кроме того, предоставление доступа к данным за всю историю
работы аптечного предприятия дает возможность использования специализированных
систем прогнозирования спроса.
Сегодня в секторе традиционного (не фармацевтического)
ритейла аналитические системы и пакеты для планирования и прогнозирования уже
используются наиболее продвинутыми участниками рынка, и недалек тот день, когда
они станут неотъемлемой принадлежностью каждой уважающей себя торговой сети.
Поэтому тот факт, что о подобных системах уже задумываются участники
фармацевтического рынка, ясно говорит о том, что он активно набирает обороты. И
вполне возможно, что темпы его развития будут выше, чем в свое время у обычного
(не фармацевтического) ритейла; опираясь на опыт последнего (в сочетании с
пришедшими сюда уже заметными капиталами), сегмент аптечной розницы может
сделать в ближайшее время очень существенный рывок.
2.
Аналитическая часть
.1 Характеристика объекта автоматизации
Объектом исследования является ТОО "Аптека "Солнечная" по
продаже по продаже лекарственных средств.
ТОО "Аптека "Солнечная" создана в 2001 году. В 2005 году
было открыто 2 аптеки, в 2007 еще 2, на данный момент ТОО "Аптека
"Солнечная" насчитывает 9 филиалов.
В нашей стране, как и во многих других странах, в аптечном бизнесе на
первое место стали выходить именно сети аптек. Это можно объяснить следующими
факторами.
Во-первых, сетевые аптеки закупают намного большие партии препаратов, чем
отдельные аптеки, соответственно они получают гораздо большие скидки на
закупочные цены, им может быть предоставлена отсрочка платежа, или они даже
могут себе позволить осуществлять закупки непосредственно у самого
производителя.
Во-вторых, сети аптек имеют централизованный аппарат управления, что
значительно сокращает издержки на маркетинговые исследования, издержки по учету
и финансированию, сокращает складские затраты.
В-третьих, сеть аптек может позволить себе сделать качественную рекламу
для привлечения клиентов. Может проводить различные акции, предоставлять скидки
определенным слоям населения, выдавать дисконтные и накопительные карты.
Кроме этого, как правило, в подобных аптеках мы можем найти очень большой
ассортимент не только лекарственных препаратов, но и различных сопутствующих
товаров - это косметические лечебные средства, предметы личной гигиены, детское
питание и различные товары для детей, их мам и беременных женщин. Это настоящая
семейная аптека, где можно приобрести продукцию для здоровья всех членов семьи.
Все это позволяет привлечь в аптеку широкие слои населения, так как практически
любой человек, зайдя туда, сможет купить все необходимое для всей семьи.
Важный пункт - это наличие в аптеке квалифицированного персонала, а
особенно врача, у которого можно получить консультацию по поводу того или иного
заболевания. Естественно, что лучше всего обращаться к врачу в поликлинике, но
бывают случаи, когда такой возможности просто нет, и тогда врач-консультант в
аптеке, именно врач, а не просто провизор - просто находка! В таких же
экстренных случаях незаменимы аптеки круглосуточные. В любой сети аптек есть
круглосуточные аптеки, причем располагаться они должны в разных частях города,
одна из которых обязательно должна быть в центре.
Это самые главные факторы, по которым в наших городах практически
перевелись одиночные аптеки, зато есть много аптек, аптечных киосков или
круглосуточных аптек, принадлежащих одной компании.
Во внешней системе ТОО "Аптека "Солнечная" выполняет роль
посредника между производителями товаров и клиентами на эту продукцию. Наглядно
это можно увидеть из рисунка 1.
Рисунок 1. Схема внешней среды фирмы
ТОО "Аптека "Солнечная" ведет оптовую и розничную
торговлю. Удовлетворяя потребности розничных торговцев, предприятие оптовой
торговли получает доход от торговой надбавки на продаваемые товары.
Продукция поступает от оптовых фирм и реализуется непосредственно
потребителям, нуждающимся в данном виде товаров.
Приемка товаров по количеству и качеству осуществляется в соответствии с
инструкциями, принятыми в организации.
Приемка товаров по количеству - это сверка массы, числа мест, единиц
фактически поступивших товаров с показателями сопроводительных документов.
Приемка товаров по качеству - это выявление качества и комплектности
товара, соответствия тары, упаковки, маркировки установленным требованиям, а
также сопроводительным документам.
После приемки товара необходимое его количество поступает в торговый зал,
а остальная часть перемещается в складские помещения. При организации хранения
товаров основное внимание должно быть уделено борьбе с товарными потерями.
Рациональная организация хранения предполагает создание условий хранения
товаров в соответствии с их физико-химическими свойствами, оптимальное
размещение товаров в местах хранения с учетом времени их поступления и
очередности продажи, частоты спроса, эффективного использования площади
кладовых.
Опишем организационную структуру управления предприятием.
Во главе фирмы стоит директор, который решает в основном управленческие
вопросы, а также вопросы стратегического характера. Он контролирует
деятельность всех отделов. Также в его компетенции вопросы движения финансовых
потоков. Директор назначается Учредителем Финансовый директор анализирует,
прогнозирует и соответственно разрабатывает стратегию развития фирмы в области
финансов. Он возглавляет финансовый отдел: несет ответственность в соответствии
с должностной инструкцией. Закупкой товаров занимается отдел снабжения. В его
функции также входит поиск новых поставщиков с более выгодными условиями
поставки. Этот отдел решает вопросы закупки по всему ассортименту. Закупка
производится на основании заявок покупателей и остатков на складах.
Отдел бухгалтерии включает в себя три подотдела: это главный бухгалтер,
выписка, платежи и касса.
Главный бухгалтер ведет бухгалтерский учет, делает баланс, различные
встречные сверки, считает все налоги и решает вопросы, возникающие в отделах,
находящихся в его подчинении.
В процессе исследования существующей системы обработки экономической
информации на предприятии ТОО "Аптека "Солнечная" были выявлены
недостатки.
Рассмотрим организационные недостатки:
. В организации минимально используется персональный компьютер.
. Нерациональное использование средств информационных технологий.
. Недостаточная квалификация сотрудников.
Среди технических недостатков следует отметить отсутствие единой информационной
системы, обеспечивающей централизованное хранение данных, сквозной учет
реализации товара и автоматизированную подготовку всех необходимых печатных
документов.
Важным требованием к программному обеспечению для аптеки является
возможность быстрого освоения всего учетного комплекса, как хозяином аптеки,
так и персоналом. Большинство аптек использует упрощенную схему и работает на
едином налоге. При этом предприниматель нередко принимает активное участие в
ведении учета. Как правило, у него нет времени на освоение основ бухгалтерии.
Программа должна "общаться" на языке, понятном предпринимателю. Это
значительно упрощает освоение системы и её последующую эксплуатацию.
3.
Проектная часть
.1
Постановка задачи
Создать программное приложение "Учет лекарственных средств",
организующее операции с лекарствами (регистрация, продажа, учет и т.д.),
прибыль за месяц.
Приложение должно предоставлять отчеты, включающие расчеты самых
популярных лекарств и самых популярных показаний за месяц.
Опишем основы функционирования рассматриваемого объекта, то есть
"Справочник фармацевта", с помощью программы BP Win.
На нулевом уровне входными данными служат: информация о лекарствах,
информация о поставщиках, заказ.
Косвенно на данное предприятие влияют законы, устав предприятия и спрос.
Сотрудники и оборудование также имеют очень важное значение на работу
предприятия, поэтому они также косвенно влияют на него.
Выходными данными являются: доход, отчеты и ответ на заказ.
Рисунок 2 - Функциональная диаграмма 0 уровень
В результате, можно разработать логическую структуру БД, используя
программу ERWin.
Структура Базы данных.
Рис. 3. Логическая структура БД
Таблица 2 - Физическая структура базы данных
3.2
Программное обеспечение
Программный продукт "Учет лекарственных средств" разработан на Microsoft Access 2003 и Borland Delphi 7.
Access
2003 входит в состав Microsoft Office 2003, и как
другие компоненты работает в среде Windows 2000 и выше.
Практический минимум, предъявляемым Access 2003 к персональному компьютеру, является Pentium 2 и 64 Мб при работе под Windows 2000. При стандартной установке
набора приложений: Word, Excel, Outlook, Power Point, Access, FrontPage требуется примерно 250 Мб на жестком
диске. Рекомендуется монитор SVGA,
возможно использование VGA.
Microsoft Access - это
функционально полная реляционная СУБД. В ней предусмотрены все необходимые
инструментальные средства для определения и обработки данных, а также для
управления ими при работе с большими объемами информации. Что касается легкости
использования, то Microsoft Access совершил здесь настоящий переворот,
и многие для создания своих собственных баз данных и приложений обращаются именно
к нему.
Microsoft Access
предоставляет максимальную свободу в задании типа ваших данных (текст, числовые
данные, даты, время, денежные значения, рисунки, звук, документы, электронные
таблицы). Вы можете задать также форматы хранения (длина строки, точность
представления чисел и даты времени) и предоставления этих данных при выводе на
экран или печать. Для уверенности, что в базе данных хранятся только корректные
значения, можно задать условия на значения различной степени сложности.
В Access вы можете при помощи макросов или Access Basic осуществлять динамический обмен данными с другими
приложениями. OLE позволяет установить связь с
объектами другого приложения или внедрить какие-либо объекты в базу данных
Access. Такими объектами могут быть картинки, диаграммы, электронные таблицы
или документы из других, поддерживающих OLE приложений Windows.
Microsoft Access может
работать с большим числом самых разнообразных форматов данных, включая файловые
структуры других СУБД. СУБД позволяет работать с данными, применяя различные
способы. Например, вы можете выполнить поиск информации в отдельной таблице или
создать запрос со сложным поиском по нескольким связанным между собой таблицам
или файлам. С помощью одной единственной команды можно обновить содержание отдельного
поля или нескольких записей. Для чтения и корректировки данных, вы можете
создать процедуры, использующие функции СУБД. У многих систем имеются развитые
возможности для ввода данных и генерации отчетов.
В Microsoft Access для обработки данных ваших таблиц используется мощный
язык SQL (Structured Query Language - Структурированный язык запросов).
Используя, вы можете выделить из одной или нескольких таблиц необходимую для
решения конкретной задачи информацию. Access значительно упрощает задачу обработки данных.
Для написания программы была выбрана среда визуального программирования
Borland Delphi 7.
Синтаксис Borland Delphi 7 основан на языке программирования Object Pascal. Borland Delphi 7 полностью поддерживает ООП
(объектно-ориентированное программирование), что значительно расширяет
возможности среды.
Еще одним немаловажным достоинством выбранной среды Borland Delphi 7
является то, что Borland Delphi 7 во всем мире считается одним из самых простых
сред программирования, и, в отличие от всех широко распространенных сред
программирования, является строго типизированным, что позволяет свести
количество ошибок практически к нулю (за исключением логических ошибок
алгоритма).Delphi 7 предоставляет широкий спектр средств по управлению базами
данных, имеющих даже различные технологии структуры и поддержки.
Для разработки базы данных в данной программе выбор пал на технологию ADO, корпорации Microsoft, за свои широкие возможности и
простоту использования.
В соответствии с структурной - схемой, приведенной выше в пункте
"Структурная схема", в представленной программе разработаны
программные модули на Borland Delphi 7. А также
запросы на языке Microsoft Access 2003 .
В ходе выполнения программы возможно появление на экране сообщений:
. Сообщение "Ошибка чтения базы данных".
Ошибка возникает при невозможном чтении файла базы данных.
При этом оператор должен:
. Проверить наличие файла "task.mdb" Возможно, файл не существует
или находится в другой папке, нежели программа.
. Возможно, причиной ошибки послужила неисправность носителя.
. Сообщение "Несоответствие дат".
Ошибка возникает при генерации отчета из-за неправильно введенных дат.
При этом оператор должен:
Проверить правильность написания дат.
Главная форма
Рисунок 4 - Главная форма
Описание работы:
Отражение основной информации из таблиц БД Лекарства и Склад.
Строка Найти: осуществляет поиск лекарства по начальным буквам в его
названии.
Рисунок 5 - Отбор данных по условию
Строка Поставщики: осуществляет поиск поставщика по его коду в таблице
Поставщики с отражением названия лекарства, его количества на складе и даты
поставки и вывод результата в отдельной форме "Результат поиска".
Рисунок 6 - Результат поиска
Раздел Заказ:
Название - выбор лекарства
Дата - указание даты
Цена - указание цены лекарства
Сумма - подсчет общей суммы заказа
По нажатию кнопки Ок производится продажа лекарства с занесением
информации во таблицу Заказ с отражением его в форме Отчет по продажам.
Меню Редактировать:
Рисунок 7 - Меню Редактировать
Добавить запись - осуществляет вызов формы Добавить / редактировать
лекарство с занесением добавленных данных в таблицы Лекарства и Склад.
Рисунок 8 - Форма Добавить / редактировать лекарство
Редактировать запись - осуществляет вызов формы Добавить / Редактировать
лекарство с обновлением исправленных данных в таблицах Лекарства и Склад.
Рисунок 9 - Форма Добавить / редактировать лекарство
Меню Отчеты
Рисунок 10 - Меню Отчеты
Осуществляет вызов формы Отчет по продажам.
Рисунок 11 - Форма Отчет по продажам
Меню Поставщики
Рисунок 12 - Меню Поставщики
Осуществляет вызов формы Поставщики.
Рисунок 13 - Форма Поставщики
Кнопка Добавить - осуществляет вызов формы Добавить / редактировать
поставщика с занесением добавленных данных в таблицу Поставщики.
Рисунок 14 - Форма Добавить / редактировать поставщика
Кнопка Редактировать - осуществляет вызов формы Добавить / редактировать
поставщика с обновлением исправленных данных в таблицу Поставщики.
Рисунок 15 - Форма Добавить / редактировать поставщика
Кнопка Удалить - осуществляет удаление текущей записи из таблицы
Поставщики.
Кнопка Выход - закрывает данную форму.
Меню Справочники
Рисунок 16 - Меню справочники
Осуществляет вызов форм Города и Типы лекарств.
Рисунок 17 - Форма Города
Рисунок 18 - Форма Тип лекарства
Меню Сортировка
Рисунок 19 - Меню сортировка
Осуществляет сортировку лекарств по названию или по цене в таблице
Лекарства.
Меню Выход
Рисунок 20 - Меню Выход
4.
Экономическая часть
.1 Выбор и
обоснование методики расчета экономической эффективности
Смета затрат включает следующие статьи:
основная заработная плата разработчиков информационной системы;
дополнительная заработная плата разработчиков информационной системы;
отчисления на социальные страхования;
расчет затрат на амортизацию ЭВМ;
расходы на электроэнергию, используемую при разработке информационной
системы;
накладные расходы.
Рассмотрим более подробно каждую из указанных статей затрат.
Оплата труда представляет совокупность средств, выплаченных работникам в
денежной и натуральной форме как за отработанное время, выполненную работу, так
и в установленном законодательством порядке за неотработанное время. Начисление
основной заработной платы производится в зависимости от принятых на предприятии
форм оплаты труда. При повременной оплате труда основная заработная плата
начисляется работникам за фактически отработанное время, а при сдельной за фактически
выполненную работу.
Повременная форма оплаты труда находит применение при расчете заработной
платы рабочих, служащих, специалистов и руководителей. При этой форме оплаты
труда заработная плата рассчитывается исходя из месячного должностного оклада
за проработанное время. Необходимо учесть начисление доплат за сверхурочные
работы. Доплата начисляется сверх повременного заработка из расчета 20%
тарифной ставки рабочего-повременщика.
Таким образом, рассмотрим те составляющие затрат, которые будут затронуты
модернизацией информационной системы. В результате сокращения рабочего времени
заработная плата работников предприятия не изменится, т.к. им установлен
фиксированный оклад, а не часовая тарифная ставка. Более того, за работу в
сверхурочные часы не производится их оплата с соответствующей индексацией (в
3-х кратном размере), за переработанные часы сотрудники могут быть награждены
персональными премиями или могут взять отгулы. Поэтому от повышения
оперативности выполнения работ прямого сокращения затрат не будет. Но будет
уменьшен общий фонд оплаты труда в результате сокращения должностей, главным
образом должностей контролирующих и перепроверяющих. Ожидается, что тот же
объем работ в новой системе смогут выполнить в 1,5 раза меньше работников, чем
при существующей традиционной системе.
Затраты на основную заработную плату (Зосн.) при повременной
форме оплаты труда рассчитываются по формуле (1):
Зосн.=Омес.*Траб.* Кд/Др.мес.,
(1)
где: Омес. - месячный оклад продавца;
Др.мес. - среднее количество рабочих дней в месяце;
Траб. - фактическое отработанное время
Кд - коэффициент, учитывающий доплаты к основной зарплате
В год на работу для ТОО "Аптека "Солнечная" примерно
рассчитано определенное количество канцелярских материалов - бумаги, пишущих
принадлежностей и прочих - на сумму Sk1, которая в году составила 100 000
тенге. Прекращение использования обычных носителей информации в большинстве
операций на хранение и обработку данных в центральном сервере сократит эти
расходы на 70-80%. Конечный вывод данных на бумагу потребуется только для тех
отчетов, которые используются руководством как официальные документы.
Т.о. снижение затрат на расходные материалы определяется из выражения:
DЗр.м. = 0.7 * Sk1;
(2)
где Sk1 - сумма годовых расходов на канцтовары;
DЗр.м. = 0.7 * Sk1
= 70 000 тенге.
Норма работы в месяц 146 часов. Реально же некоторые работники работают
сверхурочно, что приводит к перерасходу электроэнергии. Настольный компьютер,
который выполняет функции рабочего места налогового инспектора, потребляет в
среднем Npc = 350 Вт.
Перерасход электроэнергии за год составит:
где T - количество часов, отработанных
пользователями сверхурочно, за год
T =
1321 час примерно за год.
Егод = 350 * 1321 = 462350 Вт.
Если финансисты будут успевать выполнять свою работу в рабочее время, то
снижение затрат в результате экономии э/энергии составит:
DЗээ = Егод * Цкв, (4)
где Цкв - цена одного кВт*ч э/энергии. Цкв = 3
тенге;
DЗээ = 462350 * 1.50 * 10-3 = 1400 тенге;
Итого имеем материальных преимуществ введения новой системы финансового
учета на сумму снижения издержек в течение года:
DИS = DЗз/п + DЗр.м. + DЗээ (5)
DИS = 1 200
000 + 266 000 + 1400 = 1 467 400 тенге
.2 Расчет
показателей экономической эффективности проекта
Для построения системы мы используем существующую ЛВС. В ее состав
входят:
·
файл-сервер сети Windows Server;
·
компьютеры на
базе Pentium 4;
·
кабельная система
на основе тонкого коаксиального кабеля;
·
активное
кабельное оборудование.
По техническим характеристикам сеть подходит для создания на ее основе
клиент/серверной системы финансового учета. Для этого необходимы дополнительные
компоненты:
·
сервер баз
данных;
·
программное
обеспечение для сервера БД;
·
программное
обеспечение для клиентских компьютеров;
Цена сервера баз данных на основе Pentium IV составит:
Цсбд = 200 000 тенге
Сетевая карта Intel EtherExpress Pro для сервера БД D-Link 10-100
Цск = 1500 тенге
Сетевая ОС Windows
NT 4.0
Цос = 60 000 тенге
Программный сервер на 10 одновременных подключений:
Цпс = 140 000 тенге
Для внедрения новой системы рассчитывается использовать группу из 3-х
специалистов.
Время разработки системы определено как:
Tp = 1000 часов, или 6 месяцев.
Т.о. затраты на оплату труда разработчиков составят:
Зпрог = Зз/п * 18 = 60 000 * 18 = 360 000 тенге;
Пакет Delphi 7.0 имеет рыночную стоимость
ЦDelphi = 250 000 тенге
Итого единовременные капиталовложения составят:
К = Цсбд + Цск + Цос +Цпс + Зпрог
+ ЦDelphi, (6)
К = 200 000 + 18 500 + 175 000 + 140 000 + 360 000 + 250 000 = 1 143 500
тенге.
Годовая эффективность создания системы определяется из выражения:
Эг = DЗ/(Ен
+ Кр), (7)
где DЗ - изменение
размера затрат на создание и обслуживание информационной системы определяется
из выражения:
DЗ = DИS - К(Ен + Кр),
(8)
где DИS - абсолютное изменение издержек
работы отдела;
Ен - норматив эффективности капвложений, для компьютерной
техники и программного обеспечения принимается равным 0.15;
Кр - коэффициент реновации, принимается как норма амортизации
с учетом срока службы существующего оборудования (срок службы системы Тсл
- 3 года) и определяется по формуле:
Кр = Ен / ((1 + Ен)Тсл - 1),
(9)
Кр = 0.15 / ((1 + 0.15)3 - 1) = 0.29;
Тогда, изменение размера затрат составит:
DЗ = 1 466 700 - 1 143 500*(0.15+0.29) = 963 560 тенге,
Таким образом годовая эффективность планируется в размере
Эг = 963 560 / (0.15+0.29) = 2 189 909 тенге.
Теперь мы можем определить срок окупаемости Ток создания новой системы из
выражения:
Ток = К / Эг, (10)
Ток = 1 143 500 / 2 189 909 = 0,52 года.
Причем данный срок окупаемости учитывает только материальные преимущества
создания новой системы.
Таким образом, мною осуществлен расчет всех затрат на создание системы и
обоснованы все преимущества ее внедрения.
Заключение
В результате проделанной работы разработана информационная система (ИС)
для сети аптек "Солнечная". Система разработана в соответствии с
требованиями заказчика, учитывая особенности данной предметной области.
Информационная система создана в инструментальной среде визуальной
разработки приложений Borland Delphi 7.0 В результате была разработана
информационная система учета торгового предприятия. Информационная система
поддерживает все операции, связанные с учетом, обработкой и предоставлением
необходимых данных. Данная система обеспечивает ввод, удаление, хранение и
редактирование информации, которая содержится в таблицах данных.
Эти возможности позволяют вести отчетную документацию, формировать итоги
работы, хранить данные о лекарствах и их ценах, поставщиках, и т.п.
С приложением несложно работать даже неопытному пользователю. Она
красочно оформлена (добавлены картинки, иконки и т.п.) чтобы пользователю было
приятно и весело работать в данной программе.
Данный проект может быть более подробно и тщательно разработан в будущем,
что принесет его разработчику немалую прибыль.
Система Delphi позволяет решать множество задач, в частности:
1. Создавать законченные приложения для Windows самой различной
направленности: от чисто вычислительных и логических, до графических и
мультимедиа.
2. Быстро создавать (даже начинающим программистам) профессионально
выглядящий оконный интерфейс для любых приложений.
. Создавать мощные системы работы с локальными и удаленными базами
данных
4. Создавать справочные системы (файлы. hlp) для своих приложений и мн.
др.
Delphi - это комбинация нескольких важнейших технологий:
1. Высокопроизводительный компилятор в машинный код
2. Объектно-ориентированная модель компонент
. Визуальное (а, следовательно, и скоростное) построение приложений
из программных прототипов
4. Масштабируемые средства для построения баз данных.
Целью курсовой работы было изучение языка программирования DELPHI и
разработка практических заданий.
При выполнении курсовой работы:
1. была изучена теория и технология работы с средой программирования Borland Delphi7;
2. была изучена и проанализирована соответствующая литература;
3. был проведён сравнительный анализ языков этого класса и показаны
преимущества и недостатки языка Delphi;
4. были приведены элементы методической работы в виде разработки
вариантов заданий (из прикладных областей) для учащихся старших классов школ
изучающих Delphi на уроках информатики.
Информационная система значительно уменьшает затраты времени на
составление текущей документации и итоговых отчетов, исключает возможность
ошибок в расчетах, может использоваться в различных масштабах, т.е. может
работать с огромным количеством данных, не требует перепрограммирования при
смене моделей оборудования, характеристиках, ценах и т.п.
Таким образом, задание на курсовой проект выполнено в полном объеме.
Разработанная информационная система полностью удовлетворила требованиям
заказчика и находится на стадии внедрения.
Список использованной литературы
1. Шумаков П.В. "Delphi 7 и разработка приложений
баз данных." - М.: "Нолидж", 2007 год;
2. http://www.licinfo.com.ua/ru/biznes-plan-seti-aptek.html
. http://www.aip.ru/list_articles/preimushestva_.html.
4. http://www.nedug.ru/news/популярно_о_здоровье/2000/5/22/Будущее-за-аптечными-сетями#.VI3aiFVwt6Q.
5. Омарова Ш.Е., Дрозд В.Г., Косова Е.Г. -Учебное пособие
"Проектирование баз данных".
6. Пестриков, В.М. Delphi на примерах / В.М. Пестриков,
А.Н. Маслобоев. - СПб. : БХВ-Петербург, 2005. - 496 с.
7. Стивене, Р. Delphi. Готовые алгоритмы / Род Стивене;
Пер. с англ. Мерещука П.А. - 2-е изд., стер. - М. : ДМК Пресс; СПб. : Питер,
2004. - 384 с.
8. www.wikipedia.com
9. Сапков В.В. Информационные технологии и компьютеризация
делопроизводства: учебное пособие. Киев: ACADEMIA, 2009.
10. Тен Т.Л., Муканова Ж.А. Программные средства ИС/
уч.пособие. - Караганда: КЭУК, 2010
11. Тен Т.Л., Муканова Ж.А. Программные средства ИС/
уч.-практ.пособие для ДО. - Караганда: КЭУК, 2009
. Лабор В.В. Си Шарп: Создание приложений для Windows/ В.В. Лабор. - Мн.: Харвест, 2003
13. http://business-up.ucoz.ru/publ/2-1-0-10
14. Тимошонок, Т. Microsoft Access 2003. Краткое
руководство /Т. Тимоше-нок.− М:Вильямс, 2005. - 320с.
15. Cамоучитель MS Access. [Электронный ресурс]. - Режим
доступа: http://www.taurion.ru/access.
16. http://business.gov.kz/ru/aspiring-entrepreneurs/business-ideas/detail.php?ID=60897
17. Когловский М.Р. - Технология баз данных на персональных
ЭВМ.- М.: Финансы и статистика, 2008.
18. Информатика / Под ред. Н.В. Макаровой. М.: Финансы и
статистика, 2010.
19. Орлов С.А. Технология разработки программного
обеспечения: Учебник. - СПб.: Питер, 2008..
20. http://www.1001statya.ru/
21. http://forum.triz-ri.ru/forum/mess.asp?thr=19407
22. Strange K. Magic Quadrant for Data Warehouse
DBMSs// Gartner Research Note M-22-2154. 2011
Приложение А
|
unit Unit1;
interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics,
Controls, Forms, Dialogs, Grids, DBGrids, Menus, ImgList, StdCtrls, DBCtrls,
Mask, Buttons; type TForm1 = class(TForm) DBGrid1: TDBGrid; MainMenu1:
TMainMenu; ImageList1: TImageList; N1: TMenuItem; N2: TMenuItem; N3:
TMenuItem; N5: TMenuItem; N6: TMenuItem; N7: TMenuItem; N8: TMenuItem; N9:
TMenuItem; N10: TMenuItem; N11: TMenuItem; N12: TMenuItem; N13: TMenuItem;
N14: TMenuItem; N4: TMenuItem; DBGrid2: TDBGrid; Edit1: TEdit; Label1:
TLabel; N15: TMenuItem; N16: TMenuItem; N17: TMenuItem; GroupBox1: TGroupBox;
N18: TMenuItem; Label2: TLabel; Label3: TLabel; DBEdit2: TDBEdit; Label4:
TLabel; DBEdit3: TDBEdit; Label5: TLabel; DBEdit4: TDBEdit; Label6: TLabel;
DBEdit5: TDBEdit; DBLookupComboBox1: TDBLookupComboBox; BitBtn1: TBitBtn;
BitBtn2: TBitBtn; Label7: TLabel; Edit2: TEdit; BitBtn3: TBitBtn; Label8:
TLabel; DBEdit1: TDBEdit; Label9: TLabel; DBEdit6: TDBEdit; Label10: TLabel;
procedure FormClose(Sender: TObject; var Action: TCloseAction); procedure
N4Click(Sender: TObject); procedure N5Click(Sender: TObject); procedure
N8Click(Sender: TObject); procedure N9Click(Sender: TObject); procedure
Edit1Change(Sender: TObject); procedure N7Click(Sender: TObject); procedure
N13Click(Sender: TObject); procedure N14Click(Sender: TObject); procedure
N11Click(Sender: TObject); procedure N16Click(Sender: TObject); procedure
N18Click(Sender: TObject); procedure BitBtn1Click(Sender: TObject); procedure
BitBtn2Click(Sender: TObject); procedure BitBtn3Click(Sender: TObject);
procedure DBLookupComboBox1Click(Sender: TObject); private { Private
declarations } public { Public declarations } end; var Form1: TForm1;
implementation uses Unit2, Unit3, Unit4, Unit5, Unit6, Unit7, Unit8, Unit9,
Unit10; {$R *.dfm} procedure TForm1.FormClose(Sender: TObject; var Action:
TCloseAction); begin if DataModule2.ADOTable1.Modified then
DataModule2.ADOTable1.Post; if DataModule2.ADOTable2.Modified then
DataModule2.ADOTable2.Post; end; procedure TForm1.N4Click(Sender: TObject);
begin DataModule2.ADOTable1.Insert; DataModule2.ADOTable2.Insert;
Form3.ShowModal; end; procedure TForm1.N5Click(Sender: TObject); begin
Form3.ShowModal; end; procedure TForm1.N8Click(Sender: TObject); begin
DataModule2.ADOTable1.IndexFieldNames:='Название'; end; procedure TForm1.N9Click(Sender:
TObject); begin DataModule2.ADOTable1.IndexFieldNames:='Цена';
end; procedure TForm1.Edit1Change(Sender: TObject); begin if
Length(Edit1.Text)>0 then DataModule2.ADOTable1.Filtered:=true else
DataModule2.ADOTable1.Filtered:=false; DataModule2.ADOTable1.Filter:='Название>'''+Edit1.Text+''''; end; procedure TForm1.N7Click(Sender:
TObject); begin Form4.Show; end; procedure TForm1.N13Click(Sender: TObject);
begin Form6.Show; end; procedure TForm1.N14Click(Sender: TObject); begin
Form7.Show; end; procedure TForm1.N11Click(Sender: TObject); begin
Form1.Close; end; procedure TForm1.N16Click(Sender: TObject); begin
Form8.Show; end; procedure TForm1.N18Click(Sender: TObject); begin
Form9.Show; end; procedure TForm1.BitBtn1Click(Sender: TObject); begin
DataModule2.ADOTable6.Post; DataModule2.ADOQuery2.Active:=false; DataModule2.ADOQuery2.SQL.Clear;
DataModule2.ADOQuery2.SQL.Add('UPDATE Склад'); DataModule2.ADOQuery2.SQL.Add('SET
Склад.[Количество на складе]=Склад.[Количество на
складе]-'''+DBEdit4.Text+''''); DataModule2.ADOQuery2.SQL.Add('WHERE Склад.[Код]
LIKE '''+DBEdit1.Text+''''); DataModule2.ADOQuery2.ExecSQL;
DataModule2.ADOTable2.Refresh; DataModule2.ADOTable6.Refresh; end; procedure
TForm1.BitBtn2Click(Sender: TObject); begin DataModule2.ADOTable6.Insert;
end; procedure TForm1.BitBtn3Click(Sender: TObject); begin DataModule2.ADOQuery1.Active:=false;
DataModule2.ADOQuery1.SQL.Clear; DataModule2.ADOQuery1.SQL.Add('Select Поставщики.[Код поставщика], Лекарства.[Название], Склад.[Количество на складе], Склад.[Дата поставки]'); DataModule2.ADOQuery1.SQL.Add('FROM Поставщики INNER JOIN (Склад INNER JOIN Лекарства ON Склад.[Ключ]=Лекарства.[Ключ]) ON Поставщики.[Код поставщика]=Склад.[Код поставщика]'); DataModule2.ADOQuery1.SQL.Add('WHERE
Поставщики.[Код поставщика] LIKE '''+Edit2.Text+'''');
DataModule2.ADOQuery1.Active:=true; Form10.ShowModal; end; procedure
TForm1.DBLookupComboBox1Click(Sender: TObject); begin
DataModule2.ADOQuery3.Active:=false; DataModule2.ADOQuery3.SQL.Clear;
DataModule2.ADOQuery3.SQL.Add('Select Лекарства.[Ключ], Лекарства.[Цена]'); DataModule2.ADOQuery3.SQL.Add('FROM Лекарства'); DataModule2.ADOQuery3.SQL.Add('WHERE Лекарства.[Ключ] LIKE '''+DBEdit6.Text+'''');
DataModule2.ADOQuery3.Open; DBEdit3.Text:=DataModule2.ADOQuery3.FieldValues['Цена'];
DataModule2.ADOQuery3.Active:=True; DataModule2.ADOTable6.Refresh; end; end.
unit Unit2; interface uses SysUtils, Classes, DB, ADODB; type TDataModule2 =
class(TDataModule) ADOConnection1: TADOConnection; ADOTable1: TADOTable;
DataSource1: TDataSource; ADOTable2: TADOTable; DataSource2: TDataSource;
ADOTable1DSDesigner: TAutoIncField; ADOTable1DSDesigner3: TWideStringField;
ADOTable1DSDesigner5: TDateTimeField; ADOTable1DSDesigner6: TBCDField;
ADOTable2DSDesigner: TAutoIncField; ADOTable2DSDesigner2: TDateTimeField;
ADOTable2DSDesigner3: TWideStringField; ADOTable2DSDesigner4:
TWideStringField; ADOTable3: TADOTable; ADOTable4: TADOTable; ADOTable5:
TADOTable; DataSource3: TDataSource; DataSource4: TDataSource; DataSource5:
TDataSource; ADOTable1DSDesigner2: TWideStringField; ADOTable2DSDesigner6:
TIntegerField; ADOTable3DSDesigner: TWideStringField; ADOTable3DSDesigner2:
TWideStringField; ADOTable3DSDesigner3: TWideStringField;
ADOTable3DSDesigner4: TWideStringField; ADOTable3DSDesigner5:
TWideStringField; ADOTable4DSDesigner: TAutoIncField; ADOTable4DSDesigner2:
TWideStringField; ADOTable5DSDesigner: TAutoIncField; ADOTable5DSDesigner2:
TWideStringField; ADOTable6: TADOTable; DataSource6: TDataSource;
ADOTable6DSDesigner: TAutoIncField; ADOTable6DSDesigner2: TDateTimeField;
ADOTable6DSDesigner3: TIntegerField; ADOTable6DSDesigner5: TWideStringField;
ADOTable6DSDesigner6: TBCDField; ADOTable6Field: TIntegerField; ADOQuery1:
TADOQuery; DataSource7: TDataSource; ADOTable2_: TWideStringField; ADOQuery2:
TADOQuery; DataSource8: TDataSource; ADOQuery3: TADOQuery; DataSource9:
TDataSource; ADOQuery4: TADOQuery; procedure ADOTable6CalcFields(DataSet:
TDataSet); private { Private declarations } public { Public declarations }
end; var DataModule2: TDataModule2; implementation uses Unit9; {$R *.dfm}
procedure TDataModule2.ADOTable6CalcFields(DataSet: TDataSet); begin
DataModule2.ADOTable6Field.Value:=DataModule2.ADOTable6DSDesigner6.AsInteger*DataModule2.ADOTable6DSDesigner3.AsInteger;
end; end. unit Unit3; interface uses Windows, Messages, SysUtils, Variants,
Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, Mask, DBCtrls,
ComCtrls, Buttons, ExtCtrls; type TForm3 = class(TForm) DBEdit1: TDBEdit;
Label1: TLabel; Label2: TLabel; Label3: TLabel; Label4: TLabel;
DBLookupComboBox1: TDBLookupComboBox; DBEdit2: TDBEdit; BitBtn1: TBitBtn;
DBEdit3: TDBEdit; DBEdit4: TDBEdit; DBEdit5: TDBEdit; DBEdit6: TDBEdit;
DBEdit7: TDBEdit; Label5: TLabel; Label6: TLabel; Label7: TLabel; Label8:
TLabel; Label9: TLabel; DBLookupComboBox2: TDBLookupComboBox; Image1: TImage;
Label10: TLabel; procedure BitBtn1Click(Sender: TObject); private { Private
declarations } public { Public declarations } end; var Form3: TForm3;
implementation uses Unit2, Unit1; {$R *.dfm} procedure
TForm3.BitBtn1Click(Sender: TObject); begin if DataModule2.ADOTable1.Modified
then DataModule2.ADOTable1.Post; if DataModule2.ADOTable2.Modified then
DataModule2.ADOTable2.Post; Close; end; end. unit Unit4; interface uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, Grids, DBGrids, Menus, StdCtrls; type TForm4 = class(TForm) DBGrid1:
TDBGrid; Button1: TButton; Button2: TButton; Button3: TButton; Button4:
TButton; procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure Button1Click(Sender: TObject); procedure Button2Click(Sender: TObject);
procedure Button3Click(Sender: TObject); procedure Button4Click(Sender:
TObject); private { Private declarations } public { Public declarations }
end; var Form4: TForm4; implementation uses Unit2, Unit5, Unit1, Unit3; {$R
*.dfm} procedure TForm4.FormClose(Sender: TObject; var Action: TCloseAction);
begin if DataModule2.ADOTable3.Modified then DataModule2.ADOTable3.Post; end;
procedure TForm4.Button1Click(Sender: TObject); begin
DataModule2.ADOTable3.Edit; DataModule2.ADOTable3.Insert; Form5.Show; end;
procedure TForm4.Button2Click(Sender: TObject); begin Form5.Show; end;
procedure TForm4.Button3Click(Sender: TObject); begin if
Application.MessageBox(PChar('Ты действительно хочешь удалить '
+DataModule2.ADOTable3DSDesigner.AsString), 'Внимание!!!', MB_OKCANCEL)=id_OK
then DataModule2.ADOTable3.Delete; end; procedure TForm4.Button4Click(Sender:
TObject); begin Form4.Close; end; end. unit Unit5; interface uses Windows,
Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs,
DBCtrls, StdCtrls, Mask; type TForm5 = class(TForm) Label1: TLabel; DBEdit1:
TDBEdit; Label2: TLabel; DBEdit2: TDBEdit; Label3: TLabel; Label4: TLabel;
DBEdit4: TDBEdit; Label5: TLabel; DBLookupComboBox1: TDBLookupComboBox;
Button1: TButton; DBComboBox1: TDBComboBox; procedure Button1Click(Sender:
TObject); private { Private declarations } public { Public declarations }
end; var Form5: TForm5; implementation uses Unit2, Unit1, Unit4, Unit3; {$R
*.dfm} procedure TForm5.Button1Click(Sender: TObject); begin DataModule2.ADOTable3.Post;
Form5.Close; end; end. unit Unit6; interface uses Windows, Messages,
SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, Grids,
DBGrids, StdCtrls, Buttons; type TForm6 = class(TForm) DBGrid1: TDBGrid;
Button1: TButton; Button2: TButton; procedure FormClose(Sender: TObject; var
Action: TCloseAction); procedure Button1Click(Sender: TObject); procedure
Button2Click(Sender: TObject); private { Private declarations } public {
Public declarations } end; var Form6: TForm6; implementation uses Unit1,
Unit2; {$R *.dfm} procedure TForm6.FormClose(Sender: TObject; var Action:
TCloseAction); begin if DataModule2.ADOTable4.Modified then
DataModule2.ADOTable4.Post; end; procedure TForm6.Button1Click(Sender:
TObject); begin Form6.Close; end; procedure TForm6.Button2Click(Sender:
TObject); begin DataModule2.ADOTable4.Edit; DataModule2.ADOTable4.Insert;
end; end. unit Unit7; interface uses Windows, Messages, SysUtils, Variants,
Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, Grids, DBGrids; type
TForm7 = class(TForm) DBGrid1: TDBGrid; Button1: TButton; Button2: TButton;
procedure Button2Click(Sender: TObject); procedure Button1Click(Sender:
TObject); private { Private declarations } public { Public declarations }
end; var Form7: TForm7; implementation uses Unit2; {$R *.dfm} procedure
TForm7.Button2Click(Sender: TObject); begin Form7.Close; end; procedure
TForm7.Button1Click(Sender: TObject); begin DataModule2.ADOTable5.Edit;
DataModule2.ADOTable5.Insert; end; end. unit Unit8; interface uses Windows,
Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs,
StdCtrls, jpeg, ExtCtrls; type TForm8 = class(TForm) Image1: TImage; Label1:
TLabel; Label2: TLabel; Label3: TLabel; Label4: TLabel; Label5: TLabel;
Label6: TLabel; private { Private declarations } public { Public declarations
} end; var Form8: TForm8; implementation {$R *.dfm} end. unit Unit9;
interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics,
Controls, Forms, Dialogs, Grids, DBGrids, StdCtrls, Buttons, RpRave,
RpDefine, RpCon, RpConDS, DB, ADODB, ComCtrls; type TForm9 = class(TForm)
DBGrid1: TDBGrid; BitBtn1: TBitBtn; procedure FormCreate(Sender: TObject);
private { Private declarations } public { Public declarations } end; var
Form9: TForm9; implementation uses Unit2, Unit1; {$R *.dfm} procedure
TForm9.FormCreate(Sender: TObject); begin if DataModule2.ADOTable6.Modified
then DataModule2.ADOTable6.Post; end; end. unit Unit10; interface uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, Grids, DBGrids; type TForm10 = class(TForm) DBGrid1: TDBGrid;
private { Private declarations } public { Public declarations } end; var
Form10: TForm10; implementation uses Unit2; {$R *.dfm} end.
|