Иптышев А.А., Морозов Д.И., Городилов А.А., Иптышев М.А. Базы данных

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

Рис.21 Схема связи приложения Delphi с базами данных

Компонент TTable представляет структуру и данные, содержащиеся в таблице

базы данных, а компонент TQuery — набор данных, содержащий информацию,

возвращенную в результате выполнения SQL-запроса. Компонент TStoredProc

инкапсулирует хранимые процедуры на SQL-сервере. В этой главе для ясности

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

наборах данных. Компонент TQuery детально рассматривается несколько позже.

5.2. КЭШИРОВАНИЕ ИЗМЕНЕНИЙ

По умолчанию все изменения в наборе данных, завершаемые методами Post,

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

работы, при котором все изменения, вносимые пользователем в записи, кэшируются

— т.е. сохраняются в памяти локально. В этом случае пользователь работает не с

реальными данными, а с их копиями. И только по специальной команде все

внесенные пользователем изменения заносятся в базу данных.

Режим кэширования определяется свойством CachedUpdates компонента

Table. По умолчанию это свойство равно false и кэширование не производится.

Если установить его в true, то все изменения набора данных будут кэшироваться.

Они передаются в базу данных только после выполнения метода Apply -Updates.

BDE

Файлы BD, TBD

Пользователь

Элементы управления

(DataControls)

Элементы связи

(DataSourse)

DataSet -наборы данных

(Query, Table)

Если же после множества изменений выполнить метод CancelUpdates, то все

изменения, произведенные после последнего выполнения ApplyUpdates,

отменяются.

Метод CommitUpdates очищает буфер кэша, после чего он готов для приема

новой порции информации.

Проверьте это, построив простое приложение, вид которого показан на рис.

9.43. Индикатор Кэширование переключает режим кэширования. Кнопка Фиксация

фиксирует все сделанные изменения в базе данных. Кнопка Отмена отменяет

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

ли оно в режиме кэширования и не было ли сделано изменений, которые не

зафиксированы в базе данных. Если были, то следует спросить пользователя о

необходимости их сохранения и при положительном ответе зафиксировать

изменения.

Коды этого приложения очень простые. Для таблицы Tablel свойство

CachedUpdates первоначально надо задать равным true. В приложение можно

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

изменений. Ее можно объявить как типизированную константу:

const modif:boolean = false;

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

обработчик:

Tablel.CachedUpdates:= not Tablel.CachedUpdates;

BApplyUpdates.Enabled:= Tablel.CachedUpdates;

BCancelUpdates.Enabled:= Tablel.CachedUpdates;

if Tablel.CachedUpdates then modif:=false;

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

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

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

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

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

if Tablel.CachedUpdates then modif:=true;

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

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

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

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

Tablel.CancelUpdates;

modif:=false; y

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

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

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

if Tablel.CachedUpdates and modif "

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

mtConfirmation,mbYesNoCancel,0) of mrYes: Tablel.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. Это исключит неоправданное поддержание связи

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

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

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

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

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

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

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

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

увидите некоторое различие между ними во время выполнения. В свойстве Options

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

справке Delphi.

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

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

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

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

других приложений. Свойство можно изменять только при Active = false.

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

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

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

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

компонента немного вниз и на верх формы поместите компонент DBNavigator (см.

рис.).

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

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

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

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

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

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

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

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

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

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

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

записи

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

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

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

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

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

оставить только кнопки nbFirst, nbPrior, nbNext и nbLast, а все остальные убрать.

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

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

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 — это целое число.

Имеется также ряд свойств, переводящих один тип значений в другой.

Например, свойство AsString переводит тип любого поля в строку при чтении

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

значения поля. Например, вы можете написать

EDep.text := Tablel.FieldByName('Dep').AsString;

EYear.text := Tablel.FieldByName('Year_b').AsString;

ESex.text := Tablel.FieldByName('Sex').AsString;

и в окна редактирования EDep, EYear и ESex будут занесены в текстовом

виде значения в текущей записи полей Dep, Year_b и Sex, хотя поле Dep имеет тип

строки, поле Yearjb — целое значение, а поле Sex — булево. Если для поля Sex вы

не задавали значений DisplayValues, то в окне редактирования ESex будут

отображены

Значения «true» или «false». Если же вы задали значения свойства

DisplayValues, например «м; ж» или «мужск; женск», то отобразятся именно эти

заданные значения.

То же свойство AsString работает и как обратное преобразование типов.

Продолжая предыдущий пример вы можете после того, как пользователь

отредактировал значения в полях редактирования EDep, EYear и ESex, внести эти

значения в текущую запись, например, следующим кодом:

Tablel.Edit;

Tablel.FieldByName('Dep').AsString:=EDep.text;

Tablel.FieldByName('Year_b').AsString:=EYear.text;

Tablel.FieldByName('Sex').AsString := ESex.text; Tablel.Post;

Для полей Year_b и Sex текст будет преобразован соответственно в целое и

булево значение. При этом не обязательно, чтобы пользователь в окне ESex писал

полностью обозначение пола сотрудника.

Ему достаточно написать только первую букву: «t» или «f», если

отображаемые значения true и false, и «м» или «ж», если отображаемые значения

«мужск» и «женск».