If OpenDialogl.Execute then begin

Begin

. . .

. . .

Begin

Доступ к полям

Case DataSourcel.State of

Begin

dslnactive: Labell.Caption:='Ha6op данных закрыт';

dsBrowse: Labe1l.Caption:='Просмотр набора данных';

dsEdit: Labell.Caption:='Редактирование набора данных';

dsInsert: Labell.Caption:='Вставка записи в набор данных'

else Labell.Caption:='Режим набора данных не определен';

end;

end;

В приведенной процедуре определяется режим набора данных, связанного с ис­точником данных DataSource1, и информация об этом режиме выводится в надписи Label1. При этом используется свойство State источника данных. Код, выполняющий анализ режима, помещен в обработчик события OnStateChange компонента DataSource1.

 

Каждое поле набора данных представляет собой отдельный столбец, для работы с которым в Delphi служат объект Field типа TFieid и объекты производных от него типов, например, TIntegerField, TFloatField или TStringField. Для доступа к этим объектам и, соответственно, к полям записей набор данных имеет спе­циальные методы и свойства, доступные при выполнении приложения.

Свойство FieldCount типа Integer указывает количество полей набора данных. Это свойство доступно только для чтения. Количество полей набора данных может отличаться от физического числа полей таблицы БД, поскольку в набор данных не обязательно включаются все поля таблицы. Состав полей формирует­ся при разработке приложения с помощью Редактора полей набора данных и Редактора столбцов сетки DBGrid. Кроме того, возможно динамическое измене­ние состава полей во время выполнения приложения. Для компонента Query состав полей набора данных зависит также от SQL-запроса.

Значение свойства Fields [Index: Integer] типа TField представляет собой по­ле (столбец) набора данных. К отдельному полю можно обратиться, указав его номер Index в массиве Fields; номера полей находятся в пределах от нуля до FieldCount-l. Номер объекта поля в массиве полей определяет свойство index типа integer. В отличие от Редакторов полей и столбцов, применяемых на этапе разработки приложения, свойство Index можно использовать для определения и изменения порядка полей набора данных во время выполнения приложения.

В качестве примера рассмотрим чтение полей текущей записи:

 

procedure TForml.ButtonlClick(Sender: TObject);

var n: integer;

for n:=0 to Tablel.FieldCount-1 do

ListBoxl. Items .Add (Tablel. Fields [n].AsString) ;

end;


 

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

Номер поля в наборе данных не является заранее фиксированным и известным числом и зависит от порядка полей в таблице БД, от текущего состава полей набора данных, а также от значений свойств некоторых визуальных компонен­тов, связанных с этим набором, например, сетки DBGrid. Так, при изменении порядка расположения столбцов в компоненте DBGrid соответственно изменяет­ся порядок следования полей набора данных. В связи с этим обращение к како­му-либо полю по его номеру в массиве полей может вызвать обращение совсем к другому полю. Поэтому для доступа к полям чаще используются методы FindField и FieldByName.

Функция FindField (const FieldName: String) : TField возвращает для набора данных поле, имя которого указывает параметр FieldName. В отличие от номера в массиве полей, имя поля более статично и изменяется реже. Кроме того, имя поля несет большую смысловую нагрузку, чем номер. Если заданное парамет­ром FieldName поле не найдено, то метод FindField возвращает значение Nil. На практике чаще используется метод FieldByName, который отличается от метода FindField тем, что если заданное поле не найдено, то генерируется исключи­тельная ситуация.

 

Замечание

Имя поля, определяемое параметром FieldName, является именем физическо­го поля таблицы БД, заданным при создании таблицы, а не именем (свойством Name) объекта Field, которое создано для этого поля.

Для набора данных Query имя FieldName физического поля можно переопреде­лить в тексте SQL-запроса.

 

Свойство Fields и методы FindField и FieidByName наиболее часто используют-
ся для доступа к значению поля текущей записи совместно с такими свойствами
объекта Field, как AsString, AsInteger, AsFloat илиAsBoolean, Которые позво-
ляют обращаться к значению поля как к строковому, целочисленному, вещест-
венному или логическому значению, соответственно. !

Так,в коде

Var x: integer;

Label1.Caption:=Table1.FieidByName('Name').AsString;

x:=Tablel.FieldByName('Number').AsInteger;

строковое значение поля Name отображается в надписи Labell, а переменной хприсваивается целочисленное значение поля Number. Если же поле Number содержит значение, которое нельзя интерпретировать как целое число, то генерируется исключительная ситуация.

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

Например, с помощью следующих операторов:

Var x: integer;

// Перевод набора данных в режим редактирования

Table1.Edit;

// Изменение значений полей

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

Tablel.FieldByName('Number').AsInteger:=x;

// Сохранение изменений

Table1.Post;

выполняется присвоение новых значений полям Name и Number текущей записи после того, как набор данных Table1 переведен в режим редактирования. Про­изведенные изменения сохраняются, а набор данных переводится в режим про­смотра.

 

1.4. Особенности набора данных Table

Компонент Table представляет собой набор данных, который в текущий момент времени может быть связан только с одной таблицей БД. Этот набор данных формируется на базе навигационного способа доступа к данным, поэтому ком­понент Table рекомендуется использовать для локальных БД, таких как dBase или Paradox. При работе с удаленными БД следует использовать компонент Query. В дальнейшем при рассмотрении вопросов, связанных с локальными БД, мы обычно будем работать с компонентом Table.

Связь между таблицей и компонентом Table устанавливается через его свойство TableName типа TFileName, которое задает имя таблицы (и имя файла с данными таблицы). При задании свойства TableName указывается имя файла и расшире­ние имени файла.

На этапе разработки приложения имена всех таблиц доступны в раскрываю­щемся списке Инспектора объектов. В этот список попадают таблицы, файлы которых расположены в каталоге, указанном свойством DatabaseName.

Замечание

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

Приведем пример, иллюстрирующий, как задается имя таблицы БД:

procedure TForm1.Button1Click(Sender: TObject);

Table1.Active:=false;

Table1.TableName: OpenDialog1.FileName;

Table1.Active:=true;

end;

end;

Здесь нажатие кнопки Button1 приводит к появлению диалогового окна выбора имени файла. При выборе файла таблицы его имя устанавливается в качестве значения свойства TableName. Набор данных Table1 предварительно закрывается и снова открывается уже после смены таблицы. Тип таблицы определяется ав­томатически по расширению имени файла. При наличии ошибок, например, связанных с нарушением структуры таблицы, выдается соответствующее сооб­щение, а набор данных остается закрытым.

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

· ttDefauit — тип таблицы автоматически определяется по расширению файла;

· ttParadox — таблица Paradox; '

· ttDBase — таблица dBASE;

· ttFoxPro — таблица FoxPro;

· ttASCII — текстовый файл, содержащий данные в табличном виде (таблица ASCII).

 

Если свойство TableType имеет значение ttDefault (по умолчанию), то тип таб­лицы опреде-ляется по расширению файла:

· DB или отсутствует — таблица Paradox;

· DBF - таблица dBASE;

· TXT — текстовый файл (таблица ASCII).

 

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

Delphi через BDE автоматически поддерживает многопользовательский доступ,к локальным таблицам, при этом по умолчанию все пользовательские приложения имеют равные права и могут редактировать содержащиеся в таблицах данные. Чтобы запретить пользователям изменять содержание записей, можно использо­вать свойство Readonly типа Boolean. По умолчанию оно имеет значение False, что предоставляет пользователю право на модификацию записей.

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

Монопольный режим доступа необходим при выполнении таких операций, как добавление или удаление индекса методами Addindex и Deleteindex или очистка таблицы методом EmptyTable.

 

Замечание

Такие приложения, как Delphi и Database Desktop, также могут осуществлять доступ к таблицам. Поэтому перед отладкой приложения, которое устанавли­вает монопольный доступ к таблице, необходимо проверить, не работают ли с этой таблицей Delphi и/или Database Desktop. В приложении Database Desktop таблицу нужно закрыть, а в среде Delphi достаточно через Инспектор объектов установить значение False свойству Active набора данных, связанного с таб­лицей.

 

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

· сортировки записей;

· поиска записей;

· установки связей между таблицами.

 

Текущий индекс устанавливается с помощью свойства IndexName или IndexFieldNames типа String. На этапе разработки приложения текущий индекс выбирается из списка индексов, заданных при создании таблицы. Все возмож­ные значения свойств IndexName и IndexFieldNames содержатся в раскрываю­щихся списках, доступных через Инспектор объектов. Оба свойства во многом схожи, и их использование практически одинаково. Значением свойства indexName является имя индекса, заданное при создании таблицы, а значением свойства IndexFieldNames является имя поля, для которого был создан индекс. Если индекс состоит из нескольких полей, то для свойства IndexName по-прежнему задается имя этого индекса, а для свойства IndexFieldNames через точку с запятой перечисляются имена полей, входящие в этот индекс.

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

Table1.IndexName:='indName';

Table2.IndexFieldNames:='Name';

Здесь компоненты Tablel и Tаblе2 связаны с одной таблицей, для поля Name ко­торой определен индекс indName. Этот индекс устанавливается в качестве теку­щего для обоих наборов данных.

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


Задать ключ в качестве текущего индекса можно так:

Tablel.IndexFieldNames:='Name;Post;BirthDay';

 

Для таблицы Paradox, с которой связан компонент Tablel, определен ключ, в который входят поля Name, Post и BirthDay. Этот ключ устанавливается в каче­стве текущего индекса таблицы.

 

Замечание

Свойства IndexName и IndexFieldNames взаимозависимы. При установке значе­ния одного из них другое автоматически очищается.

Индекс, устанавливаемый текущим, должен существовать. Если индекс, зада­ваемый как значение свойства IndexName или IndexFieldNames, для таблицы не существует, то возникает исключительная ситуация.

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

 

Получить доступ к полям в составе текущего индекса можно с помощью свойств IndexFieldCount и IndexFields.

Свойство IndexFieldCount типа integer содержит число полей в текущем ин­дексе и доступно для чтения при выполнении приложения.

Свойство IndexFields [Index: Integer] типа TField позволяет обращаться к по­лям текущего индекса, при этом переменная index задает номер индекса в мас­сиве полей этого индекса (отсчет начинается с нуля). Класс TField представляет собой поле набора данных и имеет большое число свойств и методов.

Чаще всего индексы определяются при создании таблицы и в дальнейшем при работе с таблицей не изменяются. Однако программист имеет возможность из­менять определенные для таблицы индексы динамически, т. е. в процессе вы­полнения приложения, с помощью методов Addlndex и Deletelndex.

 

Замечание

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

 

Процедура Addlndex (const Name, Fields: String; Options: TIndexOptions) добавляет к таблице индекс, имя которого задано параметром Name. Входящие в состав индекса поля указываются в параметре Fields; если индекс состоит из нескольких полей, то они разделяются точкой с запятой. Указывать можно только поля, которые входят в структуру таблицы, в противном случае генери­руется исключительная ситуация, а индекс не создается. Параметр options со­держит параметры индекса. Он имеет множественный тип и может принимать комбинации следующих значений:

  • ixPrimary — первичный индекс;
  • ixUnique — уникальный индекс, для которого не допускается повторение значений полей в его составе;

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

· ixExpression — индекс создается на основе выражения (только для таблиц dBase);

· ixCaseInsensitive — индекс определяет сортировку независимо от регистра букв;

· ixNonMaintained — индекс автоматически не модифицируется, если таблица открыта.

 

Приведем пример, демонстрирующий добавление индекса к таблице:

procedure TForml.Button3Click(Sender: TObject);