Навигационный способ доступа к данным

Лабораторная работа № 31.

Небесный Континент

Континент Бегаритто

Континент Милис

Демонический материк

Центральный Материк

Он разделён на три части Горной Грядой Красного Дракона.

Бедные и нуждающиеся северные земли пережившие множество войн. Королевство Асура на западе один из самых изобильных и богатых регионов в мире. Ряд крупных стран всегда борющиеся за власть и подверженные беспорядкам на юге.

Человеческая раса составляет большинство населения.

Бедное место с сильными монстрами.

Повелители Демонов управляют здесь разными местами.

Демонические расы составляют наибольшую часть населения.

На севере расположен Великий Лес, а на юге Святое Королевство Милис.

Эти два региона разделяет Горная Гряда Синего Дракона, и только Тракт Святого Меча соединяет их, проходя сверху донизу, без единого монстра на тракте.

Население примерно пятьдесят на пятьдесят состоит из людей и зверолюдей.

Большое количество лабиринтов, место со множеством странных проявлений магической силы.

Сила монстров эквивалентна монстрам с Демонического Континента.

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

Уровень земли тут выше чем в трёх тысячах метрах над морем.

Место обитания небесной расы.

В качестве примера рассмотрим программу,которая обеспечивает работу с базой данных Записная книжка, но уже в режиме формы.

Рис. 6.14 Форма программы работы с базой данных Записная книжка

(режим формы)

Форма программы приведена на рис. 6.14. Компоненты DBEdit и DBMemo обеспечивает отображение полей текущей записи, компонент Image – отображение иллюстрации, имя файла которой находится в поле Image. Соединение с базой данных обеспечивает компонент ADOConnection, адоступ к данным, находящимся в таблице Contacts- компонент ADODataSet. Значения свойств этих компонентов приведены в табл. 6.13.

Таблица 6.13 Значения свойств компонентов

Компонент	Свойство	Значение
ADOConnection1	Connection- String     LoginPrompt	Provider=Microsoft.Jet.OLEDB.4.4; Data Source=D:\Database\notebook.mdb; Persist Security Info=False False
ADODataSet1	Connection CommandText	ADOConnection1 SELECT * FROM Contacts
DataSource1	DataSet	ADOTable1
DBEdit1	DataSource DataField AutoSelect ReadOnly	DataSource1 Name False True
DBEdit2	DataSource DataField AutoSelect ReadOnly	DataSource1 Phone False True
DBMemo	DataSource DataField	DataSource1 Comment
Image1	Proportional Enabled	True False

В форме программы отображается одна запись базы данных (эта запись называется текущей). Компонент DBNavigator, его свойства приведены в табл. 6.14, обеспечивает перемещение указателя текущей записи к следующей, предыдущей,первой или последней записи, а также выполнение других операций в результате щелчка на соответствующей кнопке (табл. 6.15). Следует обратить внимание на свойство VisibleButtons. Оно позволяет скрыть некоторые кнопки компонента DBNavigator и тем самым запретить выполнение соответствующих операций над файлом данных. Например, присвоив значение False свойству VisibleButtons.nbDelete, можно скрыть кнопку nbDelete и тем самым запретить удаление записей.

Значения свойств компонента DBNavigator1 приведены в табл. 6.16.

Таблица 6.14. Свойства компонента DBNavigator

Свойство	Определяет
DataSource	Источник данных. В качестве источника данных может выступать, например, компонент ADODataSet, ADOTable или ADOQuery
VisibleButtons	Кнопки, которые отображаются в поле компонента. Скрыв некоторые кнопки, можно запретить выполнение соответствующих действий.

Таблица 6.15 Кнопки компонента DBNavigator

Кнопка	Обозначение	Действие
К первой	nbFirst	Указатель текущей записи перемещается к первой записи файла данных
К предыдущей	nbPrior	Указатель текущей записи перемещается к предыдущей записи файла данных
К следующей	nbNext	Указатель текущей записи перемещается к следующей записи файла данных
К последней	nbLast	Указатель текущей записи перемещается к последней записи файла данных
Добавить	nbInsert	В файл добавляется новая запись
Удалить	nbDelete	Удаляется текущая запись файла данных
Редактирование	nbEdit	Устанавливает режим редактирования текущей записи
Сохранить	nbPost	Изменения, внесенные в текущую запись, записываются в файл данных
Отменить	Cancel	Отменяет внесенные в текущую запись изменения
Обновить	nbRefresh	Записывает внесенные изменения в файл

Модуль формы программы работы с базой данных приведен в листинге 6.5. Процедура обработки события AfterScroll для компонента ADODataSet,которое возникает после того, как указатель текущей записи будет перемещен к другой записи (следующей или предыдущей,в зависимости от того, какую кнопку комп онента DBNavigator нажал пользователь) инициирует процесс отображения иллюстрации. Отображение иллюстрации обеспечивает процедура ShowImage, которой в качестве параметра передается содержимое поля Image (или пустая строка, если поле пустое.). Процедура ShowImage выводит иллюстрацию или, если поле Image текущей записи пустое, картинку nobody.jpg. В поля Name, Phone и Comment информация вводится обычным образом. Чтобы ввести имя файла иллюстрации в поле Image, пользователь должен сделать щелчок на компоненте Image1. В результает открывается диалог Выбор изображения (компонент OpenDialog), в котором пользователь может выбрать иллюстрацию. Если иллюстрация выбрана,то имя файла иллюстрации записывается в поле Image текущей записи БД, а сам файл копируется в каталог Images.

Листинг 6.5 Программа работы с базой данных Записная книжка

(режим формы)

unit MainForm;

Дата добавления: 2015-06-04