Автоматизация учёта данных в медицинском кабинете на предприятии ОАО "Алеся"
Возможные варианты функционирования предприятия на примере ОАО "Алеся". Медицинская документация предприятия, сбор данных для определения содержимого проектируемой системы. Разработка модулей автоматизации средством VBA. Проектирование базы данных.
| Рубрика | Программирование, компьютеры и кибернетика |
| Вид | дипломная работа |
| Язык | русский |
| Дата добавления | 13.10.2017 |
| Размер файла | 4,3 M |
Отправить свою хорошую работу в базу знаний просто. Используйте форму, расположенную ниже
Студенты, аспиранты, молодые ученые, использующие базу знаний в своей учебе и работе, будут вам очень благодарны.
Размещено на http://www.allbest.ru/
Министерство образования Республики Беларусь
Учреждение образования
«Международный государственный экологический институт
имени А.Д. Сахарова»
Белорусского государственного университета
Факультет мониторинга окружающей среды
Кафедра экологических информационных систем
автоматизация учёта данных в медицинском кабинете на предприятии оао «алеся»
Дипломная работа студентки VI курса
СОНЧИК Александры Анатольевны
____________А.А. Сончик
«Допустить к защите»
Зав. кафедрой экологических информационных систем
к.ф.-м.н., доцент _________В.А. Иванюкович
«____»________________2017г.
Научный руководитель Старший преподаватель
____________И.В. Лефанова
Минск 2017
Министерство образования Республики Беларусь
Учреждение образования
«Международный государственный экологический институт
имени А. Д. Сахарова» Белорусского государственного университета
Задание по подготовке дипломной работы
Студентке Сончик Александре Анатольевне
1.Тема работы Автоматизация учёта данных в медицинском кабинете на предприятии ОАО «Алеся »
(утверждена решением кафедры от _______________ 2017, № _____)
2.Срок сдачи законченной работы 25 мая 2017 г.
3.Исходные данные к работе: формы входной и отчетной документации, должностная инструкция
4. Перечень подлежащих разработке в дипломной работе вопросов или краткое содержание дипломной работы:
а) характеристика организации, её структура;
б) информационная структура предприятия;
в) создание базы данных, в медицинский кабинет;
5.Перечень графических материалов.
6.Консультанты по работе с указанием относящихся к ним разделов работы.
7.Дата выдачи задания 5 февраля 2017 г.
8. График выполнения дипломной работы:
февраль 2017 г. - изучение литературы по теме дипломной работы.
март 2017 г.- написание литературного обзора, изучение программных средств, используемых при автоматизированной обработке данных (1 - 2 главы).
апрель-май 2017 г. - практическое выполнение задания на дипломную работу и его теоретическое обоснование (3 - 4 глава); подготовка презентации.
Реферат
Дипломная работа 47 страниц, 46 рисунков, 13 источника.
БД, СУБД, РЕЛЯЦИОННАЯ МОДЕЛЬ, ТАБЛИЦА, ПРОЕКТИРОВАНИЕ, СУЩНОСТИ, АТРИБУТ, ПЛАНИРОВАНИЕ, РЕЛЯЦИОННАЯ СТРУКТУРА, ПЕРВИЧНЫЙ КЛЮЧ, ЗАПРОС, SQL, МОДУЛЬ, ФУНКЦИЯ, VBA, ГРАФИК, ДИАГРАММА.
Предмет исследования: средства автоматизации ведения документации в медицинском кабинете ОАО «Алеся».
Объект исследования: Система учёта работы медицинского кабинета ОАО «Алеся».
Цель работы: разработка информационной системы учёта данных в медицинском кабинете на предприятии ОАО «Алеся»средствами СУБД MicrosoftOfficeAccess.
Основные задачи:
· Изучить систему учёта посещения медицинского кабинета на предприятии, также информацию ведения журналов в медицинском кабинете.
· Разработать программное обеспечение для учёта данных в медицинском кабинете.
Программное обеспечение внедрено для использования на предприятии ОАО «Алеся».
Рэферат
Дыпломная работа47старонак, 46малюнкаў, 13 крыніцы.
БД, СКБД, РЭЛЯЦЫЙНАЯ МАДЭЛЬ, ТАБЛІЦА, ПРАЕКТАВАННЕ, СУТНАСЦІ, АТРЫБУТ, ПЛАНАВАННЕ, РЭЛЯЦЫЙНАЯ СТРУКТУРА, ПЕРШАСНЫ КЛЮЧ, ЗАПЫТ, SQL, МОДУЛЬ, ФУНКЦЫЯ, VBA, ГРАФІК, ДЫЯГРАМА.
Прадмет даследавання: сродкі аўтаматызацыі вядзення дакументацыі ў медыцынскім кабінеце ААТ «Алеся».
Аб'ект даследаванні: Сістэма уліку работы медыцынскага кабінетаААТ «Алеся».
Мэта работы: распрацоўка інфармацыйнай сістэмы ўліку дадзеных у медыцынскім кабінеце на прадпрыемстве ААТ «Алеся» сродкамі СКБД Microsoft Office Access.
Асноўны язадачы:
* Вывучыць сістэму ўліку наведвання медыцынскага кабінета на прадпрыемстве, таксама інфармацыю вядзення часопісаў у медыцынскім кабінеце.
* Распрацаваць праграмнае забеспячэнне для ўліку дадзеных у медыцынскім кабінеце.
Праграмнае забеспячэнне ўкаранёна для выкарыстання на прадпрыемстве ААТ «Алеся».
Abstract
Thesis 47 pages, 46 figures, 13source.
DATABASE, DBMS, RELATIONAL MODEL, TABLE, DESIGN, ENTITIES, ATTRIBUTES, PLANNING, RELATIONAL STRUCTURE, PRIMARY KEY, QUERY, SQL, MODULE, FUNCTION, VBA, GRAPH, CHART.
Subject of research: automation of documentation in the medical office of JSC "Ales".
Object of study: accounting System of the medical office of JSC "Ales".
Objective: to develop an information system for data collection in the medical office of the company JSC "Ales" a means of database Microsoft Office Access.
Key tasks:
* Study the accounting system of visiting the medical office for enterprise information logging in a medical office.
* To develop software to account for the data in the medical room.
The software is implemented for use at the enterprise of JSC "Ales".
ПЕРЕЧЕНЬ ОБОЗНАЧЕНИЙ И СОКРАЩЕНИЙ:
HTML - Hyper Text Markup Language (язык гипертекстовой разметки)
ICQ - Программа обмена сообщениями
QIP - QuietInternetPager
SQL - StructuredQueryLanguage (языкструктурированныхзапросов)
ОАО - Открытое акционерное общество
БД - База данных
ГКФ - Главная кнопочная форма
СУБД - Система управления базой данных
ОГЛАВЛЕНИЕ
ВВЕДЕНИЕ
ГЛАВА 1. ПРЕДПРИЯТИЕ ОАО «АЛЕСЯ»
1.1 Организационная структура предприятия ОАО «АЛЕСЯ»
1.2 Мощность предприятия, занимаемая доля рынка
1.3 Возможные варианты функционирования предприятия
1.4 Информационная инфраструктура предприятия ОАО «АЛЕСЯ»
ГЛАВА 2. ИНСТРУМЕНТЫ РАЗРАБОТКИ В СРЕДЕ ПРОГРАММЫ СУБД
2.1 Функциональные возможности MS ACCES
2.2 Создание модуля в VBA
ГЛАВА 3. РАЗРАБОТКА И РЕАЛИЗАЦИЯ БАЗЫ ДАННЫХ
3.1 Медицинская документация предприятия ОАО «Алеся», сбор данных для определения содержимого проектируемой системы
3.2 Проектирование базы данных
3.2.1 Определение сущностей
3.2.2 Определение взаимосвязей между сущностями
3.2.3 Задание первичных ключей
3.3 Разработка запросов
3.4 Создание объектов базы данных
3.4.1 Главная кнопочная форма
3.4.2 Формирование отчётов
ГЛАВА 4. разработка модулей автоматизации средством VBA
ЗАКЛЮЧЕНИЕ
СПИСОК ИСПОЛЬЗОВАННЫХ ИСТОЧНИКОВ
ПРИЛОЖЕНИЕ А
ПРИЛОЖЕНИЕ Б
ПРИЛОЖЕНИЕ В
ПРИЛОЖЕНИЕ Г
ВВЕДЕНИЕ
В последние годы бурное развитие новых технологий сделали актуальным использование баз данных в организациях различных форм собственности и направлений деятельности. Успехи в исследованиях и разработке баз данных стали основой фундаментальных разработок коммуникационных систем, транспорта и логистики, финансового менеджмента, методов доступа к научной литературе, а также многих гражданских и военных приложений. Они послужили фундаментом значительного прогресса в ведущих областях науки -от информатики до биологии.
Базы данных лежат в основе информационных систем, и это коренным образом изменило характер работы многих предприятий и организаций. Цель базы данных - помочь людям и организациям вести учет, осуществлять информационную поддержку при принятии решений. Базы данных представляют собой особую организацию данных и предполагают использование специальных программно - языковых средств. Базы данных - это сложные взаимосвязанные информационные образования, предназначенные для многоцелевого использования. Проектирование и разработка базы данных на основе реляционных моделей данных требуют, с одной стороны, знания предметной области, а с другой, владения современными информационными технологиями. Структурная независимость реляционной базы данных и ее независимость по данным позволяет исследовать логическую структуру модели без обращения к физическим аспектам хранения и извлечения данных. Одна из самых важных причин простоты реляционной модели базы данных состоит в том, что она отвечает на вопрос какие данные необходимо извлечь, а не как извлечь данные.
Проектирование и разработка базы данных являются одними из основных видов деятельности для специалистов в области управления информационными ресурсами.
Предмет исследования: средства автоматизации ведения документации в медицинском кабинете ОАО «Алеся».
Объект исследования: Система учёта работы медицинского кабинета ОАО «Алеся».
Цель работы: разработка информационной системы учёта данных в медицинском кабинете на предприятии ОАО «Алеся», средствами СУБД MicrosoftOfficeAccess.
Основные задачи:
· Изучить систему учёта посещения медицинского кабинета на предприятии, также информацию ведения журналов в медицинском кабинете.
· Разработать программное обеспечение для учёта данных в медицинском кабинете.
Программное обеспечение внедрено для использования на предприятии ОАО «Алеся».
ГЛАВА 1. ХАРАКТЕРИСТИКА ПРЕДПРИЯТИЯ ОАО «АЛЕСЯ»
Открытое акционерное общество «Алеся» является одним из предприятий трикотажной отрасли, входящих в концерн «Беллегпром».
Возникновение предприятия обусловлено развитием трикотажной отрасли в Беларуси. Становление трикотажного предприятия началось 20.06.1958 г., когда артель «Светлый путь» была переименована в артель «Красный трикотажник».
С 01.07.1961 г. в связи с объединением фабрик им. Крупской и «Красный трикотажник»фабрика переименована в фабрику им. Крупской.
Предприятие размещалось в 2-х приспособленных одноэтажных корпусах.
С 03.08.1962 г. в связи с объединением фабрик им. Крупской и «Прогресс» фабрика переименована в «Прогресс». Это и есть историческая дата образования предприятия. Было установлено оборудование 1948-1950 годов.
В связи с отсутствием государственных средств, коллектив вновь сформированного предприятия, поставил перед собой задачу: «Построим новую фабрику своими руками за счет средств предприятия, хозяйственным способом».
За 2,5 года был построен и сдан в эксплуатацию 2-х этажный производственный корпус и установлено новое технологическое оборудование.
В последующие 5 лет построен 4-х этажный административный корпус с клубом на 500 мест и столовой на 250 посадочных мест.
Производственные цеха были оснащены передовым в то время технологическим оборудованием как импортного, так и отечественного производства кругловязальными и плосковязальными машинами: «Мультикомет», «Одзи-нов», «Унио», «Метин», ПВПЭМ, ПВРК и др., швейным оборудованием фирмы «Римольди» и др.
С 12.05.1975 г. трикотажная фабрика «Прогресс» переименована в Минское производственное трикотажное объединение «Прогресс».
С 01.04.1986 г. в связи с реорганизацией МПТО «Прогресс» - предприятие переименовано в Минскую опытно - экспериментальную фабрику верхнего трикотажа.
С 20.11.1986 г. Минская опытно - экспериментальная фабрика верхнего трикотажа переименована в Республиканский Дом моделей трикотажных изделий.
С 16.04.1991 г. изменен статус Республиканского Дома моделей трикотажных изделий с переименованием его в Минскую промышленно-торговую трикотажную фирму «Алеся», которая с 31 октября 2000 года преобразована в ОАО «Алеся»[1].
В своей деятельности фабрика руководствуется:
- Уставом предприятия;
- Положением о предприятии;
- Законодательными актами РБ.
ОАО "Алеся" специализируется на производстве изделий верхнего трикотажа для взрослых и детей. Модели изготавливаются из натуральных и синтетических волокон и нитей, из купонов с плосковязальных машин, из деталей с плосковязальных и котонных машин.
Продукция ОАО «Алеся» рассчитана в основном на удовлетворение потребностей женщин и мужчин среднего возраста, предпочитающих невычурный, классический стиль в одежде, удобство и комфорт.
В 2011 году выпущена пробная линия трикотажных изделий школьной формы. Изделия выполнены из высококачественного полушерстяного сырья, благодаря которому одежда обладает хорошей воздухопроницаемостью, гигроскопичностью, хорошо сохраняет тепло. В ближайшее время планируется выпуск полноценной коллекции детской одежды, в которой будут присутствовать все группы изделий: жакеты, джемпера, жилеты, свитера, платья, юбки. Кроме детской одежды предприятием был освоен выпуск ограниченной линии трикотажных изделий для беременных как из полушерстяной, и из хлопкосодержащей пряжи. Модельные особенности данной коллекции учитывают все нюансы и особенности женских фигур, находящихся «в положении».
Ассортимент моделей, разрабатываемых на предприятии, охватывает современные тенденции в индустрии моды верхнего трикотажа. Отличительные особенности производимой продукции: модная цветовая гамма, интересные конструктивные решения, лаконичные формы и силуэты, элегантный стиль, высокие эксплуатационные характеристики, удобство и направленность.
Качество продукции ОАО "Алеся" отвечает самым высоким европейским критериям. Мы используем только высококачественное сырьё и вспомогательные материалы. Высокое качество изделий обеспечивается разработкой и внедрением прогрессивных технологий, созданием унифицированной технологии обработки узлов и деталей, применением в производстве различного парка новейшего вязального оборудования, швейного, отделочного. Натуральное высококачественное сырьё, использование высокотехнологичного оборудования и последних технологических разработок в области производства трикотажа позволяет тем самым не только достойно конкурировать на рынке с отечественными аналогами, но и максимально близко приближаться к уровню аналогичных изделий зарубежных производителей [1].
У предприятия имеется зарегистрированный товарный знак «ALESYA» (рисунок 1) и товарная марка изделий класса «люкс» - «MoStyle» (рисунок 2).
Рисунок 1 - Товарный знак
Рисунок 2 - Товарная марка изделий
На предприятии сертифицирована система качества в соответствии с международными стандартами ИСО 9001-2001. Осуществляется контроль поступающего сырья и материалов, технологического процесса, а также контроль и испытания продукции, как на переходах производства, так и в готовом виде [1].
1.2 Мощность предприятия, занимаемая доля рынка
Основными покупателями продукции фирмы являются крупные торговые организации г. Минска, областных городов, районов республики такие как: СП ТД «На Немиге» ООО г. Минск, УП «Кирмаш» г. Минск;ОАО «ЦУМ» г.Минск, ОАО «ГУМ» г.Минск, УП «Универмаг «Беларусь» г. Миснк, ОАО «Трикотажторг» г. Минск, ОАО «Витебский Универмаг» г. Витебск, ОАО «Дом торговли» г. Новополоцк, ОАО «Дом торговли»г. Полоцк, ОАО «Торгодежда» г. Минск, ОАО «Брестский Центральный Универмаг», УП «Гродноторгодежда» г.Гродно, сеть гиппер- маркетов г.Минска, таких как ИП БелВиллистден (ГИППО), СЗАО «Простор - маркет» (ПРОСТОР), СООО «Табак - Инвест» (КОРОНА) и др.
Доля поставок трикотажных изделий ОАО «Алеся» в 2016 г. году на рынок Республики Беларусь составит 83,2%. Доля поставок на рынок ближнего зарубежья, в основном Российскую Федерацию.
Рисунок 4 - Диаграмма структуры сбыта
1.3 Возможные варианты функционирования предприятия
база данные автоматизация документация
Торговля в своём торговом зале;
Выездная торговля в регионах;
Интернет - магазин;
Торговля по каталогам.
Внешние информационные ресурсы:
Публикации в СМИ, интернет, рекламы, каталог, буклет.
1.4 Информационная инфраструктура ОАО «Алеся»
Для решения задач информатизации на предприятии функционирует мощная локальная вычислительная сеть. При реализации информационной системы используются передовые информационные технологии масштаба предприятия. Для обеспечения функционирования локальной сети на предприятии имеется более 100 узловых точек.
Для выполнения работы на предприятии в отделах используются следующие программы: Microsoft Office Word(MS), MS Excel, STATISTIKA, 1С - управление предприятием, БГС отчетности, NeoSpy.
Информационные ресурсы:
Официальный сайт организации - www.alesyaoao.by
Официальная группа в социальной сети - https://vk.com/club62910066
ГЛАВА 2. ИНСТРУМЕНТЫ РАЗРАБОТКИ В СУБДMSACCESS
База данных - это набор сведений, относящихся к определенной теме или задаче, такой как отслеживание заказов клиентов или хранение коллекции звукозаписей. Цель любой информационной системы - обработка данных об объектах реального мира. Если база данных хранится не на компьютере или на компьютере хранятся только ее части, приходится отслеживать сведения из целого ряда других источников, которые пользователь должен скоординировать и организовать самостоятельно.
В современной технологии баз данных предполагается, что создание базы данных, ее поддержка и обеспечение доступа пользователей к ней осуществляются централизованно с помощью специального программного инструментария - системы управления базами данных.
В качестве СУБД для реализации базы данных была использована Microsoft Access. Microsoft Access является настольной СУБД реляционного типа, которая имеет все необходимые средства для выполнения перечисленных выше функций. Система управления базами данных Microsoft Access является одним из самых популярных приложений в семействе настольных СУБД. Все версии Access имеют в своем арсенале средства, значительно упрощающие ввод и обработку данных, поиск данных и предоставление информации в виде таблиц, графиков и отчетов.
Достоинством Access является то, что она имеет очень простой графический интерфейс, который позволяет не только создавать собственную базу данных, но и разрабатывать простые и сложные приложения. В отличие от других настольных СУБД, Access хранит все данные в одном файле, хотя и распределяет их по разным таблицам.
2.1 Функциональные возможности MS Access
Рассмотрим подробнее основные функции MS Access, чтобы иметь более ясное представление о его возможностях.
База данных в Access2007 может содержать следующие типы объектов: таблица, запрос, форма, отчёт, страница, макрос, модуль [2].
Рисунок 5 - Окно объектов базы данных
Access может работать одновременно только с одной базой данных. Но одна БД может включать множество таблиц, форм, запросов, отчётов, макросов и модулей, которые хранятся в одном файле с расширением mdb.
Таблица - это объект, соответствующий понятию «таблица» в теории реляционных баз данных. Для каждой таблицы в Access можно определить первичный ключ и один или несколько индексов с целью увеличения скорости доступа к данным [3].
Access позволяет создавать структуру таблицы в трех режимах - в режиме конструктора, с помощью мастера и путем ввода данных. Разница предполагает использование этих средств пользователями с разным уровнем подготовки, разными целями и перспективами использования данных. Естественно имеется возможность просматривать, редактировать, удалять и добавлять записи, осуществлять поиск, замену, сортировку данных, изменять вид таблицы.
Рисунок 6- Пример схемы базы данных
Это удобный графический инструмент, позволяющий создавать связи между определенными полями таблиц, задавать различные типы отношений, устанавливать ограничения ссылочной целостности. При этом изменения сразу применяются в базе данных (естественно, если содержащиеся данные удовлетворяют всем условиям). Полученную диаграмму таблиц и связей можно распечатать, что, несомненно, удобно для разработчика.
Запрос - объект, содержащий текст SQL запроса, имеющий уникальное имя в определенной базе данных. Создать запрос можно с помощью мастера и в режиме конструктора. В первом случае пользователю в интерактивном режиме предлагается выбрать имя таблицы и поля для выборки. Во втором случае можно выбрать несколько таблиц или запросов, связать их графическим способом и определить поля выборки. Также можно задать дополнительные условия для каждого поля и параметры сортировки (рисунок 7).
Рисунок 7 - Конструктор запроса
Есть еще один способ создания запроса, который встроен вконструктор, - это написание запроса вручную на языке SQL[4].
Форма - это специальный объект-контейнер для других интерфейсных компонентов, таких как поля ввода и отображения данных, кнопки и др. На форме разработчик располагает компоненты для ввода, корректировки, просмотра и группировки данных, в зависимости от специфики приложения. Форму также можно создать двумя способами - в режиме конструктора и с помощью мастера. В первом случае разработчик располагает набором компонентов (при необходимости можно зарегистрировать свои ActiveX), которые свободно размещает на форме и задает их параметры. В режиме мастера пользователь просто выбирает таблицу, поля и стиль оформления, а форма генерируется автоматически.
Отчёт - объект, предназначенный для создания документа, который впоследствии может быть распечатан либо включён в документ другого приложения. Этот документ содержит результаты выборки из базы данных в виде структурированной информации (например, в виде таблицы или списка). MS Access обладает богатыми возможностями по оформлению и форматированию отчетов. Те же два режима создания есть и у отчета. В режиме мастера у пользователя имеется возможность задать множество параметров, практически полностью определяющих желаемый внешний вид отчета. Для создания нестандартных отчетов лучше пользоваться конструктором.
Страницы - средство публикации данных в локальной сети или Internet. Создаваемая страница проектируется подобно форме (с некоторыми отличиями в используемых компонентах), при работе с ней можно не только просматривать, но и изменять данные в базе. После сохранения страницы как объекта в БД ее можно экспортировать в виде файла в формате HTML и использовать для доступа к данным через интернет-браузер.
Макрос - это объект, представляющий собой последовательность макрокоманд для автоматизации наиболее часто выполняемых действий при работе с базой. Макрокоманды выбираются из имеющего списка, а параметры задаются разработчиком[5].
Подобно макросам, модули-- это объекты, с помощью которых базу данных можно сделать более функциональной. Но если макросы в Access составляются путем выбора из списка макрокоманд, модули создаются на языке Visual Basic для приложений (VBA). Модули представляют собой наборы описаний, инструкций и процедур. Существуют модули класса и стандартные модули. Модули класса связаны с конкретными формами или отчетами и обычно включают в себя процедуры, которые работают только с этими формами или отчетами. В стандартных модулях содержатся общие процедуры, не связанные ни с каким объектом[8].
Это полный список объектов, которые можно хранить в БД MSAccess, который, впрочем похож и в других настольных СУБД подобного класса.
Какие возможности предоставляет Access в функциональном плане.
1. Ввод данных. Ввод данных может осуществляться следующими способами: вручную прямо в таблицу, вручную в поле формы, программным методом.
2. Изменение данных. Редактирование возможно следующими способами: вручную прямо в таблицу; в полях форм; в окне браузера, в котором загружена web-страница из БД; программным методом;
3. Вывод данных. Такие возможности как: вывод на экран монитора в табличном виде, в полях форм или отчётов, экспорт в другие форматы данных, вывод на печать.
4. Взаимодействие с другими источниками и потребителями информации. В этом случае Access может выступать как сервер или клиент автоматизации.
5. Использование базы данных другими приложениями.
6. Средства создания приложений.
7. Особенности управления данными.
Ядро БД Access обеспечивает три уровня блокировок:
ь Блокировка базы данных. На этом уровне может обращаться только один пользователь. Такой уровень блокировки применяется для глобального изменения или обновления данных или при техническом обслуживании Базы Данных - сжатии.
ь Блокировка таблиц. На этом уровне блокировки к таблице может обращаться только один пользователь. Такой уровень блокировки применяется в тех случаях, когда необходимо обработать сразу несколько записей таблицы.
ь Блокировка страницы. На этом уровне к заблокированной странице может обращаться только один пользователь. Это самый нижний уровень блокировки.
8. Администрирование.
Также необходимо упомянуть, что в Access изначально имеются шаблоны типовых баз данных для автоматизации наиболее распространённых задач (рисунок 8) [7].
Рисунок 8 - Шаблоны баз данных
2.2 Создание модуля в VBA
Visual Basic for Applications - VBA (Visual Basic для приложений) - встроенный в Access объектно-ориентированный язык программирования
Этот язык позволяет автоматизировать практически любую операцию, доступную в приложении и базах данных Access. Операции, которые позволяет выполнить язык VBA:
1. Автоматизация ввода данных в формы Access;
2. Добавление новых элементов в списки;
3. Компоновка данных, помещаемых в отчёты;
4. Работа с данными без открытия форм;
5. Автоматизация других приложений из Access;
6. Импорт и экспорт данных из файлов HTML.
Модули VBA
Основой программ на VBA являются процедуры, состоящие из инструкций, которые выполняют необходимые операции и вычисления. Каждая процедура имеет имя, по которому она вызывается на выполнение. Процедуры на языке VBA, входящие в состав приложения, хранятся в модулях. Вызвать на выполнение можно только процедуры. Запросить выполнение модуля в целом невозможно. Модуль является структурой, сохраняющей некоторый набор описаний и процедур, и способом организации процедур. Он предназначен для удобного объединения процедур по их функциональному назначению или привязке к форме или отчету. В соответствии с этим модули подразделяются на стандартные и модули форм или отчетов, которые являются модулями класса, связанными с определенной формой или отчетом [8].
Рисунок 9 - Окно создание модуля VBA
ГЛАВА 3. РАЗРАБОТКА И РЕАЛИЗАЦИЯ БАЗЫ ДАННЫХ
Планирование, проведение профилактических мероприятий, а также ведение учетной документации, является одной из основных задач работника медицинского кабинета на предприятии. Для автоматизации учета информации, освобождение сотрудников медицинского кабинета от рутинных операций путем автоматизации процесса ведения журналов, сокращение времени на поиск информации по ранее произведенным мероприятиям, систематизация всего требуемого материала, связанного с подготовкой отчетов, подготовка к переходу на электронный документооборот с отказом от активного использования печатных материалов, возможность получения отчетов за произвольный период времени и защита от потери информации с помощью создания электронной копии печатных журналов, необходимо разработать специализированную информационную систему.
Разрабатываемая система, представляет собой БДс графической оболочкой для ее наполнения (интерфейсом пользователя) и содержит общую информацию.
3.1 Медицинская документация предприятия ОАО «Алеся», сбор данных для определения содержимого проектируемой системы
В соответствии со ст. 226 Трудового кодекса Республики Беларусь наниматель обязан обеспечить охрану труда работников и в том числе организацию в соответствии с установленными нормами санитарно-бытового обеспечения, медицинского и лечебно-профилактического обслуживания работников, в необходимых объёмах финансовых средств, оборудования и материалов для осуществления предусмотренных коллективными договорами, соглашениями мероприятий по профилактике производственного травматизма и профессиональных заболеваний, улучшению условий труда, санитарно-бытового обеспечения, медицинского и лечебно-профилактического обслуживания работников.
В соответствии с п. 2.27 СНиП на предприятиях со списочной численностью более 300 человек должны предусматриваться фельдшерские здравпункты.
Главная цель медицинского кабинета - контроль здоровья его работников, отслеживание медосмотров, которые они должны своевременно проходить, вакцинация всех сотрудников, ведение отчётности и медицинской документации, а так же проведение просветительской - санитарной работы. Если в организации есть транспортный парк, то в обязанности медперсонала входит так же осмотр водителей перед рейсами, в соответствии с законом «О безопасности движения на дорогах».
Перечень медицинской документации медицинского здравпункта на предприятии ОАО «Алеся»:
1. Журнал обследования водителей;
2. Журнал процедурный;
3. Журнал регистрации больничных листов;
4. Журнал сведений о флюорографии работающих;
5. Журнал учета амбулаторного приема больных;
6. Журнал учёта выдачи медикаментов.
Также был рассмотрен список сотрудников данного предприятия.
3.2 Проектирование базы данных
3.2.1 Определение сущностей
Файл БазаДанных.accdb хранит информацию о сотрудниках и журналах, которые ведёт медицинский работник на предприятии ОАО «Алеся».
Файл состоит из 8 таблиц (рисунок 10):
Рисунок 10 - Файл БазаДанных.accdb
ТаблицаSwitchboard Items - служебная кнопочная таблица.
ТаблицаСотрудникисодержит информацию о сотрудниках предприятия. Полями таблицы являются персональные данные сотрудника: ФИО, табельный №, дата рождения, должность, пол.
ТаблицаЖурнал процедурный включает в себя информацию: табельный №, дни месяца, назначения.
ТаблицаЖурнал учёта выдачи медикаментовсодержит информацию: дата выдаче, табельный №, наименование медикамента, количество.
ТаблицаЖурнал учёта амбулаторного приёма больных содержит информацию: дате посещения больного, табельный №.
ТаблицаЖурнал обследования водителей включает в себя данные: табельный № водителя, жалобы, температура, артериальное давление, проба на наличие алкоголя в крови, пульс, причина направления.
ТаблицаЖурнал сведений о флюорографии работающих содержит информацию:табельный №, дата обследования, № флюорограммы, название лечебного учреждения, результат.
ТаблицаЖурнал регистрации больничных листов включает в себя информацию: табельный №, номер, серия, дата выдачи, организация, вид нетрудоспособности, период нетрудоспособности, общее количество дней.
Атрибуты сущностей указаны в следующих таблицах:
Журнал процедурный
Сотрудники
Журнал обследования водителей
Журнал регистрации больничных листов
Журнал сведений о флюорографии работающих
Журнал учёта амбулаторного приёма больных
Журнал учёта выдачи медикаментов
3.2.2 Определение взаимосвязей между сущностями
Таблицы (сущности) связаны по ключевым полям (рисунок 11).
Рисунок 11 - Схема связи таблиц в базе
Между сущностями установлена взаимосвязь один ко многим (1:М). Табельный № работника является уникальным в пределах организации, и присваивается однократно при поступлении на работу, никогда не изменяется.
3.2.3 Задание первичных ключей
Сущность «Сотрудники» имеет первичный ключ «Табельный №», которая имеет тип данных числовой.
Сущность «Журнал сведений о флюорографии работающих» имеет первичный ключ «Табельный №», которая имеет тип данных числовой.
Сущность «Журнал регистрации больничных листов» имеет первичный ключ «№», которая имеет тип данных счётчик.
Сущность «Журнал учёта амбулаторного приёма больных» имеет первичный ключ «Код», которая имеет тип данных счётчик.
Сущность «Журнал учёта выдачи медикаментов» имеет первичный ключ «Дата», которая имеет тип данных дата/время.
Сущность «Журнал обследования водителей» имеет первичный ключ «№», которая имеет тип данных счётчик.
Сущность «Журнал процедурный» имеет первичный ключ «Табельный №», которая имеет тип данных числовой.
3.3 Разработка запросов
Запрос - средство выбора необходимой информации из базы данных.
При помощи использования запросов, в базе данных была реализована необходимая функциональность для ведения информационных выборок и учета различных данных.
Когда пользователь создает запрос в режиме конструктора запроса, автоматически создает эквивалентную инструкцию SQL. Фактически, для большинства свойств запроса, доступных в окне свойств в режиме конструктора, имеются эквивалентные предложения или параметры языка SQL, доступные в режиме SQL. При необходимости, пользователь имеет возможность просматривать и редактировать инструкции SQL в режиме SQL. После внесения изменений в запрос в режиме SQL его вид в режиме конструктора также меняется [9].
В данной работе представлены3 запроса, каждый демонстрирует отдельные виды запросов - выборка, запрос с параметром, итоговый запрос.
1- Запрос количество обращений водителей - группирует осмотры водителей и подсчитывает количество обращений.
SELECT [Журнал обследования водителей].ФИО,Count([Журнал обследования водителей].№) AS [Количество обращений]
FROM [Журнал обследования водителей]
GROUP BY[Журнал обследования водителей].ФИО;
2- Запрос данных о флюорографии-запрос выводит тех пациентов, кому нужно пройти флюорографию в мае.
SELECT Сотрудники.[Табельный №], Сотрудники. ФИО, Сотрудники. Должность
FROM Сотрудники INNER JOIN [Журнал сведений о флюорографии работающих] ONСотрудники.[Табельный №] = [Журнал сведений о флюорографии работающих].[Табельный №]
WHERE ((([Журнал сведений о флюорографии работающих].[Дата обследования])>=#5/1/2016# And([Журнал сведений о флюорографии работающих].[Дата обследования])<=#5/31/2016#));
3 - Запрос сотрудники старше 50 лет-выводит список сотрудников старше 50 лет.
SELECT Сотрудники.ФИО, Сотрудники.Должность, Сотрудники.
[Табельный №]
FROMСотрудники
WHERE (((Сотрудники.[Дата рождения])<#1/1/1967#));
3.4 Создание объектов базы данных
Все отчеты и формы были сделаны автоматически с помощью инструментов Access, они содержат в удобном виде информацию из таблиц.
Элементы дополнительного функционала будут отображаться на ее главной форме, с которой можно получить доступ к основному функционалу базы, а также добавить и изменить данные. Формы отображены в ПРИЛОЖЕНИИ А.
3.4.1 Главная кнопочная форма
Рисунок 12 - Таблица для кнопочной формы (служебная)
Формы создаются при помощи мастера Форм, на форму помещаются необходимые для работы элементы.
Кнопочная форма представлена на рисунке 13.
Рисунок 13- Главная кнопочная форма
На ГКФ имеется кнопка «Добавить сотрудника», при переходе по которой открывается форма, где можно внести данные о новом сотруднике. Форма сотрудники представлена на рисунке 14.
Рисунок 14 - Форма «Сотрудники»
По нажатию на «Добавить запись в процедурный журнал» можно перейти на форму «Журнал процедурный», где добавляем новые записи.
Рисунок 15 - Форма «Журнал процедурный»
Также можно с формы «Посмотреть отчёт обследования водителей» перейти на отчёт «Журнал обследования водителей».
Рисунок 16 - Отчёт «Журнал обследования водителей»
3.4.2 Формирование отчётов
Важным объектом любой СУБД является отчет. Отчет- это форматированное представление данных, которое выводится на экран, в печать или файл. Они позволяют извлечь из базы нужные сведения и представить их в виде, удобном для восприятия, а также предоставляют широкие возможности для обобщения и анализа данных.
Отчеты создаются при помощи мастера отчетов. В данном мастере выбираем откуда берем данные с таблиц или запросов и выбираем форму отчета. В ПРИЛОЖЕНИИ Б представлены отчеты в режиме конструктора и готовые печатные формы отчета соответственно.
Рисунок 17 - Отчёт «Сотрудники»
ГЛАВА 4. РАЗРАБОТКА МОДУЛЕЙ АВТОМАЦИЗАЦИИ СРЕДСТВОМ VBA
В данной БД программировано на языке VBA 5 модулей.
Рисунок 18 - Модули в БД
Module1 и 2 нужны для формирования правильных запросов, они преобразуют дату формата день.месяц.год в месяц.год, для того чтобы выбирать записи по месяцам. Из приведенных данных в формате 01.01.2017 выбираем поле 2017 и поле 01. Тем самым из общего формата возможно выбрать название месяца. Код, реализующий указанное действие приведен ниже.
FunctioncheckDate1(yyyy, mmAsLong) AsDate
'2017 * 100 = + 05 - 1 * 100 получаем201605
checkDate1 = yyyy * 100 + mm - 100
' yyyy *100 + mm - n *100гдеy *100 -текущийгод, m-текущиймесяц,
' n* 100 кол-во лет которые нужно отнять без учета месяцев
End Function
Function myYyyyMm(d_in As Date) As Long
myYyyyMm = Year(d_in) * 100 + Month(d_in)
' приводим входную дату к виду yyyy * 100 + mm
EndFunction
Модули 3 - 5 предназначены для формирования диаграмм и графиков.
Алгоритм работы каждого из модулей:
1. Создаём сервер приложения (будем работать в Excel)
Функция CreateObject позволяет определить объект по его имени и создать один его экземпляр;
2. Отправка результата запроса в Excel, для дальнейшего анализа;
3. Делаем обращение к Запросу33 или Запросу44, который возвращает нам таблицы с данными;
4. Далее запускаем Excel;
5. Создаём документ Excel ,добавляем 2 новых листа (диаграмма и график);
6. Копируем данные с Access. Сначала имена полей, потом данные;
7. Добавляем диаграмму. Настраиваем диаграмму;
8. Добавляем график. Настраиваем график;
9. После создания нового листа и перемещения на него данных процедура делает его видимым.
10. Заключительное действие это выход из процедуры.
Исходные коды прилагаются в ПРИЛОЖЕНИИ Г.
На главную кнопочную форму помещены3 кнопки, которые генерируют отчёты, в виде диаграмм и графиков (рисунок 19).
Рисунок 19 - Главная кнопочная форма
При нажатии на кнопку, происходит вызов процедуры, описанные в Module3,Module4 и Module5 (в зависимости от кнопки). Процедура в Module запускаетExcel, создает новый лист, потом формирует запросы,результаты которых в таблицах в Excel, далее таблицы экспортируются по скопированным данным, где автоматически генерируется диаграмма и график.
Module3привязан к левой кнопке и вызывает Запрос11, Module4привязан к правой кнопке и вызывает Запрос33, Module 5 вызывает Запрос44. Коды соответствующих запросов приведены ниже и в ПРИЛОЖЕНИИ Г.
'Создаем сервер автоматизации Excel
SubCreateObjectDemo()
Dim objExcel As Object
Set objExcel = CreateObject("Excel.Application")
objExcel.Visible = True
objExcel.Quit
End Sub
SubChartInExcel()
' Отправка результата запроса в Excel
' для дальнейшего анализа
DimrstЗапрос1 AsADODB.Recordset
Dim objXL As Excel.Application
Dim objWS As Excel.Worksheet
Dim objChart As Excel.Chart
Dim fld As ADODB.Field
Dim intCol As Integer
Dim intRow As Integer
SetrstЗапрос1 = NewADODB.Recordset
омещаем необходимые данные в набор записей
'rstЗапрос1.Open _
"Запрос1", CurrentProject.Connection
rstЗапрос1.Open _
"Запрос1", CurrentProject.Connection
'запускаем Excel
Set objXL = New Excel.Application
' Создаем новый лист
objXL.Workbooks.Add
SetobjWS = objXL.ActiveSheet
Запрос11
SELECT Запрос1.mm, Count(Запрос1.[Вид нетрудоспособности]) AS Заболевания
FROMЗапрос1
GROUP BY Запрос1.mm;
Запрос 1
SELECTMonth([Журнал регистрации больничных листов].[Дата выдачи]) ASmm, [Журнал регистрации больничных листов].[Вид нетрудоспособности]
FROM [Журнал регистрации больничных листов];
Запрос3
SELECTСотрудники.[Табельный №], Сотрудники.ФИО, [Журнал сведений о флюорографии работающих].[Название лечебного учреждения], [Журнал сведений о флюорографии
FROM Сотрудники LEFT JOIN [Журнал сведений о флюорографии работающих] ON Сотрудники.[Табельный №] = [Журнал сведений о флюорографии работающих].[Табельный №]
WHERE (((myYyyyMm(nz([Журнал сведений о флюорографии работающих].[Дата обследования],#1/1/1900#)))<=Year(Now())*100+Month(Now())-100))
ORDER BYСотрудники.[Табельный №];
Запрос33
SELECTЗапрос3.Expr1004, Count(Запрос3.Expr1004) AS [Count-Expr1004]
FROMЗапрос3
whereЗапрос3.Expr1004=Year(Now())*100+Month(Now())-100
GROUP BYЗапрос3.Expr1004
UNION ALL SELECT * FROM Запрос32;
Построение диаграмм и графиков
При нажатии на кнопку запускается Excel , где можно видеть отдельный лист с графиком,диаграммой, при этом таблицы с данными копируемые из Access, сохраняются на отдельном рабочем листе.
Рисунок 20 - График динамики листов нетрудоспособности по месяцам
Рисунок 21 - Диаграмма листов нетрудоспособности по месяцам
Рисунок 22 - Данные Access экспортированы в Excel средствами автоматизации
Все те же действия происходят при нажатии на кнопку.
Рисунок 23 - График по флюорографии
Рисунок 24 - Диаграмма по флюорографии
Рисунок 25 - Данные Access экспортированы в Excel средствами автоматизации
При нажатии на кнопкупроисходят те же действия.
Рисунок 26 - График динамики не допущенных водителей
Рисунок 27 - Диаграмма динамики не допущенных водителей
Рисунок 28 -Данные Access экспортированы в Excel средствами автоматизации
Вызов Excel, перенос данных из запроса ACCESS и генерация диаграммы по этим данным удобна и практична, т.к. можно будет редактировать, и сохранять всё.
ЗАКЛЮЧЕНИЕ
Результатом выполнения дипломной работы стало разработанное приложение баз данных, позволяющее автоматизировать операции учёта и процессы составления отчётных документов в медицинском кабинете. Разработанное приложение отвечает всем требованиям предметной области, таблицы созданной базы данных отвечают требованиям нормализации, что позволяет обеспечить целостность и непротиворечивость информации.
Средствами СУБД MicrosoftAccess создан удобный пользовательский интерфейс. Главная кнопочная форма позволяет перейти к любому объекту приложения, не отображая лишней информации. Созданные модули позволяют автоматически делать любые действия по созданию форм и отчётов, и передают информацию в виде графиков и диаграмм.
Было проведено тестирование данного приложения, которое показало корректную работу. Следовательно, полученный результат позволяет сделать вывод о возможности внедрения база данных «Медкабинет» в деятельность трикотажной фабрике ОАО «Алеся».
СПИСОК ИСПОЛЬЗУЕМЫХ ИСТОЧНИКОВ
1. Официальный сайт трикотажной фабрики ОАО «Алеся» [Электронный ресурс] / Открытое Акционерное Общество « Алеся» - Минск, 2016 - Режим доступа: http://www.alesyaoao.by/Дата доступа: 12.03.2017
2. Бекаревич Ю., Пушкина Н. Самоучитель MicrosoftAccess 2000. - СПб.: БХВ - Санкт-Петербург, 2007. - 480 стр.
3. Кошелев В.Е. Базы данных в ACCESS 2007: Эффективное использование / В.Е. Кошелев. - М.: Бином- Пресс, 2009. - 592 с.
4. Кузин, А.В. Базы данных: Учебное пособие для студ. высш. учеб.заведений / А.В. Кузин, С.В. Левонисова. - М.: ИЦ Академия, 2012. - 320 c.
5. Карпова Т.С. Базы данных: модели, разработка. - СПб.: Питер, 2001, 304 с.
6. Ульман Дж., Уидом Дж. Введение в системы баз данных. - М.: Лори, 2000. - 374с.
7. Пирогов В.Ю., Информационные системы и базы данных: организация и проектирование: Учебное пособие / В.Ю. пирогов. - СПб.: БХВ - Петербург, 2009. - 528 с.
8. Майк Гардерлой, Сьюзан Сейлз Харкинз. Автоматизация Microsoft Access с помощью VBA. -Вильямс, Санкт -Петербург, 2006. - 418 с.
9. К. Дж. Дейт. Введение в системы баз данных- 7-е изд.- М.: Вильямс, 2001.-1072 с.
10. Гребенюк Е.И.: Технические средства информатизации. - М.: Академия, 2011. - 352 с.
11. Сергеев А.В.: Access 2007. Новые возможности. - СПб.: Питер, 2008. - 176 с.
12. Михелёв В.М.: Базы данных и СУБД. - Белгород: БелГУ, 2007. - 200 с.
13. Демидова Л.А., Пылькин А.Н.: Программирование в среде VBA. Практикум.- М.: Горячая линия, 2004 - 175 с.
ПРИЛОЖЕНИЕ А
Рисунок 29 - Форма «Журнал сведений о флюорографии работающих»
Рисунок 30 - Форма «Журнал учёта амбулаторного приёма больных»
Рисунок 31 - Форма «Журнал регистрации больничных листов»
Рисунок 32 - Форма «Сотрудники»
ПРИЛОЖЕНИЕ Б
Рисунок 33 - Отчёт «Сотрудники»
Рисунок 34 - Отчёт «Сотрудники» в режиме конструктора
Рисунок 35 - Отчёт «Журнал обследования водителей»
Рисунок 36 - Отчёт «Журнал процедурный»
Рисунок 37 - Отчёт «Журнал регистрации больничных листов»
Рисунок 38 - Отчёт «Журнал сведений о флюорографии работающих»
Рисунок 39 - Отчёт «Журнал учёта амбулаторного приёма больных»
Рисунок 40 - Отчёт «Журнал учёта амбулаторного приёма больных» в режиме конструктора
Рисунок 41 - Отчёт «Журнал учёты выдачи медикаментов»
Рисунок 42 - Отчёт «Журнал учёты выдачи медикаментов» в режиме конструктора
ПРИЛОЖЕНИЕ В
Руководство пользователю БД «Медкабинет»
Вызов программы:
Программу Microsoft Access можно вызвать несколькими способами:
1. Изменю «Пуск». Пуск - Microsoft Office - Microsoft Access 2007
Рисунок 43 - Меню «Пуск»
Для открытия определённой БД нужно на панели управления нажать «Файл», затем «Открыть».
Рисунок 44 - Панель управления
В открывшемся окне выбрать файл с БД, которая Вас интересует.
Рисунок 45 - Окно с файлами
2. Два раза щёлкнуть правой кнопкой мыши на уже сохранённой БД. Чтобы не искать нужную БД в папках можно вынести ярлык на рабочей стол.
Рисунок 46 - Ярлык с рабочего стола
ПРИЛОЖЕНИЕ Г
Код модуля 3
'Создаем сервер автоматизации Excel
SubCreateObjectDemo()
Dim objExcel As Object
Set objExcel = CreateObject("Excel.Application")
objExcel.Visible = True
objExcel.Quit
End Sub
SubChartInExcel()
' Отправка результата запроса в Excel
' для дальнейшего анализа
DimrstЗапрос1 AsADODB.Recordset
Dim objXL As Excel.Application
Dim objWS As Excel.Worksheet
Dim objChart As Excel.Chart
Dim fld As ADODB.Field
Dim intCol As Integer
Dim intRow As Integer
SetrstЗапрос1 = NewADODB.Recordset
'Помещаем необходимые данные в набор записей
'rstЗапрос1.Open _
"Запрос1", CurrentProject.Connection
rstЗапрос1.Open _
"Запрос1", CurrentProject.Connection
'запускаем Excel
Set objXL = New Excel.Application
' Создаем новый лист
objXL.Workbooks.Add
SetobjWS = objXL.ActiveSheet
'Копируем данные. Сначалаименаполей
For intCol = 0 To rstЗапрос1.Fields.Count - 1
Set fld = rstЗапрос1.Fields(intCol)
objWS.Cells(1, intCol + 1) = fld.Name
Next intCol
' потомданные
intRow = 2
Do Until rstЗапрос1.EOF
For intCol = 0 To rstЗапрос1.Fields.Count - 1
objWS.Cells(intRow, intCol + 1) = rstЗапрос1.Fields(intCol).Value
Next intCol
rstЗапрос1.MoveNext
intRow = intRow + 1
Loop
' добавляемдиаграмму
objXL.Charts.Add
Set objChart = objXL.ActiveChart
'Настраиваем диаграмму
objChart.ChartType = xl3DPieExploded
objChart.SetSourceData _
Source:=objWS.Range("A1:B" &CStr(intRow - 1)), _
PlotBy:=xlColumns
objChart.Locationwhere:=xlLocationAsNewSheet'Где разместить диаграмму
objChart.HasTitle = True
objChart.ChartTitle.Characters.Text = "Диаграммы и графики"
objXL.Visible = True
objXL.Charts.Add
Set objChart = objXL.ActiveChart
'Настраиваем диаграмму
objChart.ChartType = xlLine
objChart.SetSourceData _
Source:=objWS.Range("A1:B" &CStr(intRow - 1)), _
PlotBy:=xlColumns
objChart.Locationwhere:=xlLocationAsNewSheet'Где разместить диаграмму
objChart.HasTitle = True
objChart.ChartTitle.Characters.Text = "Диаграммы и графики"
objXL.Visible = True
objChart.ApplyDataLabelsType:=xlDataLabelsShowValue
With ActiveChart
' Ось Х
.Axes(xlCategory, xlPrimary).HasTitle = True
.Axes(xlCategory, xlPrimary).AxisTitle.Characters.Text = "№ месяца"
' Ось У
.Axes(xlValue, xlPrimary).HasTitle = True
.Axes(xlValue, xlPrimary).AxisTitle.Characters.Text = "Количество"
End With
objXL.Visible = True
End Sub
Кодмодуля 4
'Создаем сервер автоматизации Excel
Sub CreateObjectDemo1()
Dim objExcel As Object
Set objExcel = CreateObject("Excel.Application")
objExcel.Visible = True
objExcel.Quit
End Sub
Sub ChartInExcel1()
' Отправка результата запроса в Excel
' для дальнейшего анализа
Dim rstЗапрос3AsADODB.Recordset
Dim objXL As Excel.Application
Dim objWS As Excel.Worksheet
Dim objChart As Excel.Chart
Dim fld As ADODB.Field
Dim intCol As Integer
Dim intRow As Integer
SetrstЗапрос3 = NewADODB.Recordset
'Помещаем необходимые данные в набор записей
'rstЗапрос1.Open _
"Запрос1", CurrentProject.Connection
rstЗапрос3.Open _
"Запрос3", CurrentProject.Connection
'запускаем Excel
Set objXL = New Excel.Application
' Создаем новый лист
objXL.Workbooks.Add
SetobjWS = objXL.ActiveSheet
'Копируем данные. Сначалаименаполей
ForintCol = 0 TorstЗапрос3.Fields.Count - 1
Set fld = rstЗапрос3.Fields(intCol)
objWS.Cells(1, intCol + 1) = fld.Name
Next intCol
' потомданные
intRow = 2
Do Until rstЗапрос3.EOF
For intCol = 0 TorstЗапрос3.Fields.Count - 1
objWS.Cells(intRow, intCol + 1) = rstЗапрос3.Fields(intCol).Value
Next intCol
rstЗапрос3.MoveNext
intRow = intRow + 1
Loop
' добавляемдиаграмму
objXL.Charts.Add
Set objChart = objXL.ActiveChart
'Настраиваемдиаграмму
objChart.ChartType = xl3DPieExploded
objChart.SetSourceData _
Source:=objWS.Range("A1:B" &CStr(intRow - 1)), _
PlotBy:=xlColumns
objChart.Locationwhere:=xlLocationAsNewSheet'Гдеразместитьдиаграмму
objChart.HasTitle = True
objChart.ChartTitle.Characters.Text = "Диаграммыиграфики"
objXL.Visible = True
objXL.Charts.Add
Set objChart = objXL.ActiveChart
'Настраиваемдиаграмму
objChart.ChartType = xlLine
objChart.SetSourceData _
Source:=objWS.Range("A1:B" &CStr(intRow - 1)), _
PlotBy:=xlColumns
objChart.Locationwhere:=xlLocationAsNewSheet'Гдеразместитьдиаграмму
objChart.HasTitle = True
objChart.ChartTitle.Characters.Text = "Диаграммыиграфики"
objXL.Visible = True
objChart.ApplyDataLabelsType:=xlDataLabelsShowValue
With ActiveChart
' Ось Х
.Axes(xlCategory, xlPrimary).HasTitle = True
.Axes(xlCategory, xlPrimary).AxisTitle.Characters.Text = "1 - текущиймесяц; 2 - предыдущие"
' Ось У
.Axes(xlValue, xlPrimary).HasTitle = True
.Axes(xlValue, xlPrimary).AxisTitle.Characters.Text= "Количество"
End With
End Sub
Кодмодуля 5
'СоздаемсерверавтоматизацииExcel
Sub CreateObjectDemo2()
Dim objExcel As Object
Set objExcel = CreateObject("Excel.Application")
objExcel.Visible = True
objExcel.Quit
End Sub
Sub ChartInExcel15()
' Отправка результата запроса в Excel
' для дальнейшего анализа
DimrstЗапрос44 AsADODB.Recordset
Dim objXL As Excel.Application
Dim objWS As Excel.Worksheet
Dim objChart As Excel.Chart
Dim fld As ADODB.Field
Dim intCol As Integer
Dim intRow As Integer
Set rstЗапрос44 = NewADODB.Recordset
'Помещаем необходимые данные в набор записей
'rstЗапрос1.Open _
"Запрос1", CurrentProject.Connection
rstЗапрос44.Open _
"Запрос44", CurrentProject.Connection
'запускаем Excel
Set objXL = New Excel.Application
' Создаем новый лист
objXL.Workbooks.Add
SetobjWS = objXL.ActiveSheet
'Копируем данные. Сначалаименаполей
ForintCol = 0 TorstЗапрос44.Fields.Count - 1
Set fld = rstЗапрос44.Fields(intCol)
objWS.Cells(1, intCol + 1) = fld.Name
Next intCol
' потомданные
intRow = 2
Do Until rstЗапрос44.EOF
For intCol = 0 TorstЗапрос44.Fields.Count - 1
objWS.Cells(intRow, intCol + 1) = rstЗапрос44.Fields(intCol).Value
Next intCol
rstЗапрос44.MoveNext
intRow = intRow + 1
Loop
' добавляемдиаграмму
objXL.Charts.Add
Set objChart = objXL.ActiveChart
'Настраиваемдиаграмму
objChart.ChartType = xl3DPieExploded
objChart.SetSourceData _
Source:=objWS.Range("A1:B" &CStr(intRow - 1)), _
PlotBy:=xlColumns
objChart.Locationwhere:=xlLocationAsNewSheet'Гдеразместитьдиаграмму
objChart.HasTitle = True
objChart.ChartTitle.Characters.Text = "Диаграммыиграфики"
objXL.Visible = True
objXL.Charts.Add
Set objChart = objXL.ActiveChart
'Настраиваемдиаграмму
objChart.ChartType = xlLine
objChart.SetSourceData _
Source:=objWS.Range("A1:B" &CStr(intRow - 1)), _
PlotBy:=xlColumns
objChart.Locationwhere:=xlLocationAsNewSheet'Гдеразместитьдиаграмму
objChart.HasTitle = True
objChart.ChartTitle.Characters.Text= "Диаграммыиграфики"
objXL.Visible = True
objChart.ApplyDataLabelsType:=xlDataLabelsShowValue
With ActiveChart
' ОсьХ
.Axes(xlCategory, xlPrimary).HasTitle = True
.Axes(xlCategory, xlPrimary).AxisTitle.Characters.Text = "Заболевание"
' ОсьУ
.Axes(xlValue, xlPrimary).HasTitle = True
.Axes(xlValue, xlPrimary).AxisTitle.Characters.Text = "Количество"
EndWith
EndSub
Размещено на Allbest.ru
Подобные документы
Разработка базы данных и приложения для автоматизации ведения кадрового учёта предприятия. Формирование таблицы анкетных данных. Разработка графического интерфейса пользователя клиентских приложений. Возможность подключения к удаленной базе данных.
дипломная работа [47,6 K], добавлен 17.02.2009Понятие базы данных, модели данных. Классификация баз данных. Системы управления базами данных. Этапы, подходы к проектированию базы данных. Разработка базы данных, которая позволит автоматизировать ведение документации, необходимой для деятельности ДЮСШ.
курсовая работа [1,7 M], добавлен 04.06.2015Инфологическая модель задачи автоматизации и формирования заказов поставщикам, контроля состояния склада. Анализ ключей сущностей проектируемой базы данных, разработка и нормализация системы таблиц и форм. Механизм оформления заказов в базе данных.
курсовая работа [358,5 K], добавлен 26.11.2012Проектирование базы данных для магазина продовольственных товаров. Предложения по модернизации информационных технологий. Выбор методов и средств решения задач, подлежащих автоматизации. Определение состава подсистем проектируемой информационной системы.
курсовая работа [3,9 M], добавлен 29.05.2013Схема взаимодействия подразделений предприятия. Выбор и обоснование технологии проектирования базы данных. Описание объектов базы данных. Разработка запросов на выборку, изменение, обновление и удаление данных. Интерфейсы взаимодействия с базой данных.
курсовая работа [1,4 M], добавлен 25.05.2023Необходимая документация при учете готовой продукции на складе ООО "Перекрёсток". Проектирование базы данных на основе нормализации. Схема данных и связи между таблицами в проектируемой базе данных. Обеспечение безопасности и целостности базы данных.
дипломная работа [2,9 M], добавлен 15.01.2012Базы данных - важнейшая составная часть информационных систем. Проектирование базы данных на примере предметной области "Оргтехника". Сбор информации о предметной области. Построение информационно-логической модели данных. Разработка логической структуры.
курсовая работа [318,6 K], добавлен 24.12.2014Проектирование базы данных для автоматизации деятельности по учету автотранспорта ГИБДД Вяземского района. Выбор инструментария для разработки базы данных и приложения по её ведению. Описание интерфейса и физической структуры приложения баз данных.
курсовая работа [2,2 M], добавлен 28.06.2011Инструментальные средства для разработки структуры информационной базы данных "Программа автоматизации учета расчетов с поставщиками", пользовательский интерфейс СУБД Access. Разработка запросов отбора данных и вычислений, экранных форм коррекции данных.
лабораторная работа [2,4 M], добавлен 15.11.2010Проектирование и создание информационной базы данных для управления предприятием "Завод металлоизделий". Данные для базы, предметная область, атрибуты объектов базы данных. Объектные отношения, их ключи, связи объектов и отношений базы данных предприятия.
реферат [26,9 K], добавлен 04.12.2009
