WWW.DISSERS.RU

БЕСПЛАТНАЯ ЭЛЕКТРОННАЯ БИБЛИОТЕКА

   Добро пожаловать!

Pages:     | 1 |   ...   | 3 | 4 || 6 | 7 |   ...   | 10 |

«Петр Дарахвелидзе Евгений Марков Санкт-Петербург «БХВ-Петербург» 2003 УДК 681.3.06 ББК 32.973.26-018.2 Д20 П. Г., Марков Е. П. ...»

-- [ Страница 5 ] --

Для работы с этим типом требуется выделять и освобождать память (методы GetMem и FreeMem) Автоинкрементный TAutoIncField Значение поля в каждой новой (ftAutoInc) записи автоматически увеличива ется на Целое число в диапазоне от -2 483 648 до 2 483 647.

Применяется для обеспечения уникальности значений ключей BLOB Большой двоичный массив. Исполь зуется для хранения любых данных, (ftBlob) которые можно преобразовать в цифровой массив (Memo, Graphic).

В базах данных такие данные хра нятся в отдельных файлах, а поле содержит лишь ссылки на них Memo TMemoField Набор строк произвольной длины TGraphicField Формат для хранения изображений Графический (ftGraphic) Форматированный набор строк Форматированный Memo произвольной 326 Часть Приложения баз данных Таблица (продолжение) Тип Класс Описание OLE Paradox Поле OLE для таблиц Paradox OLE Поле OLE для таблиц dBASE (ftDBaseOle) Типизированный Типизированный двоичный (ftTypedBinary) Курсор Oracle Курсор для хранимых процедур сервера Oracle TStringFiel d Фиксированный Строка символов с нулевым символом в конце (ftFixedChar) Расширенный строковый Динамически выделяемая строка символов в кодировке Unicode Целый большой 64-битное целое число Абстрактный TADTField Произвольный тип данных, созда (ftADT) ваемый пользователем на сервере БД и используемый в приложении Массив TArrayField Массив полей любого типа, кроме TarrayField TReferenceField Указатель на объект, содержащийся (ftReference) в другой таблице TDataSetField Набор данных Содержит набор данных, интегриро (ftDataSet) ванный в текущий набор данных BLOB Oracle 8 Тип BLOB для сервера Oracle (ftOraBlob) CLOB Oracle 8 Тип для сервера Oracle (ftOraClob) Вариант TVariantField Вариант (ftVariant) Интерфейс Ссылка на интерфейс (потомок от Ссылка на интерфейс Ссылка на интерфейс IDispatch IDispatch) Глава 13. Поля и типы данных Таблица 13.1 (окончание) Тип Класс Описание Глобальный Глобальный идентификатор GUID идентификатор Календарный Календарный тип для наборов данных Десятичный с двоичным TFMTBCDField Тип BCD повышенной кодированием Примечание В Delphi тип данных BCD напрямую не поддерживается. Его использование обеспечивает денежный тип (ftCurrency). Поэтому точность BCD ограничена 20 цифрами после запятой. Для устранения этого ограничения используется тип FMTBcd, который обладает требуемой точностью.

Как видно из таблицы, наряду с традиционными типами данных, в Delphi имеются и специальные типы, использование которых значительно рас ширяет функциональность приложений. В частности, типы ftGuid позволяют создавать полноценные приложения БД для и OLE DB.

Практически на всех серверах БД пользователь имеет возможность созда вать собственные типы данных. Для их использования в приложениях Delphi имеется абстрактный тип данных и класс Абстрактный тип может включать любой скалярный тип данных (числа, даты, ссылки, массивы, наборы данных).

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

Данные типа BLOB (Binary Large OBject) представляют собой двоичные массивы произвольной длины. В самом поле содержится лишь ссылка на отдельный файл базы данных, в котором хранится двоичный массив. Таким образом, поля типа BLOB являются универсальным носителем любых дан ных, которые имеют скалярную и нескалярную структуру и которые можно преобразовать в двоичное представление.

Тип Memo представляет собой набор строк произвольной длины (его разно видность — форматированный Memo), основан на формате BLOB. Исполь 328 Часть III. Приложения баз данных зуется при необходимости сохранить текст из компонента тмето или из тек стового редактора.

Графический тип данных используется для хранения в базе данных изобра жений, основан на формате BLOB. Поле непосредственно взаимодействует с компонентом отображения данных (например Изображения должны храниться в формате BMP.

Типы данных и dBaseOle разработаны специально для использо вания возможностей СУБД Paradox и по работе с данными OLE.

В Delphi эти типы данных основаны на формате BLOB.

Специально для работы с сервером Oracle 8 предназначены типы и BLOB.

Тип ftArray организует массив из данных любой структуры, за исключением таких же массивов. Для каждого элемента массива может создаваться собст венный объект Для управления этим механизмом используется СВОЙСТВО SparseArrays В TDataSet.

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

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

Ограничения Контроль вводимых в поля набора данных в Delphi возложен на объекты полей, а не на компоненты отображения данных. Именно в рамках этого вопроса мы рассмотрим работу методов-обработчиков событий базового класса TFieid.

Перед сохранением значения поля в БД всегда вызывается метод-обра ботчик при этом автоматически проводится проверка на выпол нение задаваемых ограничений и ограничений типа данных. Кроме этого, здесь можно предусмотреть свою дополнительную обработку:

procedure TFieid);

begin if (Sender as < 0 then begin поля не может быть отрицательным');

(Sender as := Null;

end;

end;

Глава 13. Поля и типы данных Различают контроль значения в целом и посимвольный контроль. Метод проверяет значение поля целиком. Если при проверке обнаруже на ошибка, то выдается сообщение и фокус формы устанавливается на со ответствующем компоненте отображения данных.

Если метод onvaiidate не вызвал исключительной ситуации, то при сохра нении значения поля в БД вызывается обработчик события В принципе, можно предусмотреть операции по контролю данных и в этом методе, но тогда в случае ошибки возникает нежелательная исключительная ситуация, которая может привести к серьезным сбоям в работе приложения.

Проверить текущее значение поля перед его появлением в компоненте ото бражения данных можно в методе-обработчике OnGetText. Если параметр принимает истинное значение, то в параметре Text передается значение свойства DispiayText (значение в строковом формате в таком виде, как оно будет показано в компоненте отображения данных — с символами форматирования). В противном случае в параметре Text передается текущее значение в строковом формате.

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

В методе-обработчике OnSetText можно осуществлять текущий контроль значения в строковом формате в том виде, как оно представлено в компо ненте отображения данных. Напомним, что этот обработчик вызывается при каждом изменении свойства Text класса Рассмотренные методы-обработчики удобнее всего использовать для про верки текущего значения с точки зрения программной логики. Например, чтобы отпускная цена не была ниже закупочной или чтобы остаток не был больше первоначального количества товара в партии. Для проверки пра вильности самого значения класс TFieid имеет несколько полезных свойств.

Если на сервере БД задано ограничение на некоторое поле, его можно ис пользовать в приложении Delphi при помощи свойства Для создания собственного ограничения можно использовать свойство в котором применяется синтаксис SQL:

Value> При возникновении ошибки совсем не лишним будет, если программа вы даст некое осмысленное сообщение, которое поможет пользователю испра Часть III. Приложения баз данных вить оплошность. При работе с методами-обработчиками это можно преду смотреть в программном коде.

Для встроенного контроля предусмотрено специальное свойство — которое выводится в виде сообщения при возник новении ошибки. Согласитесь, что это гораздо проще, чем исправлять и перекомпилировать соответствующие файлы ресурсов. Если приложение работает с сервером БД и возникла ошибка ограничения поля, то выводится сообщение, определяемое сервером, а не этим свойством.

Если для поля заданы ограничения, то свойство HasConstraints принимает истинное значение.

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

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

Шаблон состоит из трех частей.

Первая часть содержит управляющие символы собственно шаблона. Дос тупные для создания шаблона символы приведены в табл. 13.2.

Таблица 13.2. Управляющие символы шаблона Символ Описание > Все символы после этого преобразуются в заглавные < Все символы после этого преобразуются в строчные <> Все символы после этого остаются в том регистре, как это было задано пользователем \ Символ, следующий за этим, считается алфавитным, а не управляющим L В позиции этого символа обязательно должен находиться только алфа витный I В позиции этого символа может находиться алфавитный символ А В позиции этого символа обязательно должен находиться алфавитный символ или цифра а В позиции этого символа может находиться алфавитный символ или цифра Глава Поля и типы данных Таблица 13.2 (окончание) Описание с В позиции этого символа обязательно должен находиться знак препи нания с В позиции этого символа может находиться знак препинания О В позиции этого символа обязательно должна находиться цифра 9 В позиции этого символа может находиться цифра # В позиции этого символа может находиться цифра, плюс или минус : Символ разделения часов, минут и секунд (зависит от системных уста новок) / Символ разделения дней, месяцев, годов (зависит от системных уста новок) Символ разделения частей шаблона _ Символ автоматического ввода в текст пробела В первую часть шаблона можно включать любые алфавитные символы (для создания поясняющих надписей, слов и сокращений), если их нет среди управляющих символов. Также можно использовать в качестве алфавитных и управляющие символы, для этого перед ними нужно помещать символ "\".

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

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

Части шаблона разделяются точкой с запятой.

Например, шаблон для ввода телефонного номера выглядит следующим об разом:

Резюме Работа с полями является важным этапом в процессе разработки приложе ния баз данных. Для этого используются специальные объекты, которые инкапсулируют возможности полей таблицы БД. В Delphi имеется целая Часть III. Приложения баз данных иерархия классов, обеспечивающая применение полей самых различных типов. В основе этой иерархии лежит класс По способу создания объекты полей делятся на статические и динами ческие.

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

Объекты полей играют важную роль в работе наборов данных. С их по мощью можно получить доступ к текущим значениям, задать ограничения на вводимые величины и проверить их правильность.

ГЛАВА Механизмы управления данными Наряду с описываемыми в предыдущих главах свойствами и методами, стандартный набор данных Delphi инкапсулирует ряд дополнительных ме ханизмов, облегчающих управление записями и полями.

К ним относятся такие полезные функции, как быстрое перемещение по записям, поиск нужной записи по значениям полей, дополнительная фильтрация записей набора данных без использования возможностей СУБД и т. д. Большинство этих механизмов применяют в своей работе индексы таблиц БД.

Абстрактные методы, обеспечивающие управление данными, реализованы в базовом классе TDataSet (см. гл. 12). А в свою очередь, реализуют механизмы управления данными в соответствии с возможностя ми технолигий доступа к данным (см. часть IV).

Все рассматриваемые в этой главе методы управления данными в полном объеме доступны только в компонентах, инкапсулирующих таблицу БД. Это связано с тем, что компоненты запросов SQL и хранимых процедур не обеспечивают полноценное использование индексов.

В этой главе рассматриваются следующие вопросы:

связанные таблицы;

методы поиска данных;

диапазоны;

О быстрая навигация по набору данных;

фильтрация записей в наборе данных.

334 Часть III. Приложения баз данных Связанные таблицы В рамках одного проекта таблицы БД можно связывать отношениями "один-ко-многим" и "многие-ко-многим", при этом отношения обязательно устанавливаются между индексированными полями двух таблиц.

При создании отношений в качестве главной таблицы можно использовать любой компонент, инкапсулирующий набор данных. Для задания под чиненной таблицы можно использовать только табличные компоненты (см. гл. 12).

Отношение "один-ко-многим" Для установления отношения "один-ко-многим" в наборе данных предна значены свойства — И задаются ДЛЯ подчиненной таблицы. Набор данных главной таблицы не требует никаких дополнительных настроек и заданная связь будет работать только при пере мещениях по записям главной таблицы.

Свойство MasterSource определяет компонент TDataSource, который связан с главной таблицей.

Затем при помощи свойства MasterFields необходимо установить отноше ния между полями главной и подчиненной таблицы. В нем содержится имя индексированного поля, по которому устанавливается связь. Если таких по лей несколько, их имена разделяются точкой с запятой. При этом не все поля, входящие в индекс, обязаны участвовать в создании отношения.

Для задания свойства MasterFields можно использовать Редактор связей полей (Field Link Designer), который вызывается щелчком на кнопке в поле редактирования этого свойства в Инспекторе объектов (рис. 14.1).

Field Link Master Fields Fields ShipDate :

Cancel 14.1. Редактор связей полей Глава Механизмы управления данными Здесь в разворачивающемся списке Available Indexes выбирается требуемый индекс для подчиненной таблицы. После этого в списке Detail Fields появ ляются имена всех полей, входящих в этот индекс. В списке Master Fields отображаются все поля главной таблицы.

Теперь требуется создать связи между полями. Для этого в левом списке выбирается поле подчиненной таблицы, а затем соответствующее ему поле главной таблицы в правом списке. После этого активизируется кнопка Add, щелчок на которой создает отношение по двум полям главной и подчинен ной таблиц. Созданная связь отображается в списке Joined Fields.

( Примечание После создания связи по индексированным полям данный индекс становится текущим для набора данных. При этом в зависимости от типа СУБД автомати чески заполняется СВОЙСТВО ИЛИ IndexFieldNames.

Уже созданные связи можно удалить. Кнопка Delete удаляет выбранную связь, кнопка Clear — все связи.

После создания связей между полями отношение "один-ко-многим" счита ется установленным. Теперь достаточно открыть оба набора данных, чтобы увидеть работу отношения.

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

Таблица Customers представлена в наборе данных компонента она содержит данные о покупателях. Таблица Orders представлена в наборе данных компонента она содержит данные о заказах. Таблица Employee представлена в наборе данных компонента она содержат данные о продавцах (табл. 14.2).

( Примечание Приложение DemoJoins не содержит дополнительного исходного кода. Все от ношения между таблицами заданы при помощи Инспектора объектов.

Отношение "один-ко-многим" задано между таблицами покупателей (Custo mers) и заказов (Orders). Таблица покупателей является главной. Для созда ния отношения установлены следующие значения свойств компонента OrdTabie (подчиненная таблица).

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

Свойство MasterFields указывает на поле CustNo таблицы Customers.

В наборе данных включен вторичный индекс на основе поля CustNo (IndexName = 336 Часть III. Приложения баз данных | Company • i Neptune Lane Diver Cayman Divers Worl d Unlimited 08. 06 06.07. f 22 06.02. 14.2. Главная форма проекта Таким образом, две таблицы связаны отношением "один-ко-многим" по ин дексированным полям CustNo (номер покупателя). В результате, при пере мещении по записям таблицы покупателей, в таблице заказов будут показа ны только те заказы, которые относятся к текущему покупателю Отношение Отношение "многие-ко-многим" отличается тем, что подчиненная таблица еще раз связывается в качестве главной с другой подчиненной таблицей аналогичной последовательностью действий, как и в отношении "один-ко многим".

В приложении DemoJoins отношением "многие-ко-многим" связаны табли цы заказов (Orders) и продавцов (Employee). Таблица заказов уже работает в отношении "один-ко-многим" в качестве подчиненной.

В наборе данных ЕтрТаЫе заданы следующие свойства:

свойство MasterSource указывает на компонент свойство содержит имя поля EmpNo, по которому осуществ ляется связь между таблицами. Для подчиненной таблицы поле яв ляется первичным.

Глава 14. Механизмы управления данными Поиск данных В наборе данных реализованы два способа поиска записей по заданным значениям полей. Один способ основан на использовании индексов и явля ется более быстрым, но поиск проводится только по индексированным по лям. Второй способ применяет специальные методы классов наборов дан ных и позволяет проводить поиск по любому сочетанию полей, но он более медленный.

Поиск по индексам Для организации индексного поиска к набору данных должен быть подклю чен индекс (свойства IndexName ИЛИ IndexFieldNames).

Метод FindKey проводит поиск записи по заданным в параметре значениям ключевых полей текущего индекса набора данных. В случае успеха курсор набора данных устанавливается на найденной записи, а метод возвращает значение True, в противном случае — False.

Если индекс состоит из нескольких полей, значения для поиска записыва ются в виде множества, причем отсутствующие значения приравниваются К Nul l.

Рассмотрим простейший пример, в котором реализован поиск по вторич ному индексу в таблице демонстрационной базы данных Индекс основан на полях LastName и (рис. 14.3).

В компоненте помимо стандартных настроек на таблицу, при помо щи свойства IndexName задан и вторичный индекс (его имя Names). Значения для поиска задаются в компонентах и Edit2.

DemoFind v I ч: Второе поле индекса, '-I • 1 Ferguson M a r i l y n iVIP rf=ij:rVQ iiordano D o n a t e l l a 4: Parker Sawyer T h o m a s L VIP G Blue !VIP M a d e l i n e.".?.:• E n r i q u e •VIP Exec H e r b e r t A. iVIPExec P e t e r F r a n c o i s e.

14.3. Главная форма проекта DemoFind Часть III. Приложения баз данных I Листинг 14.1. Секция главного модуля Main проекта DemoFind implementation {$R procedure TObject);

begin try Cust.Open;

except on E: EDBEngineError do при открытии таблицы');

end;

end;

procedure TObject;

var Action: TCloseAction);

begin ;

end;

procedure begin try if not Edit2.Text]) then не except on E: EDatabaseError do поиска');

end;

end;

end.

Набор данных открывается в методе-обработчике при открытии формы и закрывается в методе-обработчике FormClose. При щелчке на кнопке FindBtn в метод FindKey передаются значения для поиска из компо нентов Editl И Edit2.

Поиск в диапазоне Индексный поиск можно организовать группой методов, подобно созданию диапазонов. Метод setKey переводит набор данных в состояние dsSetKey, затем должно следовать присваивание ключевым полям значений для поис ка. Сам поиск осуществляется методом GotoKey:

Глава 14. Механизмы управления данными with Tablel do begin SetKey;

:= '428';

GotoKey;

end;

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

Изменение параметров поиска осуществляется методом EditKey.

Поиск по произвольным Для поиска по произвольной выборке полей можно использовать методы Locate И Lookup.

function string;

const KeyValues: Variant;

Options: TLocateOptions): Boolean;

function KeyFields: string;

const KeyValues: Variant;

const ResultFields: string): Variant;

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

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

'Edit2.Text']), []);

В метод Lookup передается список полей для поиска (параметр KeyFields, имена полей разделяются точкой с запятой) и их требуемые значения (па раметр KeyValues, значения разделяются запятой). В случае успешного по иска функция возвращает массив значений типа вариант для полей, назва ния которых содержатся в параметре ResultFields.

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

340 Часть III. Приложения баз данных Фильтры Наиболее эффективным способом отбора записей в набор данных (особен но из больших таблиц) является создание и выполнение соответствующего запроса SQL. Но что делать, если набор данных функционирует на базе таб личного компонента? В этом случае на помощь приходит встроенный в на бор данных механизм фильтрации данных.

Применение фильтра основано всего на двух основных свойствах и одном вспомогательном. Текст фильтра должен содержаться в свойстве Filter, a свойство Filtered включает и выключает фильтр. Параметры фильтра опре деляются СВОЙСТВОМ FilterOptions.

( Примечание Компонент TQuery также может использовать фильтры. Эта возможность под час позволяет и изящно решать довольно сложные проблемы, которые иначе требуют изменения текста запроса или создания нового компонента за проса.

При использовании фильтра его текст транслируется в синтаксис SQL и передается для выполнения на сервер или через соответствующий драйвер в локальную СУБД.

Фильтры можно создавать двумя способами:

при помощи свойства Filter создаются довольно простые фильтры, для которых достаточно предоставляемого механизмом фильтрации синтак сиса;

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

Фильтры можно разделить на статические и динамические.

Статические фильтры создаются во время разработки приложения и могут ИСПОЛЬЗОВаТЬ СВОЙСТВО Fi l t er, И МеТОД OnFilterRecord.

Динамические фильтры можно создавать и редактировать во время выполне ния приложения, для них используется Filter.

При создании текста фильтра для свойства Filter используются имена по лей соответствующей таблицы БД, а для задания отношений применяются все операторы сравнения (>, >=, <, <=, =, о) и логические операторы (AND, OR, NOT):

Fieldl>100 AND Field2= Сравнивать между собой два поля нельзя. Следующий фильтр вызовет ошибку при попытке использования:

AND Глава Механизмы управления данными При создании динамических фильтров можно изменять как выражение фильтра целиком, так и его части. Например, ограничивающее значение для поля можно задавать при помощи элементов управления формы, что позво ляет пользователю приложения управлять фильтрацией набора данных:

procedure TObject);

begin with Tablel do begin Filtered := False;

Filter := + Filtered := True;

end;

end;

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

Фильтр начинает работать только после того, как свойству Filtered при сваивается истинное значение. Перед изменением текста динамического фильтра или для отключения фильтра свойству Filtered присваивается зна чение False.

Параметры фильтра определяются свойством property FilterOptions: TFilterOptions;

TFilterOption = TFilterOptions = set of TFilterOption;

foCaselnsensitive, будучи включенным в свойстве, отключает сравнение строковых значений с учетом регистра символов.

Параметр foNoPartialCompare отключает отбор строковых значений по части строки.

Метод-обработчик имеет следующее объявление:

type TFilterRecordEvent = TDataSet;

var Accept:

Boolean) of object;

property OnFiiterRecord: TFilterRecordEvent;

Если этот метод создан для набора данных, то он вызывается для каждой его записи. Программный код метода должен присваивать параметру Accept истинное или ложное значение. В результате запись передается в набор данных или отсекается:

procedure TDataSet;

var Accept: Boolean);

342 Часть III. Приложения баз данных begin Accept ArchOrdersArchDat.AsString >= DateEditl.Text;

end;

Важнейшее преимущество метода по сравнению со свойст вом Filter, заключается в том, что в этом методе-обработчике можно срав нивать поля и производить вычисления над их значениями.

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

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

При работе с закладками используются три основных метода:

метод создает новую закладку для текущей записи;

метод осуществляет переход к закладке, переданной в пара метре;

метод FreeBookmark удаляет закладку, переданную в параметре.

Кроме этого, можно использовать метод который прове ряет, указывает ли закладка на реально существующую запись. Метод позволяет сравнить между собой две закладки:

var Bookmark2: TBookmark;

if Bookmark2) = then (' Закладки ;

В наборе данных имеется свойство Bookmark, которое содержит название текущей закладки.

Рассмотрим небольшой пример, где право управлять закладками предостав лено пользователю (рис. 14.4). На форме, помимо других элементов управ ления (среди которых есть компонент TDBGrid), имеются две кнопки. Кноп ка startBookmark помечает текущую запись, кнопка stopBookmark переходит к закладке, а затем уничтожает ее.

Глава 14. Механизмы управления данными DemoBookmark Name ••••'••' Capital." " (Continent • • •Argentina Buenos Aires ;

America ;

..

South America Bolivia Brad Brasilia South America Canada Ottawa North America Chile - • South America Colombi HI South America a America Quito Salvador San Salvador •North America Guyana Georgetown South America Kingston North America Jamaica City North America * Mexico •• •'• •'•" • ' • Вернуться к 14.4. Главная форма проекта DemoBookmark Листинг 14.2. Пример использования закладок implementation {$R var procedure begin try := clBtnFace;

except открытия набора данных');

end;

end;

procedure TObject;

var Action: TCloseAction);

begin end;

procedure begin if Not then SaveRecPos := Часть III. Приложения баз данных := end;

procedure TObject);

begin with Cust do begin if Not then Exit;

;

SaveRecPos := Nil;

end;

:= clBtnFace;

end;

end.

Использование метода BookmarkValid позволяет корректно переопределять закладку, если она уже установлена, и избежать ошибок при произвольных нажатиях кнопок. Компонент BookmarkControl типа TShape сигнализирует о том, что закладка установлена или удалена.

Примечание Закладки также используются в компоненте TDBGrid. Он имеет свойство SelectedRows типа которое представляет собой список закла док, указывающих на одновременно выделенные записи.

Диапазоны В наборе данных, помимо фильтров, имеется еще одно средство отбора записей. Группа методов позволяет на основе использования индексов от бирать в набор данных только те записи, значения индексированных полей которых (для текущего индекса) соответствуют диапазону заданных величин.

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

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

( Примечание Все методы работы с диапазонами используют те поля, которые заданы в те кущем индексе. Для таблиц Paradox и dBASE это свойство Для таб лиц серверов SQL это свойство Глава 14. Механизмы управления данными Метод SetRangestart переводит набор данных в режим dsSetKey, следующее за этим присваивание ключевым полям значений означает задание началь ной границы диапазона.

Метод setRangeEnd переводит набор данных в режим dsSetKey, следующее за этим присваивание ключевым полям значений означает задание конечной границы диапазона.

После этого необходимо использовать метод который применяет созданный диапазон к набору данных:

with Tablel do begin := '439';

SetRangeEnd;

:= '522';

AppiyRange;

end;

Работающий диапазон можно модифицировать аналогичным образом: после ВЫЗОВа МеТОДОВ EditRangeStart И EditRangeEnd необходимо задать НОВЬЮ границы для ключевых полей и снова вызвать метод AppiyRange:

with Tablel do begin EditRangeStart ;

:= '500';

EditRangeEnd;

:= '522';

AppiyRange;

end;

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

Для одновременного задания верхней и нижней границы диапазона можно ИСПОЛЬЗОВаТЬ меТОД SetRange.

with Tablel do begin AppiyRange;

end;

Тем, какая граница будет у диапазона — открытая или закрытая, управляет свойство Если оно имеет значение True, граничные значения в диапазон не включаются, в противном случае — включаются.

Часть III. Приложения баз данных Резюме Разработчик приложений БД в Delphi может использовать ряд полезных механизмов набора данных, которые реализованы для компонентов всех технологий доступа к данным.

К этим механизмам относятся методы быстрого поиска и перехода к най денным записям;

связывания наборов данных по индексированным полям;

метод дополнительной фильтрации записей набора данных.

ГЛАВА Компоненты отображения данных До этого момента мы рассмотрели аспекты создания приложений баз дан ных, касающиеся организации доступа к данным и создания в приложениях наборов данных. Теперь более подробно остановимся на вопросах отобра жения данных в приложениях (интерфейс приложений).

Отображение данных обеспечивает достаточно представительный набор компонентов VCL Delphi. Многие из них унаследованы от компонентов, инкапсулирующих стандартные элементы управления. Для связи с набором ДаННЫХ ЭТИ КОМПОНеНТЫ ИСПОЛЬЗУЮТ TDataSource.

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

В этой главе рассматриваются следующие вопросы:

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

навигация по данным;

механизм синхронного просмотра данных;

• использование графиков для представления данных.

Классификация компонентов отображения данных Все компоненты отображения данных можно разделить на группы по не скольким критериям (рис. 15.1).

Большинство компонентов предназначены для работы с отдельным полем, т. е. при перемещении по записям набора данных такие компоненты пока зывают текущие значения только одного поля. Для соединения с набором 348 Часть Приложения баз данных данных через компонент TDataSource предназначено свойство Поле задается свойством Компоненты TDBGrid и обеспечивают просмотр наборов данных целиком или в произвольном сочетании полей. В них присутствует только СВОЙСТВО DataSource.

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

Наиболее часто в практике программирования используются компоненты TDBGrid, TDBEdit И TDBNavigator.

Компоненты отображения данных Компоненты Компоненты Компонент для представления для представления для навигации набора данных Компоненты Компонент Компонент для представления для представления для представления полей Memo изображений графиков Рис. 15.1. Классификация компонентов отображения данных Для представления и редактирования информации, содержащейся в полях типа Memo, используются специальные компоненты и Для просмотра (без редактирования) изображений предназначен компонент Отдельную группу составляют компоненты синхронного просмотра данных.

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

Наконец, данные можно представить в виде графика. Для этого предназна чен компонент TDBChart.

Как видите, набор компонентов отображения данных весьма разнообразен и позволяет решать задачи по созданию любых интерфейсов для приложе ний баз данных.

Ввиду общности решаемых задач, компоненты отображения данных имеют несколько важных общих свойств, которые представлены в табл. 15.1 и в дальнейшем изложении опущены.

Глава 15. Компоненты отображения данных Таблица Общие свойства компонентов отображения данных Объявление Описание property DataField: string;

Поле связанного с компонентом набора данных property DataSource: TDataSource;

Связываемый с компонентом компонент TDataSource property Field: Tfield;

Обеспечивает доступ к классу TField, который соответствует полю набора дан ных, заданному свойством DataField property Readonly: Boolean;

Управляет работой режима "только для чтения" Табличное представление данных Компонент TDBGrid Этот компонент инкапсулирует двумерную таблицу, в которой строки пред ставляют собой записи, а столбцы — поля набора данных.

Компонент TDBGrid ПОТОМКОМ Классов И От класса TCustomGrid наследуются все функции отображения и управления работой двумерной структуры данных. Класс TDBCustomGrid обеспечивает визуализацию и редактирование полей из набора данных, причем TDBGrid только публикует свойства и методы класса TDBCustomGrid, не добавляя соб ственных.

В компоненте TDBGrid можно отображать произвольное подмножество полей используемого набора данных, но число записей ограничить нельзя — в ком поненте всегда присутствуют все записи связанного набора данных. Требуе мый набор полей можно составить при помощи специального Редактора столбцов, который открывается при двойном щелчке на компоненте, пере несенном на форму, или кнопкой свойства Columns в Инспекторе объектов.

Новая колонка добавляется при помощи кнопки Add New, после этого ее название появляется в списке колонок (рис. 15.2). Для выбранной в списке колонки доступные для редактирования свойства появляются в Инспекторе объектов. Колонки в списке можно редактировать, удалять, менять местами.

При помощи кнопки Add All Fields в сетку можно добавить все поля набора данных.

Каждая колонка компонента TDBGrid описывается специальным классом а совокупность колонок доступна через свойство columns компо нента, оно имеет тип и представляет собой индексирован ный список объектов колонок. Поле набора данных связывается с конкрет Часть III. Приложения баз данных ной колонкой при помощи свойства класса При в колонку автоматически переносятся все необходимые параметры поля, в частности заголовок поля, настройки шрифтов, ширина поля. После руч ного изменения параметров первоначальные значения восстанавливаются методами соответствующих объектов TCoiumn.

• Name 1 - Capital 2 - Continent 15.2. колонок компонента TDBGrid При ПОМОЩИ метода И можно управлять процессом отображения данных в ячейках.

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

Настройка параметров компонента TDBGrid, от которых зависит его внеш ний вид и некоторые функции, осуществляется при помощи свойства Options (табл. 15.2). Текущая позиция в двумерной структуре данных может быть свойствами SelectedField, При необходимости разработчик может использовать разнообразные мето ды-обработчики событий. Среди них есть как стандартные методы, прису щие всем элементам управления, так и специфические.

Например, при помощи метода-обработчика можно пре дусмотреть вызов специализированной формы при щелчке на кнопке в ячейке:

procedure TObject);

begin if = 2 then end;

Примечание Объект колонки TCoiumn имеет свойство ButtonStyle. Если ему присвоить значение cbsEl l i psi s, то при активизации ячейки этой колонки в правой части ячейки появляется кнопка.

Глава 15. Компоненты отображения данных Таблица 15.2. Свойства и методы компонента Объявление Тип Описание Свойства property Columns:

Pb Содержит коллекцию объектов описывающих колонки компонента property DefaultDrawing: Определяет способ визуализации дан Boolean;

ных в сетке. При значении True данные отображаются автоматически. При зна чении False используется метод-обра ботчик property FieldCount: Integer;

Ro Возвращает число видимых колонок сетки property Ro Массив объектов полей набора данных, Integer]: TField;

отображаемых в компоненте TDBGridOption (dgEditing, Pb | Определяет особенности визуализации | и поведения компонента:

dgTitles, | • dgEditing — данные можно dgColLines, | редактировать;

dgRowLines, dgTabs, | • данные в сет | ке всегда в режиме редактирования;

| • dgTitles — видны заголовки колонок;

| • dglndicator — в начале строки виден | номер текущей колонки;

TDBGridOptions = set | • dgColumnResize — колонки можно of TDBGridOption;

перемещать и менять их ширину;

dgColLines — ВИДНЫ ЛИНИИ между колонками;

dgRowLines — видны линии между строками;

dgTabs — для перемещения по строкам можно использовать клавиши и dgRowSelect — можно выделять целые строки, при этом игнорируются установ ки dgEditing И dgAlwaysShowEditor;

выделе ние текущей ячейки сохраняется, даже если сетка не активна;

— при удалении строк появляется запрос о подтвер ждении операции;

Часть III. Приложения баз данных Таблица 15.2 (продолжение) Объявление Тип Описание • dgCancelOnExit — созданные (прод.) пустые строки при уходе из сетки не сохраняются;

• — можно выделять несколько строк одновременно property SelectedField: Содержит объект текущего поля TField;

property Содержит номер текущей колонки Integer;

в массиве свойства Columns property Ro Набор закладок на записи набора данных, соответствующих выделенным строкам сетки Шрифт заголовков колонок property TitleFont: TFont;

Показывает, можно ли редактировать property Boolean;

текущую ячейку Цвет фона неподвижных ячеек сетки property FixedColor: TColor;

Pb Методы procedure Перерисовывает текст в ячейке колонки (const с номером DataCol. Ячейка задается Rect: TRect;

DataCol:

прямоугольником Rect на канве сетки.

Integer;

Column:

| Параметр state определяет состояние State:

I ячейки после перерисовки. Параметр | Column содержит экземпляр класса ко | лонки, которой принадлежит ячейка procedure Pu | Перерисовывает текст в ячейке колонки, определяемой параметром Field, со Rect: TRect;

Field: TField;

держащим связанный с колонкой объект State: TGridDrawState);

поля. Ячейка задается прямоугольником Rect на канве сетки. Параметр определяет состояние ячейки после пе рерисовки procedure Вызывает всплывающее меню для ко override;

лонки, которой соответствуют текущие координаты мыши. Компонент должен обрабат ыват ь с ообще н и е function | Выполняет действие, заданное парамет | ром Action, по отношению к данному TBasicAction): Boolean;

компоненту override;

Глава 15. Компоненты отображения данных Таблица 15.2 (продолжение) Объявление \ Тип I Описание procedure Открывает набор данных, связанный с передаваемой параметром Column ко лонкой в новом окне. Работает только X: Integer = для типов данных абстрактный и набор данных. Параметры X и Y определяют Y: Integer = положение нового окна Low (Integer) );

dynamic Возвращает значение True, если колон function ка с номером Fieldlndex связана с по лем набора данных Integer): Boolean;

type TGridCoord = record Возвращает номера строки и столбца, соответствующие ячейке, которой при X: Longint;

надлежат экранные координаты X и Y Y: Longint;

end;

function Y:

Integer): TGridCoord;

Методы-обработчики событий type TDBGridClickEvent = Вызывается при щелчке мышью на ячей procedure (Column: TColumn) ке. Параметр Column содержит колонку, of object;

которой принадлежит ячейка property OnCellClick:

property OnColEnter: Вызывается при переносе фокуса на новую колонку сетки TNotifyEvent;

property OnColExit: Вызывается перед переносом фокуса из TNotifyEvent;

текущей колонки type = procedure Вызывается при переносе колонки в сет (Sender: TObject;

ке на новое место при помощи мыши.

Параметр Fromlndex возвращает номер Longint) of object;

старого положения колонки. Параметр Tolndex возвращает номер нового по property ложения Вызывается при перерисовке ячейки.

type TDrawColumnCellEvent = Параметр Rect определяет ячейку по procedure (Sender: TObject;

координатам прямоугольника на канве.

const Rect: TRect;

DataCol:

Параметр DataCol возвращает номер Integer;

Column: TColumn;

колонки в сетке.

State: TGridDrawState) Параметр Column содержит объект ко of object;

лонки.

property OnDrawColumnCell:

Параметр state возвращает состояние TDrawColumnCellEvent;

!2 354 Часть III. Приложения баз дан Таблица 15.2 (окончание) Объявление Тип Описание Вызывается при перерисовке ячейки type перед обработчиком TDrawDataCellEvent = если СВОЙСТВО Col umns. St at e = procedure (Sender:

csDef aul t.

const Rect: TRect;

Field:

State:

Этот метод лучше не применять, т. к. он of object;

используется только для обеспечения обратной совместимости с ранними вер property сиями property OnEditButtonClick: Вызывается при щелчке мышью TNotifyEvent;

на кнопке в ячейке type TDBGridClickEvent = Вызывается при щелчке мышью на заго procedure (Column: ловке колонки. Колонка определяется of object;

параметром Column property OnTitleClick:

TDBGridClickEvent;

В работе компонента TDBGrid важную роль играет класс TColumn, который инкапсулирует свойства колонки или столбца сетки (табл. 15.3). Его основ ным назначением является правильное отображение данных из поля набора данных, связанного с этой колонкой. Поэтому объект колонки обладает свойствами и методами, которые позволяют произвольным образом задавать параметры отображения данных (цвет, шрифт, ширину и т. д.). Первона чальные значения берутся из связанных с колонками полей. Измененные свойства можно восстановить при помощи группы специальных методов (DefaultColor, DefaultFont И Свойство позволяет в любой момент определить, какие пер воначальные настройки были изменены.

За отображение заголовка колонки отвечает свойство Title, представляю щее собой ссылку на экземпляр объекта Здесь можно задать текст заголовка, параметры шрифта текста заголовка и цвет фона заголовка.

По умолчанию текст заголовка берется из свойства объекта TField (см. гл. 13).

Каждой колонке можно придать список, который разворачивается при щелчке на кнопке в активной ячейке колонки. Выбранное в списке значе ние автоматически заносится в ячейку. Для реализации этой возможности применяется свойство типа TStrings. Достаточно лишь заполнить список значениями во время разработки или выполнения (рис. 15.3).

Глава Компоненты отображения данных x| • : | Buenos Aires i South America ! South America " Brasilia South America Ottawa America 26500000;

Santiago i South America 13200000;

South America Havana North America ' Quito South America! F Salvador 20865 5300000:

Georgetown Kingston North America Mexico City [North America ;

Managua North America Asuncion South America i 15.3. Список колонки в компоненте TDBGrid Таблица 15.3. Свойства и методы класса TColumn Объявление Тип Описание Свойства property Alignment: TAlignment;

| Определяет выравнивание данных в колонке Возвращает набор атрибутов type Ro колонки, которые были изменены = (cvColor, по сравнению с первоначальными cvFont, cvReadOnly, cvTitleColor, cvTitleAlignment, cvTitleFont, TColumnValues = set of property AssignedValues:

TColumnValues;

Задает способ редактирования type = данных в колонке:

(cbsAuto, cbsEllipsis, cbsNone);

• cbsAuto — кнопка в редактируе property ButtonStyle:

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

• cbsEl l i psi s — кнопка в редакти руемой ячейке появляется всегда, щелчок на кнопке вызывает обработчик OnEdi tButtonCl i ck;

Часть III. Приложения баз данных Таблица 15.3 (продолжение) Объявление Тип | Описание cbsNone — при редактировании (прод.) ячейки кнопка не появляется Цвет фона колонки property Color: TColor;

j Pb Название колонки в списке property string;

Pu Редактора столбцов property Определяет число строк разворачивающегося списка ячейки Cardinal;

property Expandable: Boolean;

В значении True разрешает показ связанных с полем колонки дочерних полей абстрактного, ссылочного типов и массивов property Expanded: Boolean;

При значении True каждое дочернее поле отображается в новой колонке.

При значении False дочерние поля отображаются через точку с запятой и не доступны для редактирования property string;

Название поля, связанного с property Font: TFont;

Шрифт данных в колонке property Grid: TCustomDBGrid;

Определяет сетку, содержащую эту колонку property i Ro Определяет колонку-владельца текущей колонки. Используется для дочерних полей property PickList: TStrings;

Содержит разворачивающийся список, используемый при редакти ровании данных property TPopupMenu;

Pb Связывает с колонкой всплывающее меню property Showing: Boolean;

Ro Возвращает значение True, если колонка видима property Title:

Задает текст заголовка и его параметры property Visible : Boolean;

Задает видимость колонки property Width: Integer;

Задает ширину колонки в пикселах Глава Компоненты отображения данных Таблица 15.3 (окончание) Объявление Тип I Описание Методы procedure Копирует колонку Source в текущую TPersistent);

override;

колонку Возвращает первоначальное значе TAlignment;

ние выравнивания колонки Возвращает первоначальный function TColor;

фоновый цвет колонки Возвращает первоначальный шрифт function TFont;

данных в колонке type = Возвращает первоначальный способ imClose, ввода символов imSAlpha, imSHanguel, function TImeMode;

type = type string;

Возвращает первоначальное имя редактора способа ввода символов function TImeName;

function Возвращает первоначальный режим Boolean;

редактирования данных Возвращает первоначальную ширину function Integer;

колонки в пикселах Возвращает число непосредственных function Depth: Integer;

предков колонки procedure RestoreDefaults;

Восстанавливает первоначальные virtual;

настройки колонки При работе с компонентом TDBGrid все операции с отдельными колонками осуществляются при помощи экземпляра класса который инкапсулирует список объектов колонок (свойство columns компонента TDBGrid). Доступ к колонкам осуществляется при помощи свойства items.

Нумерация колонок начинается с нуля.

При помощи свойств и методов класса TDBGridCoiumns можно изменять на стройки полей компонента TDBGrid во время выполнения (табл. 15.4).

Свойство state определяет способ создания колонок. Его значение устанав ливается автоматически. При создании колонок для всех полей сразу (кноп ка Add Fields Редактора столбцов) устанавливается значение 358 Часть III. Приложения баз данных При любом ручном изменении свойств устанавливается значение При программном изменении значения свойства во время вы полнения все существующие колонки удаляются.

Все данные из существующих колонок можно сохранить в файле или пото ке при помощи методов и SaveToStream, а затем загрузить их об ратно методами И Таблица 15.4. Свойства и методы класса Объявление I Тип Описание Свойства property Grid: | Ro Возвращает ссылку на сетку, владею щую данным объектом property Индексный список объектов колонок Integer]: default;

сетки:

type = i Pu Определяет способ создания колонок (csDefault, csCustomized) сетки:

property State:

• csDefault — колонки создаются TDBGridColumnsState;

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

• csCustomized — параметры колонок определены разработчиком и могут отличаться от параметров полей property Count: Integer;

Возвращает общее число колонок Методы function Add: TColumn;

Pu | Добавляет новый объект TColumn procedure Pu i Загружает данные в объект из файла Filename: string);

FileName procedure LoadFromStream(S: Pu Загружает данные в объект из потока s | Удаляет существующие колонки и соз procedure RebuildColumns;

j дает новые, основываясь на параметрах | полей набора данных | Восстанавливает первоначальные procedure RestoreDefaults;

| настройки колонок procedure i Pu Сохраняет данные из колонок в файле Filename: string);

FileName procedure SaveToStream(S:

Pu | Сохраняет данные из колонок в потоке s TStream);

Глава 15. Компоненты отображения данных Компонент TDBCtrlGrid Компонент TDBCtrlGrid внешне напоминает компонент TDBGrid, но никак не связан с классом а наследуется напрямую от класса TWinControl.

Этот компонент позволяет отображать данные в строках в произвольной форме. Компонент представляет собой набор панелей, каждая из которых служит платформой для размещения данных отдельной записи набора дан ных. На панели могут размещаться любые компоненты отображения дан ных, предназначенные для работы с отдельным полем. С каждым таким компонентом можно связать нужное поле набора данных. При открытии набора данных в компоненте TDBCtrlGrid на каждой новой панели создается набор компонентов отображения данных, аналогичный тому, который был создан на одной панели во время разработки.

На панель можно переносить только те компоненты отображения данных, которые показывают значение одного поля для единственной записи набора ДаННЫХ. НеЛЬЗЯ ИСПОЛЬЗОВатЬ КОМПОНеНТЫ TDBGrid, TDBCtrlGrid, TDBRichEdit, TDBRadioGroup, После того, как для компонента TDBCtrlGrid задано значение свойства DataSource, все переносимые на панель компоненты отображения данных автоматически связываются с указанным компонентом TdataSource (табл. 15.5).

Самостоятельное задание свойства DataSource для дочерних компонентов отображения данных не допускается. В них требуется определить только Компонент может отображать панели в одну или несколько колонок. Для задания числа колонок панелей используется свойство Число ви димых строк панелей определяется свойством RowCount. Вертикальное или горизонтальное размещение колонок панелей зависит от значения свойства Orientation.

При использовании нескольких колонок панелей курсор перемещается по колонке сверху вниз с последующим переходом на следующую колонку.

Направление движения курсора не зависит от значения свойства Orientation.

Размеры одной панели определяются свойствами и Они взаимосвязаны с размерами самого компонента. При изменении зна чений свойств PaneiHeight и Paneiwidth размеры компонента изменяются таким образом, чтобы в нем помещалось указанное в свойствах coicount и RowCount число панелей и наоборот.

Не рекомендуется размещать на панели компоненты и т. к. это может привести к значительному снижению производительности.

Часть III. Приложения баз данных Таблица 15.5. Свойства и методы компонента TDBCtrlGrid Объявление Тип Описание Свойства property Pb | Разрешает или запрещает удаление Boolean;

| текущей записи property I Разрешает или запрещает вставку новой Boolean;

| записи property Canvas: TCanvas;

Ro | Канва компонента property ColCount: Integer;

Pb | Определяет число колонок с панелями property Boolean;

Pu Разрешает или запрещает редактирова I ние данных type Pb | Определяет порядок следования записей — по горизонтали или TDBCtrlGridOrientation = по вертикали (goVertical, goHorizontal), property Orientation:

TDBCtrlGridOrientation;

type = Определяет способ отображения (gbNone, gbRaised);

границы панели property PanelBorder:

TDBCtrlGridBorder;

property Содержит число видимых одновременно Ro Integer;

панелей property Определяет высоту панелей в пикселах Integer;

property Pu | Определяет индекс панели текущей Integer;

I записи property | Определяет ширину панелей в пикселах Integer;

property RowCount: Integer;

| Определяет число строк видимых панелей property Pb | Определяет фоновый цвет панели TColor;

текущей записи property Pb Разрешает или запрещает выделение Boolean;

| вокруг панели текущей записи Глава 15. Компоненты отображения данных Таблица 15.5 (окончание) Объявление I Тип | Описание Методы type = Выполняет операцию, заданную при помощи параметра Key.

gkPriorTab, gkNextTab, Доступны операции навигации по запи gkRight, gkUp, сям, перевода в режим редактирования, gkScrollUp, вставки, удаления записей, отмены изменений gkPageDown, gkAppend, gkDelete, gkCancel);

procedure DoKey(Key:

TDBCtrlGridKey);

procedure Key: Используется при нажатии клавиши Word;

Shift: TShiftState);

для трансляции кодов клавиш override;

Методы-обработчики событий type TPaintPanelEvent = Вызывается при перерисовке панели.

Параметр Index соответствует индексу TDBCtrlGrid;

Index:

панели Integer) of object;

property Навигация по набору данных Перемещение или навигация по записям набора данных может осуще ствляться несколькими путями. Например, в компонентах TDBGrid и TDBCtrlGrid, которые отображают сразу несколько записей набора данных, можно использовать клавиши вертикального перемещения курсора или вер тикальную полосу прокрутки.

Но что делать, если на форме находятся только компоненты, отображающие одно поле только текущей записи набора данных (TDBEdit, и т. д.)? Очевидно, что в этом случае на форме должны быть расположены дополнительные элементы управления, отвечающие за перемещение по за писям.

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

362 Часть III. Приложения баз данных Для решения указанных задач и предназначен компонент TDBNavigator, ко торый представляет собой совокупность управляющих кнопок, выполняет операции навигации по набору данных и модификации записей целиком.

Компонент TDBNavigator при помощи свойства DataSource связывается с компонентом TDataSource и через него с набором данных. Такая схема по зволяет обеспечить изменение текущих значений полей сразу во всех свя занных с TDataSource компонентах отображения данных. Таким образом, TDBNavigator только дает команду на выполнение перемещения по набору данных или другой управляющей операции, а всю реальную работу выпол няют компонент набора данных и компонент TDataSource. Компонентам отображения данных остается только принять новые данные от своих полей.

Добавить запись Записать изменения Следующая запись Отменить изменения Предыдущая запись \ \ \ / / / Обновить данные •' ••••:•• Первая запись Режим редактирования Последняя запись Удалить запись Рис. 15.4. Назначение кнопок компонента TDBNavigator Компонент TDBNavigator содержит набор кнопок, каждая из которых отве чает за выполнение одной операции над набором данных. Всего имеется 10 кнопок, разработчик может оставить в наборе любое количество кнопок в любом сочетании. Видимостью кнопок управляет свойство visibieButtons:

type TNavigateBtn = (nbFirst, nbPrior, nbNext, nbLast, nblnsert, nbDelete, nbPost, nbCancel, nbRefresh);

TButtonSet = set of TNavigateBtn;

property VisibieButtons: TButtonSet;

Каждый элемент типа TNavigateBtn представляет одну кнопку, их назначе ние описывается ниже:

nbFirst — перемещение на первую запись набора данных;

nbPrior — перемещение на предыдущую запись набора данных;

nbNext — перемещение на следующую запись набора данных;

nbLast — перемещение на последнюю запись набора данных;

nblnsert — вставка новой записи в текущей позиции набора данных;

Глава 15. Компоненты отображения данных — удаление текущей записи, курсор перемешается на следующую запись;

nbEdit — набор данных переводится в режим редактирования;

nbPost — в базу данных переносятся все изменения в текущей записи;

— все изменения в текущей записи отменяются;

nbRefresh — восстанавливаются первоначальные значения текущей записи, сделанные после последнего переноса изменений в базу данных.

Самой критичной к возможной потере данных вследствие ошибки является ПОЭТОМУ При ПОМОЩИ СВОЙСТВа можно включить механизм контроля удаления. При каждом удалении запи си нужно будет дать подтверждение выполняемой операции.

Нажатие любой кнопки можно эмулировать программно при помощи мето да В случае необходимости выполнения дополнительных действий при щелчке на ЛЮбоЙ КНОПКе МОЖНО ВОСПОЛЬЗОВатЬСЯ Обработчиками СОбЫТИЙ BeforeAction и в которых параметр Button определяет нажатую кнопку. Свойства и методы компонента TDBNavigator представлены в табл. 15.6.

Таблица 15.6. Свойства и методы компонента TDBNavigator Объявление ! Тип I Описание Свойства property ConfirmDelete: Pb Включает или отключает подтверждение Boolean;

удаления записи property Hints: TStrings;

Содержит список подсказок для каждой property Flat: Boolean;

Определяет внешний вид кнопок компо нента type TNavigateBtn = (nbFirst, nbPrior, nbNext, nbDeiete, nbEdit, nbPost, nbCancel, nbRefresh);

TButtonSet = set of TNavigateBtn;

property VisibleButtons:

364 Часть III. Приложения баз данных Таблица 15.6 (окончание) Объявление I Тип \ Описание Методы procedure Pu | Эмулирует щелчок на кнопке TNavigateBtn);

procedure Pu Задает положение (параметры ATop, AHeight: и размер компонента (параметры Integer);

! AWidth, AHeight) Методы-обработчики событий = procedure Pb | Выполняется при щелчке на кнопке (Sender: TObject;

Button:

Button перед выполнением операции, TNavigateBtn) of object;

I связанной с кнопкой property BeforeAction:

ENavClick;

ENavClick = procedure Pb i Выполняется при щелчке на кнопке | Button после выполнения операции, (Sender: TObject;

Button:

связанной с кнопкой TNavigateBtn) of object;

property OnClick:

ENavClick;

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

В зависимости от типа данных поля могут использовать различные компо ненты. Для большинства стандартных полей используются компоненты TDBText, TDBEdit, TDBListBox.

Данные в формате Memo отображаются компонентами и Для показа изображений предназначен компонент Компонент TDBText Этот компонент представляет собой статический текст, который отображает текущее значение некоторого поля связанного набора данных. При этом данные можно просматривать в режиме "только для чтения".

Непосредственным предком компонента является класс по этому он очень похож на компонент Глава 15. Компоненты отображения данных При использовании компонента следует обратить внимание на возможную длину отображаемых данных. Для предотвращения обрезания текста можно использовать свойства Autosize и wordwrap.

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

Прямой предок компонента — класс который также явля ется прямым предком компонента TEdit.

Компонент может осуществлять проверку редактируемых данных по задан ной для поля маске. Непосредственно для редактора задать маску нельзя, т. к. содержащее маску свойство в классе TCustomMaskEdit является защищенным, а в TDBEdit не перекрыто. Тем не менее механизм контроля полностью унаследован. Саму же маску можно задать в связанном с редак тором поле. Объект имеет собственное свойство EditMask, которое и используется при проверке данных в редакторе (см. гл. 13).

Проверка редактируемого текста на соответствие маске осуществляется методом после каждого введенного или измененного символа.

В случае ошибки генерируется исключение и курсор устанав ливается на первый ошибочный символ.

В компоненте можно использовать буфер обмена. Это делается средствами операционной системы пользователем или программно при помощи мето дов CopyToClipboard, CutToClipboard, Компонент TDBCheckBox Компонент представляет собой почти полный аналог обычного флажка (компонент и предназначен для отображения и редактирования любых данных, которые могут иметь только два значения. Это может быть логический тип данных или любые строковые значения, но поле может принимать значения только из двух строк.

Предопределенные значения задаются свойствами и ValueUnchecked. По уМОЛЧаНИЮ ОНИ True И False. ЭТИМ свойствам можно также присваивать любые строковые значения, причем одному свойству можно назначить несколько возможных значений, разде ленных точкой с запятой.

Включение флажка происходит, если значение поля набора данных совпа дает со значением свойства vaiuechecked (единственным или любым из спи ска). Если же флажок включил пользователь, то значение поля данных при Часть Приложения баз данных равнивается к единственному или первому в списке значению свойства Аналогичные действия происходят и со свойством Компонент TDBRadioGroup Компонент представляет собой стандартную группу переключателей, со стояние которых зависит от значений поля связанного набора данных.

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

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

Возможные значения, на которые должны реагировать переключатели в группе, заносятся в свойство при помощи специального редактора в Инспекторе объектов или программно посредством методов класса Каждому элементу свойства values соответствует один переключа тель (порядок следования сохраняется).

Свойство items содержит список поясняющих надписей для переключателей группы. Если для какого-либо переключателя нет заданного значения, но есть поясняющий текст, то такой переключатель включается при совпаде нии значения связанного поля с поясняющим текстом.

Текущее значение связанного поля содержится в поле Компонент Компонент отображает текущее значение связанного с ним поля набора данных и позволяет изменить его на любое фиксированное из списка.

Функционально компонент ничем не отличается от компонента Значение поля должно совпадать с одним из элементов списка.

Специальных методов компонент не содержит.

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

Глава 15. Компоненты отображения данных Компонент может работать в пяти различных стилях, которые определяются Специальных методов компонент не содержит.

Компонент Компонент представляет собой обычное поле редактирования, к которому подключается поле с типом данных Memo или BLOB. Основное его пре имущество — возможность одновременного просмотра и редактирования нескольких строк переменной длины. Компонент может отображать только строки, целиком видны по высоте.

В компоненте можно использовать буфер обмена при помощи стандартных средств операционной системы или унаследованными от предка TCustoinMemo методами Для ускорения навигации по набору данных при отображении полей типа BLOB можно использовать свойство При значении True любое новое значение поля автоматически отображается в компоненте. При зна чении False новое значение появляется только после двойного щелчка на компоненте или после нажатия клавиши при активном компоненте.

Метод LoadMemo используется автоматически при загрузке значения поля, если СВОЙСТВО AutoDispiay = False.

Поведением компонента при работе со слишком длинными строками мож но управлять при помощи свойства При значении True слишком длинная строка сдвигается влево при перемещении текстового курсора за правую границу компонента. При значении False остаток длинной строки переносится на новую строку, при этом реально новая строка в данных не создается.

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

Редактировать изображения можно только в каком-либо графическом ре дакторе, перенося исходное и измененное изображение при помощи буфера обмена. Это делается средствами операционной системы пользователем ИЛИ ПОМОЩИ МеТОДОВ CopyToClipboard, CutToClipboard, Визуализация изображения осуществляется при помощи свойства которое представляет собой экземпляр класса TPicture.

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

368 Часть III. Приложения баз данных Свойство позволяет управлять процессом загрузки новых изо бражений из данных в компонент. При значении True любое новое значение поля автоматически отображается в компоненте. При значении False новое значение появляется только после двойного щелчка на компо ненте или после нажатия клавиши при активном компоненте.

Для ускорения просмотра изображений можно применять свойство QuickDraw, которое задает используемую изображением палитру. При значе нии True применяется стандартная системная палитра. В результате умень шается время загрузки изображения, но может ухудшиться и качество изо бражения, в некоторых случаях до полного искажения. При значении False используется собственная палитра изображения и процесс загрузки замед ляется.

Компонент TDBRichEdit Компонент предоставляет возможности полноценного текстового редактора для просмотра и изменения текстовых данных, хранящихся в связанном по ле набора данных. Поле должно содержать информацию о форматировании текста.

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

Синхронный просмотр данных При разработке приложений для работы с базами данных часто возникает необходимость в связывании двух наборов данных по ключевому полю. На пример, в таблице Orders (содержит данные о заказах) демонстрационной базы данных имеется поле CustNo, которое содержит идентифи кационный номер покупателя. Под этим же номером в таблице Customers хранится информация о покупателе (адрес, телефон, реквизиты и т. д.). При разработке пользовательского интерфейса приложения баз данных необхо димо, чтобы при просмотре перечня заказов в форме приложения отобра жались не идентификационные номера покупателей, а их параметры.

Таким образом, в наборе данных заказов вместо поля номера покупателя должно появиться поле имени покупателя из таблицы Customers. Механизм связывания полей из различных наборов данных по ключевому полю назы вается синхронным просмотром. В рассмотренном примере ключевым являет ся поле CustNo из таблицы Customers, а выбор конкретного наименования производится по совпадению значений ключевого поля и заменяемого поля Глава Компоненты отображения данных из исходного набора данных — Orders. Причем необходимо, чтобы в табли це Customers поле было уникальным (составляло первичный или вто ричный Таблицу, в которой расположено поле, значения которого замещаются на синхронные, будем называть исходной (это таблица Orders).

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

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

В наборе данных динамически можно создать поле синхронно го просмотра, которое будет автоматически замещать одно значение другим в зависимости от значения ключевого поля. Такое поле можно связать с любым рассмотренным выше компонентом отображения данных (см. гл. 13).

Помимо простого синхронного просмотра данных может возникнуть задача редактирования данных в аналогичной ситуации. Для этого предназначены специальные компоненты синхронного просмотра данных, которые позво ляют, например, выбирать покупателя из списка, а изменится при этом но мер покупателя в наборе данных заказов. Использование таких компонен тов делает пользовательский интерфейс значительно более удобным и на глядным. В VLC Delphi есть два таких компонента:

И ( Примечание На странице Win 3.1 Палитры компонентов имеются еще два компонента:

TDBLokupList и Они обладают тем же набором функций, ис пользуются для обеспечения совместимости с приложениями, созданными в среде разработки Delphi и поэтому здесь не рассматриваются.

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

Как и в любом другом компоненте отображения данных, в компонентах синхронного просмотра должны присутствовать средства связывания с тре буемым полем некоторого набора данных (табл. 15.7). Это уже известные свойства: — применяется для задания набора данных через ком понент TDataSource и — для определения требуемого поля набора данных. Для синхронного просмотра следует выбирать такое поле, значения которого не дают пользователю полной информации об объекте и совпада ют с ключевым полем в таблице синхронного просмотра. Название этого Часть III. Приложения баз данных поля может не совпадать с названием ключевого поля, но типы данных должны быть одинаковыми.

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

Теперь необходимо задать таблицу синхронного просмотра, ключевое поле и поле синхронного просмотра.

Набор данных, содержащий указанные поля, определяется через соответст вующий компонент TDataSource В свойстве ListSource.

Ключевое поле задается свойством Во время работы компонента в свойстве содержится текущее значение, которое связывает между собой два набора данных.

Поле синхронного просмотра определяется свойством Здесь можно задавать сразу несколько полей, которые будут отображаться в ком поненте синхронного просмотра. Названия полей разделяются точкой с за пятой. Если свойство не определено, то в компоненте будут отображаться значения ключевого поля. Свойство ListFieidindex служит для выбора ос новного поля из списка. Дело в том, что компоненты синхронного про смотра поддерживают механизм наращиваемого поиска, который позволяет быстро находить нужное значение в больших списках. Свойство ListFieidindex определяет, какое поле используется при наращиваемом по иске. В компоненте свойство ListFieidindex также опре деляет, какое поле будет передано в строку редактирования.

Таблица 15.7. Основные свойства, включающие механизм синхронного просмотра Объявление Тип Описание property KeyField: string;

j Pb Ключевое поле таблицы синхронного просмотра property KeyValue: Pu | Текущее значение ключевого поля Variant;

property ListFieid: Поле или список полей синхронного про string;

смотра в таблице синхронного просмотра property ListFieidindex: Номер основного поля синхронного Integer;

просмотра (используется, когда свойство Li stFi ei d содержит список полей) property ListSource: Указывает на компонент TDataSource, свя TDataSource;

занный с таблицей синхронного просмотра Глава 15. Компоненты отображения данных Таблица 15.7 (окончание) Объявление | Тип Описание property | I Определяет комбинацию клавиш, нажатие TShortCut;

| которых задает нулевое значение поля В качестве примера рассмотрим приложение (рис. 15.5), в ко тором с набором данных таблицы Orders из базы данных DBDEMOS связа ны Компоненты TDBGrid И Во ВТОрОМ перемещении по записям набора данных отображается имя покупателя, оформившего текущий заказ.

7 DemoLookup 2l ' ! l ) ;

1006! 07.11.198812:00:00 i 1510:03.05.1988 12:

12.05. i !

1012 1563:19.05.1988 <• 1624! 25.05.1988 26.05. !

71) 15.5. Главная форма проекта DemoLookup Ключевые свойства компонента настроены следующим образом.

СВОЙСТВО ListSource указывает Компонент CustSource ТИПа который связан с набором данных синхронного просмотра Свойство указывает на поле все значения которого дос тупны в списке компонента.

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

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

372 Часть III. Приложения баз данных Компонент TDBLookupListBox Компонент представляет собой список значений поля синхронного про смотра для поля, заданного свойством из набора данных Его основное назначение — автоматически устанавливать соот ветствие между полями двух наборов данных по одинаковому значению за данного поля исходной таблицы и ключевого поля таблицы синхронного просмотра. В списке синхронного просмотра отображаются возможные зна чения для редактирования поля основной таблицы.

По своим функциональным возможностям компонент совпадает с компо нентом TDBListBox.

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

По своим функциональным возможностям компонент совпадает с компо нентом Графическое представление данных Для представления данных из некоторого набора данных в виде графиков различных видов предназначен компонент TDBChart (табл. 15.8). В нем мож но одновременно показывать графики для нескольких полей данных. Гра фики строятся на основе всех имеющихся в наборе данных значений полей.

Функционально компонент ничем не отличается от компонента Настройка параметров компонента осуществляется специальным редакто ром, который можно открыть двойным щелчком на перенесенном на форму компоненте.

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

Основой любого графика в компоненте TDBChart является так называемая серия, свойства которой представлены классом Tchartseries. Для того что бы построить график значений некоторого поля набора данных, необходимо Глава 15. Компоненты отображения данных выполнить следующие действия, большинство из которых выполняется в специализированном редакторе компонента.

1. Создать новую серию и определить ее тип.

2. Задать для серии набор данных.

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

4. Открыть набор данных.

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

Для создания новой серии необходимо в редакторе перейти на главную страницу Chart, а на ней открыть страницу Series (рис. 15.6). На этой стра нице нужно щелкнуть на кнопке Add, а затем в появившемся диалоге вы брать тип серии. После этого в списке на странице Series появляется строка новой серии. Здесь можно переопределить тип, цвет и видимость серии, щелкнув на соответствующей зоне строки.

Все остальные страницы блокнота на главной странице Chart предназна чены для настройки параметров графика.

Теперь необходимо перейти на главную страницу Series и на ней из списка названий серий выбрать необходимую. После этого на странице Data Source из списка выбирается строка DataSet. Далее в появившемся списке DataSet выбирается нужный набор данных.

[Editing DBChartl, 3. 3.

Series J j Axis Paging j 3D 3l..: ;

•'•';

•• Setiesl '1 Series •' •:. ••... 15.6. Специализированный редактор компонента TDBChart 374 Часть III. Приложения баз данных Список X позволяет выбрать поле набора данных, значения которого будут последовательно откладываться по оси абсцисс. Список Y позволяет вы брать поле набора данных, значения которого будут отложены по оси орди нат. Соответствие между значениями полей по двум осям определяется принадлежностью к одной записи набора данных. Выбор поля в списке Labels привязывает его значения в виде меток к оси абсцисс.

Примечание Здесь описан набор элементов управления для линейного типа серии. Для дру гих типов элементы управления могут отличаться.

Теперь осталось только открыть набор данных и компонент TDBChart по строит график.

Аналогичным образом на этот же компонент можно поместить и другие графики.

Таблица 15.8. Свойства и методы компонента TDBChart Объявление ! Описание Свойства property : Boolean;

| Разрешает или запрещает обновление | данных в серии при открытии связан | ного набора данных property : Задает временной интервал в секундах между обновлениями данных в сериях из связанных наборов данных property ShowGlassCursor : Boolean;

Разрешает показ курсора "песочные часы" при обновлении данных Методы procedure | Обновляет данные в сериях function (ASeries : { Проверяет, связан ли набор данных TChartSeries;

| с серией ASeries. В случае : Boolean;

virtual ;

успеха проверки возвращает True procedure RefreshData;

| Обновляет данные во всех сериях procedure | Считывает все записи в наборе данных TDataSet;

ASeries: TChartSeries);

i переносит ИХ В серию ASeries Методы-обработчики событий property OnProcessRecord : j Вызывается при переносе данных TProcessRecordEvent;

из отдельной записи набора данных | в серию Глава 15. Компоненты отображения данных Резюме Компоненты отображения данных играют важную роль при создании ин терфейсов приложений баз данных. Разнообразие предлагаемых элементов управления позволяет решать любые задачи по организации взаимодействия пользователя с базой данных. Все они взаимодействуют с набором данных Технологии доступа к данным Глава 16. Процессор баз данных Borland Database Engine Глава 17. Технология dbExpress Глава 18. Сервер баз данных InterBase и компоненты InterBase Express Глава 19. Использование ADO средствами Delphi ГЛАВА Процессор баз данных Borland Database Engine Любое приложение баз данных имеет в своем составе или использует сто ронний механизм доступа к данным, который берет на себя подавляющее большинство стандартных низкоуровневых операций работы с базами дан ных. Например, любое такое приложение при открытии таблицы БД долж но выполнить примерно одинаковый набор операций.

поиск местоположения базы данных;

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

чтение данных в соответствии с форматом хранения данных и т. д.

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

Одним из традиционных способов взаимодействия приложения, созданного в среде разработки Delphi, и базы данных является использование процес сора баз данных Borland Database Engine 5. Он представляет собой набор динамических библиотек, функции которых позволяют не только обращать ся к данным, но и эффективно управлять ими на стороне приложения.

Для работы с источниками данных при посредстве BDE в Delphi имеется специальный набор компонентов, расположенных на странице BDE Палит ры компонентов. Эти компоненты для работы с базами данных используют возможности BDE, обращаясь к его функциям и процедурам. Механизм доступа к BDE инкапсулирован в базовом классе TBDEDataSet. (Подробно базовые классы компонентов доступа к данным рассмотрены далее в этой части.) Поэтому в процессе программирования у вас не будет и Глава 16. Процессор баз данных Borland Database Engine мости использовать функции BDE напрямую. Почти все, что можно сделать путем прямого обращения, можно сделать и через компоненты — это проще и надежнее.

Тем не менее внутреннюю организацию механизма доступа к данным всегда полезно знать. Кроме этого, всегда полезно знать и уметь использовать дополнительные возможности, которые BDE может предоставить разработчику.

BDE взаимодействует с базами данных при посредстве драйверов. Для осо бенно распространенных локальных СУБД разработан набор стандартных драйверов. Работа с наиболее распространенными серверами БД осуществ ляется при помощи драйверов системы SQL Links. Кроме этого, если для базы данных существует драйвер ODBC, то можно использовать и его. Дос таточно зарегистрировать этот драйвер в BDE.

Однако BDE не претендует на всеобъемлющую универсальность и имеет некоторые недостатки. Это, например, снижение скорости работы прило жения, недостатки реализации некоторых драйверов и т. д. В документации к Delphi 7 содержится предупреждение, что после 2002 года фирма Borland перестанет поддерживать BDE и рекомендует использовать технологию которая также рассматривается в настоящей книге.

В этой главе обсуждаются следующие вопросы.

архитектура и составные части BDE;

что такое псевдонимы БД и настройка драйверов BDE;

использование утилиты BDE Administrator;

способы прямого использования функций API BDE;

компоненты доступа к данным BDE.

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

В составе BDE поставляются стандартные драйверы, обеспечивающие дос туп к СУБД Paradox, dBASE, FoxPro и текстовым файлам. Локальные драй веры (рис. 16.1) устанавливаются автоматически совместно с ядром процес сора. Один из них можно выбрать в качестве стандартного драйвера, кото рый имеет дополнительные настройки, влияющие на функционирование процессора БД.

Часть IV. Технологии доступа к данным Приложение баз данных Локальная СУБД Сервер SQL Рис. 16.1. Структура процессора баз данных BDE Доступ к данным серверов SQL обеспечивает отдельная система драйве ров — SQL Links. С их помощью в Delphi можно без особых проблем разра батывать приложения для серверов Oracle 8, Informix, Sybase, DB2 и, естест венно, InterBase. Эти драйверы необходимо устанавливать дополнительно.

Помимо этого, в BDE имеется очень простой механизм подключения лю бых драйверов ODBC (к примеру, Microsoft Access) и создания на их основе сокетов Примечание С точки зрения пользователя процесс подключения локального драйвера и драйвера SQL Links практически не отличается, за исключением деталей на стройки. Настройка драйверов и собственных параметров BDE осуществляется при помощи специальной утилиты — BDE Administrator и рассматривается да лее в этой главе.

В состав BDE входят следующие функциональные подсистемы.

Администратор системных ресурсов управляет процессом подключения к данным — при необходимости устанавливает нужные драйверы, а при завершении работы автоматически освобождает занятые ресурсы. Поэто му BDE всегда использует ровно столько ресурсов, сколько необходимо.

Глава 16. Процессор баз данных Borland Database Engine Система обработки запросов обеспечивает выполнение запросов SQL или QBE от приложения к любым базам данных, для которых установлен драйвер, даже если сама СУБД не поддерживает прямое использование запросов SQL.

Система сортировки является запатентованной технологией и обеспечи вает очень быстрый поиск по запросам SQL и через стандартные драйве ры для Paradox и Система пакетной обработки представляет собой механизм преобразова ния данных из одного формата в другой при выполнении операций над целыми таблицами. Эта система использована в качестве основы для компонента и утилиты DataPump (автоматического переноса структур данных между базами данных), входящей в стандартную по ставку BDE.

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

Менеджер памяти взаимодействует с ОС и обеспечивает эффективное использование выделяемой памяти. Ускоряет работу драйверов, которые для получения небольших фрагментов памяти обращаются к нему, а не к ОС. Дело в том, что менеджер памяти выделяет большие объемы опе ративной памяти и затем распределяет ее небольшими кусками между драйверами согласно их потребностям.

Транслятор данных обеспечивает преобразование форматов данных для различных типов БД.

Кэш BLOB используется для ускорения работы с данными в формате BLOB.

SQL-генератор транслирует запросы в формате QBE в запросы SQL.

Система реструктуризации обеспечивает преобразование наборов данных в таблицы Paradox или dBASE.

Система поддержки драйверов SQL повышает эффективность механизма поиска при выполнении запросов SQL.

Таблицы в памяти. Этот механизм позволяет создавать таблицы непо средственно в оперативной памяти. Используется для ускорения обра ботки больших массивов данных, сортировки, преобразования форматов данных.

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

Часть IV. Технологии доступа к данным Менеджер конфигурации обеспечивает разработчику доступ к информации о конфигурации драйверов.

Перечисленные функции реализованы в динамических библиотеках, кото рые, собственно, и называются процессором БД (табл. 16.1).

Таблица Ядро процессора баз данных BDE Имя файла Назначение IDAPI32.DLL Базовая динамическая библиотека BDE IDPROV.DLL Динамическая библиотека, отвечающая за работу серверной части приложения Динамическая библиотека, обеспечивающая поддержку драйверов национальных языков IDBAT32.DLL Динамическая библиотека с функциями межтабличного переноса данных IDQBE32.DLL Динамическая библиотека, обеспечивающая работу запросов по примеру (Query By Example, QBE) IDSQL32.DLL Динамическая библиотека, обеспечивающая обработку запросов SQL IDASCI32.DLL Динамическая библиотека, обеспечивающая работу драйвера текстовых файлов IDPDX32.DLL Динамическая библиотека, обеспечивающая работу драйвера Paradox IDDBAS32.DLL Динамическая библиотека, обеспечивающая работу драйвера DODBC32.DLL Динамическая библиотека, обеспечивающая работу драйвера сокета ODBC IDR20009.DLL Динамическая библиотека ресурсов, содержащая сообщения об ошибках IDDAO32.DLL Динамическая библиотека, обеспечивающая работу драйверов Microsoft Access 95 и Jet Engine 3. IDDA3532.DLL Динамическая библиотека, обеспечивающая работу драйверов Microsoft Access 97 и Jet Engine 3. IDDR32.DLL Динамическая библиотека для работы с Репозиторием данных Кроме этого имеется шесть дополнительных DLL, обеспечивающих работу с серверами Oracle и Microsoft SQL Server.

Глава 16. Процессор баз данных Borland Database Engine Псевдонимы баз данных и настройка BDE Для успешного доступа к данным приложение и BDE должны обладать ин формацией о местоположении файлов требуемой базы данных. Задание маршрута входит в обязанности разработчика.

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

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

В первом приближении можно сказать, что вы просто присваиваете мар шруту произвольное имя, которое используется в приложении. Тогда при переносе приложения на компьютере заказчика достаточно создать стан дартными средствами BDE одноименный псевдоним и настроить его на нужный каталог. При этом само приложение не требует переделок, т. к. оно обращается к псевдониму с одним именем, а вот BDE уже "знает" куда от править запрос приложения, использовавшего этот псевдоним.

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

Для управления псевдонимами баз данных, настройки стандартных и до полнительных драйверов в составе BDE имеется специальная утилита — BDE Administrator (исполняемый файл BDEADMIN.EXE).

Стандартная конфигурация BDE сохраняется в файле При необходимости текущую конфигурацию можно сохранить в новом файле с расширением cfg или загрузить заново при помощи команд Save As Configuration и Open Configuration из меню Object.

В верхней части окна утилиты расположена Панель инструментов, кнопки которой используются при работе с конкретным элементом настройки BDE.

Рабочая область утилиты BDE Administrator представляет собой двухстра ничный блокнот.

Страница Databases (рис. 16.2) содержит иерархическое дерево, в узлах ко торого расположены установленные в системе на данный момент псевдо нимы БД. При выборе какого-либо псевдонима в правой части панели по является путь к файлам базы данных и перечень параметров драйвера, соот ветствующего псевдониму, которые можно настраивать вручную.

Часть IV. Технологии доступа к данным DDL Administrator | | Databases Type STANDARD dBASE Files DEFAULT DRIVER PARADOX dBase ENABLE BCD FALSE PATH EB- Excel Files B- FoxPro Local IBProd a- MS Access Database Visual FoxPro Visual FoxPro Tables Г 16.2. Окно утилиты BDE Administrator с открытой страницей Databases BDE Administrator Configuration AUTO ODBC FALSE n- Drivers DEFAULT DRIVER Native 1 ODBC LOCAL SHARE FALSE System LOW MEMORY USAGE MAXBUFSIZE MAXFILEHANDLES MEMSIZE MINBUFSIZE MTS POOLING FALSE SHAREDMEMLOCATIC SHAREDMEMSIZE SYS VERSION 4 in 16.3. Окно утилиты BDE Administrator с открытой страницей Configuration Страница Configuration (рис. 16.3) используется для настройки параметров драйверов BDE, предназначенных для обеспечения доступа к локальным СУБД и серверам БД. Также здесь определяется системная конфигурация Глава 16. Процессор баз данных Borland Database Engine BDE, которая включает параметры числовых форматов, форматов даты и времени. Вся информация на этой странице также структурирована в виде иерархического дерева.

При выборе в левой части панели утилиты какого-либо узла, в правой части на странице Definition отображается вся необходимая информация для этого объекта.

Сохранение изменений осуществляется при помощи команд меню Object, всплывающего меню или при перемещении на другой псевдоним.

Для создания нового псевдонима требуется выбрать команду New из меню Object или из всплывающего меню узла Databases на одноименной страни це. Затем в появившемся простом диалоге задается необходимый драйвер.

Отметим, что один из четырех стандартных локальных драйверов устанав ливается на странице Configuration в качестве предопределенного, поэтому в списке он доступен под названием STANDARD, а остальные не видны вообще. Из драйверов SQL Links доступны те, которые были установлены при инсталляции Delphi или позже.

Кроме того, в списке можно выбрать один из драйверов ODBC, установка которых осуществляется стандартными системными средствами на Панели управления Windows.

После выбора драйвера в дереве псевдонимов БД появляется новый узел, для драйвера которого требуется установить необходимые параметры (см.

ниже).

Для четырех локальных драйверов список параметров в правой части пане ли утилиты на странице Definition ограничивается параметрами стандартно го драйвера (STANDARD), подробная настройка для каждого драйвера осуществляется на странице Configuration.

Назначение параметров локальных драйверов BDE (Paradox, dBASE, FoxPro, ASCII) представлено в табл. 16.2.

Таблица 16.2. Параметры драйверов BDE для локальных баз данных Параметр Назначение STANDARD DEFAULT DRIVER Задает тип конкретного локального драйвера (Paradox, | FoxPro, ASCII) ENABLE BCD | Определяет способ представления вещественных чи | сел. При значении True такие числа преобразуются | в формат BCD (Binary Coded Decimals — десятичные с двоичным кодированием). Точность составляет I знаков после запятой PATH | Указывает путь к файлам базы данных 13 386 Часть IV. Технологии доступа к данным Таблица (продолжение) Параметр Назначение PARADOX NET Указывает путь к файлу обеспечения сетевого доступа к БД PDOXUSRS.NET. Драйвер приложения, которое работает с БД локально, должен указывать на этот файл, расположенный на том же компьютере. Драйвер приложения, обращающегося к БД по сети, должен ука зывать на подключенный сетевой диск с этим файлом VERSION Нередактируемая информация о версии драйвера TYPE Тип СУБД. Для Paradox имеет значение FILE. Только для чтения LANGDRIVER Определяет драйвер языковой поддержки (используйте драйвер Paradox 866) BLOCK SIZE Задает размер блоков дискового пространства для хра нения записей, кратно FILL FACTOR Определяет процент заполнения блока дискового про | странства при хранении индексов, по умолчанию 95% LEVEL I Задает формат временной таблицы в памяти:

I • 3 — совместим с Paradox 3.5 и ниже;

I • 4 — Paradox 4.0;

5 — Paradox 5.0;

7 - Paradox для WIN STRICTINTEGRTY Определяет возможность использования приложениями на базе Paradox 4.0 более поздних таблиц со ссылочной целостностью. При значении True использование раз решается, но возникает риск нарушения целостности данных DBASE VERSION Нередактируемая информация о версии драйвера TYPE Тип СУБД. Для dBASE имеет значение FILE. Только для чтения LANGDRIVER Определяет драйвер языковой поддержки (используйте драйвер dBASE RUS ср866) LEVEL | Задает формат таблиц. Значение соответствует номеру i версии СУБД BLOCK SIZE Размер блоков для файлов с расширением крат но MEMO FILE BLOCK SIZE Размер блоков для файлов с данными типа Memo (рас ширение dbt), кратно Глава 16. Процессор баз данных Borland Database Engine Таблица 16.2 (окончание) Параметр Назначение FOXPRO VERSION информация о версии драйвера TYPE Тип СУБД. Для FoxPro имеет значение FILE. Только для чтения LANGDRIVER Определяет драйвер языковой поддержки LEVEL Имеет значение ( Примечание Драйвер текстовых файлов ASCIIDRV имеет параметры стандартного драй вера.

Назначение параметров драйверов SQL Links для серверов SQL представле но в табл. 16.3. Сначала приведены параметры, которые встречаются в двух и более драйверах, затем уникальные для каждого драйвера параметры.

Драйверы для серверов InterBase и Sybase не представлены, т. к. содержат только общие для двух серверов параметры.

Таблица 16.3. Параметры драйверов серверов SQL Параметр Назначение Общие параметры (встречаются как минимум у двух драйверов) VERSION Нередактируемая информация о версии драйвера TYPE Тип СУБД. Только для чтения DLL Название библиотеки динамического связывания SQL Links для драйвера. Только для чтения DLL32 Название библиотеки динамического связывания SQL Links для 32-разрядного драйвера. Только для чтения DRIVER FLAGS Используется только при необходимости применения старых версий драйвера, где не поддерживается уро вень изоляции транзакций Read Committed. Для этого необходимо установить значение TRACE MODE Содержит битовую маску, которая определяет тип выда ваемой отладочной информации Задает число записей, модифицируемых в одном паке BATCH COUNT те при фиксации транзакций Размер кэша для данных типа BLOB. Диапазон от 32К BLOB SIZE Часть IV. Технологии доступа к данным Таблица 16.3 (продолжение) Параметр Назначение BLOBS CACHE Задает число кэшируемых записей с данными BLOB.

Диапазон от 64 до 65 ENABLE BCD Определяет способ представления вещественных чи сел. При значении True такие числа преобразуются в формат BCD (Binary Coded Decimals— десятичные с двоичным кодированием), который позволяет округлять погрешности высших разрядов дробной части числа.

Изменение параметра для псевдонима работает, только если параметр драйвера на странице Configuration не пустой ENABLE SCHEMA CACHE Определяет режим кэширования структуры данных. При значении True структура таблиц БД кэшируется ло кально в каталоге, задаваемом параметром SCHEMA CACHE DIR. Рекомендуется использовать только для баз данных с постоянной структурой LANGDRIVER Определяет драйвер языковой поддержки MAX ROWS | Ограничивает максимальное число записей, которое может быть передано клиенту в ответ на запрос. Значе ние по умолчанию -1 (ограничений нет) OPEN MODE Режим работы с записями БД:

• — полный доступ;

• READ ONLY — только чтение SCHEMA CACHE Каталог для локального кэширования структуры данных (см. параметр ENABLE SCHEMA CACHE) SCHEMA CACHE SIZE Задает число таблиц, структура данных которых может кэшироваться SCHEMA CACHE TIME Задает время хранения кэшируемой структуры данных:

• -1 — время не ограничено;

• 0 — данные не кэшируются;

• 1 - - секунды SERVER NAME Указывает путь к таблицам БД (это может быть локаль ный маршрут или маршрут с указанием удаленного сервера БД) SQLPASSTHRU MODE | Задает способ использования соединения с сервером прямыми запросами SQL и запросами, управляемыми пользователем.

[ SHARED соединение используется совместно и прямые запросы фиксируются автомати чески.

Глава Процессор баз данных Borland Database Engine Таблица16.3(продолжение) Параметр Назначение (прод.) SHARED NO AUTOCOMMIT— соединение используется совместно и прямые запросы фиксируются сервером самостоятельно.

NOT SHARED — совместное использование запрещено Задает режим управления запросами.

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

SERVER — запрос передается серверу.

LOCAL — запрос выполняется локально VENDOR INIT Название файла динамической библиотеки поставщика CONNECT TIMEOUT Определяет временной интервал, после которого клиент попытается восстановить прерванную связь с сервером TIMEOUT Задает время ожидания ответа сервера на запрос BLOB EDIT LOGGING Управляет механизмом сохранения всех изменений для полей типа BLOB. При значении True изменения сохра няются DATABASE NAME Имя базы данных MAX QUERY TIME I Задает максимальное время ожидания ответа на запрос USER NAME Имя пользователя, которое используется сервером при | подключении Microsoft SQL Server (MSSQL) MAX DBPROCESSES Максимальное число процессов, одновременно рабо I тающих в данном соединении APPLICATION NAME | Имя приложения, помогающее серверу идентифициро вать процессы DATE MODE Определяет формат даты:

. О - МДГ;

1 - ДМГ;

. 2 - ГМД Содержит имя рабочей станции. Помогает серверу при HOST NAME идентификации процессов NATIONAL LANG NAME Задает национальный язык, который используется для вывода текста в сообщениях об ошибках TDS PACKET SIZE Определяет размер пакетов потоков данных 390 Часть IV. Технологии доступа к данным Таблица 16.3 (окончание) Параметр | Назначение Oracle (ORACLE) NET PROTOCOL | Устанавливает сетевой протокол передачи данных Informix (INFORMIX) DATE SEPARATOR Задает разделитель для формата даты Microsoft Access (MSACCESS) SYSTEM DATABASE Путь к системной базе данных с информацией о правах доступа. При изменении параметра драйвер необходи мо перезагрузить DB2 (DB2) DB2 DSN | Задает имя соединения с БД. Это название псевдонима клиента DB2, который создается на сервере DRIVER Имя драйвера DB SIZE Определяет число записей, передаваемых одновременно Драйверы ODBC ODBC DRIVER Имя драйвера ODBC ODBC DSN i Имя набора данных ODBC После настройки параметров драйвера и сохранения текущей конфигурации новый псевдоним становится доступен для любого приложения, исполь зующего BDE.

Страница Configuration, помимо настройки установленных в BDE драйве ров, позволяет редактировать параметры, используемые BDE при инициа лизации приложения. Эти параметры доступны при выборе узлов System, a затем INIT иерархического дерева. Назначение параметров представлено в табл. 16.4.

Таблица 16.4. Параметры инициализации приложения Параметр Назначение AUTO ODBC В значении True при каждой инициализации в BDE автоматически импортируются все установленные в системе драйверы ODBC DATA REPOSITORY Имя текущего словаря данных DEFAULT DRIVER Локальный драйвер, используемый по умолчанию в драйвере STANDARD Глава 16. Процессор баз данных Borland Database Engine Таблица 16.4 (окончание) Параметр Назначение LANGDRIVER Драйвер языковой поддержки. При использовании стандартных локальных драйверов это значение пе рекрывают те, которые определены непосредственно в конфигурациях драйверов Paradox, FoxPro, ASCII LOCAL SHARE Устанавливает режим совместного использования файлов приложениями, работающих через BDE и другие программы. В значении True совместное ис пользование разрешено LOW MEMORY USAGE LIMIT Максимальный объем памяти (в Кбайтах), который BDE пытается использовать в первом Мбайте опера тивной памяти MAXBUFSIZE Максимальный размер кэша данных. Он должен быть не меньше значения параметра MINBUFSIZE и кра тен MAXFILEHANDLES Максимальное число используемых файлов MEMSIZE Максимальный объем используемой BDE памяти в Мбайтах Минимальный размер кэша данных. Он должен быть MINBUFSIZE не больше значения параметра MAXBUFSIZE и кра тен Управляет режимом объединения ресурсов MTS MTS POOLING (Microsoft Transaction Server). Обеспечивает лучшую производительность Содержит адрес памяти, который пытаются исполь SHAREDMEMLOCATION зовать Менеджер памяти и Менеджер буфера. При возникновении конфликтов адрес необходимо поме нять вручную. Задается только второе слово адреса SHAREDMEMSIZE Максимальный объем памяти, используемый Менед жером памяти и Менеджером буфера SQLQRYMODE См. табл. 16. Не используется SYSFLAGS Номер внутренней версии BDE. Только для чтения VERSION Также на странице Configuration устанавливаются параметры форматов да ты, времени и чисел. Доступ к параметрам осуществляется через узлы System и Format.

392 Часть IV. Технологии доступа к данным Интерфейс прикладного программирования BDE Как уже говорилось выше, любое приложение Delphi, работающее с базами данных и написанное с использованием стандартных компонентов доступа к данным, обращается к данным и получает результат при помощи BDE.

При этом механизм доступа к данным использует вызовы функций из API BDE.

Достаточно сложно представить себе такую ситуацию, когда возникает не обходимость создания приложения, использующего только функции BDE, без применения компонентов доступа к данным А вот отдельные функции вполне могут понадобиться в любой программе. Поэтому рассмот рим процесс работы приложения, использующего вызовы BDE, т. к. это дает хорошую возможность понять механизм доступа к данным, который реализован в Delphi.

Итак, для создания приложения на основе вызовов функций BDE необхо димо выполнить следующие операции:

1. Инициализация BDE (функция 2. Открытие объекта базы данных (функция DbiopenDatabase).

3. Определение рабочего каталога (функция если на пре дыдущем этапе не задается псевдоним БД.

4. Определение временного каталога (функция 5. Открытие набора данных и создание курсора (функции DbiQExec И 6. Заполнение структуры содержащей данные о курсоре и наборе ДаННЫХ (фуНКЦИЯ DbiGetCursorProps).

7. Выделение памяти для буфера записи.

8. Навигация ПО набору (функции DbiSetToBegin, DbiSetToCursor И 9. Чтение записи (фуНКЦИИ DbiGetRelativeRecord, DbiGetNextRecord, DbiGetRecord, DbiGetPriorRecord И 10. Чтение или обновление необходимого поля (функции DbiPutField).

11. Освобождение всех ресурсов (освобождение буфера записи, закрытие курсора, таблицы, BDE).

При использовании в программе функций из API BDE необходимо вклю чить в секцию uses модуль BDE.

В прикладном программировании задачи, которые требовали бы выполне ния всех описанных выше операций, практически не встречаются. Между Глава Процессор баз данных Borland Database Engine тем, включение в программный код отдельных функций API BDE оправда но. В качестве примера рассмотрим приложение, которое позволяет очи стить таблицу базы данных (рис. 16.4).

Дело в том, что при удалении записи из таблицы локальной СУБД (напри мер Paradox) размер файла таблицы остается прежним, даже если удалить все записи. То есть на самом деле запись не удаляется, а только становится недоступной. При интенсивном использовании базы данных файлы таблиц могут занимать значительные объемы дискового пространства при довольно умеренном числе записей.

Список псевдонимов баз данных:

И Список таблиц текущей базы данных:

Очистить Рис. 16.4. Главная форма проекта BDEEmptyTable Полная очистка таблиц базы данных осуществляется функцией из API BDE. Именно она используется в демонстрационном приложении для радикального уменьшения размера таблиц.

( Примечание DbiEmptyTabie используется в методе компонентов дос тупа к данным (см. гл. 17).

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

, } BDEEmptyTable | unit Main;

interface Windows, Messages, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, BDE, ExtCtrls, DBCtrls, Grids, DBGrids, Db, DBTables, Buttons;

394 Часть IV. Технологии доступа к данным type = AliasesList: TComboBox;

TablesList: TComboBox;

TBitBtn;

Labell: TLabel;

Label2: TLabel;

procedure TObject;

var Action:

procedure procedure procedure TObject);

private hDB: hDBIDB;

hCursor: hDBICur;

DBDesc: DBDesc;

TblDesc : TBLBaseDesc;

public { Public declarations } end;

var TMainForm;

implementation {$R *.DFM} procedure TObject);

var DBIResult;

begin hDB := Nil;

try // Инициализация BDE repeat Rslt:= dbiNOLOCK, @DBDesc, nil);

if (Rslt <> then until (rslt О except on E:EDBEngineError do инициализации BDE');

end;

end;

Глава Процессор баз данных Borland Database Engine procedure TObject;

var Action: TCloseAction);

begin try finally if hDB <> Nil then Закрытие базы данных // Закрытие сеанса работы с end end;

procedure begin try if hDB <> Nil then Закрытие базы данных DbiOpenDatabase // Открытие базы данных ( // Псевдоним базы данных Nil, // Тип базы данных // Режим редактирования данных dbiOpenShared, // Режим разделения данных Nil, // Пароль О, // Число дополнительных параметров Nil, // Перечень полей для доп. параметров Nil, // Список доп. параметров hDB // Дескриптор базы данных );

Определение временного каталога False, False, '*.DB', hCursor);

while @TblDesc, nil) = dbiErr_None do except on E:EDBEngineError do открытия базы end;

end;

procedure TObject);

begin try Nil, ' ' ) ;

except 396 Часть IV. Технологии доступа к данным on E:EDBEngineError do задана таблица');

end;

end;

end.

При открытии главной формы (метод-обработчик функция осуществляет инициализацию BDE. Затем функция DbiOpenDatabaseList создает в памяти временную таблицу, в которую записываются характери стики каждой зарегистрированной базы данных. Для этого применяется структура Курсор hcursor обеспечивает доступ к записям о базах данных.

После этого функция DbiGetNextRecord позволяет осуществить последова тельное считывание имен псевдонимов баз данных (для этого в параметре передается указатель на структуру DBDesc) и их запись в список компонента AliasesList При выборе из этого списка конкретного псевдонима работает метод обработчик В нем открывается соответствующая база данных (функция DbiopenDatabase), доступ к которой в дальнейшем осуще ствляется через дескриптор создает временную таблицу в памяти, в которую помещаются данные о таблицах выбранной базы данных в соответствии с форматом структуры Функция DbiGetNextRecord позволяет пе редать эту информацию в список компонента типа TComboBox.

При щелчке на кнопке в методе-обработчике работа ет функция DbiEmptyTable, которая очищает выбранную ранее в компоненте TabiesList таблицу.

Теперь рассмотрим пример простейшего приложения, которое может ото бражать два поля из таблицы в демонстрационной базе дан ных Эта база данных поставляется в комплекте Delphi. В при мере использованы только функции API BDE.

Проект называется DirectBDE и имеет только одну форму, в которой ото бражаются сведения из таблицы COUNTRY.DB о государствах и их столи цах (рис. 16.5). Кнопки в нижней части формы позволяют перемещаться по набору данных.

i Листинг 16.2. Модуль главной формы приложения DirectBDE !

unit interface Глава 16. Процессор баз данных Borland Database Engine uses Windows, Messages, Classes, Graphics, Controls, Forms, Dialogs, Buttons, BDE, type = PriorBtn: TBitBtn;

Panel2: TPanel;

NextBtn: TBitBtn;

Label3: TLabel;

TEdit;

Labell: TLabel;

CapitalEdit: TEdit;

procedure TObject);

procedure TObject);

procedure TObject;

var Action: TCloseAction);

procedure private hDB: hDBIDB;

hCur: hDBICur;

CursProps: CurProps;

RecBuf: pByte;

FValue: of Char;

Bool;

procedure OnBDEError;

public end;

var TMainForm;

implementation {$R procedure var // Структура, содержащая информацию об ошибках AStr: String;

begin Errlnfo);

// Функция возвращает информацию об ошибке case of 9733: AStr := 'Для создания записи недостаточно 10024: AStr := 'Ошибка доступа к данным';

10245: AStr := 'База данных занята другим пользователем';

10038: AStr := 'Значение поля задано неверно';

398 Часть IV. Технологии доступа к данным 11871: AStr := 11959: AStr := 'В выражении отсутствует оператор GROUP BY';

else AStr := 'Ошибочная операция с данными';

end;

end;

procedure TObject);

begin hDB := Nil;

hCur Nil;

// Инициализация системы BDE DbiOpenDatabase // Открытие базы данных ( // Псевдоним базы данных Nil, // Тип базы данных // Режим редактирования данных dbiOpenShared, // Режим разделения данных Nil, // Пароль О, // Число дополнительных параметров Nil, // Перечень полей для доп. параметров Nil, // Список доп. параметров hDB // Дескриптор базы данных );

// Определение временного каталога DbiOpenTable // Открытие таблицы ( hDB, // Дескриптор базы данных // Название таблицы // Тип таблицы (только для локальных БД) Nil, // Название индекса (необязательный) Nil, // — только для dBASE О, //0 — использовать первичный индекс dbiReadWrite, // Режим редактирования данных dbiOpenShared, // Режим разделения данных xltField, // Режим трансляции данных False, // Признак одностороннего перемещения курсора Nil, // Дополнительные параметры hCur // Дескриптор курсора таблицы );

DbiGetCursorProps // Определение параметров курсора ( hCur, // Дескриптор курсора таблицы Глава 16. Процессор баз данных Borland Database Engine // Структура параметров курсора );

// Выделение памяти под буфер записи ( );

DbiSetToBegin(hCur);

// Установка курсора в начало набора данных DbiGetNextRecord // Перемещение на первую запись ( hCur, // Дескриптор курсора таблицы dbiNoLock, // Режим ограничения доступа RecBuf, // Буфер записи Nil // Параметры записи );

DbiGetField // Получение значения поля ( hCur, // Дескриптор курсора таблицы 1, // Номер поля в структуре таблицы RecBuf, // Буфер записи @FValue, // Переменная, в которую передается значение // Признак пустой ячейки );

MainForm.CountryEdit.Text := FValue;

2, RecBuf, IsEmpty);

:= FValue;

end;

procedure TObject;

var Action:

begin try finally // Освобождение памяти буфера записи // Закрытие курсора // Закрытие базы данных DbiExit;

// Закрытие сеанса работы с end end;

procedure begin try if dbiNoLock, RecBuf, Nil) = then False Часть IV. Технологии доступа к данн else begin if Not then := True;

DbiGetField(hCur, 1, SFValue, IsEmpty);

:= FValue;

DbiGetField(hCur, 2, RecBuf, @FValue, IsEmpty);

:= FValue;

end;

except OnBDEError;

end;

end;

procedure TObject);

begin try if DbiGetNextRecord(hCur, RecBuf, then := False else begin if Not then := True;

DbiGetField(hCur, 1, RecBuf, @FValue, IsEmpty);

MainForm.CountryEdit.Text := FValue;

DbiGetField(hCur, 2, RecBuf, IsEmpty);

MainForm.CapitalEdit.Text := FValue;

end;

except OnBDEError;

end;

end;

end.

Пример прямого использования API BDE Столица:

16.5. Главная форма проекта DirectBDE Глава 16. Процессор баз данных Borland Database Engine При показе главной формы приложения в процедуре проводится инициализация BDE, открытие базы данных и таблицы. При этом создают ся дескрипторы базы данных И курсора таблицы hcur, которые играют в дальнейшей работе приложения важную роль. Если при создании базы дан ных не указывать псевдоним БД, то обязательно нужно определить рабочий каталог базы данных с помощью функции После этого отводится память под буфер записи, в который будут переда ваться значения полей текущей строки таблицы. Размер буфера определяет ся ПОМОЩИ Затем курсор устанавливается на начало набора данных и на первую запись и осуществляется чтение значений двух полей таблицы.

Навигация по набору данных реализована в методах-обработчиках на нажа тие кнопок формы. Их действие аналогично за исключением направления перемещения. При щелчке на кнопке выполняется переход на следующую или предыдущую запись, данные из новой записи помещаются в буфер записи RecBuf. Оттуда при помощи функции осуществляется чтение значений полей. При достижении начала или конца набора данных кнопка деактивируется.

При закрытии формы проводятся операции по освобождению памяти буфе ра записи, закрытию базы данных и BDE.

Соединение с источником данных Все обращения из приложения к таблицам одной базы данных осуществля ются через одно соединение, на которое замыкаются все компоненты дос тупа к данным, имеющие соответствующие значения свойства DatabaseName (см. ниже).

Все управление одиночным соединением с какой-либо базой данных в BDE осуществляется компонентом TDatabase (табл. 16.5). В процессе работы компонент активно использует параметры псевдонимов и драйверов BDE.

Таблица 16.5. Свойства и методы компонента TDatabase Объявление Тип Описание Свойства property string;

Pb i Задает имя псевдонима BDE исполь i зуемой базы данных property Connected: Boolean;

Управляет включением соединения с базой данных property DatabaseName: string;

| Pb j Определяет имя базы данных Часть IV. Технологии доступа к данным Таблица 16.5 (продолжение) Объявление | Тип | Описание Возвращает число открытых наборов property DataSetCount: Ro Integer;

данных, работающих через данное соединение Индексированный список всех объек property Ro тов открытых наборов данных этого Integer]: TDBDataSet;

соединения Определяет текущий каталог для баз property Directory: string;

| Pu j данных Paradox и dBASE property string;

| Содержит имя драйвера базы данных property Exclusive: Boolean;

При значении True другие приложения I не могут работать с базой данных одновременно с этим компонентом type HDBIDB: Longint;

| Дескриптор BDE. Используется для прямых вызовов функций API BDE property Handle: HDBIDB;

property HandleShared: Pu | При значении True дескриптор BDE Boolean;

| компонента доступен в компоненте TSession property InTransaction: Ro Показывает состояние транзакции.

Boolean При значении True транзакция выпол няется property Boolean;

Ro | При значении True соединение I работает через драйвер SQL Links property | При значении True соединение Boolean;

| должает оставаться активным после | закрытия всех наборов данных. При | значении False после закрытия по | следнего набора данных соединение | закрывается type TLocale: Pointer;

Ro Указывает на языковый драйвер BDE, используемый при работе с базой дан property Locale: TLocale;

ных property Boolean;

Управляет отображением стандартного диалога регистрации пользователя при подключении к серверу property TStrings;

| Содержит список значений параметров | псевдонима BDE, которые пользова | тель задает перед подключением к серверу Глава 16. Процессор баз данных Borland Database Engine Таблица 16.5 (продолжение) Объявление Тип Описание property Session: TSession | Указывает на компонент TSession, | который управляет работой данного I компонента property SessionAlias:

Ro При значении True при подключении Boolean;

к БД используется псевдоним сессии property string;

Содержит имя сеанса, который управ ляет работой компонента property Readonly: Boolean;

Управляет режимом доступа к данным "только для чтения" property Temporary: Boolean;

Значение True говорит о том, что экземпляр компонента создан во время выполнения type Определяет перечень операций, выполнение которых отображается TTraceFlag = (tfQPrepare, в утилите SQL Monitor при выполнении tfQExecute, tfError, приложения tfTransact, tfBlob, tfVendor, tfDataOut);

TTraceFlags = set of TTraceFlag;

property TTraceFlags;

type TTransIsolation = Определяет уровень изоляции (tiDirtyRead, транзакций:

• tiRepeatableRead);

чтение;

property • TTransIsolation;

чтение;

• tiRepeatableRead — повторяемое чтение Методы procedure Фиксирует все изменения в наборах DataSets: array of данных, работающих через это TDBDataSet);

соединение, в базе данных Pu | Закрывает все открытые наборы procedure Close;

| данных и соединение Pu i Закрывает все открытые наборы procedure CloseDatasets;

j данных, работающие через это соеди I нение Часть IV. Технологии доступа к данным Таблица 16.5 (окончание) Объявление Тип Описание procedure Commit;

Завершает выполнение текущей тран закции и фиксирует все изменения в базе данных function SQL: Pu | Выполняет запрос SQL без использо string;

TParams = I вания компонента TQuery. Текст nil;

Cache: Boolean = False;

| запроса содержится в параметре SQL.

Cursor: phDBICur = nil): Параметры запроса определяются па Integer;

раметром Params. Режим кэширования ! изменений включается параметром | Cache. Параметр Cursor может ис | пользоваться при работе с функциями | BDE, использующими курсор набора I данных (см. гл. 14) procedure Изменяет представление о структуре таблиц БД, загруженной в память TableName: string);

Открывает соединение procedure Open;

Отменяет все операции текущей тран procedure Rollback;

закции и завершает ее procedure StartTransaction;

[ Начинает выполнение транзакции procedure | Вызывает исключительную ситуацию, Name: string);

| если база данных Name уже открыта I в текущей сессии Методы-обработчики событий type TLoginEvent = Вызывается при регистрации пользователя на сервере TDatabase;

LoginParams:

of object;

property OnLogin: TLoginEvent;

property I Вызывается после подключения property | Вызывается после отключения TNotifyEvent;

property | Вызывается перед подключением TNotifyEvent;

i property | Вызывается перед отключением TNotifyEvent;

Глава Процессор баз данных Borland Database Engine Обычно компонент TDatabase размещается в модуле данных приложения.

Для определения базы данных (сервера), с которой приложение устанавли вает соединение при помощи компонента TDatabase, чаще используется СВОЙСТВО Свойства И DriverName тернативный способ создания соединения.

ЕСЛИ задано СВОЙСТВОМ AliasName, СВОЙСТВО DatabaseName можно использовать для создания временного псевдонима, который будет доступен только для компонентов доступа к данным внутри приложе ния. При щелчке на кнопке списка доступных псевдонимов свойства DatabaseName в Инспекторе объектов для любого компонента доступа к дан ным в списке будет доступен и временный псевдоним компонента TDatabase.

Например, при переключении приложения на другую базу данных можно изменить только значение псевдонима в компоненте TDatabase. Если все компоненты наборов данных подключены к временному псевдониму ком понента TDatabase, то они автоматически переключатся на новую БД.

Дополнительные возможности управления наборами данных при переклю чении соединения предоставляют свойства Connected И KeepConnection. Они позволяют одновременно с соединением закрыть все активные наборы данных.

Если наборы данных приложения подключены к базе данных через компо нент TDatabase, то перед их открытием необходимо установить соединение с БД. Соединение с БД устанавливается при помощи метода Если по пытаться активизировать набор данных без этого метода, то соединение бу дет установлено автоматически.

Аналогичная картина возникает при закрытии наборов данных и отключе нии от БД. Дополнительное средство управления в этом случае предостав ляет свойство KeepConnection. Если оно равно значению True, то при закры тии последнего открытого набора данных соединение остается открытым.

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

Это позволяет управлять соединением в различных исходных ситуациях.

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

При подключении к базе данных довольно часто требуется задать значения для параметров драйвера BDE. Для этого используется свойство Params, представляющее собой обычный список. В нем необходимо задавать назва ния изменяемых параметров и их новые значения:

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

406 Часть IV. Технологии доступа к данным Компонент TDatabase может облегчить подключение к базам данных с реги страцией пользователей. При регистрации на сервере достаточно задать имя пользователя, пароль в свойстве (см. выше) и установить для свойства LoginPrompt значение False. Эта комбинация работает как во время выпол нения, так и во время разработки.

Примечание Для организации доступа к защищенным паролем таблицам Paradox использу ется метод компонента TSession (см. выше).

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

Это позволяет разработчику создавать собственные сценарии регистрации пользователей.

Для обеспечения доступа к функциям API BDE используется свойство Handle (BDE играет важную роль при создании соединения).

Управление выполнением транзакций осуществляется при помощи методов StartTransaction, Commit И RollBack.

Компоненты доступа к данным Компоненты доступа к данным, используемые при разработке приложений BDE, раполагаются на странице BDE Палитры компонентов. Их общими предками являются классы TBDEDataSet и TDBDataSet (см. рис. 12.1).

обеспечивают работоспособность основных компонентов доступа к данным BDE — TTable, Класс TBDEDataSet Этот класс является потомком класса TDataSet, его значение трудно пере оценить: именно TBDEDataSet обеспечивает работоспособность важнейших механизмов набора данных за счет обращения к функциям BDE (табл. 16.6).

Например, класс TBDEDataSet перекрывает абстрактные методы своего пред ка TDataSet, отвечающие за такие важнейшие операции, как чтение данных и сохранение изменений в базе данных, навигация по записям набора дан ных, фильтрация.

Напомним, что все эти механизмы не созданы "с нуля", а только дополнены обращениями к функциям BDE в необходимых местах методов, изначально описанных в классе TDataSet. Например, для обеспечения фильтрации запи сей набора данных к классу добавлено новое свойство:

Глава 16. Процессор баз данных Borland Database Engine type TFilterOption = TFilterOptions = set of TFilterOption;

property TFilterOptions;

Оно определяет дополнительные параметры отбора записей по фильтру (чувствительность к регистру символов и отбор по текстовому шаблону).

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

( Примечание Эта возможность очень полезна при создании клиентских приложений в архи тектуре клиент/сервер и играет ключевую роль при обеспечении возможности редактирования наборов данных сложных запросов SQL.

Дополнительно к методам работы с полями класса TDataSet добавлены функции использования полей в формате BLOB.

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

type HDBICur: Longint;

property Handle: HDBICur;

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

Таблица 16.6. Свойства и методы класса TBDEDataSet Объявление Тип | Описание Свойства property BlockReadSize: j Pu Определяет размер буфера при | | блочном чтении данных. Такой режим | используется для быстрого перемеще | | ния по большим массивам данных.

Pages:     | 1 |   ...   | 3 | 4 || 6 | 7 |   ...   | 10 |



© 2011 www.dissers.ru - «Бесплатная электронная библиотека»

Материалы этого сайта размещены для ознакомления, все права принадлежат их авторам.
Если Вы не согласны с тем, что Ваш материал размещён на этом сайте, пожалуйста, напишите нам, мы в течении 1-2 рабочих дней удалим его.