ВУЗ:
Составители:
117
'установим указатель r на таблицу "ГРУППЫ" в этой БД
Set r = db.OpenRecordset("ГРУППЫ")
'перейдем на первую запись в этой таблице
r.MoveFirst
‘ содержимое поля СРБАЛ присвоим переменной s и выведем ее в окне
s = r.Fields("СРБАЛ").Value
MsgBox s
'так можно добавить новую запись в таблицу
'r.AddNew
'цикл опроса записей
Do While Not r.EOF
'доступ к полю для чтения
s = r.Fields("СРБАЛ").Value
MsgBox s
'доступ к полю для записи:
'разрешить редактировать текущую запись
r.Edit
'измененить значение поля в текущей записи (добавим 1 к каждой записи)
r.Fields("СРБАЛ").Value = s + 1
'запоминаем изменения
r.Update
'перейти на последующую запись
r.MoveNext
Loop
'закрыть указатель на таблицу БД
r.Close
'закрыть указатель на БД
db.Close
End Sub
3.4. Примеры конструирования баз данных
3.4.1. Пример 1. Контроль успеваемости в вузе
Предметная область (ПО): система обучения в вузе.
Техническое задание (ТЗ): обеспечить запросы: по оценкам студентов, по
предметам, по преподавателям, по группам, по местопроживанию и по возрасту
студентов.
Информационно-логическая модель (ИЛМ) предметной области:
В соответствии с ТЗ можно выделить сразу два информационных объекта: объ-
ект «Успеваемость», содержащий всю информацию об оценках, и объект «Студен-
ты», содержащий всю информацию о студентах. В соответствии с требованием
нормализации, реквизиты информационных объектов должны быть атомарны, то
есть неделимы. Поэтому выполняем декомпозицию (разделение) двух объявленных
объектов и добавляем следующие информационные объекты: «Группы», содержа-
щие данные по каждой группе, «Преподаватели» с данными по каждому преподава-
Страницы
- « первая
- ‹ предыдущая
- …
- 116
- 117
- 118
- 119
- 120
- …
- следующая ›
- последняя »
