BD_labs (Базы данных. Методические указания по выполнению лабораторных работ), страница 4

Варианты задания приведены в табл. 7.

Методические указания

1. Разработайте структуру таблицы «Списки».

2. Создайте простую форму с кнопкой для вызова процедуры добавления новых записей в таблицу «Списки».

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

4. Напишите процедуру обработки события «Нажатие кнопки»

Пример процедуры поиска в таблице «Заказы» заказа с максимальным количеством экземпляров товара приведен на рис.13.

Таблица 7.

Варианты задания

№	Правило формирования записей для таблицы «Списки»	Структура таблицы «Списки»
1	Сформировать списки работников, имеющих одну, две и т.д. профессий. Упорядочить списки по количеству профессий.	Номер списка (равный количеству профессий), номер элемента списка, номер работника
2	Сформировать списки работников для каждого отдела	Номер отдела, номер элемента списка, табельный номер
3	Сформировать списки студентов для посещения занятий по заданной дисциплине по заданной специальности в заданном семестре. Количество студентов в списке задает пользователь	Номер списка, номер элемента списка, учетный номер
4	Сформировать список книг автора (авторов), имеющего в библиотеке максимальное количество книг	Номер элемента списка, название книги, год издания
5	Сформировать список поставщиков, поставляющих товары в каждый филиал торговой фирмы	Номер элемента списка, наименование поставщика, адрес поставщика
6	Сформировать списки выпускников по каждой специальности, включив в каждый список не более n выпускников, имеющих наибольший средний балл	Номер списка, специальность, вуз, фамилия, имя, отчество, средний балл
7	Сформировать для каждой даты из расписания экзаменов список преподавателей принимающих экзамены	Дата, номер элемента списка, фамилия, имя, отчество
8	Сформировать списки преподавателей по каждой дисциплине	Номер списка, код дисциплины, учетный номер преподавателя, кафедра
9	Сформировать по каждому виду товара список поставщиков, поставляющих данный вид товара	Номер списка, номер элемента списка, вид товара, код поставщика
10	Списки неуспевающих студентов в заданном семестре: в список №1 включить студентов, имеющих три и более оценки «2», в список №2 –две «2», в список №3 – одну «2»	Номер списка, фамилия, имя, отчество, группа
11	Сформировать списки поставщиков для каждого вида деталей	Номер списка, номер элемента списка, код вида, наименование поставщика
12	Сформировать список дисциплин с максимальным количеством часов, отводимых на изучение дисциплины	Номер элемента списка, наименование дисциплины, код специальности, факультет
13	Сформировать список специальностей, по которым есть вакансии только на одном предприятии	Номер элемента списка, наименование специальности, наименование предприятия
14	Сформировать список заказов для почты, включив в каждый элемент списка по одному экземпляру заказа. Количество элементов в списке задает пользователь	Номер списка, номер элемента списка, код заказа, ФИО, адрес
15	Сформировать список заказов, включив в каждый элемент списка по одному заказу. Количество элементов в списке задает пользователь	Номер списка, номер элемента списка, код заказа, ФИО, адрес

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

Dim max As Integer 'максимальное количество экземпляров

Dim intmax As Variant 'указатель на запись

Dim r1 As Recordset 'набор записей

Dim db As Database 'текущая база данных

Set db = CurrentDb

Set r1 = db.OpenRecordset("Заказы") 'открытие набора записей

If r1.RecordCount = 0 Then

MsgBox "Нет записей"

r1.Close

Exit Sub

End If

r1.Index=”PrimaryKey” ’ Порядок перемещения по записям

max = 0

Do While Not r1.EOF

If r1![экземпляры] > max Then

max = r1![экземпляры]

intmax = r1.Bookmark 'сохранение адреса текущей записи

End If

r1.MoveNext 'переход к следующей записи

Loop

‘ Переход к записи с максимальным количеством экземпляров

r1.Bookmark = intmax

MsgBox r1![Код заказа] &" " & r1![Фио]& " " & r1![экземпляры]

r1.Close

End Sub

Рис. 13. Текст процедуры поиска максимального заказа

ПРИЛОЖЕНИЕ

ВАРИАНТЫ ПРИЛОЖЕНИЙ БАЗ ДАННЫХ

1. Служба занятости

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

2. Магазин

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

1. Индивидуальные учебные планы студентов

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

1. Библиотека

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

1. Торговая фирма

Приложение ведет учет товаров в филиалах торговой фирмы.

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

1. Трудоустройство выпускников вузов

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

1. Расписание экзаменов

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

1. Картотека преподавателей

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

1. Оптовая фирма

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

1. Результаты экзаменационной сессии

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

1. Поставка деталей

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

1. Учебные планы института

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

1. Служба занятости.

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

1. Наложенные платежи

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

1. Наложенные платежи

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

БИБЛИОГРАФИЧЕСКИЙ СПИСОК

1. Новалис С. Access 97. Руководство по макроязыку и VBA. – М.: Лори, 1998. – 590с.

2. Андреева Л.П. Базы данных. Методические указания по выполнению лабораторных работ. М.: МИРЭА, 2000.-32с.

3. Кирсанов Д. Веб-дизайн: книга Дмитрия Кирсанова. – СПб: Символ – Плюс, 2001 - 376с.