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

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

Описанный выше способ, заключающийся в использовании для ввода и

отображения данных компонентов (в этом примере — Edit), не связанных

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

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

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

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

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

состояниями базы данных.

Помимо AsString имеются еще аналогичные свойства Aslnteger, AsFloat,

AsBoolean, AsDateTime. Свойство Aslnteger осуществляет преобразования между

типом данного поля и целым 32-битным числом, свойство AsFloat делает то же

самое для действительных чисел с плавающей запятой, свойство As-Boolean — для

булевых значений, свойство AsDateTime — для значений дат и времени в принятом

в Delphi формате TDateTime.

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

можете это узнать из свойства объекта поля DataType, которое может принимать

значения: ftUnknown (неизвестное), ftAu-tolnc (автоматически нарастающее),

ftString (строка) и т.д.

7.2. ВЫЧИСЛЯЕМЫЕ ПОЛЯ

Теперь попробуем сформировать в таблице новое поле, не предусмотренное

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

полей записи. Подобные поля называются вычисляемыми полями (calculated

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

сотрудника по его году рождения. Сделайте двойной щелчок на Table1, чтобы

вызвать Редактор Полей. Щелкните в Редакторе Полей правой кнопкой мыши и во

всплывшем меню выберите раздел New (новое поле). Появится окно добавления

нового поля, приведенное на рис.

В разделе Field properties (свойства поля) вы должны указать имя поля (Name)

— в нашем случае назовем это поле Age, тип данных (Туре) — в нашем случае это

Smallint, и для некоторых типов — размер (Size). Размер указывается для строк и

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

После ввода всех данных проверьте, переключилась ли группа радиокнопок

Field type на Calculated (это переключение делается автоматически). Затем щелкните

на ОК и вы вернетесь в окно Редактора Полей, причем там появится новое поле Age.

Задайте для него в Инспекторе Объектов значение DisplayLa-bel равным

«Возраст».

Вы ввели вычисляемое поле Age, но еще не указали программе, как его надо

вычислять. Чтобы указать процедуру вычислений, выйдите из Редактора Полей,

выделите Tablel, перейдите в Инспекторе Объектов на страницу событий и

щелкните на событии OnCalcFields. Это событие наступает каждый раз, как надо

обновить значение вычисляемых полей таблицы.

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

события написать оператор:

TableiAge.Value := 1999 — TablelYear_b.Value;

В этом операторе TableiAge.Value и TablelYear_b.Value — значения полей Age

и Year_b соответственно. Правда, этот оператор рассчитан только на работу в 1999

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

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

обработчик:

procedure TForml.TablelCalcFields(DataSet: TDataSet) ;

var Year, Month, Day: Word;

begin

DecodeDate(Date,Year,Month,Day);

TableiAge.Value := Year - TablelYear_b.Value;

end;

В этом коде введены переменные Year, Month и Day для хранения текущего

года, месяца и дня. Использована процедура DecodeDate для преобразования своего

первого аргумента, имеющего тип TDate-Time (этот тип используется в Delphi для

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

аргумента этой процедуры указана функция Date, возвращающая текущую дату. В

результате переменная Year становится равной текущему году (переменные Month и

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

процедуре DecodeDate).

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

Таким образом, приведенный выше обработчик события BeforePost позволяет

предотвратить непроизвольное или ошибочное изменение данных. Конечно, в

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

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

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

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

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

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

сохранение, эти данные переносятся в таблицу. Но для выполнения подобных

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

посмотрим, как это можно делать.

7.3. СВОЙСТВА ПОЛЕЙ

Наше приложение выглядит, конечно, очень плохо. Во-первых,

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

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

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

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

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

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

«мужской», «женский».

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

на форме компонент Tablel. В Инспекторе Объектов вы увидите среди прочих

свойства IndexName и IndexFieldName. Первое из них содержит выпадающий

список индексов, созданных для вашей таблицы. Выберите, например, индекс fio, и

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

индекс включены поля Fam, Nam и Par. При индексе depfio упорядочивание будет

по подразделениям, а внутри каждого подразделения — по алфавиту.

Альтернативный вариант индексации предоставляет свойство IndexFieldName. В

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

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

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

Редактор Полей. Вызвать его проще всего двойным щелчком на компоненте Tablel.

Сначала вы увидите пустое поле этого редактора. Щелкните на нем правой кнопкой

мыши и из всплывающего меню выберите раздел Add fields... (добавить поля).

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

держать нажатой клавишу Ctrl, то может выделить любую комбинацию полей.

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

дальнейшем обращаться. Так что в данном случае вам имеет смысл выделить все

поля, кроме Charact, Photo и, может быть, Num. Выделив поля, щелкните на О К и

вы вернетесь к основному окну Редактору Полей, но в нем уже будет содержаться

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

Эти поля будут соответствовать колонкам таблицы. Изменить

последовательность их расположения можно, перетащив мышью идентификатор

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

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

Выделите в списке какое-то поле и посмотрите его свойства в Инспекторе

Объектов. Вы увидите, что каждое поле — это объект, причем его класс зависит от

типа поля: TStringField, TSmallintField, TBooleanField и т.п. Все эти классы

являются производными от TField — базового класса полей. Таким образом ка ждое

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

них, которые чаще всего необходимо задавать.

Свойство Alignment определяет выравнивание отображаемого текста внутри

колонки таблицы: влево, вправо или по центру.

Свойство DisplayLabel соответствует заголовку столбца данного поля.

Например, для поля Fam значение DisplayLabel можно задать равным «Фамилия»,

для Nam — «Имя» и т.д.

Свойство DisplayWidth определяет ширину колонки — число символов.

Свойства EditMask для строк и EditFormat для чисел определяют форматы

отображения данных.

Для логических полей (в нашем примере для поля Sex) очень важным

свойством является Display-Values. Это свойство определяет, какие значения

должны отображаться, если поле имеет значение true или false. Отображаемые

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

соответствующее true. Например: «м;ж» или «мужской;женский».

Свойство ReadOnly, установленное в true, запрещает пользователю вводить в

данное поле значения. Свойство Visible определяет, будет ли видно пользователю

соответствующее поле. В нашем примере, вероятно, можно задать Visible = false для

поля Num., если вы его не исключили из списка полей Tablel.

Отметим еще одну особенность Редактора Полей, введенную начиная с

Delphi2, — возможность перетаскивать из него поля на форму с помощью мыши.

Захватите какое-нибудь поле, например, Fam, и перетащите его на форму. На форме

появится связанный с этим полем компонент типа TDBEdit и метка, содержащая его

свойство DisplayLabel. При переносе на форму булевского поля Sex на ней появится

связанный с этим полем индикатор — компонент типа TDBCheckBox. При

перетаскивании полей Cha-ract и Photo появятся соответственно связанные с этими

полями компоненты типов TDBMemo и TDBI-mage. И во всех этих компонентах,

если вы переключите свойство Active компонента TTable в true, сразу отобразятся

соответствующие данные из таблицы.

7.4. ОГРАНИЧЕНИЯ ВВОДИМЫХ ЗНАЧЕНИЙ

Ранее мы обсуждали вопрос об ограничении диапазона возможных значений

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

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

что в таблице устанавливаются обычно достаточно широкие пределы, пригодные

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

узкие пределы.

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

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

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

MinValue и Max Value, устанавливающие допустимые пределы вводимых в поле

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

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

MinValue = 1970 и MaxValue = 1980, При нарушении этих пределов будет

генерироваться исключение EDatabaseError.

Другая возможность ограничения — использование свойств

CustomConstraint и ConstraintError-Message. Свойство CustomConstraint

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

10.1). Например, для того же поля Year_b вы можете написать в свойстве

CustomConst-raint:

X < 1980 and X > 1970

Имя поля (в данном выражении оно обозначено как X) может быть

произвольным.

Если вы задали свойство CustomConstraint, то необходимо задать и свойство

Constrain tErrorMessage. Оно содержит строку текста, который будет показан

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

ограничениям. Например, «Возраст претендента на должность не подходит». Таким

образом, этот вариант обычно удобнее задания MinValue и MaxValue, поскольку не

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

числовым полям.

Еще одна возможность проверять данные на уровне поля — использовать

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

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

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

сообщение и, например, сгенерировать исключение EAbort функцией Abort. Если

все нормально, то после события OnValidate возникает еще событие OnChange, в

обработчике которого тоже еще не поздно сгенерировать исключение.

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

Имеется также возможность осуществлять проверку на уровне записи, анализируя

различные ее поля. Для этого служит свойство Constraints компонента Table.

Нажмите кнопку в этом свойстве, и перед вами откроется окно, представленное на

рис. 9.29. Щелкая в нем на кнопке Add вы можете занести в свойство Constraints

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

Выделив одно из ограничений, вы увидите в Инспекторе Объектов его свойства.

Свойство CustomConstraint представляет собой строку SQL, определяющую

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

будет предъявлена пользователю в случае нарушения ограничений. Например, вы

можете написать в свойстве CustomConstraint :

((Sex=true) and (Year_b >1955)) or ((Sex=false) and

(Year_b>1965))

а в свойстве ErrorMessage: "Принимаем только мужчин >1955 г.р. и

женщин>1965 г.р." Это обеспечит вам различные границы отбора по возрасту для

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

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

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

8. МЕТОДЫ ПОИСКА И СОРТИРОВКА ДАННЫХ

8.1. ИСПОЛЬЗОВАНИЕ SETKEY ДЛЯ ПОИСКА В ТАБЛИЦЕ

Для того, чтобы найти некоторую величину в таблице, программист на Delphi

может использовать две процедуры SetKey и GotoKey. Обе эти процедуры

предполагают, что поле по которому Вы ищете индексировано. Delphi

поставляется с демонстрационной программой SEARCH, которая показывает, как

использовать эти запросы.

Чтобы создать программу SEARCH (рис. 26), поместите TTable, TDataSource,

TDBGrid, TButton, TLabel и TEdit на форму, и расположите их как показано на рис.6.

Назовите кнопку Search, и затем соедините компоненты БД так, чтобы Вы видели в

DBGrid1 таблицу Customer.

Рис. 26 - Программа SEARCH позволяет Вам ввести номер заказчика и затем найти его по

нажатию кнопки

Вся функциональность программы SEARCH скрыта в единственном методе,

который присоединен к кнопке Search. Эта функция считывает строку, введенную в

окно редактора, и ищет ее в колонке CustNo, и наконец помещает фокус на

найденной записи. В простейшем варианте, код присоединенный к кнопке Search

выглядит так:

procedure TSearchDemo.SearchClick(Sender: TObject);

begin

Table1.SetKey;

Table1.FieldByName(’CustNo’).AsString := Edit1.Text;

Table1.GotoKey;

end;

Первый вызов в этой процедуре установит Table1 в режим поиска. Delphi

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

Fields используется по другому в этом режиме. Далее, нужно присвоить свойству

Fields значение, которое Вы хотите найти. Для фактического выполнения поиска

нужно просто вызывать Table1.GotoKey.

Если Вы ищете не по первичному индексу файла, тогда Вы должны

определить имя индекса, который Вы используете в свойстве IndexName. Например,

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

установить свойство IndexName равным имени индекса. Когда Вы будете искать по

этому полю, Вы должны написать:

Table1.IndexName := ’CityIndex’;

Table1.Active := True;

Table1.SetKey;

Table1.FieldByName(’City’).AsString := Edit1.Text;

Table1.GotoKey;

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

индекс (св-во IndexName). Кроме того, Вы должны обратить внимание, что

IndexName - это свойство TTable, и не присутствует в других прямых потомках

TDataSet или TDBDataSet.

Когда Вы ищете некоторое значение в БД, всегда существует вероятность

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

вызывать exception, но если Вы хотите обработать ошибку сами, то могли бы

написать примерно такой код:

procedure TSearchDemo.SearchClick(Sender: TObject);

begin

Cust.SetKey;

Cust.FieldByName('CustNo').AsString:= CustNoEdit.Text;

if not Cust.GotoKey then

raise Exception.CreateFmt('Cannot find CustNo %g', [CustNo]);

end;

В коде, показанном выше, либо неверное присвоение номера, либо неудача

поиска автоматически приведут к сообщению об ошибке ‘Cannot find CustNo %g’.

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

для этого следует вместо GotoKey пользоваться методом GotoNearest.

8.2. ПОИСК БЛИЖАЙШЕГО СООТВЕТСТВИЯ

Подобным же образом метод FindNearest() или пару методов SetKey ().

.GotoNearestf) можно использовать для поиска в таблице значения, которое наиболее

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

первого индексированного поля наиболее близко (больше или равно) 123,

используйте следующий код:

Tablel.FindNearest([123]);

И опять-таки, в качестве параметра методу FindNearest() передается массив

типа array of const, содержащий значения полей, по которым требуется выполнить

поиск.

Методы SetKey (). .GotoNearest() можно использовать для поиска следующим

образом:

with Tablel do begin

SetKey;

Fields[O].AsInteger := 123;

GotoNearest; end;

Если поиск завершится успешно и свойство KeyExclusive объекта таблицы

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

записей соответствующих критерию поиска. Если свойство KeyExclusive имеет

значение True, текущей записью будет сделана запись, следующая за последней из

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

Если поиск выполняется по проиндексированному полю таблицы,

предпочтительнее использовать методы FindKey() и FindNearest(), а не SetKey(),

GotoX() — это уменьшит объем программы и, следовательно, количество

возможных ошибок.

8.3. ОБНОВЛЕНИЕ (REFRESH)

Как Вы уже знаете, любая таблица, которую Вы открываете всегда

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

меняющуюся, чем как статическую сущность. Даже если Вы - единственное лицо,

использующее данную TTable, и даже если Вы не работаете в сети, всегда

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

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

знать, необходимо ли Вам обновить вид таблицы на экране.

Функция Refresh связана с функцией Open, в том смысле что она считывает

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

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

БД. Аналогично, когда Вы Регенерируете таблицу, Delphi считывает данные

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

перепрочитать таблицу, если Вы думаете что она могла измениться. Быстрее и

эффективнее, вызывать Refresh, чем вызывать Close и затем Open.

Имейте ввиду, однако, что обновление TTable может иногда привести к

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

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

вызван Refresh. Аналогично, если некий другой пользователь редактировал данные,

то вызов Refresh приведет к динамическому изменению данных. Конечно

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

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

8.4. ЗАКЛАДКИ (BOOKMARKS)

Часто бывает полезно отметить текущее местоположение в таблице так, чтобы

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

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

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

function GetBookmark: TBookmark;

(устанавливает закладку в таблице)

procedure GotoBookmark(Bookmark: TBookmark);

(переходит на закладку)

procedure FreeBookmark(Bookmark: TBookmark);

(освобождает память)

Как Вы можете видеть, вызов GetBookmark возвращает переменную типа

TBookmark. TBookmark содержит достаточное количество информации, чтобы

Delphi мог найти местоположение к которому относится этот TBookmark. Поэтому

Вы можете просто передавать этот TBookmark функции GotoBookmark, и будете

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

Обратите внимание, что вызов GetBookmark распределяет память для

TBookmark, так что Вы должны вызывать FreeBookmark до окончания вашей

программы, и перед каждой попыткой повторного использования Tbookmark (в

GetBookMark).

Пример использования закладок

Рассмотрим небольшой пример, где право управлять закладками

предоставлено пользователю. На форме, помимо других элементов управления

(среди которых есть компонент TDBGrid), имеется две кнопки. Кнопка

StartBookmark помечает текущую запись, кнопка StopBookmark переходит к

закладке, а затем уничтожает ее.

var SaveRecPos: TBookmark;

procedure TFormI.FormShow(Sender: TObject);

begin

try Tablel.Open;

BookmarkControl.Brush.Color := clBtnFace;

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

end;

procedure TFormI.FormClose(Sender: TObjeCt; var Action:

TCloseAction) ;

begin

try

finally Tablel.Open;

end;

procedure TForml.StartBookmarkClick(Sender: TObject);

begin

if Not Tablel.BookmarkValid(SaveRecPos)

then SaveRecPos := Tablel.GetBookmark;

BookmarkControl.Brush.Color := cILime

end;

procedure TForml.StopBookmarkClick(Sender: TObject);

begin

with Tablel do

begin

if Not BookinarkValid( SaveRecPos) then Exit;

GotoBookmark(SaveRecPos);

FreeBookmark(SaveRecPos);

end;

BookmarkControl.Brush.Color := clBtnFace;

end;

Использование метода Bookmarkvalid позволяет корректно переопределять

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

нажатиях кнопок. Компонент BookmarkControl типа TShape сигнализирует о том,

что закладка установлена или удалена.

Закладки также используются в компоненте TDBGrid. Он имеет свойство

SelectedRows типа TBookmarkList, которое представляет собой список закладок,

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

9. ФИЛЬТРАЦИЯ НАБОРОВ ДАННЫХ

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

удовлетворяющих некоторым заданным условиям. В Delphi имеются встроенные

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

9.1. ФИЛЬТРАЦИЯ C ПОМОЩЬЮ СОБЫТИЯ ONFILTERRECORD

Проще всего фильтрацию в Delphi осуществить следующим образом:

OnFilterRecord – событие набора данных (TDataSet), срабатывает для каждой

записи в таблице ставшей активной, если ее свойство Filtered равно True. В этом

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

будет отфильтрована, если значение параметра Accept будет равно True. DataSet

здесь – таблица, возбудившая событие.

Filtered: Boolean – определяет, будет ли отображаться вся таблица (значение

False) или только удовлетворяющая фильтрам часть (True).

Например, если нам потребуется отобрать все записи в таблице country.db, у

которых значение поля CONTINENT равно South America, то процедура фильтрации

будет выглядеть следующим образом:

procedure TForm1.Table1FilterRecord(DataSet: TDataSet; var

Accept: Boolean);

begin

Accept:=(DataSet['Continent']='South America');

end;

Или так:

procedure TForm1.Table1FilterRecord(DataSet: TDataSet; var

Accept: Boolean);

begin

if DataSet.FieldByName('Continent').AsString='South America' then

Accept:=True else Accept:=False;

end;

9.2. ФИЛЬТРАЦИЯ С ИСПОЛЬЗОВАНИЕМ СВОЙСТВА FILTER

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

соответствующей таблицы БД, а для задания отношений прится все операторы

сравнения (>, >=, <, <=, =, <>) и логические операторы (AND, OR, NOT).

Например, чтобы отфильтровать данные согласно предыдущему примеру,

необходимо свойству Filter присвоить следующее выражение: