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

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

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 присвоить следующее выражение:

Continent=‘South America’

После чего выставить свойство Filtered у Table1 в True.

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

фильтра целиком, так и его части. Например, ограничивающее значение для

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

ляет пользователю приложения управлять фильтрацией набора данных. Пе-

ред изменением текста динамического фильтра или для отключения фильтра

свойству Filtered присваивается значение False, а как только его изменить на

True, фильтр начнет работать:

procedure TForm1.Button1Click(Sender: TObject);

begin

Tablel.Filtered:= False;

Tablel.Filter := ‘Continent=’+Edit1.Text;

Tablel.Filtered := True;

end;

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

полей, для этого используется символ звездочки (*). Следущий пример оста-

вит все записи стран, названия которых начинаются на ‘S’:

Country=‘S*’

9.3 Фильтрация по диапазону

Процедура ApplyRange позволяет установить фильтр, который ограни-

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

значения в поле EmpNo имеют диапазон от 2 до 500. Если необходимо оста-

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

200, то можно использовать метод ApplyRange, и еще два связанных с ним

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

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

фильтров по диапазону:

- SetRangeStart;

- SetRangeEnd;

-ApplyRange;

-CancelRange;

Кроме того, у TTable есть дополнительные методы для управления

фильтрами:

-EditRangeStart;

-EditRangeEnd;

-SetRange;

Алгоритм работы с этими процедурами следующий:

1. Сначала вызвается SetRangeStart и используя свойство Fields опреде-

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

2. Затем вызвав SetRangeEnd и вновь использовав свойство Fields опре-

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

3. Первые два шага подготавливают фильтр, и теперь все что необхо-

димо, это вызвать ApplyRange, и новый фильтр вступит в силу.

4. Когда нужно прекратить действие фильтра – вызывается

CancelRange.

Вот пример демонстрирующий указанный порядок действий:

Table1.SetRangeStart;

Table1.Fields[0].Value := ‘100’;

Table1.SetRangeEnd;

Table1.Fields[0].Value := ‘200’;

Table1.ApplyRange;

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

можно использовать метод SetRange:

Table1.SetRange([‘100’], [‘200’]);

Table1.ApplyRange;

Тем, какая граница будет у диапазона – открытая или закрытая, управ-

ляет свойство KeyExclusive. Если оно имеет значение True, граничные значе-

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

ются в заданный диапазон.

9.4 Сравнение способов фильтрации

При использовании фильтра его текст транслируется в синтаксис SQL

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

в локальную СУБД. Поэтому, при работе с большими базами данных фильт-

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

OnFilterRecord. Однако, при работе с небольшими таблицами, падение быст-

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

события OnFilterRecord даст большую гибкость и более полный контроль над

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

сов на фильтрацию методом OnFilterRecord намного более трудоёмко, так как

для этого требуется переназначать это событие, что в большинстве случаев

неудобно.

2. РАЗДЕЛ 2 SQL-ЯЗЫК ДОСТУПА И УПРАВЛЕНИЯ ДАН-

НЫМИ

Тема 10 Язык SQL: возможности, применение, основные

принципы построения

10.1 SQL-запросы в Delphi

10.1.1 Компонент TQuery

Компоненты TQuery так же, как и TTable наследуется от TDataset.

TDataset обеспечивает необходимую функциональность для получения дос-

тупа к базам данных (свойства DatabaseName, SessionName и пр.). При ис-

пользовании TTable, возможен доступ лишь ко всему набору записей из од-

ной таблицы, TQuery же позволяет произвольным образом выбрать набор

данных для работы с ним. Во многом, методика работы с объектом TQuery

похожа на методику работы с TTable, однако есть свои особенности.

10.1.2 Свойство SQL

Свойство SQL принадлежит компоненту TQuery и имеет тип TStrings,

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

свойству происходит либо через Инспектор Объектов на этапе проектирова-

ния или программно во время выполнения программы (динамическое изме-

нение запроса). Это дает ряд преимуществ, если требуется выполнить три

SQL запроса, то не надо размещать три компонента TQuery на форме. Вместо

этого можно разместить один и просто изменять свойство SQL три раза.

Проще всего создать SQL запрос используя компонент TQuery сле-

дующим образом:

- Назначить требуемый псевдоним (Alias) в свойстве DatabaseName.

Например, DBDEMOS.

- Используя свойство SQL, ввести SQL-запрос типа “SELECT * FROM

Country”.

- Вызвать метод Open.

Следующий пример демонстрирует как можно получить доступ к свой-

ству SQL на этапе выполнения программы. Здесь SQL-запрос вводится в ре-

дакторе строк Memo1:

procedure TMainForm.Button1Click(Sender: TObject);

begin

try

if Query1.Active then Query1.Close;

Query1.SQL.Clear;

Query1.SQL.Assign(Memo1.Lines);

Query1.Open;

except

one : EDBEngineError do ShowMessage('Ошибка!');

end;

10.1.3 Свойство Params

Этого должно быть достаточно для пользователя, знающего SQL. Тем

не менее, большинство пользователей не знает этого языка. Итак, ваша рабо-

та как разработчика заключается в предоставлении интерфейса и создании

SQL-запроса. В Delphi, для создания SQL-запроса на лету можно использо-

вать динамические запросы. Динамические запросы допускают использова-

ние параметров. Для определения параметра в запросе используется двоето-

чие (:), за которым следует имя параметра. Ниже приведе пример SQL-

запроса с использованием динамического параметра:

SELECT * FROM Employee

WHERE Salary = :Salary

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

ние по умолчанию, выберите свойство Params объекта Query1. Щелкните на

кнопке '...'. Должен появиться диалог настройки параметров. Добавьте пара-

метр Salary. Затем в выпадающем списке типов данных выберите Integer. Для

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

редактирования "Value".

Для изменения SQL-запроса во время выполнения приложения, пара-

метры необходимо связать (bind). Параметры могут изменяться, запрос вы-

полняться повторно, а данные обновляться. Для непосредственного редакти-

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

ParamByName. Свойство Params представляет из себя массив TParams. По-

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

Для примера,

Query1.Params[0].asInteger := StrToInt(Edit1.Text);

Свойство asInteger читает данные как тип Integer (название говорит са-

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

Integer. Например, если тип поля VARCHAR(10), Delphi осуществит преобра-

зование данных. Так, приведенный выше пример мог бы быть записан таким

образом:

Query1.Params[0].asString := Edit1.Text;

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

ра, то воспользуйтесь методом ParamByName. Данный метод возвращает

объект TParam с заданным именем. Например:

Query1.ParamByName(‘Salary’).asInteger :=

StrToInt(Edit1.Text);

Обратите внимание на процедуру, первым делом подготовливающую

запрос. При вызове метода Prepare, Delphi посылает SQL запрос на удален-

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

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

разборе и оптимизации. Альтернативой здесь может служить подготовка сер-

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

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

Способ подключения TQuery к TTable - через TDataSource. Есть два

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

бытия TDataSource OnDataChange. Пример, использования события

OnDataChange для просмотра дочерних записей:

procedure TForm1.DataSource1DataChange(Sender: TObject;

Field: TField);

begin

if Query1.Active then Query1.Close;

if not(Query1.Prepared) then Query1.Prepare;

Query1.ParamByName('Salary').asInteger := Ta-

ble1Salary.asInteger;

try

Query1.Open;

except

one : EDatabaseError do

MessageDlg(e.Message, mtError, [mbOK], 0);

end;

Техника с использованием OnDataChange очень гибка, но есть еще лег-

че способ подключения Query к таблице. Компонент TQuery имеет свойство

DataSource. Определяя TDataSource для свойства DataSource, объект TQuery

сравнивает имена параметров в SQL-запросе с именами полей в TDataSource.

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

Фактически, техника использования DataSource не требует никакого

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

Выберите у Query1 свойство SQL и введите:

SELECT * FROM Employee

WHERE Salary = :Salary

Выберите свойство DataSource и назначьте источник данных, связан-

ный с Table1 (DataSource2 в нашем примере). Выберите свойство Active и ус-

тановите его в True.

10.1.4 Команда Format

Команда Format заменяет параметры форматирования (%s, %d, %n и

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

воде строк широко используется на языке C). Например,

Format('SELECT * FROM %s', ['Employee'])

Результатом будет аналогичен результату запроса

SELECT * FROM Employee

Функция буквально делает замену параметров форматирования значе-

ниями массива. При использовании нескольких параметров форматирования,

замена происходит слева направо. Например,

tblName := 'Employee';

fldName := 'EmpNo';

fldValue := 2;