Создание и ведение базы данных студентов колледжа

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

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

Московский государственный колледж электромеханики и информационных технологий

(ГОУ СПО МГКЭИТ)

Пояснительная записка

По дисциплине: База Данных

Тема: «Создание и ведение базы данных студентов колледжа»

2012/13 уч. год



Содержание

Введение

1. Общая часть

1.1 Цель разработки

1.2 Обоснование выбора среды разработки приложения

1.3 Характеристика среды разработки приложения

1.4 Методика создания приложений для баз данных

1.5 Защита баз данных

2. Специальная часть

2.1 Постановка задачи

2.2 Логическая схема базы данных

2.3 Структура базы данных

2.4 Структурная схема работы приложения

2.5 Разработка графического интерфейса пользователя

2.6 Описание процесса отладки приложения

2.7 Выбор способа защиты базы данных

2.8 Инструкция пользователю

Заключение

Список литературы

Приложения



Введение

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

Была найдена и протестирована версия программы “План”

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

Описание: Программа "План" предназначена для ведения учета выполнения учебного плана для высших учебных заведений. Позволяет вести учет начиная с плана обучения на весь период учебы в ВУЗ, из которого создаются годовые учебные планы, далее из годовых - месячные планы и раcписание занятий с указанием учебных аудиторий. В программе при создании расписаний предусмотрена возможность контроля выполнения плана занятий и занятости учебных аудиторий с учетом количества посадочных мест в аудиториях. При необходимости возможности программы могут быть значительно расширены для конкретных задач. Интерфейс программы прост и понятен.

Защита БД:

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

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

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

В процессе разработки КП решены следующие задачи :

Изучена предметная область

Рассмотрена программа “План”

Создана средствами Erwin Database Modeler логическая модель БД, преобразованная в пустую БД.

Разработано приложение в среде Microsoft Office Access

Приложение позволяет:

Автоматизировать процесс составления расписания загрузки лабораторий.



1. Общая часть

1.1 Цель разработки

• реализация учебный план специальность 090108

• научиться анализировать техническое задание

• применить полученные теоретические знания на практике, спроектировав базу данных средствами MS ACCESS и ERWIN Modeler

• самостоятельно овладеть навыками правильного оформления документации на программные продукты

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

1.2 Обоснование выбора среды разработки приложения

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

• язык высокого уровня

• прост в изучении

• интегрирован в Microsoft Access

• содержит элементы объектно-ориентированных языков

• является средством быстрой разработки программ

• есть навыки для решения поставленной задачи

1.3 Характеристика среды разработки приложения

В Office Access 2007 реализован новый интерфейс пользователя. Он позволяет быстрее работать, находить и получать нужные сведения.

Новый интерфейс Office Access 2007 включает следующие основные элементы.

• Лента -- область в верхней части окна приложения, в которой выбираются команды.

• Вкладка команд -- команды отображаются и группируются так, чтобы их можно было легко найти.

• Контекстная вкладка команд -- вкладка, появляющаяся в определенном контексте, то есть в зависимости от того, над каким объектом ведется работа и какие задачи выполняются. Эта вкладка содержит дополнительные команды, которые могут потребоваться для работы.

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

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

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

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

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

• Мини-панель инструментов -- полупрозрачный элемент в виде панели инструментов, который появляется над выделенным текстом и позволяет быстро применить к нему форматирование, например полужирное или курсивное начертание, или изменить шрифт.

Усовершенствованная сортировка и фильтрация

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

Режим макета

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

Улучшенные средства быстрого создания с помощью вкладки «Создание»

Вкладка Создание на ленте теперь является новой главной исходной точкой, с которой начинается добавление новых объектов -- быстрое создание новых форм, отчетов, таблиц, списков SharePoint, запросов, макросов, модулей и т. д. Новый объект создается исходя из того, какой объект в данный момент является активным.

Внедренные макросы

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

Экспорт в форматы PDF и XPS

Можно экспортировать данные в форматы PDF (Portable Document Format) или XPS (XML Paper Specification) для печати и рассылки по обычной или электронной почте, при условии, что предварительно установлена надстройка «Публиковать как PDF или XPS».

Повышенная безопасность

Унифицированные решения о надежности интегрируются с Центром управления безопасностью Microsoft Office Trust Center.

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

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

1.4 Методика создания приложений для баз данных

Жизненный цикл БД:

• Анализ:

? Планирование разработки

? Определение требований к системе

? Сбор и анализ требований пользователей

• Проектирование:

? Концептуальная модель

? Логическая модель

? Физическая модель

• Реализация:

? Тестирование

? Эксплуатация и сопровождение

Процесс проектирования, реализации и поддержания системы базы данных называется жизненным циклом базы данных (ЖЦБД).

Процедура создания системы называется жизненным циклом системы (ЖЦС). Планирование разработки - планирование БД, выполняемое в процессе разработки стратегического плана БД. В процессе планирования была собрана и рассмотрена следующая информация.

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

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

? Определяются цели системы путём анализа информационных потребностей. Здесь также обязательно указывается, какую именно БД следует создавать (распределённую, целостную) и какие коммуникационные средства необходимы. Выходной документ - комментарий, описывающий цели системы.

? Определение пользовательских требований: документация в виде обобщённой информации (комментарии, отчёты, опросы, анкеты и т. д.); фиксация функций системы и определение прикладных систем, которые будут выполнять эти требования. Данные представляются в виде соответствующих документов.

? Определение общих требований к оборудованию и программному обеспечению, связанных с поддержанием желаемого уровня быстродействия. (Выяснение количества пользователей системы, числа входных сообщений в день, количество распечаток). Данная информация используется для выбора типов компьютеров и СУБД, объёма дисков, количества принтеров. Данные этого этапа излагаются в отчёте, содержащем примерные конфигурации оборудования и программного обеспечения.

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

Реализация - процесс превращения концептуальной модели в функциональную БД. Он включает в себя следующие этапы.

1) Выбор и приобретение необходимой СУБД.

2) Преобразование концептуальной (инфологической) модели БД в логическую и физическую модель данных:

4) Заполнение базы данных.

5) Создание прикладных программ, контроль управления.

6) Обучение пользователей.

1.5 Защита баз данных

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

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

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

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

Методы защиты :

• Административный метод -- позволяет защитить от несанкционированного копирования самой части базы

с таблицами.

• Маскировка базы -- изменение разрешения базы на отличное от *.mdb

• Маскировка таблиц и полей -- изменение имен таблиц, запросов, полей на «нечитаемые»

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

• Защита с использованием пароля БД -- данный способ защиты позволяет установить пароль на открытие БД, для всех пользователей.

• Шифрование/Дешифрование базы средствами Access -- для шифрования Jet использует алгоритм RSA с ключом на основе идентификатора рабочей группы.

• Защита при помощи терминального доступа к серверу - и клиентская часть и база с таблицами находится на сервере. У клиента на компьютере эмулируется терминал сервера.



2. Специальная часть

2.1 Постановка задачи

Создание и ведение базы данных учёта загрузки лабораторий

Спроектировать средствами MS ACCESS базу данных и создать средствами VBA приложение, позволяющее составить расписание загрузки лабораторий колледжа на неделю.

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

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

2.2 Логическая схема базы данных



Физическая модель БД

2.3 Структура базы данных

Таблица Заявки преподавателей
Имя поля	Код заявки	Число	№ группы	Предмет	№ пары	Код преп-ля	Код То	Код По
Тип данных	Числовой	Дата	Числовой	Текстовой	Числ.	Числовой	Числ.	Числ.
Первичный ключ	Код заявки

Таблица Лаборатории
Имя поля	ID	№ Лаборатории	Фамилия лаборанта	Техника безопасности	Телефон
Тип данных	Счетчик	Числовой	Текстовый	Логический	Числовой
Первичный ключ	№ Лаборатории

Таблица Преподаватели
Имя поля	Код преподавателя	Фамилия Преподавателя	Имя	Отчество
Тип данных	Счетчик	Текстовый	Текстовый	Текстовый
Первичный ключ	Код преподавателя

Таблица Программное обеспечение
Имя поля	Код По	Название
Тип данных	Счетчик	Текстовый
Первичный ключ	Код По

Таблица Техническое обеспечение
Имя поля	Код То	Название
Тип данных	Счетчик	Текстовый
Первичный ключ	Код То

Таблица Программное обеспечение лаборатории
Имя поля	Код По	№ Лаборатории	Количество единиц
Тип данных	Числовой	Числовой	Числовой
Первичный ключ	Код По, № Лаборатории

Таблица

Таблица Техническое обеспечение лаборатории
Имя поля	Код То	№ Лаборатории	Количество единиц
Тип данных	Числовой	Числовой	Числовой
Первичный ключ	Код То, № Лаборатории

Таблица Расписание
Имя поля	№ Лаб-рии	День недели	Фамилия преподавателя	Код преподавателя	Код заявки	№ Заявки
Тип данных	Числовой	Текстовой	Текстовой	Числовой	Числовой	Числ.
Первичный ключ	№ Заявки

2.4 Структурная схема работы приложения



2.4.1 Разработка графического интерфейса пользователя

Рис.4

Рис.5

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



2.5 Описание процесса отладки приложения

база лаборатория пользовательский интерфейс

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

· узнавать текущие значения переменных;

· выяснять, по какому пути выполнялась программа.

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

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

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

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



Дополнена и улучшена форма “ Заявки преподавателей”

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

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

2.6 Выбор способа защиты базы данных

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

2.7 Инструкция пользователю

Рис.6

Работа с приложением происходит при помощи формы представленной на рисунке выше. Пользователь может нажимать кнопки и тем самым выполнять различные действия. (Рис.6)

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

эти кнопки помогут пользователю быстро перемещаться по необходимым заявкам

с помощью этой кнопки пользователь добавляет заявку в расписание

эта кнопка отвечает за удаление заявки.

Для нормальной работы приложения необходимо иметь любую версию Windows поддерживающую Microsoft Access 2003 либо более позднюю версию



Выбор необходимого программного обеспечения из списка

Выбор необходимого технического оборудования из списка

Рис 6.



Рис 7.

Рис 8.

Проверка подачи заявки (Рис 6, 7, 8)

Рис 10

Проверка выбора следующей записи. (Рис 9, 10)

Рис 11.

Рис 12.



Заключение

Курсовой проект посвящен созданию и ведению базы данных учета загрузки лабораторий

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

Были приобретены навыки создания многофункциональных приложений при помощи VBA и защиты баз данных встроенными возможностями Microsoft Access.

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

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

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



Список Литературы

1.) Конспект по Базам Данных за 2010-2011г.

2.) Информация в интернете

3.) Практические работы за 3 курс по предмету Базы Данных

4.) Steve Braun Visual Basic 6.0

5.) vbaprogrammingmsofficeforuser



Приложение

Dim rst As DAO.Recordset, rst2 As DAO.Recordset, rst3 As DAO.Recordset, db As Database, i As Integer

Private Sub Form_Load()

Set db = CurrentDb

Set rst = db.OpenRecordset("Select * From Платежи")

Set rst2 = db.OpenRecordset("Select * From Студенты")

Set rst3 = db.OpenRecordset("Select * From 123")

rst.MoveLast

rst.MoveFirst

rst2.MoveLast

rst2.MoveFirst

If Not rst3.EOF Then

rst3.MoveLast

rst3.MoveFirst

End If

End Sub

Private Sub Кнопка0_click()

rst.MoveFirst

If Not rst3.EOF Then

rst3.MoveFirst

For i = 1 To rst3.RecordCount

rst3.Delete

Next i

End If

For i = 1 To rst.RecordCount

If podate = rst.Fields("Дата Платежа") Then

rst3.AddNew

rst3.Fields("№Платежа") = rst.Fields("№Платежа")

rst3.Fields("Дата Платежа") = rst.Fields("Дата Платежа")

rst3.Fields("№Студента") = rst.Fields("№Студента")

rst3.Fields("Вид Платежа") = rst.Fields("Вид Платежа")

rst3.Fields("Размер Платежа") = rst.Fields("Размер Платежа")

rst3.Update

End If

rst.MoveNext

Next i

End Sub

Private Sub Кнопка18_Click()

Dim db As Database, gdf As QueryDef

Set db = CurrentDb

Set gdf = db.QueryDefs("добавление рассписание")

gdf.Parameters(0) = ПолеСоСписком12.Value

gdf.Parameters(2) = ПолеСоСписком21.Value

gdf.Parameters(3) = ПолеСоСписком12.Value

Поле2.SetFocus

gdf.Parameters(1) = Поле2.Text

Поле0.SetFocus

gdf.Parameters(4) = Поле0.Text

gdf.Execute

End Sub

Private Sub ПолеСоСписком12_Click()

ПолеСоСписком21.RowSource = "SELECT [Преподаватели].[Код преподавателя], [Преподаватели].[Фамилия преподавателя] FROM [Преподаватели] WHERE (((Преподаватели.[Код преподавателя])=" & ПолеСоСписком12 & "));"

End Sub

Private Sub ПолеСоСписком16_Click()

ПолеСоСписком19.RowSource = "SELECT Лаборатории.[№ Лаборатории]FROM (Лаборатории INNER JOIN [Техническое оборудование лаборатории] ON Лаборатории.[№ Лаборатории] = [Техническое оборудование лаборатории].[№ Лаборатории]) INNER JOIN [Программное обеспечение лаборатории] ON Лаборатории.[№ Лаборатории] = [Программное обеспечение лаборатории].[№ Лаборатории] GROUP BY Лаборатории.[№ Лаборатории], [Техническое оборудование лаборатории].[Код ТО], [Программное обеспечение лаборатории].[Код ПО] HAVING ((([Техническое оборудование лаборатории].[Код ТО])=" & ПолеСоСписком14 & ") AND (([Программное обеспечение лаборатории].[Код ПО])=" & ПолеСоСписком16 & "));"

End Sub

Option Compare Database

Dim x As Integer, y As Integer, i As Integer, rst As DAO.Recordset, db As Database, rst2 As DAO.Recordset, rst3 As DAO.Recordset, rst4 As DAO.Recordset, x2 As Integer, y2 As Integer, str3 As String

Sub Vivod()

Dim nMyAge As Integer

nMyAge = nMyAge + 10

MsgBox nMyAge

End Sub

Private Sub Form_Load()

Set db = CurrentDb

Set rst = db.OpenRecordset("Select * From [Программное обеспечение лаборатории]")

Set rst2 = db.OpenRecordset("Select * From [Техническое оборудование лаборатории]")

Set rst3 = db.OpenRecordset("Select * From [Техническое оборудование]")

Set rst4 = db.OpenRecordset("Select * From [Программное обеспечение]")

If Not rst.EOF Then

rst.MoveLast

rst.MoveFirst

End If

If Not rst2.EOF Then

rst2.MoveLast

rst2.MoveFirst

End If

End Sub

Private Sub lblnl_Click()

lblnl.RowSource = "SELECT [Программное обеспечение лаборатории].[Код ПО], [Программное обеспечение лаборатории].[№ Лаборатории] AS [Программное обеспечение лаборатории_№ Лаборатории], [Техническое оборудование лаборатории].[№ Лаборатории] AS [Техническое оборудование лаборатории_№ Лаборатории], [Техническое оборудование лаборатории].[Код ТО], [Техническое оборудование лаборатории].[№ Лаборатории] FROM (Лаборатории INNER JOIN [Техническое оборудование лаборатории] ON Лаборатории.[№ Лаборатории] = [Техническое оборудование лаборатории].[№ Лаборатории]) INNER JOIN [Программное обеспечение лаборатории] ON Лаборатории.[№ Лаборатории] = [Программное обеспечение лаборатории].[№ Лаборатории] WHERE ((([Программное обеспечение лаборатории].[Код ПО])=2) AND (([Техническое оборудование лаборатории].[Код ТО])=1));"

End Sub

Private Sub lblpo_Click()

rst.MoveFirst

'MsgBox lblpo

y2 = lblpo

For i = 1 To rst.RecordCount

'MsgBox rst.Fields("Название")

If y2 = rst.Fields("Код ПО") Then

y = rst.Fields("Код ПО")

End If

rst.MoveNext

Next i

MsgBox y

End Sub

Private Sub lblto_Click()

rst2.MoveFirst

'MsgBox lblto

x2 = lblto

For i = 1 To rst2.RecordCount

'MsgBox rst2.Fields("Код ТО")

If x2 = rst2.Fields("Код ТО") Then

x = rst2.Fields("Код ТО")

End If

rst2.MoveNext

Next i

MsgBox x

End Sub

Private Sub Кнопка16_Click()

Dim db As Database, gdf As QueryDef

Set db = CurrentDb

Set gdf = db.QueryDefs("добавление рассписание")

кодзаявки.SetFocus

gdf.Parameters(0) = кодзаявки.Text

Число.SetFocus

gdf.Parameters(1) = Число.Text

gdf.Execute

End Sub

Private Sub Кнопка37_Click()

lblnl.RowSource = "SELECT [Программное обеспечение лаборатории].[№ Лаборатории] FROM (Лаборатории INNER JOIN [Техническое оборудование лаборатории] ON Лаборатории.[№ Лаборатории] = [Техническое оборудование лаборатории].[№ Лаборатории]) INNER JOIN [Программное обеспечение лаборатории] ON Лаборатории.[№ Лаборатории] = [Программное обеспечение лаборатории].[№ Лаборатории] WHERE ((([Программное обеспечение лаборатории].[Код ПО])=" & y & ") AND (([Техническое оборудование лаборатории].[Код ТО])=" & x & "));"

End Sub

Option Compare Database

Dim rst As DAO.Recordset, db As Database, rst2 As DAO.Recordset

Private Sub Form_Load()

Set db = CurrentDb

Set rst2 = db.OpenRecordset("Select * from таблица")

Set rst = db.OpenRecordset("Select * from Расписание")

lbl1 = rst.Fields("День недели")

If Not rst.EOF Then rst.MoveNext

lblnew = rst.Fields("Предмет")

End If

End Sub

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

...