Иптышев А.А. Курс лекций по дисциплине базы данных

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

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

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

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

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

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

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

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

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

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

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

для поля Sex вы не задавали значений DisplayValues, то в окне редактирова-

ния ESex будут отображены

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

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

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

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

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

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

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

Tablel.Edit;

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

lel.FieldByName('Year_b').AsString:=EYear.text; Tab-

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

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

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

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

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

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

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

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

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

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

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

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

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

ных. При этом вы в процессе редактирования и проверки не связаны ни с ка-

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

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

Float, AsBoolean, AsDateTime. Свойство Aslnteger осуществляет преобразо-

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

Float делает то же самое для действительных чисел с плавающей запятой,

свойство 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,

При нарушении этих пределов будет генерироваться исключение EDataba-

seError.

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

Constraint и 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, определяющую допустимые значения. Свойство Er-

rorMessage определяет строку текста, которая будет предъявлена пользова-

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

свойстве 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', [Cust-

No]);

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(), а не