Иптышев А.А. Курс лекций по дисциплине базы данных

Подождите немного. Документ загружается.

const modif:boolean = false;

Для события OnClick индикатора Кэширование надо предусмотреть

обработчик:

Tablel.CachedUpdates:= not Tablel.CachedUpdates;

BApplyUpdates.Enabled:= Tablel.CachedUpdates;

BCancelUpdates.Enabled:= Tablel.CachedUpdates;

if Tablel.CachedUpdates then modif:=false;

Он изменяет режим кэширования таблицы, делает доступными или не-

доступными в зависимости от режима кнопки Фиксация (ее имя — BAp-

plyUpdates) и Отмена (ее имя — BCancelUpdates) и, если включается режим

кэширования, то сбрасывается в false значение modif.

Для события AfterEdit компонента Tablel можно предусмотреть обра-

ботчик:

if Tablel.CachedUpdates then modif:=true;

который фиксирует в переменной modif факт редактирования записи.

Обработчик события OnClick кнопки Фиксация имеет вид

Tablel.ApplyUpdates; Tablel.CommitUpdates; modif :=false;

Обработчик события OnClick кнопки Отмена имеет вид

Tablel.CancelUpdates;

modif:=false;

В обоих обработчиках переменная modif сбрасывает в false, фиксируя

отсутствие не сохраненных изменений.

Обработчик события OnCloseQuery формы имеет вид:

if Tablel.CachedUpdates and modif "

then case MessageDlg('Сохранить изменения в базе данных?',

mtConfirmation,mbYesNoCancel,0) of mrYes: Tab-

lel.ApplyUpdates;

mrCancel: CanClose:=false;

mrNo: Tablel.CancelUpdates;

end;

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

«Сохранить изменения в базе данных?». При положительном ответе измене-

ния сохраняются методом ApplyUpdates. При отрицательном — изменения

отменяются методом CancelUpdates. Если при получении запроса пользова-

тель нажал кнопку Cancel, то приложение не закрывается (CanClose задается

равным false).

Сделайте такое приложение и поработайте с ним, чтобы почувствовать

различие в работе при наличии и отсутствии кэширования.

Тема 6 Средства визуализации данных в приложениях БД

6.1 Класс TDataSet

TDataSet класс - один из наиболее важных объектов БД. Чтобы начать

работать с ним, Вы должны взглянуть на следующую иерархию (рис. 22):

TDataSet

TDBDataSet

|-- TTable

|-- TQuery

|-- TStoredProc

Рис. 22 – Иерархия классов, порожденных от TDataSet

TDataSet содержит абстрактные методы там, где должно быть непо-

средственное управление данными. TDBDataSet знает, как обращаться с па-

ролями и то, что нужно сделать, чтобы присоединить Вас к определенной

таблице. TTable знает (т.е. уже все абстрактные методы переписаны), как об-

ращаться с таблицей, ее индексами и т.д.

Как Вы увидите в далее, TQuery имеет определенные методы для обра-

ботки SQL запросов.

TDataSet - инструмент, который Вы будете использовать, чтобы от-

крыть таблицу, и перемещаться по ней. Конечно, Вы никогда не будете непо-

средственно создавать объект типа TDataSet. Вместо этого, Вы будете ис-

пользовать TTable, TQuery или других потомков TDataSet (например, TQBE).

Полное понимание работы системы, и точное значение TDataSet, будут ста-

новиться все более ясными по мере прочтения этой главы.

На наиболее фундаментальном уровне, Dataset это просто набор запи-

сей, как изображено на рис.23

Рис. 23 - Любой dataset состоит из ряда записей (каждая содержит N полей) и указатель на

текущую запись

В большинстве случаев Dataset будет иметь прямое, один к одному, со-

ответствие с физической таблицей, которая существует на диске. Однако в

других случаях Вы можете исполнять запрос или другое действие, возвра-

щающие dataset, который содержит либо любое подмножество записей одной

таблицы, либо объединение (join) между несколькими таблицами. В тексте

будут иногда использоваться термины DataSet и TTable как синонимы.

Обычно в программе используются объекты типа TTable или TQuery,

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

ние объекта типа TTable называемого Table1.

Итак, самое время начать исследование TDataSet. Как только Вы по-

знакомитесь с его возможностями, Вы начнете понимать, какие методы ис-

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

Ключевой момент здесь - не забывать, что почти всякий раз, когда програм-

мист на Delphi открывает таблицу, он будет использовать TTable или TQuery,

которые являются просто некоторой надстройкой над TDataSet.

6.2 Открытие и закрытие DataSet

В этой главе Вы узнаете некоторые факты об открытии и закрытии

DataSet.

Если Вы используете TTable для доступа к таблице, то при открытии

данной таблицы заполняются некоторые свойства TTable (количество запи-

сей RecordCount, описание структуры таблицы и т.д.).

Прежде всего, Вы должны поместить во время дизайна на форму объ-

ект TTable и указать, с какой таблицей хотите работать. Для этого нужно за-

полнить в Инспекторе объектов свойства DatabaseName и TableName. В

DatabaseName можно либо указать директорию, в которой лежат таблицы в

формате dBase или Paradox (например, C:\DELPHI\DEMOS\DATA), либо вы-

брать из списка псевдоним базы данных (DBDEMOS). Псевдоним базы дан-

ных (Alias) определяется в утилите Database Engine Configuration. Теперь, ес-

ли в Инспекторе Объектов свойство Active установить в True, то при запуске

приложения таблица будет открываться автоматически.

Чтобы открыть таблицу во время выполнения программы необходимо

вызвать метод Open класса TDataSet, например, так:

Table1.Open;

Для закрытия же таблицы программно можно написать следующую

строку:

Table1.Close;

Проверяя значение свойства Active набора данных можно узнать, от-

крыта ли в текущий момент таблица:

If not(Table1.Active) then Table1.Open;

6.3 Отслеживание состояния DataSet

В предыдущей главе Вы узнали, как использовать TDataSource, чтобы

узнать текущее состоянии TDataSet. Использование DataSource – это простой

путь выполнения данной задачи. Однако если Вы хотите отслеживать эти со-

бытия без использования DataSource, то можете написать свои обработчики

событий TTable и TQuery:

property OnOpen

property OnClose

property BeforeInsert

property AfterInsert

property BeforeEdit

property AfterEdit

property BeforePost

property AfterPost

property OnCancel

property OnDelete

property OnNewRecord

Большинство этих свойств очевидны. Событие BeforePost функцио-

нально подобно событию TDataSource.OnUpdateData, которое объяснено вы-

ше. Другими словами, программа STATE работала бы точно также, если бы

Вы отвечали не на DataSource1.OnUpdateData а на Table1.BeforePost. Конеч-

но, в первом случае Вы должен иметь TDataSource на форме, в то время как

во втором этого не требуется.

6.4 Установка связей между компонентами и базой данных,

навигация по таблице

Давайте построим простейшее приложение, работающее с базой дан-

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

использовать компонент Table. Откройте новое приложение и перенесите на

форму компонент Table со страницы библиотеки Data Access. Перенесите

также на форму с той же страницы библиотеки компонент DataSource, кото-

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

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

месте формы. В качестве компонента визуализации данных возьмите компо-

нент DBGrid со страницы Data Control. Это визуальный компонент, в кото-

ром будут отображаться данные формы. Поэтому растяните его пошире, или

можете в его свойстве Align установить alClient (рис.24)

Рис.24 Пример расположения компонентов

Теперь нам надо установить цепочку связей между этими компонента-

ми, показанную выше на рис.23. Главное свойство DBGrid и других компо-

нентов визуализации и управления данными — DataSource. Выделите на

форме компонент DBGridl и щелкните на его свойстве DataSource в Инспек-

торе Объектов. Вы увидите выпадающий список, в котором перечислены все

имеющиеся на форме источники данных. В нашем случае имеется только

один источник данных — DataSourcel. Установите его в качестве значения

свойства DataSource. Далее надо установить связь между источником дан-

ных и набором данных. Выделите компонент DataSourcel и найдите в Ин-

спекторе Объектов его главное свойство — DataSet. Щелкните на этом свой-

стве и из выпадающего списка выберите Tablel (если бы у вас было несколь-

ко компонентов — наборов данных, то все они были бы в этом списке).

Теперь осталось связать компонент Tablel с необходимой таблицей ба-

зы данных. Для этого служат два свойства компонента Table: DatabaseName

и TableName. Прежде всего надо установить свойство DatabaseName, В вы-

падающем списке этого свойства в Инспекторе Объектов вы можете видеть

все доступные BDE псевдонимы баз данных. Выберите из этого списка псев-

доним dbP, который вы сами ввели ранее. Если этого псевдонима там нет,

значит вы забыли его создать..

После этого можно устанавливать значение свойства TableName. В

выпадающем списке этого свойства перечислены таблицы, доступные в дан-

ной базе данных.

А теперь наступает самый ответственный момент. Вы можете прямо в

процессе проектирования соединиться с базой данных. Соединение осущест-

вляется свойством Active. По умолчанию оно равно false. Установите его в

true. Если все сделано вами правильно, то вы увидите в поле компонента

DBGridl данные из таблицы (рис. 25) и сможете просмотреть их.

Рис.25 Форма простого приложения после соединения компонента Table с базой данных

Вы можете прямо сейчас, хотя приложение еще не закончено, сохра-

нить проект, запустить его на выполнение и убедиться, что с ним можно ра-

ботать. Вы можете просматривать данные, редактировать их (редактирован-

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

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

Pers базы данных dbP невозможно изменить поле Num, поскольку оно авто-

матически изменяется и доступно только для чтения (см. раздел 9.2.2). Вы

увидите также, что нельзя задать произвольное имя подразделения Dep, по-

скольку имеется таблица просмотра Dep, задана целостность на уровне ссы-

лок и допустимы только те значения Dep, которые имеются в головной таб-

лице Dep (см. разделы 9.2.3.2 и). Правда, если вы хотите проверять все эти

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

выключив опцию Stop On Delphi Exceptions на странице Language Exceptions

в окне опций отладки (см. раздел 2.5.10.8).

Следует сразу отметить, что заранее выставлять для таблиц Active =

true допустимо только в процессе настройки и отладки приложения, рабо-

тающего с локальными базами данных.

В законченном приложении во всех таблицах сначала должно быть ус-

тановлено Active = false, затем при событии формы OnCreate эти свойства

могут быть установлены в true, а при событии формы OnDestroy эти свойст-

ва опять должны быть установлены в false. Это исключит неоправданное

поддержание связи с базой данных, которое занимает ресурсы, а при работе в

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

Разрешить пользователю так просто редактировать данные в табли-

це в большинстве случаев недопустимо. Слишком велика вероятность, что

без соответствующей проверки вводимых данных будут сделаны ошибки.

Предотвратить редактирование данных вы можете, установив свойство Rea-

dOnly компонента DBGridl в true. Другой способ сделать то же самое — ус-

тановить в свойстве Options подсвойство dgEditing в false. Попробуйте оба

варианта и вы увидите некоторое различие между ними во время выполне-

ния. В свойстве Options есть еще много полезных подсвойств. Посмотрите

сведения о них во встроенной справке Delphi.

Отметим еще одно свойство компонента Table — Exclusive. Это свой-

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

щении к ней нескольких приложений (например, при работе в сети или в

многозадачном режиме). Если задать значение этого свойства true, то табли-

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

при Active = false.

В спроектированное вами простейшее приложение можно добавить

еще один компонент, управляющий работой с таблицей — навигатор DBNa-

vigator, расположенный на странице Data Control библиотеки компонентов.

Измените свойство Align компонента DBGridl на alBottom, сдвиньте верх-

ний край этого компонента немного вниз и на верх формы поместите компо-

нент DBNavigator (см. рис.).

Компонент имеет ряд кнопок, служащих для управления данными. Пе-

речислим их названия и назначение, начиная с левой кнопки:

nbFirst перемещение к первой записи

nbPrior перемещение к предыдущей записи

nbNext перемещение к следующей записи

nbLast перемещение к последней записи

nblnsert вставить новую запись перед текущей

nbDelete удалить текущую запись

nbEdit редактировать текущую запись

nbPost послать отредактированную информацию в базу данных

nbCancel отменить результаты редактирования или добавления но-

вой записи

nbRefresh очистить буфер, связанный с набором данных

Пользуясь свойством навигатора VisibleButtons, можно убрать любые

ненужные в данном приложении кнопки. Например, если вы не хотите раз-

решить пользователю вводить в базу данных новые записи, то можете уста-

новить в false кнопку nblnsert. Если вы хотите вообще запретить редактиро-

вание, то можно оставить только кнопки nbFirst, nbPrior, nbNext и nbLast, а

все остальные убрать.

Чтобы приложение с навигатором работало, надо установить его ос-

новное свойство — DataSourсе — источник данных (имя компонента Data-

Source).

Тема 7 Навигация по таблице баз данных, доступ к полям

7.1 Доступ к полям

Поля отображаются объектами класса TField и производных от него

классов TStringField, TSmallintField, TBooleanField и т.п. Эти объекты мо-

гут создаваться тремя способами:

Автоматически генерироваться для каждого компонента набора данных

(Table и др.)

Создаваться в процессе проектирования с помощью Редактора Полей

Создаваться программно в процессе выполнения приложения

Автоматическая генерация объектов класса TField происходит в мо-

мент открытия базы данных, если эти объекты не создаются другими спосо-

бами: в процессе проектирования с помощью Редактора Полей или про-

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

цы (это может быть избыточно для конкретного приложения).

Создание объектов полей в процессе проектирования с помощью Ре-

дактора Полей было рассмотрено ранее. Этот вариант исключает автомати-

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

даны с помощью Редактора Полей, недоступны для приложения. Использо-

вание Редактора Полей,

Как мы видели, очень удобно, так как позволяет задать в процессе про-

ектирования множество полезных свойств для каждого поля.

Программное создание объектов класса TField используется сравни-

тельно редко и мы его рассматривать не будем.

Доступ к объектам полей возможен тремя способами:

- По порядковому индексу объекта

- По имени поля

- По имени объекта

Доступ по порядковому индексу осуществляется через свойство

Fields[i:integer], где i — индекс объекта. Индексация, как всегда в Delphi,

начинается с 0. Например, Tablel.FieldsfO] — это первый объект поля табли-

цы Tablel.

Доступ по имени поля осуществляется с помощью метода

FieldByName('<HMH>'). Например, Tablel. FieldByName('Fam') — это объект,

связанный с полем Fam.

Доступ по имени объекта возможен только к объектам, созданным с

помощью Редактора Полей. По умолчанию Delphi формирует имена объектов

полей (Name) из имени таблицы и имени поля. Например, TablelDep. Вы

можете видеть эти имена, работая с Редактором Полей. Конечно, вы можете

изменить это имя на любое другое. Обращение к объекту по имени не требу-

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

сто написать TablelDep и это будет необходимый вам объект.

Автоматически создаваемые объекты имени не имеют — их свойство

Name пусто. Поэтому для них обращение по имени невозможно.

Среди рассмотренных способов доступа к полям наиболее быстрым,

конечно, является доступ по имени объекта. Его недостатком является жест-

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

строка кода в разных ситуациях обращалась к разным полям, то надо исполь-

зовать или доступ по индексу Fields[i] (тогда индекс i можно сделать пере-

менным), или по имени поля методом FieldByName(s) (переменную s можно

сделать переменной).

Вы уже видели множество свойств объектов класса TField и производ-

ных от них. Это свойства Read-Only, DisplayLabel, CustomConstraint и

многие другие. Сейчас рассмотрим, как добраться до главного свойства объ-

екта — хранящегося в нем значения поля текущей записи.

Значение поля хранится в свойстве Value. Тип этого свойства опреде-

ляется типом поля. Например, Tablel.FieldByName('Fam').Value — это строка,

a Tablel.FieldByName('Year_b').Value — это целое число.