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);