WWW.DISSERS.RU

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

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

Pages:     | 1 |   ...   | 4 | 5 || 7 | 8 |   ...   | 10 |

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

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

Если значение свойства больше нуля, навигация по набору данных осуществ ляется без изменения состояния компонентов отображения данных и | вызова методов-обработчиков событий property Boolean;

Pu Разрешает использование буфера | памяти для данных типа BLOB Часть IV. Технологии доступа к дан Таблица (продолжение) Объявление Тип I Описание Pb | Включает или отключает режим кэши property ! рования изменений в наборе данных.

Boolean;

! Используется в клиентских приложе ниях архитектуры клиент/сервер | Если набор данных позволяет делать property Boolean;

Ro изменения, свойство возвращает True, иначе — False Показывает, используются ли в наборе property Boolean;

Ro данных индексы Содержит выражение для фильтра property Filter: string;

набора данных Управляет включением фильтра property Filtered: Boolean;

Ro набора данных TFilterOption = | Определяет параметры фильтра:

• foCaselnsensitive foNoPartialCompare);

значения фильтруются без учета регистра;

property FilterOptions:

• — фильт рации символ "*" рассматривается как обычный символ, иначе он означает, что на этом месте может находиться произвольное под множество любых Указатель на курсор BDE, связанный type HDBICur: Longint;

Ro с текущей записью набора данных property Handle: HDBICur;

property KeySize: Word;

Содержит размер ключа для текущего Ro индекса набора данных Указатель на языковый драйвер BDE type TLocale: Pointer;

| Ro property Locale: TLocale;

Номер текущей записи набора данных property Longint;

Ro Содержит число записей в наборе property RecordCount: Longint;

данных property RecordSize: Word;

Ro Содержит размер одной записи набора данных property Экземпляр объекта TDataSetUpdateObject;

используемого при кэшировании изменений Глава 16. Процессор баз данных Borland Database Engine Таблица 16.6 (продолжение) Описание Объявление Тип type TUpdateRecordTypes = set j Pu Определяет видимость записей of (rtModified, в режиме кэширования изменений rtDeleted, в зависимости от их состояния:

property • — доступны изменен | ные записи;

• rtinserted добавлен ные записи;

• rtDeleted — доступны удаленные записи;

• rtUnmodified записи property Значение True говорит о том, что Ro Boolean;

буфер изменений при кэшировании содержит не сохраненные на сервере изменения Методы procedure ApplyUpdates;

Pu i Записывает изменения из буфера I в базу данных в режиме кэширования function Проверяет существование экземпляра | закладки, передаваемого в параметре Boolean;

Bookmark override;

procedure Cancel;

Pu ! Отменяет все изменения, сделанные I в текущей записи с момента последне I го сохранения procedure Pu | Отменяет все изменения, сделанные с момента последней записи в базу данных и очищает буфер в режиме кэширования procedure Pu | Очищает буфер изменений в режиме I кэширования function Pu | Проверяет идентичность закладок, I указанных в параметрах Bookmarkl Bookmark2: TBookmark): | и Bookmark2. При значении 1 сигнали Integer;

| зирует о наличии отличий в двух за | кладках Pu | Обеспечивает доступ к функциям function I ограничения данных API BDE DsInfoReq;

var ADataSources:

DataSources): DBIResult;

stdcall;

410 Часть IV. Технологии доступа к данным Таблица 16.6 (продолжение) Объявление | Тип | Описание function ConstraintsDisabled:

Показывает, включены или отключены Boolean;

ограничения данных function Создает поток для чтения/записи дан ных типа BLOB TField;

Mode:

TblobStreamMode):

override;

procedure DisableConstraints;

Отключает ограничения данных procedure EnableConstraints;

Включает ограничения данных procedure FetchAll;

Переносит все изменения из буфера I и восстанавливает все записи от теку | щей позиции до конца набора данных procedure | Передает в базу данных все изменения | из буфера записи function Читает все данные BLOB из поля FieldNo в буфер Integer;

var Buffer:

TblobByteData): Integer;

override;

function Помещает текущую строку в буфер Buffer PChar): Boolean;

procedure Обновляет информацию о текущем индексе набора данных IsSequenced: Boolean;

Определяет, поддерживает ли таблица override;

БД нумерацию последовательности записей. В классе TDataSet всегда возвращает True, т. к. абстрактный набор данных свободен от конкретной реализации БД и всегда нумерует записи function Осуществляет поиск в наборе данных.

string;

const Параметр KeyFields содержит список KeyValues: Variant;

Options:

полей, по которым ведется поиск.

TlocateOptions): Boolean;

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

Если запись найдена, курсор набора данных устанавливается на эту запись и возвращается True (см. гл. 14) Глава 16. Процессор баз данных Borland Database Engine Таблица 16.6 (окончание) Объявление Тип Описание function Осуществляет поиск в наборе данных.

Pu KeyFields: string;

const Возвращает массив значений требуе KeyValues: Variant;

const мых полей найденной записи. Пара string):

метры аналогичны методу Locate Variant;

(см.

Пересылает сделанные в текущей procedure Post;

override;

записи изменения в базу данных Отменяет все изменения в текущей procedure RevertRecord;

строке при работающем буфере изме нении Форматирует текст. Если параметр procedure Dest:

PChar;

Boolean);

ToOem = True, текст Src в формате override;

ANSI переводится в текст Dest в формате OEM и наоборот function Возвращает тип сохраняемых в буфере изменений данных (см. табл. 16.1) Методы-обработчики событий TUpdateAction = (uaFail, Вызывается при возникновении ошибки uaAbort, uaSkip, uaRetry, переноса кэшированных в буфере uaApplied);

изменений в таблицу базы данных TUpdateErrorEvent = TDataSet;

E: EDatabaseError;

TUpdateKind;

var TUpdateAction) of object;

property type TUpdateAction (uaFail, Вызывается при сохранении кэширо uaAbort, uaSkip, uaRetry, ванных в буфере изменений для от uaApplied);

дельной записи.

TUpdateRecordEvent Применяется для организации допол нительного управления этим процес UpdateKind: TUpdateKind;

сом, например для контроля какого var UpdateAction: либо конкретного значения TUpdateAction) of object;

property OnUpdateRecord:

412 Часть IV. Технологии доступа к данным Класс TDBDataSet Класс TDBDataSet является непосредственным предком основных компонен тов доступа к данным TQuery и Новые свойства и мето ды класса обеспечивают соединение набора данных с базой данных и ис пользуют функции BDE (табл. 16.7).

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

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

Совокупность соединений управляется в рамках сеанса работы, который инкапсулируется компонентом TSession. Указатель на экземпляр такого компонента можно использовать в наборе данных при помощи свойства DBSession.

Для работы с удаленными серверами в класс введено свойство Provider, обеспечивающее доступ к интерфейсу Таблица 16.7. Свойства и методы класса TDBDataSet Объявление Тип Описание Свойства property AutoRefresh:

При значении True все автоматически Boolean;

создаваемые значения полей (авто инкрементные, значения по умолчанию) обновляются автоматически property Database: TDatabase;

Указатель связанного с набором данных Ro компонента TDatabase property DatabaseName: Псевдоним базы данных string;

type Longint;

Дескриптор базы данных. Используется Ro при работе с API BDE property DBHandie: HDBISES;

type Pointer;

Идентифицирует языковый драйвер Ro API BDE property TLocale;

property DBSession: TSession Указатель для компонента TSession, Ro с которым работает набор данных Глава Процессор баз данных Borland Database Engine Таблица 16.7 (окончание) Объявление | Тип Описание property Provider: IProvider;

Pu, Идентифицирует интерфейс IProvider Ro | property string;

Pu, Содержит имя компонента сеанса, Ro | в котором работает набор данных Методы Возвращает результат вызова BDE.

DBIResult): Boolean;

Используется для тестирования соеди нения procedure Закрывает связь с базой данных, определяемой параметром Database TDatabase);

procedure Возвращает в списке Li st параметры языкового драйвера TList);

override;

function OpenDatabase: Открывает связь с базой данных, опре TDatabase;

деляемой свойством Компонент ТТаЫе Компонент ттаЫе инкапсулирует таблицу реляционной базы данных, при чем независимо от типа базы данных. Для доступа к данным компонент ис пользует функции BDE (см. выше).

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

Таблица БД, на основе которой создается набор данных, определяется свой ством При необходимости тип таблицы задается свойством хотя обычно это свойство имеет значение (см.

табл. 16.4), которое включает автоматическое определение типа таблицы по расширению файла.

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

При помощи методов и набор данных открывается и закрывает ся. О состоянии можно судить по значению свойства Active. Более под робно о состоянии набора данных расскажет свойство state (см. ниже).

Часть IV. Технологии доступа к данным Записи в набор данных можно отбирать при помощи свойств Filter, Filtered, создающих фильтр, ограничивающий набор данных по значениям данных в одном или нескольких полях.

Методы SetRangeStart, SetRangeEnd, SetRange, ApplyRange, EditRangeStart, EditRangeEnd создают специальный диапазон включаемых в набор данных записей, отбор в диапазон проводится по задаваемым граничным значениям любых полей набора данных.

ПОИСК НУЖНОЙ МОЖНО Lookup ИЛИ Locate (достаточно просто, но не очень быстро) или, используя существующие в таблице базы данных индексы, методом FindKey (сложнее, но очень быстро).

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

Это СВОЙСТВО Bookmark И FreeBookmark, Работа с полями осуществляется целой группой свойств и методов, среди которых особое место занимает свойство Fields, представляющее собой ин дексированный список всех полей набора данных. Это свойство удобно ис пользовать в процессе разработки для организации доступа к полям.

Использование индексов обеспечено свойствами IndexFields, Свойства MasterSource, IndexName ВОЗМОЖНОСТЬ установить отношение типа главный/подчиненный с другой таблицей.

Очень полезны в практическом использовании методы и свойства для работы С буфером (свойства CachedUpdates, ApplyUpdates, CancelUpdates, RevertRecord). Буфер применяется в клиентских приложениях многоуровне вых систем доступа к данным.

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

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

Таблица 16.8. Свойства и методы класса ттаЫе !

Объявление I Тип I Описание I Свойства Ссылается на компонент TDataSource property Pu, главного набора данных в отношении TDataSource;

| Ro главный/подчиненный Глава Процессор баз данных Borland Database Engine Таблица 16.8(продолжение) Объявление I Тип Описание property Pb Управляет сортировкой данных. При зна Boolean;

j чении True записи упорядочиваются | | по первичному ключу. При значении False I упорядочивание не производится property Exclusive: i | Ограничивает доступ к таблице. При зна Boolean;

чении True с таблицей может работать только одно приложение. Это свойство важно при одновременной работе | нескольких приложений с данными | в локальной сети property Exists: Boolean;

| Значение True говорит о том, что связан | ная с компонентом таблица базы данных | существует Содержит информацию об индексах property TindexDefs;

таблицы property IndexFieldCount: | Возвращает число полей в текущем ин Integer;

Ro дексе таблицы property Разделенный запятыми список названий string;

полей, составляющих текущий индекс.

Используется для таблиц серверов SQL property IndexFields: Индексированный список полей текущего индекса [Index: Integer]: TField;

property IndexFiles: I Список индексных файлов для таблиц TStrings;

| property string;

Pb Определяет вторичный индекс для табли цы. Используется для таблиц локальных СУБД property KeyExclusive: Pu Управляет границами диапазона, зада Boolean;

! ваемого методом SetRange. При значении True крайние записи в диапазон не вклю чаются Содержит число полей ключа, используе property | Pu мых при поиске. При значении 0 применя Integer;

ется только первое поле, при значе нии 1 — два первых поля и т. д.

По умолчанию устанавливается полное число полей ключа property j Pb Список имен полей главной таблицы, раз деленных запятой, используемых при соз string;

| дании отношения главный/подчиненный Часть IV. Технологии доступа к данным Таблица 16.8 (продолжение) Объявление Тип Описание property MasterSource: | Содержит имя компонента TDataSource, TDataSource;

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

Pb Включает и отключает режим "только для чтения". В некоторых случаях набор дан ных можно открыть только в этом режиме property StoreDefs: Pb | При значении True все сведения об ин Boolean;

I дексах и структуре таблицы хранятся вме сте с формой или модулем данных.

В этом случае при создании набора | данных одновременно создаются поля, | property Pu Содержит значение уровня таблицы, Integer;

| используемого в драйвере BDE property Определяет имя таблицы type ТТаЫеТуре = Pb Определяет тип таблицы для стандартного (ttDefault, ttParadox, драйвера BDE. Значение озна ttDBase, чает, что тип таблицы определяется по ttFoxPro);

расширению файла property TableType:

ТТаЫеТуре;

Методы procedure Создает новый индекс. Параметр Name Name, Fields: string;

определяет имя нового индекса, параметр Options:

Fields — список полей индекса через запятую, параметр Options задает тип индекса procedure ApplyRange;

Включает в работу границы диапазона, заданные методами SetRangeStart, SetRangeEnd ИЛИ EditRangeStart, EditRangeEnd type = Переносит записи из таблицы ASource (batAppend, batUpdate, в набор данных. Тип операции задается параметром AMode. Возвращает число batDelete, batCopy);

обработанных записей TBDEDataSet;

AMode:

TBatchMode): Longint;

Глава Процессор баз данных Borland Database Engine Таблица 16.8(продолжение) Объявление \ Тип Описание procedure CancelRange;

Удаляет текущий диапазон | procedure Закрывает индексный файл для таблиц [ dBASE string);

procedure CreateTable;

Создает новую таблицу, основываясь на данных о структуре таблицы, содержа | щихся в свойствах FieldDef s И | Если свойство FieldDefs | пустое, используется свойство Fields.

I Структура и данные существующей таблицы перезаписываются procedure Pu | Удаляет вторичный индекс Name: string);

procedure DeleteTable;

Уничтожает таблицу базы данных. Набор данных при этом должен быть закрыт Переводит набор данных в режим редак procedure EditKey;

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

границы диапазона Разрешает редактирование верхней procedure EditRangeStart;

границы диапазона Удаляет все записи из набора данных procedure Проводит поиск записи, значения полей function array of которой удовлетворяют условиям, задан const): Boolean;

ным параметром KeyValues. Значения разделяются запятыми. Для поиска можно использовать только поля, входящие в текущий индекс. Для локальных стандарт ных таблиц BDE это поля, определяемые свойством Для таблиц серве ров SQL индекс можно задать свойством IndexFieldNames. При успешном поиске функция возвращает значение True Проводит поиск записи, значения полей procedure j Pu которой, заданные параметром KeyValues, KeyValues: array of в минимальной степени отличаются const);

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

Часть IV. Технологии доступа к данным Таблица 16.8 (продолжение) Объявление Тип Описание (прод.) Для поиска можно использовать только поля, входящие в текущий индекс. Для локальных стандартных таблиц BDE это поля, определяемые свойством Для таблиц серверов SQL индекс можно задать свойством При успешном поиске функция возвращает True procedure Pu | Возвращает список индексов таблицы procedure Синхронизирует курсор набора данных с курсором таблицы, заданной парамет TTable);

ром Table function GotoKey: Boolean;

Устанавливает курсор на запись, соответ ствующую значениям полей, заданным при последнем применении метода SetKey или EditKey Устанавливает курсор на запись, точно procedure GotoNearest;

соответствующую значениям полей, заданным при последнем применении метода SetKey или EditKey, или следую щую ближайшую к ним по значениям type = Закрывает доступ к таблице Paradox или dBASE из других приложений procedure TLockType);

procedure Открывает индексный файл таблицы dBASE string);

procedure Переименовывает таблицу Paradox или string);

dBASE Очищает буфер поиска. После использо procedure SetKey;

вания этого метода можно изменять значения полей, используемые I для поиска записей procedure Задает диапазон отбора записей. Пара EndValues: метр определяет значения array of const);

полей для верхней границы диапазона.

Глава Процессор баз данных Borland Database Engine Таблица 16.8 (окончание) Объявление Тип | Описание (прод.) Параметр EndValues определяет значения полей для нижней границы диапазона.

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

Pu j Задает верхнюю границу диапазона.

j После этого метода необходимо задать | значения для полей текущего индекса, которые и будут верхней границей type = Pu | Разблокирует таблицу Paradox или | для доступа из других приложений procedure TLockType);

Компонент TQuery Компонент TQuery реализует все основные функции стандартного компо нента запроса, описанные в гл. 12. Прямым предком компонента является TDBDataSet.

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

Текст запроса определяется свойством SQL, ДЛЯ задания которого применя ется простой редактор, открывающийся при щелчке на кнопке свойства в Инспекторе объектов (рис. 16.6).

Для управления текстом запроса во время выполнения приложения можно ИСПОЛЬЗОВаТЬ ВОЗМОЖНОСТИ TStrings.

Основные свойства и методы компонента TQuery представлены в табл. 16.9.

Таблица Свойства и методы компонента TQuery Объявление Тип I Описание Свойства property Constrained: При значении True запрещает внесение Boolean;

в набор данных таких значений, которые не соответствуют условиям отбора запро са. Применимо для локальных БД Часть IV. Технологии доступа к данным Таблица 16.9 (продолжение) Объявление Тип Описание property DataSource: Ссылается на компонент TDataSource, TDataSource;

из набора данных которого задаются значения параметров property Local: Boolean;

Ro Значение True означает, что запрос обращается к локальной таблице property При значении True параметры запроса Boolean;

обновляются при изменении свойства SQL во время выполнения property Word;

Ro Возвращает число параметров в запросе property Индексированный список объектов каждый из которых соответствует одному параметру запроса property Prepared: Boolean;

| Pu Возвращает результат выполнения опера ции подготовки запроса к выполнению property RequestLive: При значении False результат запроса Boolean;

нельзя редактировать, независимо от того, редактируемый результат или нет. При значении True результат запроса можно редактировать, но только если он "живой" property Ro Возвращает число модифицированных Integer;

записей набора данных с момента по следнего выполнения запроса property SQL: TStrings;

Содержит текст запроса property SQLBinary: PChar;

Внутреннее свойство для обеспечения работы с BDE property Ro Возвращает экземпляр объекта, соответ ствующего запросу в BDE. Используется при прямом вызове функций BDE property Text: PChar;

Ro Указатель на символьный массив, содер жащий передаваемый в BDE текст запроса property Определяет тип используемого курсора Boolean;

данных Методы procedure ExecSQL;

Выполняет запрос без открытия набора данных Глава Процессор баз данных Borland Database Engine Таблица 16.9 (окончание) Объявление Тип | Описание procedure Pu | Заполняет списки параметров метода GetDetailLinkFields экземплярами объектов полей двух | таблиц запроса, находящихся в отноше DetailFields: TList);

!

override;

function Pu | Возвращает ссылку на экземпляр объекта Value: string): | параметра с именем, переданным | в параметре Value procedure Prepare;

Pu I Готовит запрос к выполнению procedure | Освобождает ресурсы, занятые при подго | товке запроса к выполнению SELECT * FROM Рис 16.6. Редактор свойства SQL компонента TQuery Компонент TStoredProc Компонент обеспечивает использование в приложениях BDE хранимых процедур. Прямым предком компонента является класс TDBDataSet. Поэтому результатом выполнения хранимой процедуры может быть не только одиночный результат, но и полноценный набор данных.

Основные функции компонента TStoredProc соответствуют тям стандартного компонента хранимой процедуры, описанного в гл. 12.

Свойства и методы компонента TStoredProc представлены в табл. 16.10.

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

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

Перед выполнением хранимую процедуру необходимо подготовить. В част ности, на этом этапе осуществляется передача параметров и выделение ре сурсов. Эта операция выполняется автоматически при использовании мето дов И Open, ИЛИ ЯВНО методом Prepare.

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

Таблица Свойства и методы компонента TStoredProc Объявление Тип Описание Свойства property Overload: Word;

Идентификатор процедуры. Используется только для сервера Oracle type = Определяет порядок присваивания значе pbByNumber);

ний параметров:

property • pbByName — по именам параметров;

TParamBindMode;

• pbByNumber — по номерам параметров в списке свойства Params property Word;

Ro Возвращает общее число параметров property TParams;

Индексированный список параметров property Prepared: Boolean;

Возвращает значение True, если подготовка процедуры уже проводилась property Ro Дескриптор выражения BDE. Использует ся при прямом вызове функций BDE property StoredProcName: Содержит имя хранимой процедуры string;

Методы procedure Копирует параметры из списка TParams);

function При значении True параметры хранимой процедуры доступны из приложения Boolean;

procedure Передает на сервер сигнал для запуска процедуры Глава 16. Процессор баз данных Borland Database Engine Таблица (окончание) Объявление Тип Описание procedure GetResults;

Возвращает выходные параметры в при ложение (используется только для серве ра Sybase) function Возвращает параметр с именем Value: string):

Готовит процедуру к выполнению procedure Prepare;

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

Специальный набор компонентов доступа к данным Delphi использует BDE. Но при необходимости разработчик может применять функции API BDE напрямую.

ГЛАВА Технология dbExpress Одной из проблем различных технологий доступа к данным, используемым в приложениях Delphi, является трудность распространения готовых прило жений. Для BDE требуется отдельная установка, которая занимает порядка 15 Мбайт дискового пространства, а также специальная настройка псевдо нимов (см. гл. 16). ADO предустановлена в операционной системе, но нуж дается в настраиваемых провайдерах данных (см. гл. 19). При необходимо сти обновить версию ADO, дистрибутив вашего приложения "потяжелеет" более чем на 2 Мбайт.

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

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

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

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

• DB2;

• InterBase;

Глава 17. Технология dbExpress MySQL;

Oracle;

• Microsoft SQL Server 2000.

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

Кроме того, технология dbExpress обеспечивает доступ к данным в кросс платформенных приложениях для Windows и Linux, т. к. применяется и в Delphi и (см. гл. 4), а способы ее применения идентичны.

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

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

Компоненты dbExpress располагаются в Палитре компонентов на одно именной странице.

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

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

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

программная реализация редактирования данных;

работа с данными в режиме кэширования изменений и использование • использование интерфейсов;

распространение приложений с интегрированной технологией dbExpress.

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

426 Часть IV. Технологии доступа к данным Таблица 17.1. Драйверы dbExpress Сервер БД Драйвер Клиентское ПО DB2 Dbexpdb2.dll. Db2cli.dll InterBase Dbexpint.dll GDS32.DLL Informix Dbexpinf.dll lsqlbO9a.dll Microsoft SQL Server 2000 Dbexpmss.dll OLE DB MySQL Dbexpmys.dll LIBMYSQL.DLL Oracle Dbexpora.dll OCI.DLL Перечисленные в табл. 17.1 файлы находятся в папке \Delphi7\Bin.

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

Стандартные настройки для каждого драйвера хранятся в файле \Borland Shared\DBExpress\dbxdrivers.ini.

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

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

Свойство property ConnectionName: string;

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

property string;

определяет используемый драйвер;

property LibraryName: string;

задает динамическую библиотеку драйвера dbExpress;

Глава Технология dbExpress property string;

определяет динамическую библиотеку клиентского ПО сервера (табл. 17.1);

property TStrings;

список этого свойства содержит настройки для выбранного соединения.

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

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

Для этого используется специализированный Редактор соединений dbExpress Connections 17.1). Он открывается после двойного щелчка на компо ненте TSQLConnection или выбора команды Edit Connection Properties из всплывающего меню компонента.

Connections:

Name Connection Key (Value Connection Name Database В Connection LocaleCode Password password DB2 Translsolation User_Name Cancel 17.1. Окно редактора настроенных соединений компонента TSQLConnection В списке слева располагаются существующие соединения. В правой части для выбранного соединения отображаются текущие настройки. При помо щи кнопок на Панели инструментов можно создавать, переименовывать и удалять соединения. Настройки также можно редактировать.

Список соединений в левой части соответствует списку выбора свойства ConnectionName в Инспекторе объектов. Настройки соединения из правой части отображаются в свойстве Params.

Настроенные соединения и их параметры сохраняются в файле \Borland Shared\DBExpress\dbxconnections.ini.

Часть IV. Технологии доступа к данным Примечание При установке Delphi 7 поверх Delphi 6 сведения о соединениях из старого файла dbxconnections.ini добавляются в новый.

Конкретные значения настроек соединений зависят от используемого сер вера БД и требований приложения (табл. 17.2).

Таблица 17.2. Настройка соединения Параметр Значение Общие настройки BlobSize I Задает ограничение на объем пакета данных для дан | ных BLOB DriverName j Имя драйвера ErrorResourceFile | Файл сообщений об ошибках I Код локализации, определяющий влияние националь | ных символов на сортировку данных Имя пользователя Password Пароль DB Имя клиентского ядра Database DB2 | Уровень изоляции транзакций Informix | Имя компьютера, на котором работает сервер Informix Informix Translsolation | Уровень изоляции транзакции Trim Char | Определяет, нужно ли удалять из строковых значений | полей пробелы, дополняющие значение до полной | строки, заданной размером поля данных Interbase I Задает поведение курсора завершении транзак j ции. При значении True курсор обновляется, иначе — I удаляется Database | Имя файла базы данных (файл GDB) InterBase Translsolation Уровень изоляции транзакции | Роль пользователя SQLDialect Используемый диалект SQL. Для IntreBase 5 возмож | но только одно значение - Глава Технология dbExpress Таблица 17.2 (окончание) Параметр Значение Trim Char Определяет, нужно ли удалять из строковых значений полей пробелы, дополняющие значение до полной строки, заданной размером поля данных Разрешение на ожидание занятых ресурсов Microsoft SQL Server Database Имя базы данных Имя компьютера, на котором работает сервер MS SQL Server Уровень изоляции транзакции OS Использование учетной записи текущего пользовате ля операционной системы (домена или Active Directory) при доступе к ресурсам сервера MySQL Database Имя базы данных HostName Имя компьютера, на котором работает сервер MySQL Oracle Флаг завершения транзакции. Устанавливается толь ко сервером BlockingMode Задает режим завершения запроса. При значении True соединение дожидается окончания запроса (синхронный режим), иначе — начинает выполнение следующего (асинхронный режим) Database Запись базы данных в файле Multiple Transaction Поддержка управлением несколькими транзакциями в одной сессии Oracle Translsolation Уровень изоляции транзакций OS Autenification Использование учетной записи текущего пользовате ля операционной системы (домена или Active Directory) при доступе к ресурсам сервера Определяет, нужно ли удалять из строковых значений Trim Char полей пробелы, дополняющие значение до полной строки, заданной размером поля данных После выбора настроенного соединения или выбора типа сервера и на стройки параметров соединения компонент TSQLConnection готов к работе.

430 Часть IV. Технологии доступа к данным property Connected: Boolean;

открывает соединение с сервером при значении True. Аналогичную опера цию выполняет метод procedure Open;

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

Соединение закрывается тем же свойством connected или методом procedure Close;

При открытии и закрытии соединения разработчик может использовать об работчики событий property BeforeConnect: TNotifyEvent;

property AfterConnect: TNotifyEvent;

property BeforeDisconnect: TNotifyEvent;

property TNotifyEvent;

Например, на стороне клиента можно организовать проверку пользователя приложения:

procedure TObject);

begin if <> then begin MessageDlg('Wrong user 0);

Abort;

end;

end;

property Boolean;

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

О текущем состоянии соединения можно судить по значению свойства TConnectionState = (csStateClosed, csStateOpen, csStateConnecting, csStateExecuting, csStateFetching, csStateDisconnecting);

property TConnectionState;

Параметры соединения можно настраивать на этапе разработки в Инспек торе объектов или Редакторе соединений (см. рис. 17.1). Также это можно Глава 17. Технология сделать и непосредственно перед открытием соединения, используя свойст во ИЛИ метод procedure : String = который загружает заранее подготовленные параметры из Проверить успешность этой операции можно при помощи свойства property Boolean;

значение True которого сигнализирует об успехе загрузки.

procedure TObject);

begin if = '' then if then try except connection 0);

end;

end;

Управление наборами данных Компонент TSQLConnection позволяет выполнять некоторые операции с под ключенными наборами данных и следить за их состоянием.

property Integer;

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

Но это только активные наборы данных, переданные в связанные компо ненты. Общее число выполняющихся в настоящий момент запросов воз вращает property LongWord;

Если сервер БД установил для данного соединения максимальное число од новременно выполняющихся запросов, то оно доступно в свойстве property MaxStmtsPerConn: LongWord;

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

if <= 432 Часть IV. Технологии доступа к данным then MyQuery.Open else connection is 0);

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

без разрыва соединения.

При необходимости компонент TSQLConnection может самостоятельно вы полнять запросы SQL, не прибегая к помощи компонента TSQLQuery или TSQLDataSet. Для этого предназначена функция function Execute (const SQL: string;

TParams;

ResultSet:Pointer=nil): Integer;

Если запрос должен содержать параметры, то необходимо сначала создать объект — список параметров TParams и заполнить его. При этом, т. к. объект TParams еще не связан с конкретным запросом, важен порядок следования параметров, который должен совпадать в списке TParams и в тексте SQL.

Если запрос возвращает результат, метод автоматически создает объект типа TCustomSQLDataSet и возвращает указатель на него в параметр Функция возвращает число обработанных запросом записей. Следующий фрагмент кода иллюстрирует применение функции Execute.

procedure TObject);

var TParams;

FDataSet: TSQLDataSet;

begin FParams := try := 1234;

:= 6751;

FROM Orders WHERE OrderNo >= AND = FParams, FDataSet);

if then with FDataSet do begin Open;

while Not EOF do begin Next;

end;

Close;

end;

Глава Технология finally end;

end;

Если запрос не имеет настраиваемых параметров и не возвращает набор данных, можно использовать функцию function SQL: string):

которая возвращает 0 в случае успешного выполнения запроса или код ошибки.

Метод procedure TStrings;

Boolean = False);

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

Метод GetTableNames дополнительно управляется TTableScope (tsSynonym, tsSysTable, tsTable, TTableScopes = set of TTableScope;

property TableScope: TTableScopes;

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

Для каждой таблицы можно получить список полей, использовав метод procedure TableName: String;

List: TStrings);

и список индексов при помощи метода procedure TableName: string;

List: TStrings);

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

Аналогичным образом метод procedure TStrings);

возвращает список доступных хранимых процедур, а метод procedure String;

List: TList);

определяет параметры отдельной процедуры.

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

Начало, фиксацию и откат транзакции выполняют методы procedure TTransactionDesc);

procedure TTransactionDesc);

procedure TTransactionDesc);

При этом запись TTransactionDesc возвращает параметры транзакции:

TTransIsolationLevel = (xilDIRTYREAD, xilREPEATABLEREAD, xilCUSTOM);

TTransactionDesc = packed record : LongWord;

: LongWord;

IsolationLevel : TTransIsolationLevel;

: LongWord;

end;

Запись содержит уникальный в рамках соединения идентификатор транзак ции TransactionID И уровень ИЗОЛЯЦИИ транзакции IsolationLevel. При уровне изоляции определяется параметр Иден тификатор используется при работе с сервером Oracle.

Некоторые серверы БД не поддерживают транзакции, и для определения этого факта используется свойство property TransactionsSupported: LongBool;

Если соединение уже находится в транзакции, свойству property InTransaction: Boolean;

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

var TTransactionDesc;

if Not then try {...} except end;

Глава 17. Технология dbExpress Использование компонентов наборов данных Набор компонентов dbExpress, инкапсулирующих набор данных, вполне обычен и сравним с аналогичными компонентами BDE, ADO, InterBase Express. Это TSQLDataSet, TSQLTable, ( Примечание Компонент также относится к рассматриваемой группе, но т. к.

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

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

Хотя общим предком всех рассматриваемых здесь компонентов является класс TDataSet (см. 12.1), который обладает полным инструментарием для работы с набором данных, компоненты dbExpress используют только однонаправленные курсоры и не позволяют редактировать данные. Однона правленные курсоры ограничивают навигацию по набору данных и обеспе чивают перемещение только на следующую запись и возврат на первую.

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

Таким образом, для выключения ряда механизмов класса TDataSet понадо бился еще ОДИН Отображение данных при помощи компонентов со страницы Data Controls также ограничено. Нельзя использовать компоненты TDBGrid и а в компоненте TDBNavigator не забудьте отключить кнопки возврата на од ну позицию назад и перехода на последнюю запись. Также ничего хорошего не получится из попытки применить компоненты синхронного просмотра.

Остальные компоненты можно использовать обычным способом (см. гл. 15).

Основные способы применения компонентов dbExpress остаются стандарт ными и подробно описаны в части III.

Доступ к данным во всех рассматриваемых компонентах осуществля ется одинаково — через соединение, инкапсулированное компонентом TSQLConnection. Привязывание к соединению выполняет свойство property TSQLConnection;

Рассмотрим теперь компоненты dbExpress подробнее.

Класс TCustomSQLDataSet Так как общим предком компонентов dbExpress объявлен класс TDataSet, то задачей класса TCustomSQLDataSet является не столько внесение новой 436 Часть IV. Технологии доступа к данным функциональности, сколько корректное ограничение возможностей, зало женных в TDataSet. Непосредственно в приложениях этот класс не исполь зуется, но информация о нем полезна для понимания других компонентов dbExpress и для создания собственных компонентов на его основе.

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

= ctTable, ctStoredProc);

property TSQLCommandType;

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

property string;

содержащее текст команды.

Если серверу передается запрос SQL (CommandType = ctQuery), CommandText содержит текст запроса. Если это команда на получение табли цы, свойство CommandText содержит имя таблицы, а далее с использованием имени таблицы создается запрос SQL на получение всех полей этой табли цы. Если необходимо выполнить процедуру, свойство CommandText содержит имя этой процедуры.

Текст команды, которая реально передается на сервер для выполнения, содержится в защищенном свойстве property string;

Для использования в табличном представлении существует свойство property string;

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

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

Это свойство используется для создания выражения ORDER BY ДЛЯ генери руемой команды.

Для обработки исключительных ситуаций в классах — потомках может быть использовано защищенное свойство property LastError: string;

которое возвращает текст последней ошибки dbExpress.

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

Для этого свойству property NoMetadata: Boolean;

присваивается значение True.

Глава Технология dbExpress Однако пользоваться им нужно осторожно, т. к. для некоторых видов команд метаданные необходимы (это операции с использованием индексов).

Разработчик может управлять процессом получения метаданных. Для этого необходимо заполнить структуру TSchemaType = stTables, stSysTables, stColumns, stProcedureParams, = record FType : TSchemaType;

ObjectName : String;

Pattern : String;

end;

которая доступна через защищенное свойство property а значит, может использоваться только при создании новых компонентов на Параметр FType определяет тип требуемой информации. Параметр ObjectName — имя таблицы или хранимой процедуры, если в параметре FType указаны поля, индексы или параметры процедур.

Внимание!

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

Параметр Pattern определяет, какие ограничения накладываются на мета данные. Он содержит символьную маску, подобную свойству Mask многих визуальных компонентов. Последовательность символов маски обозначается символом %, единичный символ определяется символом _.

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

Подобно свойству Tag класса TComponent, класс TCustomSQLDataSet имеет строковое свойство property DesignerData: string в котором разработчик может хранить любую служебную информацию. По существу, это просто лишняя строковая переменная, которую нет необхо димости объявлять.

438 Часть IV. Технологии доступа к данным Компонент TSQLDataSet Компонент TSQLDataSet является универсальным и позволяет выполнять за просы SQL (подобно TSQLQuery), просматривать таблицы целиком (подобно TSQLTable) ИЛИ ВЫПОЛНЯТЬ Хранимые Процедуры (подобно Для определения режима работы компонента используется свойство (см. выше).

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

При выборе значения ctQuery в свойстве необходимо опреде лить текст запроса SQL. Для работы в режиме хранимой процедуры для свойства CommandType используется значение ctstoredProc, а в списке свой ства можно выбрать нужную процедуру.

Для открытия набора данных используются традиционные способы: свойст во Active или метод Если же запрос SQL или хранимая процедура не возвращают набор данных, для их выполнения используется метод function Boolean = False): Integer;

override;

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

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

В режиме запросов и хранимых процедур для задания параметров исполь зуются И (см. часть III).

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

Компонент TSQLTable Компонент TSQLTable предназначен для просмотра таблиц целиком и по ОСНОВНЫМ СВОИМ аналогам TTable, TADOTable, TIBTable (подробнее о функциях компонентов таблиц см. часть III).

Для получения табличного набора данных компонент TSQLTable самостоя тельно формирует запрос на сервер, используя для этого возможности, унаследованные от предка Метод procedure PrepareStatement;

override;

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

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

Для подключения простых или составных индексов используются свойства IndexFields, А метод procedure TStrings);

возвращает в параметр List список используемых индексов.

Связь между двумя наборами данных главный/подчиненный организуется MasterFields, Компонент предоставляет разработчику некоторое подобие функ ций редактирования. Для удаления всех записей из связанной с компонен том таблицы на сервере используется метод procedure DeleteRecords;

Компонент TSQLQuery Компонент TSQLQuery повторяет функциональность своих аналогов в BDE, ADO, InterBase Express и позволяет выполнять на сервере запросы SQL кли ента. Подробнее о функциях компонентов запросов SQL см. часть III.

Текст запроса содержится в свойстве property SQL: TStrings;

а его простое строковое представление в свойстве property Text: string;

Если запрос возвращает набор данных, его выполнение осуществляется свойством Active или методом В противном случае используется метод function Boolean = False): Integer;

override;

Параметр ExecDirect = False означает, что запрос не имеет настраиваемых параметров.

Компонент TSQLStoredProc Компонент TSQLStoredProc инкапсулирует функциональность хранимых процедур для их выполнения в рамках технологии dbExpress. Он подобен другим своим аналогам. Подробнее о функциях компонентов хранимых процедур см. часть III.

Имя хранимой процедуры определяется свойством property string;

440 Часть IV. Технологии доступа к данным Для работы с входными и выходными параметрами предназначено свойство property Внимание!

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

Процедура выполняется методом function Integer;

virtual;

если она не возвращает набор данных. Иначе используются свойство Active или метод Open.

Если хранимая процедура возвращает несколько связанных наборов данных (подобно иерархическим запросам ADO), доступ к следующему набору дан ных осуществляет метод function NextRecordSet:

автоматически создавая объект типа TCustomSQLDataSet для инкапсуляции новых данных. Возврат к предыдущему набору данных возможен, если вы определили объектные переменные для каждого набора данных:

var SecondSet: TCustomSQLDataSet;

while Not MyProc.Eof do begin Next;

end;

SecondSet := {...} Компонент TSimpieDataSet Компонент TSimpieDataSet обеспечивает кэширование полученных данных и сделанных изменений на стороне клиента и последующую передачу их на сервер для фиксации. В отличие от компонента основным назначением которого является обслуживание набора данных, полученного Глава Технология dbExpress от удаленного сервера при помощи серверных компонентов DataSnap, ком понент призван быть лишь средством редактирования набо ра данных в технологии dbExpress.

Компонент использует двунаправленный курсор и позволяет редактировать данные, правда только в режиме кэширования (см. гл. 22).

Таким образом, компонент TSimpieDataSet позволяет исправить основные недостатки технологии dbExpress.

Для подключения к источнику данных компонент использует свойство property DBConnection: TSQLConnection;

которое позволяет связать его с соединением TSQLConnection (см. выше). Или property string;

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

При этом у компонента отсутствует механизм создания удаленного доступа к данным, представленный у компонента свойствами И После создания соединения с сервером БД можно определить тип исполь зуемой КОМаНДЫ, ПОДОбНО TSQLDataSet.

Тип команды определяется свойством = (ctQuery, ctTable, ctStoredProc);

property А содержание команды задает свойство property string;

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

Для передачи на сервер сделанных и сохраненных в локальном кэше изме нений используется метод function Integer);

Integer;

virtual;

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

Метод function Results: OleVariant): Boolean;

очищает локальный кэш компонента от записей, которые успешно сохране ны на сервере.

Часть IV. Технологии доступа к данным Отменить локальные изменения можно методом procedure Обратите внимание, что в компоненте действуют традиционные методы на бора данных Edit, Post, Cancel, Apply, Insert, Delete. Но ОНИ оказывают влияние только на записи, кэшированные локально. Вы можете сколько угодно редактировать набор данных при помощи перечисленных методов, но они будут изменять только содержимое кэша. Настоящее сохранение на сервере осуществляется методом Данные между сервером и компонентом пересылаются пакетами.

Доступ к текущему пакету возможен при помощи свойства property Data: OleVariant;

Сделанные изменения содержатся в свойстве property Delta: OleVariant;

При этом разработчик может регулировать размер пакетов. Например, при ухудшении соединения можно уменьшить размер пакетов. Размер пакета определяется свойством property Integer;

которое задает число записей в пакете. Автоматическое назначение пакетов включается PacketRecords : = - Если значение PacketRecords равно 0, между клиентом и сервером пересы лаются только метаданные.

Если свойство PacketRecords больше нуля, то необходимо вручную органи зовывать подкачку данных с сервера. Для этого используется метод function Integer;

Для организации такой подкачки вполне подойдут методы-обработчики со бытий property property TRemoteEvent;

В компоненте развиты средства работы с одиночными запи сями. Можно просмотреть общее число записей property RecordCount: Integer;

и номер текущей записи property RecNo: Integer;

Глава Технология dbExpress Размер одной записи сохраняется в свойстве property RecordSize: Word;

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

Обновить значение полей для текущей записи с сервера можно методом procedure RefreshRecord;

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

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

Во-вторых, ошибки могут возникнуть при сохранении изменений на серве ре. И поскольку само событие, приведшее к исключительной ситуации, возникает на другом компьютере или в другом процессе, для отслеживания таких ошибок используется специальный метод-обработчик TReconcileErrorEvent = E:

EReconcileError;

var Action: TReconcileAction) of object;

property OnReconcileError: TReconcileErrorEvent;

который срабатывает, если с сервера пересылается сообщение об ошибке.

Информация об ошибке находится В параметре Е: EReconcileError.

Более детальная информация о клиентских наборах данных содержится в гл. 22.

Способы редактирования данных Несмотря на декларированные недостатки технологии dbExpress — однона правленные курсоры и невозможность редактирования — существуют про граммные способы уменьшить масштаб проблемы или даже решить ее.

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

Во-вторых, редактирование можно обеспечить настройкой и выполнением запросов SQL INSERT, UPDATE И DELETE.

У каждого способа есть свои преимущества и недостатки.

Компонент TSimpieDataSet безусловно хорош. Он технологичен, относи тельно прост в использовании и, главное, прячет всю функциональность за 444 Часть IV. Технологии доступа к данным несколькими свойствами и методами. Но локальное кэширование измене ний подходит далеко не для всех приложений.

Например, при многопользовательском интенсивном доступе к данным с их редактированием при локальном кэшировании могут возникнуть проблемы с целостностью и адекватностью данных. Самый распространенный пример:

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

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

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

Рассмотрим небольшой пример реализации обоих способов. Приложение Demo DBX использует соединение с сервером InterBase. Подключена тесто вая база данных \Borland Shared\Data\MastSQL.gdb.

Листинг 17.1. Пример приложения с редактируемыми наборами данных {$R procedure TObject);

begin cdsCusts.Open;

end;

procedure begin end;

feature with updating procedure TDataSet), begin Глава Технология dbExpress edVenNo.Text := := := edVenCity.Text := := end;

procedure TObject);

begin end;

procedure TObject);

begin end;

procedure TObject);

begin with quUpdate do try : = := edVenNo.Text;

:= := edVenCity.Text;

:= except info post error', 0);

end;

end;

{Editing feature with cached updates} procedure TDataSet);

begin end;

procedure E: EReconcileError;

UpdateKind:

var Action: TReconcileAction);

446 Часть IV. Технологии доступа к данным begin info post 0);

end;

end.

Для просмотра и редактирования выбраны таблицы Vendors и Customers.

Первая таблица подключена через настроенное соединение (компонент cnMast) к компоненту типа Значение пяти полей отобра жается в обычных компонентах TEdit, т. к. компоненты отображения дан ных, связанные с компонентом dbExpress через компонент TDataSource, ра ботают только в режиме просмотра, не позволяя редактировать данные (рис. 17.2).

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

Для сохранения сделанных изменений (нажатие на кнопку sbPost) исполь зуется компонент типа TSQLQuery. В параметрах запроса передаются текущие значения полей из компонентов TEdit. Так как в этом случае рабо тает однонаправленный курсор, проблема обновления набора данных после выполнения модифицирующего запроса не возникает и набор данных об новляется только при вызове метода First компонента tbivens.

Вторая таблица подключена через тот же компонент cnMast к компоненту cdsCusts типа Он работает в табличном режиме. Данные отображаются в обычном компоненте TDBGrid.

17.2. Окно приложения Demo dbExpress Глава Технология Для сохранения сделанных изменений здесь использован метод размещенный в методе-обработчике AfterPost, когда изменения уже попали в локальный кэш. Метод-обработчик вызывается каждый раз при переходе в компонент TDBGrid на новую строку.

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

Обратите также внимание на настройку компонента типа TSQLConnection. Свойства KeepConnection И значениями False обеспечивают открытие наборов данных при создании формы и автоматиче ское закрытие соединения при закрытии приложения с минимальным ис ходным Интерфейсы dbExpress Технология dbExpress основана на использовании четырех базовых интер фейсов, методы которых применяются во всех компонентах dbExpress. При серьезной работе с технологией или при проектировании собственных ком понентов информация об этих интерфейсах будет полезна.

Интерфейс ISQLDriver Интерфейс ISQLDriver инкапсулирует всего три метода для обслуживания драйвера dbExpress. Экземпляр интерфейса создается для соединения и обеспечивает его связь с драйвером.

Методы function PropValue:

SQLResult;

stdcall;

function TSQLDriverOption;

PropValue: Pointer;

MaxLength: out Length: SQLResult;

stdcall;

позволяют работать с параметрами драйвера. А метод function getSQLConnection(out pConn: ISQLConnection): SQLResult;

stdcall;

возвращает указатель на интерфейс связанного с драйвером соединения ISQLConnection.

Получить доступ к интерфейсу ISQLDriver разработчик может, использовав защищенное свойство property Driver: ISQLDriver read FSQLDriver;

TSQLConnection.

Часть IV. Технологии доступа к данным Интерфейс ISQLConnection Интерфейс ISQLConnection обеспечивает работу соединения. Он передает запросы серверу и возвращает результаты, создавая экземпляры интерфейса управляет транзакциями;

поддерживает передачу метаданных При ПОМОЩИ интерфейса Для открытия соединения используется метод function PChar;

PChar;

Password: PChar):

SQLResult;

stdcall;

ServerName — ИМЯ базы данных, UserName И Password — ИМЯ И пароль пользователя.

Закрывает соединение метод function disconnect: SQLResult;

stdcall;

Параметры соединения управляются методами function TSQLConnectionOption;

lvalue:

SQLResult;

stdcall;

function TSQLConnectionOption;

PropValue: Pointer;

MaxLength: out Length: SQLResult;

stdcall;

Для обработки запроса, проходящего через соединение, создается интер фейс ISQLCommand function getSQLCommand(out ISQLCommand): SQLResult;

stdcall;

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

function SQLResult;

stdcall;

function LongWord): SQLResult;

stdcall;

function LongWord): SQLResult;

stdcall;

При помощи метода function PChar): SQLResult;

overload;

stdcall;

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

Например, можно написать собственную процедуру контроля ошибок при мерно по такому образцу:

procedure ISQLConnection);

var SQLResult;

FMessage: pChar;

Глава Технология dbExpress begin := if (FStatus > 0) then begin := + 1);

FStatus := if FStatus = then mtError, 0) else 0) ;

if then end;

end;

Доступ к интерфейсу можно получить через property ISQLConnection;

TSQLConnection.

Интерфейс Интерфейс ISQLCommand обеспечивает функционирование запроса dbExpress.

Компоненты dbExpress, работающие с наборами данных, используют его для реализации своих методов.

Параметры запроса устанавливаются методом function Word;

ulChildPos: Word;

uLogType: Word;

uSubType: Word;

iPrecision: Integer;

iScale: Integer;

Length: LongWord;

pBuffer: Pointer;

Integer):

SQLResult;

stdcall;

где ulParameter — порядковый номер параметра;

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

eParamType задает тип параметра (входной, выходной, смешанный);

uLogType — тип данных параметра;

uSubType — вспомогательный параметр типа данных;

— максимальный размер значения в байтах;

iPrecision — максимальная точность типа данных;

Length — размер буфера;

pBuffer — буфер, содержащий значение параметра;

— флаг, опреде ляющий, может ли параметр иметь нулевое значение.

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

Информацию о параметре можно получить, используя метод function Word;

ulChildPos: Word;

Value:

Pointer;

Length: Integer;

var IsBlank: Integer): SQLResult;

stdcall;

450 Часть IV. Технологии доступа к данным где — порядковый номер параметра;

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

value — указатель на буфер значения параметра;

Length — размер буфера;

— признак незаполненного параметра.

Метод function PChar;

Word): SQLResult;

stdcall;

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

Выполнение запроса осуществляется методом function Cursor: ISQLCursor): SQLResult;

stdcall;

который возвращает в параметре интерфейс курсора, если запрос выполнен.

Или метод function PChar;

var Cursor: ISQLCursor): SQLResult;

stdcall;

который выполняет запрос, не требующий подготовки (не имеющий пара метров). Он также возвращает в параметре cursor готовый интерфейс кур сора, если запрос выполнен успешно. Текст запроса определяется парамет ром SQL.

И метод function Cursor: ISQLCursor): SQLResult;

stdcall;

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

Интерфейс ИСПОЛЬЗуется И не доступен потомкам.

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

Метод function next: SQLResult;

stdcall;

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

Интерфейс ISQLCursor используется компонентом TCustomSQLDataSet и не доступен потомкам.

Глава 17. Технология dbExpress Отладка приложений с технологией dbExpress Наряду с обычными методами отладки исходного кода, в dbExpress сущест вует возможность контроля запросов, проходящих на сервер через соедине ние. ДЛЯ ЭТОГО ИСПОЛЬЗуеТСЯ КОМПОНеНТ TSQLMonitor.

Через свойство property SQLConnection: TSQLConnection;

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

Затем компонент включается установкой Active = True.

Теперь во время выполнения приложения сразу после открытия соединения property TraceList:

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

Содержимое этого списка можно сохранить в файле при помощи метода procedure string);

Эту же информацию можно автоматически добавлять в текстовый файл, определяемый свойством property string;

но только тогда, когда свойство property AutoSave: Boolean;

будет иметь значение True.

property Integer;

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

Текущее число проверенных команд содержится в свойстве property TraceCount: Integer;

Перед записью команды в список вызывается метод-обработчик TTraceEvent = TObject;

CBInfo:

var LogTrace: Boolean) of object;

property OnTrace: TTraceEvent;

452 Часть IV. Технологии доступа к данным а сразу после записи в список вызывается TTraceLogEvent = procedure (Sender: CBInfo:

of object;

property OnLogTrace: TTraceLogEvent;

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

Если же компонент TSQLMonitor не подходит, можно воспользоваться ме тодом procedure TSQLCallbackEvent;

Integer);

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

Параметр должен содержать любое число.

Он позволяет разработчику самостоятельно определить функцию типа TSQLCallbackEvent:

= TypedEnum;

TSQLCallbackEvent = TRACECat;

CBInfo: Pointer):

CBRType;

stdcall;

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

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

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

function TRACECat;

CBInfo: Pointer): CBRType;

stdcall;

begin if then end;

procedure TObject);

begin TraceList := end;

procedure TObject);

begin if then begin Глава Технология dbExpress TraceList.Free;

end;

end;

procedure TObject);

begin 8);

end;

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

Перед открытием соединения (метод-обработчик нажатия кнопки Start) при помощи метода с соединением связывается функция GetTracelnfo.

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

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

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

Вместе с приложением поставляется динамическая библиотека для выбран ного сервера (см. колонку "Драйвер" табл. 17.1). Она находится в папке \Delphi7\Bin.

Дополнительно, если в приложении используется компонент TSimpieDataSet, необходимо включить в поставку динамическую библиотеку Midas.dll.

Приложение компилируется вместе со следующими DCU-файлами:

dbExpInt.dcu, dbExpOra.dcu, dbExpDb2.dcu, dbExpMy.dcu (в зависимости от выбранного сервера). Если в приложении используется компонент TSimpieDataSet, следует добавить файлы Crtl.dcu и MidasLib.dcu. В резуль тате необходимо поставлять только исполняемый файл приложения.

454 Часть IV. Технологии доступа к данным Если дополнительная настройка соединений не требуется, файл dbxconnections.ini не нужен.

Резюме Технология dbExpress предназначена для создания приложений, требующих быстрого доступа к базам данных, хранящимся на серверах SQL. Доступ осуществляется при помощи небольших драйверов, реализованных в виде динамических библиотек. В настоящее время созданы драйверы для четырех серверов баз данных. Это:

• DB2;

InterBase;

• MySQL;

Oracle.

Технология dbExpress реализована на основе использования стандартных типов компонентов доступа к данным, проста при распространении (испол няемый файл приложения или одна-две динамические библиотеки). Под держивает кроссплатформенную разработку для Linux и легко интегрируется в приложения CLX.

К недостаткам технологии нужно отнести использование однонаправленных курсоров и офаниченные возможности по редактированию (редактирование возможно только при кэшировании изменений на клиенте или выполнени ем специальных модифицирующих запросов).

ГЛАВА Сервер баз данных InterBase и компоненты InterBase Express На странице InterBase Палитры компонентов содержатся компоненты дос тупа к данным, адаптированные для работы с сервером InterBase и объеди ненные названием InterBase Express. Компоненты из набора InterBase Express предназначены для работы с сервером InterBase версии не ниже 5.5.

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

Новые компоненты предоставляют разработчику новые возможности. Среди них:

• улучшенное управление транзакциями (для этого теперь предназначен ОТДеЛЬНЫЙ КОМПОНеНТ TIBTransaction);

новые компоненты доступа к данным, позволяющие лучше решать рас пространенные задачи программирования (компоненты TIBSQL);

возможность получения сведений о состоянии базы данных без прямого обращения к ее системным таблицам (компонент • отслеживание состояния процессов выполнения запросов (компонент С точки зрения разработчика, за исключением нескольких новых свойств, методика использования этих компонентов в приложениях БД не отличает ся от стандартной методики (см. часть III). Любой новый компонент, ин капсулирующий набор данных, совершенно обычным образом через компо нент TDataSource можно подключить к любому стандартному компоненту отображения данных.

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

• соединение с сервером InterBase и полноценное управление транзакци ями из клиентского приложения;

456 Часть IV. Технологии доступа к данным что изменилось в стандартных компонентах доступа к данным;

назначение и возможности новых компонентов доступа к данным;

• отслеживание процессов выполнения запросов на сервере из клиентского приложения;

оценивание состояния базы данных;

особенности переноса клиентских приложений, работающих с сервером InterBase, на новую компонентную базу.

Механизм доступа к данным InterBase Express Для компонентов InterBase Express соединение с сервером БД осуществляет компонент TIBDatabase.

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

Механизм доступа к данным InterBase Express использует для обращений к серверу возможности клиентского ПО InterBase, которое должно быть ин сталлировано на компьютере. Если с данного компьютера доступны базы данных какого-либо сервера на платформе InterBase, то рассматриваемые здесь компоненты могут обращаться к этому серверу. При этом не требуется использовать BDE или любой другой механизм доступа к данным.

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

Компонент TIBDatabase Так как для доступа к базе данных компонентам InterBase Express не требу ется BDE, то для создания соединения используется всего одно свойство DatabaseName. В нем необходимо указать полный путь (включая имя сервера) к выбранному файлу БД с расширением Для этого можно воспользо ваться стандартным диалогом выбора файла при щелчке на кнопке свойства в Инспекторе объектов.

Компонент имеет собственный редактор, который позволяет задать значения основных свойств, обеспечивающих соединение с базой данных (рис. 18.1).

Глава 18. Сервер баз данных InterBase и компоненты InterBase Express Database Editor ' • •• fiolocol:

Г Database Parameters : • ;

Sellings: '•. •.

v — " :..:

Cancel;

" 18.1. Редактор компонента TIBDatabase Настройка соединения проводится следующим образом.

На панели Connection выбирается требуемый сервер InterBase (локальный или доступный удаленно), затем в списке Protocol определяется используе мый сетевой протокол и при помощи кнопки Browse выбирается файл базы данных.

На панели Database Parameters задаются имя пользователя, его пароль и роль. Также можно выбрать и набор шрифтов для языковой адаптации при ложения (список Character Set).

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

Соединение включается и отключается свойством property Connected : Boolean;

property : Boolean;

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

Параметры соединения, которые нельзя задать свойствами, устанавливаются property TStrings;

в котором в каждой строке задается имя параметра и затем через знак ра венства — его значение. Наиболее распространенный пример использова ния свойства Params — задание имени пользователя и его пароля:

user_name=sysdba property [const Integer]: String;

позволяет получить доступ к отдельным параметрам соединения, не обра щаясь К СВОЙСТВУ Params.

( Примечание Полный список индексов всех возможных параметров соединения Interbase можно найти в файле \Delphi7\SourceWcl\IBHeader.pas.

Если соединение настроено правильно, метод procedure TestConnected: Boolean;

возвращает значение True, иначе — False.

property Integer;

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

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

property DefaultTransaction: TiBTransaction;

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

Общее число связанных с данным соединением транзакций возвращает property Integer;

Глава 18. Сервер баз данных InterBase и компоненты InterBase Express а их полный перечень содержится в индексированном списке свойства property Transactions [Index: Integer]: TIBTransaction;

Добавить к списку используемых новую транзакцию можно при помощи метода function TIBTransaction): Integer;

Отменить связь между соединением и компонентом транзакции позволяет метод procedure Integer);

Но можно поступить и более радикально. Метод procedure RemoveTransactions;

отменяет связи со всеми транзакциями.

Используемый в методе RemoveTransaction индекс транзакции может быть найден методом function FindTransaction (TR: TIBTransaction): Integer;

а метод function FindDefaultTransaction: TIBTransaction;

возвращает транзакцию умолчанию.

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

Для этого используется метод procedure IIBEventNotifier);

который связывает с соединением либо интерфейс IIBEventNotifier, либо TIBEvents.

Парный ему метод procedure IIBEventNotifier);

разрывает связь соединения с объектом-обработчиком событий.

type TTraceFlag (tfQPrepare, tfQExecute, tfQFetch, tfError, tfConnect, tfTransact, tfBlob, tfService, TTraceFlags = set of TTraceFlag;

property TraceFlags: TTraceFlags;

позволяет управлять сведениями о выполнении запросов, возвращаемыми компонентом TSQLMonitor (см. ниже описание этого компонента).

460 Часть IV. Технологии доступа к данным Группа методов позволяет судить о реальном состоянии соединения во вре мя выполнения. Все они в случае неудачи проверки генерируют исключение EIBClientError.

Методы procedure CheckActive;

И procedure проверяют, функционирует или нет соединение.

Метод procedure ЛИ СВОЙСТВО Компонент позволяет выполнять некоторые операции с мета данными базы данных.

При помощи метода procedure CreateDatabase;

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

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

Имя файла новой базы данных должно быть указано в свойстве DatabaseName.

Метод procedure DropDatabase;

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

Список List имен таблиц, имеющихся в базе данных, возвращает метод procedure TStrings;

SystemTables: Boolean = False);

При этом параметр SystemTables управляет включением в список имен сис темных таблиц.

Метод procedure string;

List: TStrings);

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

Методы-обработчики событий компонента TiBDatabase представлены в табл. 18.1.

Глава 18. Сервер баз данных InterBase и компоненты InterBase Express Таблица 18.1. Методы-обработчики событий компонента Объявление Тип Описание property AfterConnect: Выполняется после открытия TNotifyEvent;

соединения property Выполняется после закрытия TNotifyEvent;

соединения property Выполняется перед открытием соединения property BeforeDisconnect: Выполняется перед закрытием TNotifyEvent;

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

соединения property TNotifyEvent;

| Pb Вызывается по истечении времени, заданного свойством TDatabaseLoginEvent = Вызывается для регистрации TiBDatabase;

пользователя при открытии TStrings) of object;

соединения property OnLogin:

Компонент TIBTransaction Компонент TIBTransaction инкапсулирует средства управления транзакцией при работе с сервером InterBase. Для этого он должен быть связан с компо нентом TiBDatabase при помощи своего свойства property DefaultDatabase: TiBDatabase;

Один компонент транзакции может быть связан с несколькими компонен тами TiBDatabase. Для этого необходимо задать один компонент транзакции в свойствах всех необходимых компонентов соединений (см. выше).

Список всех связанных компонентов соединений содержится в свойстве property Integer]: TiBDatabase;

а их общее число возвращает свойство property Integer;

462 Часть IV. Технологии доступа к данным Во время выполнения новое соединение может быть связано с транзакцией методом function TIBDatabase): Integer;

Или же, связь может быть отменена:

procedure Integer);

А метод procedure ;

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

Индекс связанного соединения в списке Databases транзакции можно полу чить при помощи метода function FindDatabase (db: TIBDatabase): Integer;

Например, если вам не известно ничего, кроме имени компонента, можно поступить так:

var i, Integer;

i := 0 to — 1 do if = then FIndex := Соединение, заданное умолчанию свойством DefaultDatabase, возвраща ет метод function TIBDatabase;

Транзакция может иметь набор параметров, задать которые можно при по мощи свойства property TStrings;

аналогично компоненту TIBDatabase. Прямой доступ для чтения к буферу параметров транзакции Transaction Parameters Buffer (ТРВ) типа обес печивает property ТРВ: PChar;

Длина буфера содержится в свойстве property TPBLength: Short;

Дескриптор транзакции представлен свойством property Handle:

Глава 18. Сервер баз данных InterBase и компоненты InterBase Express После того как транзакция настроена, ее можно начать, сохранить или от менить.

Транзакция стартует при помощи метода procedure StartTransaction;

При необходимости сохранить все сделанные в рамках текущей транзакции изменения используется метод procedure Commit;

Если выполненные действия нужно отменить, применяется метод procedure Rollback;

Для открытия и сохранения транзакции можно использовать традиционное property Active: Boolean;

После начала новой транзакции свойство property InTransaction: Boolean;

принимает значение True, а после фиксации или отката — значение False.

При работе с сервером InterBase 6.0 можно использовать методы Retaining И RollbackRetaining. В ОТЛИЧИе стандартных операций фикса ции и отката транзакций, эти методы после передачи или отмены измене ний оставляют текущую транзакцию открытой.

Если сервер перегружен и не откликается на транзакцию, то по истечении времени, заданного свойством property Integer;

выполняется действие, заданное свойством type TTransactionAction = (taRollback, taRollbackRetaining, property DefaultAction: TTransactionAction;

taRollback — откат транзакции;

taCommit — фиксация транзакции;

taRollbackRetaining — отмена изменений без завершения транзакции (для сервера InterBase 6.0);

taCoramitRetaining — фиксация изменений без завершения транзакции (для сервера InterBase 6.0).

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

464 Часть IV. Технологии доступа к данным type = (saNone, saRollbackRetaining, saCommitRetaining);

property AutoStopAction : TAutoStopAction;

не должно иметь значение saNone.

Остальные значения свойства выполняют следующие действия:

• saRollback — откат транзакции;

— фиксация транзакции;

saRollbackRetaining — отмена изменений без завершения транзакции (для сервера InterBase 6.0);

saCommitRetaining — фиксация изменений без завершения транзакции (для сервера InterBase 6.0).

Метод procedure выполняет действие, предусмотренное текущим значением свойства AutoStopAction.

Диагностика состояния транзакции во время выполнения осуществляется группой специальных методов. В случае отрицательного результата все они EIBClientError.

Метод procedure проверяет, имеются ли в списке Databases связанные соединения.

Метод procedure проверяет, открыта ли в данный момент транзакция.

Метод procedure проверяет, закрыта ли в данный момент транзакция.

Единственный метод-обработчик транзакции property TNotifyEvent;

вызывается по истечении срока ожидания выполнения транзакции, задан ного СВОЙСТВОМ Глава 18. Сервер баз данных InterBase и компоненты InterBase Express Компоненты доступа к данным Так как компоненты InterBase Express используют для получения на бора данных собственный механизм, то иерархия классов-предков вклю чает только обязательный для всех наборов данных TDataSet класс который, собственно, и инкапсулирует механизм доступа InterBase Express (см. рис. 12.1).

Для связи с базой данных компоненты InterBase Express применяют компо ненты соединения (см. выше). Для этого они используют ство property Database: TiBDatabase;

Доступ к связанной транзакции осуществляется через свойство property Transaction:

Дополнительно к стандартным свойствам и методам, описываемым в гл. 12, класс TiBCustomDataSet имеет type = set of (cusModified, cusDeleted, property TIBUpdateRecordTypes;

cusModified — модифицированные записи;

cuslnserted — добавленные записи;

cusDeleted — удаленные записи;

cusUnmodif ied немодифицированные записи;

cusUninserted — недобавленные записи.

Данное свойство определяет записи набора данных, на которые распростра няются операции кэширования.

property Integer;

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

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

Обновление набора данных выполняется не при каждом сохранении изме нений. Такое поведение компонента определяется свойством property ForcedRefresh: Boolean;

которое по умолчанию имеет значение False.

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

В зависимости от настроек компонента, с ним можно выполнять различные виды операций редактирования, перечень которых содержится в свойстве "только для чтения":

type = TLiveModes = set of TLiveMode;

property LiveMode: TLiveModes;

Так как все эти компоненты предназначены для работы с сервером, то из начально все они поддерживают режим кэширования изменений и имеют соответственные свойства, методы и методы-обработчики событий (табл. 18.2).

Таблица 18.2. Методы-обработчики событий класса Объявление Описание property Выполняется после закрытия соединения с базой данных property AfterTransactionEnd: Выполняется по окончании тран TNotifyEvent;

закции, с которой связан данный набор данных property Выполняется перед закрытием TNotifyEvent;

соединения с базой данных property BeforeTransactionEnd: Выполняется перед окончанием TNotifyEvent;

транзакции, с которой связан дан ный набор данных Выполняется при обнулении свой property DatabaseFree: TNotifyEvent;

ства Database компонента набора данных Вызывается при возникновении type ошибки сохранения изменений = (uaFail, uaAbort, в режиме кэширования uaApplied, uaApply), = E: EDatabaseError;

var UpdateAction:

object;

property Глава Сервер баз данных InterBase и компоненты InterBase Express Таблица 18.2 (окончание) Объявление Описание type Вызывается при сохранении TIBUpdateAction = (uaFail, uaAbort, изменений в режиме кэширования uaSkip, uaApply, = UpdateKind: TUpdateKind;

var UpdateAction: TIBUpdateAction) of object;

property OnUpdateRecord:

property Выполняется при обнулении TNotifyEvent;

свойства Transaction компонента набора данных ВОЗМОЖНОСТИ TIBTable, TIBQuery, TIBStoredProc, TIBUpdateSQL мало чем отличаются от стандартных, описанных в гл. 12.

Для взаимодействия с сервером компоненты InterBase Express используют два класса, которые инкапсулируют важные структуры API InterBase. Эти структуры обеспечивают передачу серверу параметров запроса и возвраще ние результата выполнения запроса. Поэтому сначала рассмотрим классы TIBXSQLDA и TIBXSQLVAR, а затем перейдем к компонентам.

Область дескрипторов XSQLDA Запрос может иметь собственные параметры, которые должны содержаться в свойстве Однако, в отличие от обычного компонента запроса, в InterBase Express это свойство представляет собой экземпляр класса TIBXSQLDA (табл. 18.3). Этот класс инкапсулирует одноименную структуру API InterBase — XSQLDA, обеспечивающую передачу параметров запросу и возврат результатов. Такая структура имеется у каждого запроса, который выполняется сервером InterBase и называется областью дескрипторов запроса (descriptors area).

Таблица 18.3. Свойства и методы класса TIBXSQLDA Объявление Тип i Описание Свойства property AsXSQLDA: | Pu Ссылка на структуру XSQLDA property Count: Integer;

| Pu j Возвращает число полей в структуре 468 Часть IV.Технологии доступа к данным Таблица 18.3 (окончание) Объявление Тип Описание property Modified: Boolean;

| Позволяет определить возможность редактирования полей структуры property String;

Pu j Возвращает имена полей в структуре property RecordSize: Integer;

Pu j Возвращает размер записи структуры property Pu | Индексированный список структур Integer]: TIBXSQLVAR;

| XSQLVAR (СМ. НИЖе) Методы procedure Pu i Добавляет к структуре новое поле String;

Idx: Integer);

function [Idx:

Pu Возвращает структуру инкап String]: TIBXSQLVAR;

сулирующую отдельное поле результата | запроса (см. ниже) Структура XSQLVAR Рассмотренная выше область дескрипторов содержит возвращаемый резуль тат запроса. Массив значений каждого возвращаемого поля сохраняется в отдельной структуре XSQLVAR. Индексированный список таких структур в области дескрипторов представлен свойством property [Idx: Integer]: TIBXSQLVAR В целом, рассматриваемая структура соответствует объекту поля Delphi (см. гл. 13), о чем свидетельствует набор основных свойств и методов класса структуры, представленный в табл. 18.4.

Помимо представленных в таблице свойств, класс TIBXSQLVAR имеет ряд свойств, возвращающих значение в определенном формате:

AsDate, AsDouble, AsLong, AsPointer, AsQuad, AsShort, AsString, AsVariant.

Таблица 18.4. Свойства и методы класса TIBXSQLVAR Объявление Тип I Описание Свойства property AsXSQLVAR: PXSQLVAR;

Pu Представляет значение поля как I | XSQLVAR property Data: PXSQLVAR;

i | Ссылка на структуру XSQLVAR Глава 18. Сервер баз данных InterBase и компоненты InterBase Express Таблица 18.4 (окончание) Объявление Тип Описание property Index: Integer;

Возвращает индекс структуры в области дескрипторов property IsNull: Boolean;

Позволяет определить наличие данных в структуре property IsNullable: Boolean;

Позволяет определить, может ли структура иметь значение property Modified: Boolean;

Позволяет определить, изменялось ли значение в структуре property Size: Integer;

Максимальный размер данных в байтах property SQLType: Integer;

Возвращает индекс API параметра property Value: Variant;

Содержит возвращаемое значение Методы procedure Присваивает объект, передаваемый в параметре, данному объекту procedure Загружает из файла данные String);

в поле BLOB procedure Загружает из потока данные в поле BLOB procedure Сохраняет в файле данные FileName: String);

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

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

При таблицы (СВОЙСТВО type TIBTableType = TIBTableTypes = set of TIBTableType;

property TableTypes: TIBTableTypes;

470 Часть IV. Технологии доступа к данным определяет, какие таблицы доступны для выбора:

— доступны системные таблицы и просмотры;

— доступны определенные пользователем просмотры.

При открытии набора данных упорядочивание записей осуществляется в соответствии со значением свойства property Boolean;

При значении True записи располагаются в порядке, определяемом первич ным индексом таблицы БД.

Во время выполнения свойство property Exists: Boolean;

позволяет определить, существует ли в базе данных таблица, имя которой определено СВОЙСТВОМ Метод procedure TIBTable);

синхронизирует курсоры текущего набора данных и набора данных ком понента, заданного параметром Table.

Методы-обработчики событий полностью соответствуют классу DataSet (см. табл. 18.2).

Компонент Компонент TIBQuery выполняет все стандартные функции компонента за проса и наследует возможности класса Как и у остальных компонентов запросов, свойство property SQL: TStrings;

содержит текст запроса и позволяет редактировать его. С этим свойством связан специализированный редактор (рис. 18.2).

Для просмотра текста запроса можно использовать свойство property Text: string;

Параметры запроса хранятся в стандартном свойстве property TParams;

Общее число параметров запроса возвращает свойство property ParamCount: Word;

При создании новых записей в редактируемых наборах данных компонентов запросов возникает проблема присвоения значений полям первичных ин Глава 18. Сервер баз данных InterBase и компоненты InterBase Express дексов. Очевидно, что при сохранении новой записи в базе данных поле первичного индекса будет инкрементировано средствами сервера InterBase (соответствующими генератором и триггером). Однако получить это значе ние в приложении можно только сохранив изменения и обновив набор данных, что зачастую требует больших затрат ресурсов.

Для решения этой проблемы в компоненте TiBQuery используется свойство property GeneratorField: TIBGeneratorField;

Редактор свойства (рис. 18.2) позволяет связать генератор с инкрементируе мым полем.

Рис. 18.2. Редактор свойства GeneratorFi el d компонента TiBQuery Список Generator позволяет выбрать один из доступных генераторов базы данных. Список Field задает инкрементируемое поле набора данных.

В строке Increment By определяется шаг прибавляемого значения поля.

Группа радиокнопок Apply Event определяет событие, при котором срабаты вает генератор:

On New Record — при создании новой записи;

On Post — при сохранении новой записи;

On Server — генератор управляется сервером.

Редактор свойства GeneratorField попросту присваивает значения полям класса TIBGeneratorField.

Методы-обработчики событий полностью соответствуют классу DataSet (см. табл. 18.2).

Компонент TIBStoredProc Компонент TIBStoredProc полностью соответствует стандартному прототипу, описываемому в гл. 12.

472 Часть IV. Технологии доступа к данным Имя хранимой процедуры задается свойством property String;

Список всех доступных на этапе выполнения хранимых процедур возвраща ет property TStrings;

Параметры хранимой процедуры содержатся в стандартном свойстве property TParams;

Общее число параметров возвращает свойство property Word;

property Prepared: Boolean;

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

Методы-обработчики событий полностью соответствуют классу DataSet (см. табл. 18.2).

Компонент TIBDataSet Компонент TIBDataSet предназначен для представления в приложениях на боров данных от сложных запросов (свойства и методы описаны в табл. 18.5). При этом набор данных остается редактируемым. Это достигает ся возможностью задать дополнительные запросы на удаление, изменение и добавление данных. Аналогичным образом работает стандартный компонент (см. гл. 22). Однако в компоненте TIBDataSet интегрированы одновременно и сам основной запрос, и вспомогательные запросы.

Основной запрос содержится в свойстве property TStrings;

Создание запроса облегчает простой редактор, вызываемый при щелчке на кнопке в поле редактирования свойства в Инспекторе объектов (рис. 18.3).

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

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

| Определяет число записей в буфере I набора данных Глава Сервер баз данных InterBase и компоненты InterBase Express Таблица 18.5 (продолжение) Объявление Тип Описание property DeleteSQL: TStrings;

Содержит текст запроса, обеспечи вающего удаление записей из набора данных property InsertSQL: TStrings;

Содержит текст запроса, обеспечи вающего добавление записей в набор данных property TStrings;

Содержит текст запроса, обеспечи вающего изменение записей из набора данных property TIBXSQLDA;

Ro Структура API, содержащая параметры запроса property Prepared: Boolean;

Ro Позволяет определить, подготовлен ли запрос к выполнению property QDelete: TIBSQL;

Ro Объект запроса на удаление property TIBSQL;

Ro Объект запроса на добавление property TIBSQL;

Ro Объект запроса на изменение property QRefresh: TIBSQL;

Ro Объект запроса на обновление property QSelect: TIBSQL;

Ro Объект запроса на отбор данных TStrings;

Содержит текст запроса, обеспечи вающего обновление записей набора данных Содержит текст основного запроса property SelectSQL: TStrings;

набора данных type TIBSQLTypes = set of Возвращает тип основного запроса Ro (SQLUnknown, SQLSelect, набора данных:

SQLInsert, • SQLUnknown — неизвестный тип;

SQLDelete, SQLDDL, • SQLSelect, SQLInsert, SQLUpdate, SQLGetSegment, SQLExecProcedure, SQLDelete — стандартные типы;

SQLStartTransaction, • SQLDDL — выражение DDL;

SQLRollback, • SQLGetSegment, SQLPutSegment — SQLSelectForUpdate, запросы с полями BLOB;

SQLSetGenerator);

• SQLExecProcedure, SQLStartTransaction, SQLCommit, SQLRollback — обработка транзакций;

• SQLSelectForUpdate — хранимая процедура, возвращающая набор данных;

474 Часть IV. Технологии доступа к данным Таблица 18.5 (окончание) Объявление Тип | Описание i • SQLSetGenerator — выполнение (прод.) | генератора Методы procedure Prepare;

i Pu | Осуществляет подготовку всех запросов компонента к выполнению procedure Возвращает все запросы набора данных к исходному состоянию Методы-обработчики событий property DatabaseDisconnected: i Pb i Вызывается после отключения базы TNotifyEvent;

данных property DatabaseDisconnecting: Pb Вызывается во время отключения базы TNotifyEvent;

данных property DatabaseFree: Pb | Вызывается после того, как компонент TNotifyEvent;

| | соединения освобождает занимаемую память Е SQL:

select COUNTRY, CURRENCY from COUNTRY CUSTOMER DEPARTMENT EMPLOYEE TEMS to SQL Field?:' COUNTRY Add Field SQL 18.3. Редактор запроса компонента TIBDataSet Компонент TIBSQL Компонент TIBSQL предназначен для быстрого выполнения запросов SQL, поэтому не обеспечивает связи с компонентами представления данных (свойства и методы описаны в табл. 18.6).

Глава 18. Сервер баз данных InterBase и компоненты InterBase Express Для обеспечения скорости выполнения запроса из компонента удалены все дополнительные механизмы, обслуживающие набор данных. Фактически компонент TIBSQL не имеет отношения к обычным компонентам доступа к данным, его непосредственным предком является класс а не TDataSet. Поэтому он только передает через компонент соединения TiBDatabase запрос серверу и получает назад результат выполнения запроса.

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

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

Так как структура XSQLDA создается сервером при выполнении запроса, су щественно уменьшается время открытия набора данных компонента.

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

Значение True говорит о том, что курсор находится в начале набора данных property Database: I Определяет компонент соединения TiBDatabase;

с базой данных property DBHandle: I Указатель API на объект базы данных property Boolean;

Значение True говорит о том, что курсор находится в конце набора данных property Список порядковых номеров полей String]: по их именам Integer;

property Индексированный список структур Integer]: TIBXSQLVAR;

XSQLVAR, хранящих значения полей набора данных property Установка свойства в значение True Boolean;

приводит к созданию списка имен па раметров запроса в свойстве Params ! Значение True обеспечивает установку property курсора на первую запись набора данных при его открытии Boolean;

property Handle: Содержит указатель API на запрос HANDLE;

Часть IV. Технологии доступа к данным Таблица (продолжение) Объявление Тип Описание property Open: Boolean;

Позволяет определить, открыт ли набор данных property ParamCheck: Boolean;

Позволяет определить, был ли заново сгенерирован список параметров запро са при изменении его текста во время выполнения property Область дескрипторов запроса (см. выше) property Plan: String;

Содержит план запроса после его property Prepared: Boolean;

Значение True сообщает о том, что запрос готов к выполнению property RecordCount: Pu Возвращает число записей набора Integer;

I данных property RowsAffected: Pu Возвращает число записей, Integer;

! обработанных запросом property SQL: TStrings;

Pb j Содержит текст запроса property SQLType: TIBSQLTypes Pu | Возвращает тип запроса (см. табл. 24.5) read FSQLType;

property Transaction:

Pb | Указывает на компонент транзакции TIBTransaction;

property TRHandle: Содержит указатель API на транзакцию, TR HANDLE;

в которой работает запрос property Возвращает уникальное внутреннее имя String;

запроса Методы procedure Pu | Выполняет запрос с параметрами I для переноса в объект procedure Pu | Выполняет запрос с параметрами для переноса в объект TIBBatchOutput);

function Pu i Возвращает текст сообщения об ошибке ISC_STATUS;

RaiseError:

I по ее коду ErrCode Boolean): ISC_STATUS;

procedure CheckClosed;

Вызывает исключение, если набор данных открыт Глава 18. Сервер баз данных InterBase и компоненты InterBase Express Таблица (окончание) Объявление Тип Описание procedure CheckOpen;

Pu Вызывает исключение, если набор I данных закрыт procedure Pu | Вызывает исключение, если запрос некорректен procedure Close;

I Закрывает набор данных function Current: TIBXSQLDA;

Ссылка на область дескрипторов запроса procedure ExecQuery;

Pu Выполняет запрос function Pu | Возвращает структуру по имени | String]: TIBXSQLVAR;

procedure FreeHandle;

[ Освобождает ресурсы, занятые запро | function Next: TIBXSQLDA;

Возвращает область дескрипторов | для следующей записи procedure Prepare;

Готовит запрос к выполнению Методы-обработчики событий property Pb i Вызывается при изменении запроса TNotifyEvent;

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

После этого можно обращаться к созданному компонентом набору данных.

Значения полей из текущей записи доступны через свойство Fields. Обра тите внимание, что это не объекты типа а структуры XSQLVAR ИЗ об ласти дескрипторов.

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

Доступ к области дескрипторов осуществляется через свойство Current.

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

Обработка событий Клиентское приложение Delphi, работающее с сервером InterBase, имеет возможность отслеживать события, происходящие в базе данных и вызы ваемые другими процессами или приложениями. Для этого используется 478 Часть IV. Технологии доступа к данным компонент Он позволяет определить список необходимых собы тий и предоставляет разработчику простой механизм отслеживания возни кающих на сервере событий. Свойства и методы компонента TiBEvents представлены в табл. 18.7.

Список событий задается свойством property Events: TStrings;

в котором можно определить до 15 контролируемых событий.

Выбранные события необходимо зарегистрировать на сервере. Для этого применяется метод procedure RegisterEvents;

Метод procedure QueueEvents;

начинает процесс передачи сообщений от сервера.

При возникновении на сервере зарегистрированного события компонент вызывает метод-обработчик события property OnEventAlert: TEventAlert;

TEventAlert = Sender: String;

EventCount:

longint;

var Boolean) Параметр EventName содержит имя последнего произошедшего события.

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

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

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

Таблица 18.7. Свойства и методы компонента TiBEvents Объявление Тип ! Описание Свойства property Database: Задает базу данных TIBDatabase;

property Events: TStrings;

j Pb | Список контролируемых событий property Queued: Boolean;

| Ro ] Значение True говорит о том, что ! процесс передачи сообщений работает property Registered: Boolean;

| Pb [ Определяет регистрацию сообщений | ! на сервере Глава 18. Сервер баз данных InterBase и компоненты InterBase Express Таблица 18.7 (окончание) Объявление Тип I Описание Методы procedure CancelEvents;

Pu j Останавливает процесс передачи i сообщений procedure Pu i Включает процесс передачи сообщений Pu I Проводит регистрацию сообщений procedure RegisterEvents;

i на сервере Pu Отменяет регистрацию сообщений procedure на сервере Методы-обработчики событий property Вызывается при передаче сообщения TEventAlert;

от сервера компоненту TEventAlert = String;

var CancelAlerts: Boolean) Информация о состоянии базы данных В процессе отладки и выполнения клиентских приложений для сервера InterBase разработчик может получать подробную информацию об этих процессах.

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

Компонент отслеживает выполнение запросов на сервере.

Компонент TiBDatabaseinfo Компонент TiBDatabaseinfo обладает большим числом свойств и методов, содержащих разнообразные сведения о состоянии БД (табл. 18.8). Компо нент очень прост в применении.

Для выбора базы данных (компонента используется стандарт ное property Database: TiBDatabase;

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

Часть IV. Технологии доступа к данным Таблица 18.8. СвойстваИ МеТОДЫ Объявление I Описание Свойства Число выделенных страниц БД property Allocation: Long;

Ro property Число вариантов удаленных записей Ro TStringList;

property BaseLevel: Long;

Ro Версия базы данных (содержится во втором байте) Ro Объем памяти (в байтах), занятый property Long;

сервером property Database: Ссылка на компонент соединения с БД TIBDatabase;

property DBFileName: String;

Ro Имя файла БД property Ro Номер класа описания Long;

property Ro Номер описания Long;

property String;

Ro Имя сайта БД property Long;

Ro Номер диалекта SQL property Ro Число удалений с момента последнего TStringList;

обновления БД property Ro Число удалений записей с момента по TStringList;

следнего сохранения БД property Fetches: Long;

Ro Число чтений из кэша property Long;

Ro Режим чтения: 0 — асинхронное чтение;

1 — синхронное чтение.

property InsertCount: Ro Число добавлений в БД с момента TStringList;

последнего сохранения property Marks: Long;

Ro Число выполненных записей в кэш Ro Максимальный размер памяти, зани property Long;

маемый БД с момента последнего со хранения ! Ro Резервирование страниц: 0 — резерви property NoReserve: Long;

рование есть;

1 — резервирования нет Ro Число выделенных буферов property Long;

property ODSMajorVersion:

Ro Верхнее значение Long;

Глава Сервер баз данных InterBase и компоненты InterBase Express Таблица 18.8 (окончание) Объявление Тип I Описание property ODSMinorVersion: Нижнее значение ODS Ro Long;

property PageSize: Long;

Ro | Размер страницы БД property Ro | Общее число удаленных по любой TStringList;

причине записей property Ro | Число чтений через индексы с момента TStringList;

I последнего сохранения property Readonly: Long;

Ro | 0 — БД только для чтения;

1 — перезапи | БД property Reads: Long;

Ro | Число чтений из БД property Ro | Число чтений таблиц целиком TStringList;

I с последнего сохранения property Long;

| Ro j Число зафиксированных транзакций property Ro Число обновлений БД с момента TStringList;

последнего сохранения property Ro Список активных пользователей TStringList;

property Version: String;

Ro Версия БД property Writes: Long;

Ro i Число постраничных записей Методы function Pu | Возвращает сообщение об ошибке RaiseError:

i по параметру ErrCode Boolean): ISC STATUS;

Компонент TIBSQLMonitor Компонент TIBSQLMonitor позволяет получать в клиентском приложении сообщения от сервера о выполняемых им операциях. Для этого использует ся метод-обработчик компонента TSQLEvent = String) of object;

property OnSQL: TSQLEvent;

Параметр EventText содержит текст сообщения.

В компоненте соединения с БД можно установить перечень событий серве ра, на которые будет реагировать компонент TIBSQLMonitor. Это делается 482 Часть IV. Технологии доступа к данным при помощи свойства (см. выше). Вероятные значения множества означают контроль за следующими операциями:

tfQPrepare — подготовка запроса к выполнению (вызов метода Prepare);

— выполнение запроса (вызов метода ExecSQL);

tfQFetch — вызов запроса (вызов методов — возникновение ошибки;

tfstmt — все операции с запросами;

• — подключение и отключение БД;

• tfTransact — выполнение транзакций;

— операции с данными BLOB;

tfservice — вспомогательные операции;

— любые операции, не учтенные вышеперечисленными значе ниями.

Резюме В этой главе рассмотрены возможности набора компонентов InterBase Express. Они обеспечивают быстрый и эффективный доступ к базам данных на серверах InterBase. Для доступа к данным этим компонентам не требует ся BDE, они используют только возможности API InterBase.

Часть компонентов обеспечивает быстрый переход со стандартных компо нентов, инкапсулирующих набор данных, и повторяет функциональность компонентов TStoredProc И Т. Д.

Компоненты TIBSQL И полностью основаны на механизмах API InterBase, работают еще эффективнее, но требуют нестандартных приемов работы.

ГЛАВА Использование ADO средствами Delphi Наряду с традиционными инструментами доступа к данным Borland Data base Engine и ODBC в приложениях Delphi можно применять технологию Microsoft ActiveX Data Objects (ADO), которая основана на возможностях а именно интерфейсов OLE DB.

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

В Палитре компонентов Delphi есть страница ADO, содержащая набор ком понентов, позволяющих создавать полноценные приложения БД, обра щающиеся к данным через ADO.

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

краткий обзор технологии ADO, доступных провайдеров ADO, а также работающих в ней объектов и интерфейсов;

• как создать соединение с базой данных через ADO в приложении Delphi;

• применение объекта набора записей ADO в приложении;

О как использовать таблицы, запросы SQL и хранимые процедуры;

что такое команды и объекты команды ADO.

Основы ADO Технология Microsoft ActiveX Data Objects обеспечивает универсальный дос туп к источникам данных из приложений БД. Такую возможность предос тавляют функции набора интерфейсов, созданные на основе общей модели объектов и описанные в спецификации OLE DB.

484 Часть IV. Технологии доступа к данным Технология ADO и интерфейсы OLE DB обеспечивают для приложений единый способ доступа к источникам данных различных типов (рис. 19.1).

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

ADO Application Приложение, использующее ADO ADO Хранилища данных Базы данных Файлы Электронные таблицы Рис. 19.1. Схема доступа к данным через ADO Возникает вопрос: каким образом источники данных смогут выполнить этот запрос?

За серверы БД беспокоиться не стоит, обработка запросов SQL — это их основная обязанность. Но как быть с файловыми последовательностями, электронными таблицами, файлами электронной почты и т. д.? Здесь на помощь приходят механизмы ADO и интерфейсы OLE DB.

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

Глава 19. Использование ADO средствами Delphi Согласно терминологии ADO, любой источник данных (база данных, элек тронная таблица, файл) называется хранилищем данных, с которым при по мощи провайдера данных взаимодействует приложение. Минимальный на бор компонентов приложения может включать объект соединения, объект набора данных, объект процессора запросов.

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

В результате приложение обращается не прямо к источнику данных, а к объекту OLE DB, который "умеет" представить данные (например, из файла электронной почты) в виде таблицы БД или результата выполнения запроса SQL.

Технология ADO в целом включает в себя не только сами объекты OLE DB, но и механизмы, обеспечивающие взаимодействие объектов с данными и приложениями. На этом уровне важнейшую роль играют провайдеры ADO, координирующие работу приложений с хранилищами данных различных Такая архитектура позволяет сделать набор объектов и интерфейсов откры тым и расширяемым. Набор объектов и соответствующий провайдер может быть создан для любого хранилища данных без внесения изменений в ис ходную структуру ADO. При этом существенно расширяется само понятие данных — ведь можно разработать набор объектов и интерфейсов и для не традиционных табличных данных. Например, это могут быть графические данные геоинформационных систем, древовидные структуры из системных реестров, данные CASE-инструментов и т. д.

Так как технология ADO основана на стандартных интерфейсах ко торые являются системным механизмом Windows, это сокращает общий объем работающего программного кода и позволяет распространять прило жения БД без вспомогательных программ и библиотек.

( Примечание Нижеследующее описание спецификации OLE DB представлено в соответствии с официальной терминологией Microsoft для данной предметной области.

Спецификация OLE DB различает типы объектов, которые будут рассмотрены ниже.

О Перечислитель (Enumerator) выполняет поиск источников данных или других перечислителей. Используется для обеспечения функционирова ния провайдеров ADO.

486 Часть IV. Технологии доступа к данным Объект-источник данных (Data Source Object) представляет хранилище данных.

Сессия (Session) объединяет совокупность объектов, обращающихся к од ному хранилищу данных.

Транзакция (Trasaction) инкапсулирует механизм выполнения транзакции.

Команда (Command) содержит текст команды и обеспечивает ее вы полнение. Командой может быть запрос SQL, обращение к таблице БД и т. д.

Набор рядов (Rowset) представляет собой совокупность строк данных, являющихся результатом выполнения команды ADO.

Объект-ошибка (Error) содержит информацию об исключительной си туации.

Рассмотрим функциональные возможности основных объектов и интерфей сов OLE DB.

Перечислители Объекты-перечислители обеспечивают поиск любых объектов ADO, кото рые имеют доступ к источникам данных. При этом другие перечислители также видны в данном перечислителе.

Первичный поиск источников данных осуществляется в провайдере ADO.

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

В составе ADO имеется системный корневой перечислитель, который вы полняет начальный поиск других перечислителей и источников данных. Его можно использовать, зная его идентификатор класса ( Примечание В Delphi GUID глобального перечислителя содержится в файле \Delphi7\Source \Vcl\OleDB.pas.

= перечислителя содержатся в интерфейсе Метод function punkOuter: const riid: TGUID;

rgProperties: PDBPropSetArray;

out IUnknown): stdcall;

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

Глава 19. Использование ADO средствами Delphi Объекты соединения с источниками данных Внутренний механизм ADO, обеспечивающий соединение с хранилищем данных, использует два типа объектов. Это объекты-источники данных и объекты-сессии.

Объект-источник данных обеспечивает представление информации о тре буемом реальном источнике данных и подключение к нему.

Для ввода сведений о хранилище данных используется интерфейс Для успешного подключения необходимо задать обязатель ные сведения. Вероятно, для любого хранилища данных будет актуальной информация об его имени, пользователе и пароле. Однако каждый тип хра нилища имеет собственные уникальные настройки. Для получения списка всех обязательных параметров соединения с данным хранилищем можно воспользоваться методом function GetPropertyInfo(cPropertyIDSets:

PDBPropIDSetArray;

var UINT;

out PDBPropInfoSet;

ppDescBuffer: PPOleStr): HResult;

stdcall;

который возвращает заполненную структуру DBPROPINFO.

= DBPROPINFO = packed record pwszDescription:

DBPROPID;

dwFlags:

vtType: Word;

vValues: OleVariant;

end;

= DBPROPINFO;

Для каждого обязательного параметра в элементе dwFlags устанавливается значение DBPROPFLAGS_REQUIRED.

Для инициализации соединения необходимо использовать метод function Initialize: HResult;

stdcall;

интерфейса объекта-источника данных.

Сессия Из объекта-источника данных можно создавать объекты-сессии. Для этого используется метод function punkOuter: const riid:

out ppDBSession: IUnknown): HResult;

stdcall;

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

Часть IV. Технологии доступа к данным Транзакции Управление транзакциями в OLE DB реализовано на двух уровнях.

Во-первых, всеми необходимыми методами обладает объект сессии. Он интерфейсы ITransaction, ITransactionJoin, ect.

Внутри управляется ITransactionLocal, ItransactionSC, ITransaction И ИХ методами StartTransaction, Commit, Rollback.

Во-вторых, для объекта сессии можно создать объект транзакции при по мощи метода function UINT;

out ITransaction): HResult;

stdcall;

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

const UINT;

PDBPropSetArray;

ppRowset: HResult;

stdcall;

который открывает необходимый набор рядов.

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

— обеспечивает навигацию по рядам;

— обеспечивает представление информации о формате рядов, содержащихся в буфере набора рядов;

— позволяет получить информацию о наборах рядов (напри мер, число рядов или число обновленных рядов);

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

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

Глава Использование ADO средствами Delphi Примечание В отличие от привычной практики разработки интерфейсов в рамках модели интерфейсы OLE DB часто имеют всего один-два метода. В результате большая группа интерфейсов реализует несколько вполне стандартных функций.

Дополнительные возможности по управлению набором рядов предоставля ют следующие интерфейсы:

— выполняет изменения в наборе рядов (вносит измене ния, добавляет новые ряды, удаляет ряды и т. д.);

— позволяет сравнивать ряды разных рядов;

— обеспечивает использование индексов;

— выполняет поиск в наборе рядов;

— реализует механизм кэширования изменений.

Команды Программные средства ADO были бы неполными, если бы не имели воз можности использовать для работы с данными язык SQL. Операторы DML и DDL, ряд специальных операторов ADO носят общее название текстовых команд.

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

разбор текста команды;

связывание команды с источником данных;

оптимизацию команды;

передачу команды источнику данных.

Главный интерфейс объекта команды имеет три метода:

function Cancel: HResult;

stdcall;

отменяет выполнение команды;

• function punkOuter: const riid: TGUID;

var ppRowset: HResult;

stdcall;

исполняет команду;

function riid: TGUID;

out ppSession: IUnknown):

HResult;

stdcall;

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

490 Часть IV. Технологии доступа к данным Помимо основного, объект команды обеспечивает доступ к дополнитель ным интерфейсам:

— два метода (Prepare И Unprepare) ТОВКИ команды;

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

— управляет текстом команды (этот интерфейс обязателен для объекта команды);

• — обеспечивает работу с параметрами команды.

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

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

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

При инсталляции Microsoft ActiveX Data Objects в операционной системе устанавливаются следующие стандартные провайдеры.

Microsoft Jet OLE DB Provider обеспечивает соединение с данными СУБД Access при посредстве технологии Microsoft OLE DB Provider for Microsoft Indexing Service обеспечивает доступ только для чтения к файлам и Internet-ресурсам Microsoft Indexing Service.

Microsoft OLE DB Provider for Microsoft Active Directory Service обеспечивает доступ к ресурсам службы каталогов (Active Directory Service).

Microsoft OLE DB Provider for Internet Publishing позволяет использовать ресурсы, предоставляемые Microsoft FrontPage, Microsoft Internet Server, НТТР-файлы.

Microsoft Data Shaping Service for OLE DB позволяет использовать иерархи ческие наборы данных.

Глава 19. Использование ADO средствами Delphi Microsoft OLE DB Simple Provider предназначен для организации доступа к источникам данных, поддерживающим только базисные возможности OLE DB.

Pages:     | 1 |   ...   | 4 | 5 || 7 | 8 |   ...   | 10 |



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

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