WWW.DISSERS.RU

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

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

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

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

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

В свойстве property Text: PChar;

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

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

Если запрос возвращает результат в набор данных, то применяется метод procedure Open;

ИЛИ СВОЙСТВО p r o p e r t y A c t i v e : Boolean;

которому присваивается значение True. После выполнения запроса откры вается набор данных компонента. Закрывается такой запрос методом procedure Close;

или тем же свойством Active.

Если запрос не возвращает результат в набор данных (например, использует операторы INSERT, DELETE, UPDATE), TO используется метод procedure ExecSQL;

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

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

После выполнения запроса в свойстве property RowsAffected: Integer;

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

Глава 12, Набор данных Для того чтобы разрешить редактирование набора данных запроса, необхо димо свойству property RequestLive: Boolean;

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

Для подготовки запроса к выполнению предназначен метод procedure Prepare;

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

Метод procedure UnPrepare;

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

Результат выполнения этих двух операций отражается в свойстве property Prepared: Boolean;

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

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

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

Свойство property Params: TParams;

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

( Примечание В компоненте TADOQuery свойство, аналогичное описанному свойству Params, называется Parameters.

Свойство property ParamCount: Word;

возвращает число параметров запроса.

292 Часть III. Приложения баз данных Свойство property ParamCheck: Boolean;

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

Кроме этого, компоненты запросов содержат некоторые свойства и методы, описываемые в гл. 14.

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

В зависимости от выбранной технологии доступа к данным, каждый компо нент хранимой процедуры имеет собственный способ соединения с серве ром. После подключения к источнику данных имя хранимой процедуры можно выбрать из списка свойства property StoredProcName: String;

После этого свойство property Params: TParams;

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

Для хранимых процедур важно деление параметров на входные и выходные.

Первые содержат исходные данные, а вторые передают результаты выпол нения процедуры.

Детально класс TParams описывается ниже.

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

Для подготовки хранимой процедуры используется метод procedure Prepare;

ИЛИ СВОЙСТВО property Prepared: Boolean;

которое должно получить значение True.

Метод procedure UnPrepare;

или свойство Prepared := False выполняют обратное действие.

Глава 12. Набор данных Кроме того, проверка значения свойства Prepared позволяет установить, осуществлялась ли подготовка процедуры к выполнению или нет.

Внимание!

После выполнения хранимой процедуры исходный порядок следования пара метров в списке Params может измениться. Поэтому для доступа к конкретному параметру рекомендуется использовать метод function ParamByName(const Value: String): TParam;

Если хранимая процедура возвращает набор данных, компонент можно открывать методом procedure Open;

ИЛИ СВОЙСТВОМ property Active: Boolean;

В противном случае для выполнения процедуры используется метод procedure ExecProc;

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

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

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

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

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

294 Часть III. Приложения баз данных Создание для БД эффективного набора индексов является нетривиальной задачей.

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

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

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

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

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

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

Список имен всех индексов можно получить при помощи метода Ge 11ndexNames.

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

После установки индекса количество полей в индексе передается в свойство IndexFi eIdCount.

Глава 12. Набор данных Список описаний индексов Информация об индексах набора данных содержится в свойстве класса TDataSet property IndexDefs: TindexDefs;

В нем для каждого индекса создается структура TindexDef. Доступ к инфор мации об индексах осуществляется через свойство property Items [Index: Integer]: TindexDef;

default;

являющееся списком объектов TindexDef.

Объекты типа TindexDef можно добавлять в список при помощи метода function AddlndexDef: TindexDef;

Поиск объекта описания индекса осуществляет метод function Find(const Name: String): TindexDef;

который возвращает найденный объект по заданному в параметре Name име ни индекса.

Пара методов function FindlndexForFields(const Fields: string): TindexDef;

function GetlndexForFields(const Fields: String;

Caselnsensitive: Boolean): TindexDef;

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

Список indexDef s обновляется автоматически при открытии набора данных.

Но метод procedure Update;

reintroduce;

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

Описание индекса Параметры каждого индекса набора данных представлены в классе TindexDef, а их совокупность для набора данных содержится в свойстве IndexDefs класса TDataSet.

Свойство property Name: String;

определяет название индекса.

Часть III. Приложения баз данных Список всех полей индекса содержится в свойстве property Fields: String;

Поля разделяются точкой с запятой.

Свойство property CaselnsFields: String;

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

Свойство property DescFields: String;

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

Свойство property GroupingLevel: Integer;

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

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

Параметры индекса определяются свойством property Options: TIndexOptions;

Для индекса возможны сочетания следующих параметров:

П ixPrimary — первичный индекс;

• ixunique — значения индекса уникальны;

• ixDescending — индекс сортирует записи в обратном порядке;

• ixCaseinsensitive — индекс сортирует записи без учета регистра сим волов;

• ixExpression — в индексе используется выражение (для индексов dBASE);

О ixNonMaintained — индекс не обновляется при открытии таблицы.

Глава 12. Набор данных Метод procedure Assign(ASource: TPersistent);

override;

заполняет свойства объекта значениями аналогичных свойств объекта ASource.

Использование описаний индексов Описания индексов наряду с описаниями полей (см. гл. 13) также исполь зуются при создании новых таблиц БД. Для каждого планируемого индекса перед вызовом метода CreateTabie необходимо создать или скопировать из существующего набора данных соответствующее описание. Тогда при соз дании таблицы индексы будут добавлены автоматически:

with Tablel do begin DatabaseName := 'DBDEMOS';

TableType := ttParadox;

TableName := 'DemoTable';

(Создание описаний полей} with IndexDefs do begin Clear;

AddlndexDef;

with Items[0] do begin Name := '';

Fields := 'Fieldl';

Options := [ixPrimary, ixUnique];

end;

AddlndexDef;

with Items[1] do begin Name := 'Secondlndex';

Fields := 'Fieldl;

Field2';

Options := [ixCaselnsensitive];

end;

end;

CreateTabie;

end;

При создании описаний индексов использован метод AddlndexDef, который при каждом вызове добавляет к списку items объекта TindexDefs новый 298 Часть III. Приложения баз данных объект TindexDef. Таким образом сначала создается первичный индекс (в таблицах Paradox он не имеет имени), затем вторичный индекс secondindex. Для каждого описания обязательно определяются составляю щие индекс поля и параметры индекса (свойства Fields и options).

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

Рассмотрим следующий запрос SQL:

SELECT SaleDat, OrderNo FROM Orders WHERE SaleDat >= '01.08.2001' AND SaleDat <= '31.08.2001' В нем осуществляется отбор номеров заказов, сделанных в августе 2001 го да. Теперь вполне естественно было бы предположить, что пользователю может понадобиться получить подобный отчет за другой месяц или за пер вые десять дней августа.

В этом случае можно поступить так:

procedure TForml.FormCreate(Sender: TObject);

begin with Queryl do begin SQL[0] := 'SELECT PartDat, ItemNo, ItemCount, InputPrice';

SQL[1] := 'FROM Parts';

SQL[2] := 'WHERE PartDat>= ''01.08.2001" AND PartDat<=" 31.08.2001"';

end;

end;

procedure TForml.RunBtnClick(Sender: TObject);

begin with Queryl do begin if Active then Close;

SQL[2] := 'WHERE PartDat>= '+chr(39)+DatelEdit.Text+chr(39)+ ' AND PartDat<='+chr(39)+Date2Edit.Text+chr(39) ;

Open;

end;

end;

При создании формы в методе FormCreate задается текст запроса. Для этого используется свойство SQL. При щелчке на кнопке RunBtn, в соответствии Глава 12. Набор данных с заданными в однострочных редакторах DateiEdit и Date2Edit датах, изме няется текст запроса. Метод FormCreate приведен только для того, чтобы обозначить первоначальный текст запроса, этот текст вполне можно задать в свойстве SQL.

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

SELECT PartDat, ItemNo, ItemCount, InputPrice FROM Parts WHERE PartDat>= :PD1 AND PartDat<= :PD Двоеточие перед именами PDI И PD2 означает, что это параметры. Имя па раметра выбирается произвольно. В списке свойства Params первым идет тот параметр, который расположен первым по тексту запросу.

После ввода в свойстве SQL текста запроса для каждого параметра автомати чески создается объект TParam. Эти объекты доступны в специализирован ном редакторе, который вызывается при щелчке на кнопке свойства Params в Инспекторе объектов (рис. 12.2). Для каждого параметра требуется уста новить тип данных, который должен согласовываться с типом данных соот ветствующего поля.

7 Editing ADOQueryl.Parameters J J E Рис. 12.2. Специализированный редактор параметров запроса Теперь для задания текущих ограничений по дате поступления можно ис пользовать С О С В Params:

В ЙТО procedure TForml.RunBtnClick(Sender: TObject);

begin with Queryl do begin Close;

Часть III. Приложения баз данн Params[0].AsDateTime := StrToDate(DatelEdit.Text);

Params[1].AsDateTime := StrToDate(Date2Edit.Text);

0pen;

end;

end;

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

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

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

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

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

7 D m Q ey aa s e o u rP r m OrdeiNo fCustN0• : • jSaleDate : :"СУ"" IShipDete •-.''••• fEmpNо i^JSNpToContact J ^,. •• :

1351 12.04.1988 03.05.198812:00:00 ~D 1003! 114;

• 2156 17.04.1988 : 18.04.1388 : 145 Matia Eventosh 21.01.198812:00:00 :

1356 20.04.1988 110;

1005!

1380 06.11.1994 07.11.198812:00:00 i 46:

Ю06:

1384 01.05.1988 02.051988 i 1007. 45:

04Ш 1510 03.05.1988 ""12:"' 1008.

;

12 05 1988 71:

1009 1513 11.05. 1551 11.05. 1010 i 12.05.1988 : •.

46:

i oi T 1560 18.05.1988 "5: :

\ j 19.05. !

1563 19.05.1988 20.05.1388 ;

118:

1012:

1624 25Ж1988 •'• 134:

1О13! ";

2Б.05_1Э88 '" 26 05.1Э 1014: 1645 25.05.1988 144:

26.05. 1651 25.05. 1015: 71:

4L J Щ.. •, • • - : I : | C o m p a n y A d d r ! J A d d r Z 1 3 5 1 S i g h t D i v e r N e p t u n e L a n e L i l _ J Рис. 12.3. Главная форма проекта DemoQueryParams Глава 12. Набор данных Верхний компонент TDBGrid отображает данные из таблицы Orders базы данных DBDEMOS и связан через компонент ordersSource типа TDataSource с компонентом запроса ordersQuery. Текст запроса выглядит так:

SELECT * FROM O r d e r s Нижний компонент TDBGrid отображает данные о покупателе и через ком понент CustSource ТИПа TDataSource С Я Э С запросом CustSource, С О С В ВЗН В ЙТО SQL которого имеет следующий вид:

SELECT * FROM Customer WHERE CustNo=:CustNo Обратите внимание, что название параметра соответствует названию поля номера покупателя из таблицы Orders.

Свойство DataSource компонента custQuery указывает на компонент OrdersSource.

Как только оба набора данных открываются, текущее значение из поля custNo набора данных orders автоматически передается в параметр запроса компонента CustQuery.

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

И в завершение разговора о параметрах запросов рассмотрим свойства и методы Класса TParams, составляющего С О С В Params, И Класса TParam, В ЙТО инкапсулирующего отдельный параметр.

КлассTParams Класс TParams представляет собой список параметров.

Доступ к элементам списка возможен через индексированное свойство property Items [Index: Word]: TParam;

а к значениям параметров — через свойство property ParamValues[const ParamName: String]: Variant;

Добавить новый параметр можно методом procedure AddParam(Value: TParam);

Но для него необходимо создать объект параметра. Это можно сделать ме тодом function CreateParam(FldType: TFieldType;

const ParamName: string;

ParamType: TParamType): TParam;

где FidType — тип данных параметра, ParamName — имя параметра и ParamType — тип параметра (см. ниже).

302 Часть III. Приложения баз данных И оба метода можно использовать в связке:

MyParams.AddParam(MyPararns.CreateParam(ftInteger, 'Paraml', p t I n p u t ) ) ;

Вместо того, чтобы заполнять параметры по одному, можно использовать метод function ParseSQL(SQL: String;

DoCreate: Boolean): String;

который при DoCreate = True анализирует текст запроса из свойства SQL И создает новый список параметров.

Или же, для присвоения значений сразу всем параметрам используется метод procedure AssignValues(Value: TParams);

Для удаления параметра из списка применяется метод procedure RemoveParam(Value: TParam);

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

Для обращения к параметру по имени используется метод function ParamByName(const Value: String): TParam;

В сложных запросах SQL или после многочисленных исправлений разра ботчик может допустить ошибку и создать два разных параметра с одним именем. В этом случае при выполнении запроса одноименные параметры считаются одним и им присваиваются значение первого по порядку запро са. Для контроля повторных имен в списке параметра используется метод function IsEqual(Value: TParams): Boolean;

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

Класс TParam Класс TParam инкапсулирует свойства отдельного параметра.

Имя параметра определяется свойством property Name: String;

Тип данных параметра задает свойство property DataType: TFieldType;

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

Глава 12. Набор данных ' Тип параметра определяется множеством type TParamType = (ptUnknown, ptInput, ptOutput, ptlnputOutput, ptResult);

TParamTypes = set of TParamType;

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

П ptunknown — тип неизвестен;

П pt input — параметр предназначен для передачи значения из приложения;

• ptoutput — параметр предназначен для передачи значения в приложение;

О ptlnputOutput — параметр предназначен для передачи и приема значения;

• ptResult — параметр предназначен для передачи в приложения инфор мации о статусе операции.

Свойство property ParamType: TParamType;

определяет тип параметра.

При работе с параметрами довольно часто бывает необходимо определить, имеет ли параметр ненулевое значение. Для этого используется свойство property IsNull: Boolean;

Свойство возвращает значение True, если параметр не имеет значения или имеет значение Null.

Свойство property Bound: Boolean;

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

Метод procedure Clear;

присваивает параметру значение Null.

Само значение параметра задается свойством property Value: Variant;

Но использование вариантов не очень эффективно, когда требуется обеспе чить максимальную скорость. В таких случаях можно обратиться к целому набору свойств As..., которые не только возвращают значение, но и приво дят его к некоторому типу. Например, свойство property AsInteger: Longlnt;

возвращает целочисленное значение поля.

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

Для чтения из буфера и записи в буфер значения параметра соответственно используются методы procedure SetData(Buffer: Pointer);

procedure GetData(Buffer: Pointer);

а необходимый размер при записи в буфер позволит определить метод function GetDataSize: Integer;

Можно скопировать тип данных, имя и значение параметра прямо из поля данных. Для этого применяется метод procedure AssignField(Field: TField);

а для присвоения типа данных и значения используется метод procedure AssignFieldValue(Field: TField;

const Value: Variant);

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

А свойство property NumericScale: Integer;

задает число знаков после запятой.

Для строковых параметров размер задает свойство property Size: Integer;

Состояния набора данных В процессе своего функционирования (от открытия методом Open и до за крытия методом close) набор данных может выполнять самые разнообраз ные операции. Можно просто перемещаться по записям, можно редактиро вать данные и удалять записи, можно проводить поиск по различным пара метрам и т. д. При этом желательно, чтобы все операции выполнялись как можно быстрее и эффективнее.

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

Глава 12. Набор данных Все состояния набора данных делятся на две группы.

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

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

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

Текущее состояние набора данных передается в свойство state, имеющее ТИП TDataSetState:

type TDataSetState = (dslnactive, dsBrowse, dsEdit, dslnsert, dsSetKey, dsCalcFields, dsFilter, dsNewValue, dsOldValue, dsCurValue, dsBlockRead, dsInternalCalc);

Для управления состояниями набора данных используются методы Open, Close, Edit, Insert.

Таблица 12.1. Автоматические состояния набора данных Константа состояния Описание dsNewValue Включается при обращении к свойству NewValue поля на бора данных dsOldValue Включается при обращении к свойству OldValue поля на бора данных dsCurValue Включается при обращении к свойству CurValue поля на бора данных dsInternalCalc Включается при расчете значений полей, для которых FindKind = fklnternalCalc dsCalcFields Включается при выполнении метода OnCalcFields dsBlockRead Включается механизм ускоренного перемещения по набо ру данных dsOpening Существует при открытии набора данных методом Open или свойством A c t i v e dsFilter Включается при выполнении метода OnFilterRecord 306 Часть III. Приложения баз данных Таблица 12.2. Управляемые состояния набора данных Константа состояния Метод Описание dsinactive Close Набор данных закрыт dsBrowse Open Данные доступны для просмотра, но недоступны для редактирования dsEdit Edit Данные можно редактировать dsinsert insert К набору данных можно добавлять новые записи dsSetKey SetKey Включается механизм поиска по ключу. Также могут использоваться диапазоны Рассмотрим, как изменяется состояние набора данных при выполнении стандартных операций.

Закрытый набор данных всегда имеет неактивное состояние dsinactive.

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

Вставка новой Открытие и записи и ее закрытие сохранение набора данных и отмена Insert Редактирование Использование и сохранение механизма или отмена поиска по ключу изменений Рис. 12.4. Схема изменения состояний набора данных Глава 12. Набор данных При необходимости редактирования данных набор должен быть переведен в состояние редактирования dsEdit, для этого используется метод Edit. После выполнения метода можно изменять значения полей для текущей записи.

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

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

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

Состояние установки ключа dsSetKey используется только в табличных ком понентах при необходимости поиска методами FindKey и FindNext, а также при использовании диапазонов (метод SetRange). Это состояние сохраняется до момента вызова одного из методов поиска по ключу или метода отмены диапазона. После этого набор данных возвращается в состояние просмотра.

Состояние просмотра по блокам dsBiockRead используется набором данных при реализации быстрого перемещения по большим массивам записей без показа промежуточных записей в компонентах отображения данных и без вызова обработчика события перемещения по записям. Для реализации быстрого перемещения по набору данных можно использовать методы DisableControls И EnableControls.

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

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

О компоненты таблиц;

• компоненты запросов;

• компоненты хранимых процедур.

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

ГЛАВА Поля и типы данных Каждая таблица БД и, следовательно, каждый набор данных приложения имеет собственную структуру, которая определяется совокупностью полей.

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

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

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

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

• объект поля в наборе данных;

• динамические и статические объекты полей;

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

• класс TFieid — основа использования полей в наборах данных;

• типы объектов полей и типы данных;

• ограничения.

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

Editl.Text := Tablel.Fields[0].AsString;

Свойство Fields представляет собой индексированный список объектов по лей набора данных (см. гл. 12). Если разработчик не изменяет порядок сле дования полей в наборе данных, то расположение объектов полей в списке Fields соответствует структуре таблицы базы данных.

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

Editl.Text := Tablel.FieldByName('SomeField').AsString;

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

Tablel.FieldValuesf'SomeField'] := Editl.Text;

Знание имени поля дает самый простой способ обращения к текущему зна чению поля:

Tablel['SomeField'] := Editl.Text;

Editl.Text := Tablel['SomeField'];

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

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

Что же такое объект поля и какие возможности он предоставляет разработ чику?

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

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

TField TlntegerField TAutolncField TNumericField TLargelntField TSmalllntField TBCDField TWordField TFMTBCDField TFIoatField TCurrencyField TObjectField TADTField TArrayField TDataSetField TReferenceField TDateTimeField TDateField TTimeField TBLOBField TGraphicField TMemoField TStringField TGUIDField TWideStringField —| TVarBytesField TBinaryField TBytesField TlnterfaceField TIDispatchField TAggregateField TBooleanField TSQLTimeStampField TVariantField Рис. 13.1. Иерархия классов полей Глава 13. Поля и типы данных Компоненты отображения данных при работе с набором данных взаимодей ствуют именно с полями. Например, колонки компонента TDBGrid при от сутствии дополнительных настроек соответствуют расположению объектов полей в связанном наборе данных.

Статические и динамические поля В Delphi предусмотрено два способа создания объектов полей.

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

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

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

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

Название статического объекта поля обычно складывается из названий таб лицы И ПОЛЯ, например OrdersCUSTNO.

Создаются статические объекты полей при помощи специализированного Редактора полей, который вызывается двойным щелчком на компоненте набора данных на форме или командой Fields Editor из всплывающего меню этого компонента.

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

Часть III. Приложения баз данных Field properties Mame: I OrderNo lype:

C sN ut o SaleDate Field type ShipDate E po mN Г Calculated/;

'•j::? C lookup -1JJ PayrnentMethod TaxRate Lookup definition CustQueiy u !a ZJ j! « '• Aggiegatel Aggregate2 Cancel Help OK Рис. 13.2. Редактор полей Рис. 13.3. Диалог создания нового статического поля с отдельным списком агрегатных Редактора полей набора данных полей Добавить к списку статических полей новое поле, существующее в таблице БД, можно при помощи команды Add fields из всплывающего меню Редак тора. Удаление элемента из списка осуществляется клавишей .

Перетаскиванием элементов списка при помощи мыши можно изменить их расположение. Таким образом можно создавать произвольные комбинации статических полей.

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

Команда New field из всплывающего меню Редактора полей позволяет соз дать статическое поле, которое реально не существует в структуре данных таблицы (рис. 13.3). Для выбора типа поля используется группа радиокно пок Field Type:

• Data — поле данных;

• Calculated — вычисляемое поле;

• Lookup — поле синхронного просмотра.

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

Глава 13, Поля и типы данных ( Примечание ^ Для клиентских наборов данных многоуровневых приложений диалог создания нового поля позволяет выбрать два дополнительных типа поля — это агрегат ные поля (радиокнопка Aggregate) и внутренние вычисляемые поля (радио кнопка InternalCalc).

Класс TField Как уже говорилось выше, в большой иерархии классов для полей различ ных типов данных класс TField является базовым (см. рис. 13.1), он инкап сулирует свойства и методы абстрактного поля данных. Именно от него происходят все классы типизированных полей. В реальной работе класс TField не используется, но его значение трудно переоценить. Практически все основные свойства классов типизированных полей унаследованы от класса TField без каких-либо изменений, а дополнительные свойства и ме тоды обеспечивают работу конкретного типа данных.

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

Ниже приведены свойства и методы класса TField.

Имя объекта содержит свойство property Name: TComponentName;

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

Свойство property FieldName: String;

возвращает имя поля таблицы базы данных.

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

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

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

Название поля в таблице базы данных содержится в свойстве property Origin: String;

Свойство property FieldNo: Integer;

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

314 Часть III. Приложения баз данных Свойство property Index: Integer;

содержит индекс объекта поля в списке Fields.

Функциональное назначение поля определяется свойством type TFieldKind = (fkData, fkCalculated, fkLookup, fklnternalCalc, fkAggregate);

property FieidKind: TFieldKind;

В большинстве случаев его значение определяется автоматически в момент создания объекта поля. Да и впоследствии вряд ли возникнет необходи мость сделать реальное поле данных вычисляемым. Обычно попытка изме нить значение свойства FieidKind вызывает ошибку. Рассмотрим возможные значения этого свойства:

• fkData — поле данных;

О fkCalculated — вычисляемое поле;

• fkLookup — поле синхронного просмотра;

• fklnternalCalc — внутреннее вычисляемое поле;

• fkAggregate — агрегатное поле.

Если поле является вычисляемым, свойство property Calculated: Boolean;

принимает значение True.

На связанный набор данных указывает свойство property DataSet: TDataSet;

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

Свойство property DataType: TFieldType;

возвращает тип данных поля, а свойство property DataSize: Integer;

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

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

Глава 13. Поля и типы данных Свойство property Value: Variant всегда содержит значение, которое сохранено после последнего выполнения метода post набора данных:

with Tablel do begin Open;

while Not EOF do begin if Fields[0].Value > then Fields[1].Value := Fields[1].Value*2;

Next ;

end;

Close;

end;

В этом примере при помощи метода Next осуществляется перебор всех записей набора данных. Если значение первого поля больше 10, то значение второго поля удваивается. Для этого применяется свойство Value объектов полей набора данных.

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

Editl.Text := Tablel.Fields[0].AsString;

Примечание При работе со статическими объектами полей при передаче значений жела тельно использовать свойства из группы A s..., т. к. неявное задание типа свойством Value может привести к ошибке преобразования данных типа Variant.

Если свойство property CanModify: Boolean;

имеет значение False, значение поля нельзя редактировать. Однако это свойство является только средством для определения возможности редакти рования.

316 Часть III. Приложения баз данных Свойство property Readonly: Boolean;

позволяет запретить редактирование (Readonly -.= True) или разрешить его (Readonly := False).

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

Свойство property DisplayText: String;

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

Свойство property Text: String;

предназначено для использования компонентами отображения данных при редактировании. Поэтому эти два свойства могут иметь разные значения в случае, если значение поля в строковом формате при редактировании и просмотре различно. У классов-наследников TFieid для этого достаточно задать шаблон отображения данных для поля (свойство DispiayFormat) и шаблон редактирования данных (свойство EditFormat). Например, вещест венное число при просмотре может иметь разделители тысяч, а при редак тировании нет. В этом случае рассматриваемые свойства будут иметь сле дующий вид:

DisplayText = Ч 452,32' Text = 4452,32' Свойства Text и DisplayText влияют на использование метода-обработчика OnGetText. ЕСЛИ параметр DisplayText имеет Значение True, T параметр Text O содержит значение свойства DisplayText, в противном случае в метод пере дается значение поля в строковом формате.

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

В случае возникновения исключительных ситуаций во время использования поля генерируется соответствующее сообщение, в котором в качестве имени поля применяется значение свойства DispiayName. Если задано свойство DisplayLabel, то DispiayName приравнивается к нему, в противном случае ДЛЯ задания свойства DispiayName ИСПОЛЬЗуетсЯ С О С В FieldName. Другим В ЙТО способом задать значение свойства DispiayName невозможно.

Глава 13. Поля и типы данных Свойство property DisplayWidth: Integer;

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

Свойство property Visible: Boolean;

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

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

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

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

Кроме этого, в практике программирования часто применяются поля син хронного просмотра и вычисляемые поля.

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

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

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

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

318 Часть III. Приложения баз данных П Свойство property LookupDataSet: TDataSet;

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

• Свойство property LookupResultField: String;

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

• Свойство property LookupKeyFields: String;

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

• Свойство property KeyFields: String;

определяет поле (или поля) из исходного набора данных, для которого создается поле синхронного просмотра.

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

Кроме этого, очень удобно использовать поля синхронного просмотра в компоненте TDBGrid. Если такое поле связать с одной из колонок компо нента, то для него автоматически заполняется список синхронного про смотра. Его элементы хранятся в свойстве pickList, которое имеется в лю бой колонке. Теперь пользователю достаточно выбрать нужную колонку в сетке и, щелкнув на появившейся в текущей ячейке кнопке, получить воз можные значения для замены. Одновременно с изменением поля синхрон ного просмотра изменяется и ключевое поле (свойство KeyFields) исходного набора данных.

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

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

Глава 13. Поля и типы данных Свойство property LookupCache: Boolean;

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

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

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

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

Специально для разработчиков в базовый класс TFieid включено свойство property Offset: Integer;

которое возвращает размер буфера в байтах.

Для создания поля синхронного просмотра удобнее всего воспользоваться Редактором полей компонента доступа к данным. После выбора команды New field из всплывающего меню в одноименном диалоге (см. рис. 13.3), помимо обычных действий, соответствующих созданию поля данных, необ ходимо задать значения свойств в группе Lookup definition. Элементы управ ления группы становятся доступны после выбора типа поля (радиокнопка Lookup в группе Field type). Группа Lookup definition включает следующие элементы:

• в списке Dataset представлены все доступные в модуле наборы данных, из которых нужно выбрать набор данных синхронного просмотра (свой ство Lookup DataSet);

• список Result Field позволяет выбрать поле синхронного просмотра (СВОЙСТВО L o o k u p R e s u l t F i e l d ) ;

• список Lookup Keys задает ключевое поле в наборе данных синхронного п р о с м о т р а (СВОЙСТВО LookupKeyFields);

• список Key Fields определяет ключевое поле исходного набора данных (СВОЙСТВО K e y F i e l d s ).

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

procedure TForml.TablelCalcFields(DataSet: TDataSet);

begin with Tablel do TablelCalcFieldl.Value := Fields[0].Value + Fields[1].Value;

with Queryl do begin Params[0].AsInteger : Tablel.Fields[0].Aslnteger;

= Open;

TablelCalcFieldl.Value := Fields[0].AsString;

Close;

end ;

end;

Метод OnCalcFieids выполняется при открытии набора данных, при переходе в режим редактирования, при передаче фокуса между компонентами отобра жения данных или колонок сетки, при удалении записи. Но для этого нужно, чтобы свойство AutoCaicFieids набора данных было равно значению True.

( Примечание Необходимо учитывать, что сложные вычисляемые поля могут существенно замедлить работу набора данных (особенно при использовании при этом за просов SQL). Кроме того, в процессе редактирования набора данных (при из менении значения поля, сохранении изменений и переходе на следующую запись) вычисляемые поля рассчитываются несколько раз подряд. Для умень шения числа автоматических обращений к методу OnCalcFieids нужно исполь зовать свойство AutoCaicFieids := False.

Для создания вычисляемого поля достаточно в диалоге создания нового по ля Редактора полей в качестве типа поля задать "вычисляемое", в остальном процесс совпадает с созданием поля данных.

В выражениях вычисляемых полей можно использовать другие вычис ляемые поля, но они обязательно должны быть определены в методе O n C a l c F i e i d s ДО ЭТОГО.

Вычисляемые поля нельзя использовать при фильтрации набора данных при помощи метода-обработчика onFilterRecord, т. к. он вызывается до ме тода-обработчика OnCalcFieids, а вычисляемые поля не сохраняются.

Глава 13. Поля и типы данных Внутренние вычисляемые поля Помимо простых вычисляемых полей существуют внутренние вычисляемые поля (FieidKind = fkinternaicaic). Они используются в клиентских наборах данных (компоненты TciientDataSet) и отличаются тем, что их значения сохраняются в наборе данных.

Внутренние вычисляемые поля могут быть использованы для фильтрации МетОДОМ-обрабоТЧИКОМ OnFilterRecord.

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

П AVG — вычисляет среднее значение;

— возвращает число записей;

П COUNT • MIN — вычисляет минимальное значение;

• МАХ — вычисляет максимальное значение;

• SUM — вычисляет сумму.

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

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

Агрегатные поля не отображаются вместе со всеми полями в компонентах TDBGrid, в Редакторе полей они расположены в отдельном списке, а их свойство index (см. выше) всегда имеет значение — 1. Для представления значения агрегатного поля можно воспользоваться одним из компонентов отображения данных, который визуализирует значение одного поля (напри мер, TDBText или TDBEdit), или свойствами самого поля:

LabelI.Caption := MyDataSetAGGRFIELDl.AsString;

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

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

Его свойство property Expression: string;

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

II Зак. 322 Часть III. Приложения баз данных В его состав могут входить агрегатные функции, имена полей набора дан ных и простейшие арифметические операции:

SUM(Pirce*ItemCount) - SUM(Balance) Вычисление значения проводится только для тех агрегатных полей, свойство property Active: Boolean;

которых имеет значение True.

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

По умолчанию экземпляр класса TAggregateFieid создается со свойством Visible = False.

Свойство property GroupingLevel: Integer;

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

Однако группировка по уровням выше нулевого возможна, только если в наборе данных используется индекс по группирующим полям. Например, если СВОЙСТВО GroupingLevel = 2 И набор даННЫХ начинаются С ПОЛеЙ CustNo и orderNo, в свойстве indexName компонента набора данных и свойстве property IndexName: String;

объекта агрегатного поля должно быть имя индекса, включающего оба эти поля.

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

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

В Delphi существуют четыре класса объектных полей. Это — TADTFieid, TArrayField, TDataSetField, TReferenceField. Их общим предком является Класс TObjectField. Классы TADTFieid, TArrayField обеспечивают доступ к набору дочерних полей одного типа из родительского. Эти типы полей Глава 13. Поля и типы данных можно использовать, если сервер БД поддерживает объектные типы и соот ветствующие поля имеются в наборе данных. Поэтому объектные поля можно создавать статически и динамически, так же, как и простые поля.

Для доступа к дочерним полям в этих классах имеются свойства:

• property Fields: TFields;

которое представляет собой индексированный список объектов дочерних полей (см. гл. 12);

П property FieldValues[Index: Integer]: Variant;

которое содержит значения дочерних полей;

П property FieldCount: Integer;

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

Классы TDataSetField И TReferenceField предоставляют доступ К данным ИЗ связанных наборов данных.

Ссылка на используемый набор данных задается свойством property DataSet: TDataSet;

Более Подробно классы TDataSetField И TReferenceField рассматриваются в части V.

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

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

Это, например, строки, символы, целые и вещественные числа и т. д.

Есть типы данных, которые реализованы далеко не на каждой платформе.

Есть, наконец, просто уникальные типы данных.

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

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

Без этого поля само понятие типа данных не имеет практического смысла.

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

Часть III. Приложения баз данных Примечание J В классе T F i e l d имеется свойство DataType, которое отвечает за тип данных, но оно не может быть изменено.

Весь список доступных типов данных содержится в типе TFileldType:

type TFieldType = (ftUnknown, ftString, ftSmallint, ftlnteger, ftWord, ftBoolean, ftFloat, ftCurrency, ftBCD, ftDate, ftTime, ftDateTime, ftBytes, ftVarBytes, ftAutoInc, ftBlob, ftMemo, ftGraphic, ftFmtMemo, ftParadoxOle, ftDBaseOle, ftTypedBinary, ftCursor, ftFixedChar, ftWideString, ftLargeint, ftADT, ftArray, ftReference, ftDataSet, ftOraBlob, ftOraClob, ftVariant, ftlnterface, ftlDispatch, ftGuid, ftTimeStamp, ftFMTBcd) ;

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

Таблица 13.1. Типы данных Класс Описание Тип Неизвестный Неопределенный тип данных (ftUnknown) TStringField Строковый Строка длиной до 8192 символов (ftString) 16-битное целое в диапазоне Целый короткий TSmalllntField от -32 768 до 32 (ftSmallint) Целый TIntegerField 32-битное целое в диапазоне (ftlnteger) от - 2 147 483 648 до 2 147 483 Целый положительный 16-битное целое в диапазоне TWordField (ftWord) от 0 до Логический Значения True и False TBooleanField (ftBoolean) Вещественный Вещественные положительные TFloatField и отрицательные числа с точностью (ftFloat) 15 цифр после запятой в диапазоне от 5,0 х 10" 3 2 4 до 1,7 х 10 3 0 TCurrencyField Денежный Вещественные положительные и отрицательные числа с точностью (ftCurrency) 15 цифр после запятой в диапазоне от 5, 0 x 1 0 ' 3 2 4 до 1,7x10 3 0 8.

Дополнительно вставляется символ валюты Глава 13. Поля и типы данных Таблица 13.1 (продолжение) Тип Класс Описание Десятичный с двоичным TBCDField Вещественные числа с повышенной кодированием точностью (до 4 знаков перед запя той и до 20 знаков после запятой).

(ftBCD) Могут храниться в двоичном и десятичном форматах Дата TDateField Дата (ftDate) Время TDateTimeField Время (ftTime) Календарный TDateTimeField Комбинированный формат с одно временным хранением даты и вре (ftDateTime) мени TBytesField Фиксированный буфер Набор байтов фиксированного размера. Для работы с этим типом (ftBytes) требуется выделять и освобождать память (методы GetMem И FreeMem) TVarBytesField Переменный буфер Набор байтов переменного размера. Текущий размер буфера (ftVarBytes) хранится в первых двух байтах.

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

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

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

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

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

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

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

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

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

Изображения должны храниться в формате BMP.

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

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

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

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

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

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

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

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

procedure TForml.TablelSomeFieldValidate(Sender: TFieid);

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

(Sender as TFieid).Value := Null;

end;

end;

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

!\(999\)000-0000;

1;

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

По способу создания объекты полей делятся на статические и динами ческие.

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

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

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

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

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

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

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

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

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

• диапазоны;

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

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

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

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

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

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

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

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

Field Link D sg e ei n r [Pr,mr na y M se F l s at r i d e Pgtail F l s id e OrderNo _*!

Zj SaleDate ShipDate ErnpNo :' ZJ ShipT oContact joined F l s id e Ca er l O K Hp el Cne acl Рис. 14.1. Редактор связей полей Глава 14. Механизмы управления данными Здесь в разворачивающемся списке Available Indexes выбирается требуемый индекс для подчиненной таблицы. После этого в списке Detail Fields появ ляются имена всех полей, входящих в этот индекс. В списке Master Fields отображаются все поля главной таблицы.

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

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

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

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

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

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

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

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

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

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

В наборе данных OrdTabie включен вторичный индекс на основе поля CustNo (IndexName = 'CustNo').

Часть III. Приложения баз данных 7 Demo Joins Cs o | Cmay * ut N o pn : Addfl Addr : 49 6 SugartoafHwy - 1 ;

KauaiDiveShoppe Suile ipi;

_Kaua • fflpol i :POBoxZ- ЩЩ^ та, :1 Neptune Lane ~3TSh De T 5 T gt v r ii ~~~ ;

POBox 15 Cy a Des W r U me 34 amn v r od n t d i l iil OrderNo|CustNo';

l':.|S:aleDate x •;

;

[SKpPate;

1221,01.07.1988 02.07. 1221! 16.12.1994 25.04.1989^ :

2 1 22 0. 9 2 14 8 1 24.08. 12r 1221 06 07.1994 06.07. liLJ:

P o e x r Dt :

i h n Et ie a He j 1Say ar l E p o f L sN m mN al a e iFirstNa Ia br me t ;

m Ki 2 0. 2 6.8 01 50;

H Рис. 14.2. Главная форма проекта DemoJoins Таким образом, две таблицы связаны отношением "один-ко-многим" по ин дексированным полям CustNo (номер покупателя). В результате, при пере мещении по записям таблицы покупателей, в таблице заказов будут показа ны только те заказы, которые относятся к текущему покупателю Отношение "многие-ко-многим" Отношение "многие-ко-многим" отличается тем, что подчиненная таблица еще раз связывается в качестве главной с другой подчиненной таблицей аналогичной последовательностью действий, как и в отношении "один-ко многим".

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

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

• свойство MasterSource указывает на компонент Empsource;

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

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

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

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

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

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

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

м и н и ii ii n 17 DemoFind ::J i ^"":: '..•< Л ::

-! vV^ ' ' •• ' •( "'.' : • • •-•. ••->^':," • • :•• ;

- •. :.• v "• I ' • •V '' • • •- : •?• :• ' :Перве nb/ie.nVtteKi;

a(Last_NameJ:i :: : : : l • ч: Второе поле индекса (First_Name): ;

й;

-:;

:''.=• •:-••.,.:<• •••••:, ;

\-.

CustNo)>••,: Last N m '-I1 •<•:,'CA^i'-ff.^.-A^i ч :''K:;

, '"\ IVIPiStatU^*, ae :

l F « s t _ N a m e - : ? " ;

= : ' :

iVIP :,;

1 • Ferguson • M a r i l y n rf=ij:rVQ4iiordano D o n a t e l l a SSi\ Cliifitinopolous i ii!

M a n i l l a iVIPExec :

4: Parker i G e o l f r i n a 5:;

Sawyer I VIP :: • T h o m a s L G Blue !VIP :••..;

U a c k M.

[VIP.".?.:• 7^DuDiver ^ M a d e l i n e \ ;

;

::.

8!O'Parr ;

R u t h •VIP Exec :

9;

DelgadoDeCabeza E n r i q u e iVIPExec lOiMarmot.-.

;

H e r b e r t A.

1iiCharstein iVIP ^ P e t e r & F r a n c o i s e J— - "• •.. •,;

."• •': •.••: •.,••••..• r '? L J •: •. • !!!'. • :• •.. ? " •••.",.• •• " Рис. 14.3. Главная форма проекта DemoFind 338 Часть III. Приложения баз данных I Листинг 14.1. Секция implementation главного модуля Main проекта DemoFind implementation {$R *.DFM} procedure TForml.FormShow(Sender: TObject);

begin try Cust.Open;

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

end;

end;

procedure TForml.FormClose(Sender: TObject;

var Action: TCloseAction);

begin Cust.Close ;

end;

procedure TForml.FindBtnClick(Sender: TObject);

begin try if not Cust.FindKey([Editl.Text, Edit2.Text]) then ShowMessage('Запись не найдена');

except on E: EDatabaseError do ShowMessage('Ошибка поиска');

end;

end;

end.

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

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

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

Fields[0].Value := '428';

GotoKey;

end;

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

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

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

function Locate(const KeyFields: string;

const KeyValues: Variant;

Options: TLocateOptions): Boolean;

function Lookup(const KeyFields: string;

const KeyValues: Variant;

const ResultFields: string): Variant;

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

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

Tablel.Locate('Last_Name;

First_Name', VarArrayOf(['Editl.Text', 'Edit2.Text']), []);

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

Tablel.Lookup('Last_Name;

First_Name', VarArrayOf(['Editl.Text', 'Edit2.Text']), 'Last_Name;

First_Name');

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

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

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

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

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

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

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

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

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

Статические фильтры создаются во время разработки приложения и могут ИСПОЛЬЗОВаТЬ к а к СВОЙСТВО F i l t e r, Так И МеТОД O n F i l t e r R e c o r d.

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

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

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

ItemCount=Balance A D InputPrice>OutputPrice N Глава 14. Механизмы управления данными При создании динамических фильтров можно изменять как выражение фильтра целиком, так и его части. Например, ограничивающее значение для поля можно задавать при помощи элементов управления формы, что позво ляет пользователю приложения управлять фильтрацией набора данных:

procedure TForml.EditlChange(Sender: TObject);

begin with Tablel do begin Filtered := False;

Filter := 'Fieldl>=' + TEdit(Sender).Text;

Filtered := True;

end;

end;

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

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

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

property FilterOptions: TFilterOptions;

TFilterOption = (foCaselnsensitive, foNoPartialCompare);

TFilterOptions = set of TFilterOption;

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

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

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

type TFilterRecordEvent = procedure(DataSet: TDataSet;

var Accept:

Boolean) of object;

property OnFiiterRecord: TFilterRecordEvent;

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

procedure TForml.TablelFilterRecord(DataSet: TDataSet;

var Accept: Boolean);

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

end;

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

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

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

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

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

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

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

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

var Bookmarkl, Bookmark2: TBookmark;

if Tablel.CompareBookmark(Bookmarkl, Bookmark2) = then ShowMessage (' Закладки одинаковы') ;

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

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

Глава 14. Механизмы управления данными #t DemoBookmark :i •••• :: | Capital Nmae •••'' ;

." ':, " (Continent "••••'•"••" • - 1* •Argentina B e o Aires uns ;

South America ;

..

Bolivia LaPaz i South America Brad Brasilia ! South America Cnd aaa Ottawa North America Chile - • »• -«ssa •— sssi.! South America li.

Clmi oo ba HI >THantiago -—Ыадо1а : South America Cbua :

'Havana Notth America Ecuadoi Quito iSouthAmerica.:.• El Salvador San Salvador •North America Gyn ua a :

Georgetown : South America Jamaica Kingston North America Mexico ;

Mexico City : North America * '\:V"2'? •• 4::•'"• •'• •'•" ( • ••':•.!" =-1• L-":':i:=-i'•:=:''i';

!•:I":-'"|' ' •• ;

^:.1^'-'"1 - ':[••••:"•'.•'[.] " " -:'= -- :" :

: ;

::

'-l: i • • •• ;

!

' 1j:.:^ *>[ ••:•• w..•[•:, Устан6еИт1> закладку Вернуться к закладке! i Рис. 14.4. Главная форма проекта DemoBookmark Листинг 14.2. Пример использования закладок implementation {$R *.DFM} var SaveRecPos: TBookMark;

procedure TMainForm.FormShow(Sender: TObject);

begin try Cust.Open;

BookmarkControl.Brush.Color := clBtnFace;

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

end;

end;

procedure TMainForm.FormClose(Sender: TObject;

var Action: TCloseAction);

begin Cust.Close;

end;

procedure TMainForm.StartBookmarkClick(Sender: TObject);

begin if Not Cust.BookmarkValid(SaveRecPos) then SaveRecPos := Cust.GetBookmark;

344 Часть III. Приложения баз данных BookmarkControl.Brush.Color := clLime end;

procedure TMainForm.StopBookmarkClick(Sender: TObject);

begin with Cust do begin if Not BookmarkValid(SaveRecPos) then Exit;

GotoBookmark(SaveRecPos);

FreeBookinark(SaveRecPos) ;

SaveRecPos := Nil;

end;

BookmarkControl.Brush.Color := clBtnFace;

end;

end.

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

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

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

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

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

( Примечание ^ Все методы работы с диапазонами используют те поля, которые заданы в те кущем индексе. Для таблиц Paradox и dBASE это свойство indexName. Для таб лиц серверов SQL это свойство indexFieldNames.

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

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

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

with Tablel do begin SetRangeStart;

Fields[0].Value := '439';

SetRangeEnd;

Fields[1].Value := '522';

AppiyRange;

end;

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

with Tablel do begin EditRangeStart ;

Fields[0].Value := '500';

EditRangeEnd;

Fields[1].Value := '522';

AppiyRange;

end;

Отмена диапазона осуществляется методом canceiRange.

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

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

with Tablel do begin SetRange(['500'], ['522']);

AppiyRange;

end;

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

Поле задается свойством DataFieid.

Компоненты TDBGrid и TDBCtriGrid обеспечивают просмотр наборов данных целиком или в произвольном сочетании полей. В них присутствует только СВОЙСТВО DataSource.

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

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

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

Для просмотра (без редактирования) изображений предназначен компонент TDBImage.

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

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

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

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

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

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

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

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

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

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

Компонент TDBGrid является ПОТОМКОМ Классов TDBCustomGrid И TCustomGrid.

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

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

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

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

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

17 Editing DBGridl.Colunins 0 • Nm ae 1 - C pt l a ia 2 - C nn n otet i 3Ae - ra Рис. 15.2. Редактор колонок компонента TDBGrid При ПОМОЩИ метода DefaultDrawColumnCell И метода-обработчика OnDraw CoiumnCeii можно управлять процессом отображения данных в ячейках.

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

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

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

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

procedure TForml.DBGridlEditButtonClick(Sender: TObject);

begin if DBGridl.Selectedlndex = 2 then SomeForm.ShowModal;

end;

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

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

Содержит коллекцию объектов TColurm, TDBGridColumns;

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

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

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

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

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

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

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

dgCancelOnExit, | • dglndicator — в начале строки виден dgMultiSelect);

| номер текущей колонки;

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

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

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

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

dgTabs — для перемещения по строкам можно использовать клавиши <ТаЬ> и +;

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

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

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

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

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

TField;

Ри Содержит номер текущей колонки property Selectedlndex:

в массиве свойства Columns Integer;

Ro Набор закладок на записи набора property SelectedRows:

данных, соответствующих выделенным TBookmarkList;

строкам сетки Шрифт заголовков колонок property TitleFont: TFont;

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

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

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

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

Integer;

Column: TColumn;

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

I ячейки после перерисовки. Параметр | Column содержит экземпляр класса ко | лонки, которой принадлежит ячейка procedure Pu | Перерисовывает текст в ячейке колонки, DefaultDrawDataCell(const определяемой параметром F i e l d, со Rect: TRect;

Field: TField;

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

поля. Ячейка задается прямоугольником Rect на канве сетки. Параметр State определяет состояние ячейки после пе рерисовки procedure DefaultHandler(var Pu Вызывает всплывающее меню для ко Msg);

override;

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

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

Глава 15. Компоненты отображения данных Таблица 15.2 (продолжение) \ Тип I Описание Объявление i 1 Открывает набор данных, связанный с procedure Pu передаваемой параметром Column ко ShowPopupEditor(Column:

лонкой в новом окне. Работает только TColumn;

X: Integer = для типов данных абстрактный и набор данных. Параметры X и Y определяют Low(Integer);

Y: Integer = положение нового окна Low (Integer) );

dynamic Возвращает значение True, если колон Pu function ка с номером Fieldlndex связана с по ValidFieldlndex(Fieldlndex:

лем набора данных Integer): Boolean;

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

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

end;

function MouseCoord(X, Y:

Integer): TGridCoord;

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

property OnCellClick:

TDBGridClickEvent;

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

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

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

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

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

старого положения колонки. Параметр Tolndex возвращает номер нового по property OnColumnMoved:

ложения колонки TMovedEvent;

type Вызывается при перерисовке ячейки.

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

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

const Rect: TRect;

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

Column: TColumn;

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

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

лонки.

property OnDrawColumnCell:

Параметр s t a t e возвращает состояние TDrawColumnCellEvent;

колонки !2 Зак Часть III. Приложения баз дан Таблица 15.2 (окончание) Тип Описание Объявление Вызывается при перерисовке ячейки Pb type перед обработчиком OnDrawColumnCell, TDrawDataCellEvent = procedure (Sender: TObject;

е с л и СВОЙСТВО C o l u m n s. S t a t e = const Rect: TRect;

Field: csDefault.

TField;

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

используется только для обеспечения property OnDrawDataCell: обратной совместимости с ранними вер сиями TDrawDataCellEvent;

property OnEditButtonClick: Вызывается при щелчке мышью Pb TNotifyEvent;

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

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

TDBGridClickEvent;

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

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

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

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

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

Глава 15. Компоненты отображения данных Ц Д Д Щ - i n ) x| 1 "hfotml Capital' •• • ":" • : |Continent^ -" ' •|A,ea Population | Buenos Aires i South America ! 2777815 3 3 0 : South America LaPaz " j 1098575 ' 7300000' Brasilia I South America "' ;

8511196 1 0 0 0 5400;

1 North America Ottawa 997S147 2 5 0 0 ;

6000 ;

i South America Santiago i 756943 1 2 0 0 ;

3000 ' ;

South America Bagota '_' ;

1138907 3 0 0 0 : ::

3000 :

\ North America Havana ' "' " 114524 10600000' • :

;

F Quito South America! "I 455502 юбооооо:

San Salvador |NorthArrie;

ica ^ ^ ^ J 20865 5300000:

шшшш •XUTWTC 1 " J IT TT t J ' Georgetown 800000:

2 4 6 ;

2500000;

13Э Kingston North America ' Mexico City [North America ;

1967180 Managua North America ;

139000 ' 3900000:

:

Asuncion South America i 406576 : 466oooo: ^j III Рис. 15.3. Список колонки в компоненте TDBGrid Таблица 15.3. Свойства и методы класса TColumn Тип Описание Объявление Свойства Pb | Определяет выравнивание данных property Alignment: TAlignment;

в колонке Ro Возвращает набор атрибутов type колонки, которые были изменены TColuranValue = (cvColor, по сравнению с первоначальными cvWidth, cvFont, cvAlignment, cvReadOnly, cvTitleColor, cvTitleCaption, cvTitleAlignment, cvTitleFont, cvImeMode, cvImeName);

TColumnValues = set of TColumnValue;

property AssignedValues:

TColumnValues;

type TColumnButtonStyle = Pb Задает способ редактирования (cbsAuto, cbsEllipsis, данных в колонке:

cbsNone);

• c b s A u t o — кнопка в редактируе property ButtonStyle: мой ячейке появляется, если TColumnButtonStyle;

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

• c b s E l l i p s i s — кнопка в редакти руемой ячейке появляется всегда, щелчок на кнопке вызывает обработчик O n E d i t B u t t o n C l i c k ;

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

j Pb | Название колонки в списке property DisplayName: s t r i n g ;

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

В значении True разрешает показ property Expandable: Boolean;

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

Pb поле отображается в новой колонке.

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

Pb с колонкой Шрифт данных в колонке Pb property Font: TFont;

Определяет сетку, содержащую Ro property Grid: TCustomDBGrid;

эту колонку Определяет колонку-владельца property ParentColumn: TColumn;

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

РЬ список, используемый при редакти ровании данных property PopupMenu: TPopupMenu;

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

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

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

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

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

override;

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

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

фоновый цвет колонки function DefaultFont: TFont;

Возвращает первоначальный шрифт Pu данных в колонке type TImeMode = (imDisable, Возвращает первоначальный способ Pu imClose, imOpen, imDontCare, ввода символов imSAlpha, imAlpha, imHira, imSKata, imKata, imChinese, imSHanguel, imHanguel);

function DefaultlmeMode:

TImeMode;

type TImeName = type string;

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

TImeName;

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

редактирования данных function DefaultWidth: Integer;

Возвращает первоначальную ширину Pu колонки в пикселах function Depth: Integer;

Возвращает число непосредственных Pu предков колонки procedure RestoreDefaults;

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

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

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

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

Свойство state определяет способ создания колонок. Его значение устанав ливается автоматически. При создании колонок для всех полей сразу (кноп ка Add All Fields Редактора столбцов) устанавливается значение csDefauit.

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

Все данные из существующих колонок можно сохранить в файле или пото ке при помощи методов SaveToFiie и SaveToStream, а затем загрузить их об ратно методами LoadFromFile И LoadFromStream.

Таблица 15.4. Свойства и методы класса TDBGridCoiumns I Тип Описание Объявление Свойства Возвращает ссылку на сетку, владею property Grid: TCustomDBGrid;

| Ro щую данным объектом Индексный список объектов колонок property Items[Index: Pu сетки:

Integer]: TColumn default;

Определяет способ создания колонок type TDBGridCoiumnsState = i Pu сетки:

(csDefault, csCustomized) property State: • csDefault — колонки создаются TDBGridColumnsState;

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

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

Методы Pu | Добавляет новый объект TColumn function Add: TColumn;

procedure LoadFromFile(const I Pu i Загружает данные в объект из файла Filename: string);

I FileName procedure LoadFromStream(S: Загружает данные в объект из потока s I Pu TStream);

| Удаляет существующие колонки и соз procedure RebuildColumns;

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

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

FileName Pu | Сохраняет данные из колонок в потоке s procedure SaveToStream(S:

TStream);

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

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

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

После того, как для компонента TDBCtrlGrid задано значение свойства DataSource, все переносимые на панель компоненты отображения данных автоматически связываются с указанным компонентом TdataSource (табл. 15.5).

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

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

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

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

Размеры одной панели определяются свойствами PaneiHeight и Paneiwidth.

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

Не рекомендуется размещать на панели компоненты T B e o и TDBimage, D Mm т. к. это может привести к значительному снижению производительности.

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

| текущей записи Boolean;

Pb I Разрешает или запрещает вставку новой property Allowlnsert:

| записи Boolean;

Ro | Канва компонента property Canvas: TCanvas;

I property ColCount: Integer;

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

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

TDBCtrlGridOrientation;

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

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

TDBCtrlGridBorder;

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

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

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

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

property RowCount: Integer;

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

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

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

(gkNull, gkEditMode, gkPriorTab, gkNextTab, Доступны операции навигации по запи gkLeft, gkRight, gkUp, сям, перевода в режим редактирования, gkDown, gkScrollUp, вставки, удаления записей, отмены gkScrollDown, gkPageUp, изменений gkPageDown, gkHome, gkEnd, g k l n s e r t, gkAppend, gkDelete, gkCancel);

procedure DoKey(Key:

TDBCtrlGridKey);

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

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

Shift: TShiftState);

override;

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

type TPaintPanelEvent = Параметр Index соответствует индексу procedure(DBCtrlGrid:

панели TDBCtrlGrid;

Index:

Integer) of object;

property OnPaintPanel:

TPaintPanelEvent;

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

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

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

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

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

Добавить запись. / Записать изменения I j Отменить изменения Следующая запись \ \ Предыдущая запись \ \ \ / / / Обновить данные •' - I - -. '. ••••:•• ••- !-•' ' •• • х Первая запись / \ Режим редактирования Последняя запись Удалить запись Рис. 15.4. Назначение кнопок компонента T D B N a v i g a t o r Компонент TDBNavigator содержит набор кнопок, каждая из которых отве чает за выполнение одной операции над набором данных. Всего имеется 10 кнопок, разработчик может оставить в наборе любое количество кнопок в любом сочетании. Видимостью кнопок управляет свойство visibieButtons:

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

TButtonSet = set of TNavigateBtn;

property VisibieButtons: TButtonSet;

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

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

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

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

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

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

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

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

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

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

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

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



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

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