Обработка нормализованной многотабличной структуры бд.

↑

▷ Содержание

⇐ ПредыдущаяСтр 9 из 24Следующая ⇒

Цель работы:

1. Изучить работу с многотабличными базами данных в приложениях созданных на VB

2. Изучить приемы обработки БД с помощью технологии DAO.

Ход работы:

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

Откройте БД «Компьютерная школа» и изучите структуру таблицы Spisok. Обратите внимание, в том случае если некоторые студенты записались на изучение только одного или двух предметов, то образуются неиспользуемые поля. Проведем нормализацию созданной базы данных. Для этого создайте две дополнительных таблицы и отредактируйте таблицу Spisok в соответствие с указанными далее примерами.

Создайте связи между таблицами: между Spisok и Ocenki связь один-ко-многим, между Predmet и Ocenki связь один-ко-многим.

Заполните таблицы данными.

Обратите внимание, в таблице Ocenki теперь хранятся только наборы кодов, комбинация двух кодов однозначно определяет студента и изучаемую им дисциплину. Данной комбинации ставится в соответствие только одно поле – оценка.

Запустите Visual Basic, создайте новый проект.

Разместите на форме элементы, так как показано на рисунке.

Обратите внимание, что на форме нет объекта Data. В данной лабораторной работе мы рассмотрим альтернативный способ доступа к БД. Навигатор для перемещения по записям БД мы создадим с помощью объектов CommandButton и запрограммируем их работу самостоятельно.

Для размещенных на форме объектов задайте имена, например, txtFam, txtName, txtOtch, txtGrup. Т.к. объекты Label (надпись) Вы не будете использовать в программном коде имена им можно оставить без изменения. Для кнопок: Добавить (cmbAdd), Редактировать (mbEdit), Удалить (cmbDel), Сохранить (cmbSave), Отмена (cmbCancel), << (cmbFirst), < (cmbPrew), > (cmbNext), >> (cmbLast).

Для работы с БД в данном приложении воспользуемся технологией DAO. Создайте следующий программный код:

Public dbsData As Database

Public rstSpisok As Recordset

Private Sub Form_Load()

Set dbsData = OpenDatabase("dbLaba.mdb")

Set rstSpisok = dbsData.OpenRecordset("Spisok", dbOpenDynaset)

End Sub

В инструкции OpenDatabase может потребоваться указать полный путь к открываемой БД, по умолчанию указанный файл открывается из текущей директории. В инструкции OpenRecordset указано имя открываемой таблицы, здесь можно разместить и SQL-запрос. Результатом выполнения данной инструкции, в любом случае, будет являться формирование некоторого набора записей в памяти компьютера и установление связи с ним через переменную rstSpisok.

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

Public Sub FormRefresh()

Познавательные статьи:



Техника нижней прямой подачи мяча

Комплекс физических упражнений для развития мышц плечевого пояса

Стандарт Порядок надевания противочумного костюма

Общеразвивающие упражнения без предметов