Свойства
| Свойство | Описание |
| propertyActive: Boolean; | Открывает/закрывает НД |
| property AutoCalcFields: Boolean; | Разрешает/запрещает возникновение события OnCalcFields |
| Type TBookmarksStr: String; propertyBookMark: TBookMarkStr; | Определяет закладку на текущей записи. К помеченной записи можно быстро перейти методом GotoBookMark |
| property CanModify: Boolean; | Указывает, может ли пользователь изменять НД |
| property Database: TDatabase; | Определяет компонент TDatabase, связанный с данным НД |
| property DatabaseName: String; | Содержи псевдоним базы данных |
| property DataSource: TDataSource; | Используется в потомках для указания детального НД, в связи один ко многим |
| property EOF: Boolean; | Содержит True, если курсор НД сместился за последнюю запись |
| property FieldCount: Integer; | Содержит количество полей в НД |
| property Fields: TFields; | Позволяет обратиться к полям по их индексу. Первое поле НД имеет индекс 0 |
| property FieldValues[const FieldName: String]: Variant; | Позволяет обратиться к значениям полей по имени поля |
| property Filter: String; | Задает фильтрующее выражение |
| property Filtered: Boolean; | Разрешает/запрещает фильтрацию записей НД |
| type TFilterOption = (foCaseInsensitive, foNoPartialCompare); TFilterOptions = set of TFilterOption; | Определяет условия фильтрации в текстовых полях: foCaseInsensitive –учитывать регистр букв; foNoPartialCompare – поиск на точное соответствие образцу |
| property Modifed: Boolean; | Содержит True, если текущая запись НД была изменена |
| property RecNo: LongInt; | Определяет номер текущей записи |
| property RecordCount: LongInt; | Содержит количество записей в текущем НД |
| type TDataSetState = (dsInactive, dsBrowse, dsEdit, dsInsert, dsSetKey, dsCalcFields, dsFilter, dsNewValue, dsOldValue, dsCurValue, dsBlockRead, dsInternalCalc) property State: TDataSetState; | Указывает состояние НД: dsInactive-закрыт, dsBrowse-просмотр, dsEdit-редактирование, dsInsert-вставка, dsSetKey-поиск записи, dsCalcFields-установка вычисляемых полей, dsFilter-фильтрация записей, dsNewValue-обновление, dsOldValue-обновление, dsCurValue-обновление, dsBlockRead-чтение блока записей, dsInternalCalc-обновление |
Методы:
| procedureAppend; | Добавляет пустую запись в конец НД |
| procedureAppendRecord(const Values: Array of const); | Добавляет новую запись, заполняет ее поля значениями Values и отсылает ее в БД |
| procedureApplyUpdates; | Записывает кэш обновления в таблицы БД |
| procedureCancel; | Отменяет все изменения текущей записи, которые не были сохранены в БД |
| procedureCancelUpdates; | Очищает кэш обновления |
| procedureCheckBrowseMode; | Если НД находился в состоянии редактирования или вставки, вызывает метод Post для записи изменений в БД |
| procedureClearFields; | Очищает все поля текущей записи |
| procedureClose; | Закрывает НД |
| procedureCloseDatabase(Database:TDatabase); | Закрывает базу данных Database |
| procedureCommitUpdates; | Очищает кэш после успешного обновления данных в БД |
| functionControlsDisabled: Boolean; | Возвращает True, если показ данных в визуальных компонентах временно запрещен методом DisableControls |
| procedureDelete; | Удаляет текущую запись |
| functionDisableControls; | В целях улучшения производительности при навигации по НД временно запрещает смену данных в визуальных компонентах |
| procedureEdit; | Редактирует текущую запись |
| procedureEnableCointrols; | Отменяет действие метода DisableControls |
| functionFieldByName(const FieldName: String):TField; | Обеспечивает доступ к полю по его имени FieldName |
| functionFindField(const FieldName: String):TField; | Ищет поле FieldName в НД и возвращает ссылку на поле или NIL, если поле не найдено |
| functionFindFirst: Boolean; | Пытается установить курсор на первую запись НД и возвращает True в случае успеха |
| functionFindLast: Boolean; | Пытается установить курсор на последнюю запись НД и возвращает True в случае успеха |
| functionFindNext: Boolean; | Пытается установить курсор на следующую запись НД и возвращает True в случае успеха |
| functionFindPrior: Boolean; | Пытается установить курсор на предыдущую запись НД и возвращает True в случае успеха |
| functionFirst: Boolean; | Устанавливает курсор на первую запись в НД |
| procedureFreeBookMark(BookMark: TBookMark); virtual; | Освобождает память связанную с закладкой BookMark |
| functionGetBookMark: TBookMark; virtual; | Создает закладку на текущей записи и возвращает указатель на нее |
| procedureGotoBookMark(BookMark: TBookMark); | Обеспечивает возврат к записи, связанной с закладкой BookMark |
| procedureInsert; | Переводит НД в режим вставки записей |
| procedureInsertRecord(const Values: array of const); | Создает пустую запись, наполняет ее поля значениями Values и вставляет ее в НД |
| functionisEmpty: Boolean; | Возвращает True, если в НД нет записей |
| procedureLast; | Устанавливает курсор на последнюю запись |
| functionLocate(const KeyFields: String; const KeyValues: Variant; Options: TLocateOptions): Boolean; | Ищет в полях перечисленных в параметре KeyFields, значения, указанные в KeyValues при условиях, заданных параметром Options. Если запись найдена, делает ее текущей и возвращает True |
| functionLookUp(const KeyFields: String; const KeyValues: Variant; const ResultFields: String): Variant; | Используется в детальных НД для поиска в полях KeyFields значений KeyValues. При успехе возвращает значение полей ResultFields |
| functionMoveBy(Distance: Integer):Integer; | Перемещает курсор на Distance записей вверх или вниз относительно текущей записи |
| procedureNext; | Перемещает курсор к следующей записи |
| procedureOpen; | Открывает НД |
| procedurePost; virtual; | Сохраняет вставленную или отредактированную запись в таблице БД |
| procedurePrior; | Перемещает курсор к предыдущей записи |
| procedureRefresh; | Обновляет НД данными из БД |
| procedureSetFields (const Values: array of const); | Устанавливает значения Values во все поля текущей записи |
События:
| type TDataSetNotifyEvent = procedure (DataSet: TDataSet) of object | |
| property AfterCancel: TDataSetNotifyEvent; | Возникает сразу после отмены изменений в текущей записи |
| property AfterClose: TDataSetNotifyEvent; | Возникает сразу после закрытия НД |
| property AfterDelete: TDataSetNotifyEvent; | Возникает сразу после удаления текущей записи |
| property AfterEdit: TDataSetNotifyEvent; | Возникает сразу после перехода НД в режим редактирования |
| property AfterInsert: TDataSetNotifyEvent; | Возникает сразу после вставки записи |
| property AfterOpen: TDataSetNotifyEvent; | Возникает сразу после открытия НД |
| property AfterPost: TDataSetNotifyEvent; | Возникает сразу после выполнения метода Post |
| property AfterScroll: TDataSetNotifyEvent; | Возникает сразу после перехода к другой записи |
property BeforeCancel: TDataSetNotifyEvent;
property BeforeClose: TDataSetNotifyEvent;
| Возникает непосредственно перед отменой изменений в текущей записи Возникает непосредственно перед закрытием НД |
| property BeforeDelete: TDataSetNotifyEvent; | Возникает непосредственно перед удалением текущей записи |
| property BeforeEdit: TDataSetNotifyEvent; | Возникает непосредственно перед переходом НД в режим редактирования |
| property BeforeInsert: TDataSetNotifyEvent; | Возникает непосредственно перед в режим вставки |
| property BeforeOpen: TDataSetNotifyEvent; | Возникает непосредственно перед открытием НД |
| property BeforePost: TDataSetNotifyEvent; | Возникает непосредственно перед выполнением метода Post |
| property BeforeScroll: TDataSetNotifyEvent; | Возникает непосредственно перед к новой записи |
| property OnCalcFields: TDataSetNotifyEvent; | Возникает при необходимости переопределения вычисляемых полей |
Обзор компонента TTable
Так как компонент TTable является наследником класса TDataSet, он наследует все его свойства, методы и события. Он служит для работы с таблицами БД.
Следующие методы позволяют изменять данные, связанные с TTable:
procedure Append;
procedure Insert;
procedure Cancel;
procedure Delete;
procedure Edit;
procedure Post;
Все эти методы - часть TDataSet, они унаследованы и используются TTable и TQuery.
Всякий раз, когда нужно изменить данные, необходимо сначала перевести DataSet в режим редактирования или вставки.
Имеется типичная последовательность, которую можно бы использовать при изменении поля текущей записи:
Table1.Edit;
Table1.FieldByName(‘CustName’).AsString:= ‘Fred’;
Table1.Post;
Первая строка переводит БД в режим редактирования. Следующая строка присваивает значение ‘Fred’ полю ‘CustName’. Наконец, данные записываются на диск, когда вызывается Post.
При использовании такого подхода, Вы всегда работаете с записями. Сам факт перемещения к следующей записи автоматически сохраняет данные на диск. Например, следующий код будет иметь тот же самый эффект, что и код показанный выше, плюс этому будет перемещать курсор на следующую запись:
Table1.Edit;
Table1.FieldByName(‘CustNo’).AsInteger:= 1234;
Table1.Next;
Общее правило, которому нужно следовать - всякий раз, когда курсор сдвигается с текущей записи, введенные данные будут записаны автоматически. Это означает, что вызовы First, Next, Prior и Last всегда выполняют Post. Можете отменить результаты редактирования в любое время, до тех пор, пока не вызвали напрямую или косвенно метод Post. Например, если НД переведен в режим редактирования, и данные были изменены в одном или более полей, всегда можно вернуть запись в исходное состояние вызовом метода Cancel.
Существуют два метода, Append и Insert, который используются при добавлении новой записи в DataSet. Очевидно имеет больше смысла использовать Append для DataSets которые не индексированы, но Delphi не будет генерировать exception если используется Append на индексированной таблице. Фактически, всегда можно использовать и Append, и Insert.
Пример добавления записи:
begin
Table1.Insert;
Table1.FieldByName('Name').AsString:= 'Иван';
Table1.FieldByName('Fam').AsString:= 'Сидоров';
Table1.Post;
end;
Удаление записи: Table1.Delete;
Процедура показанная здесь сначала переводит таблицу в режим вставки (новая запись с незаполненными полями вставляется в текущую позицию dataset). После вставки пустой записи, следующим этапом нужно назначить значения одному или большему количеству полей. Существует, конечно, несколько различных путей присвоить эти значения. В программе можно просто ввести информацию в новую запись через DBGrid. Или разместить на форме стандартную строку ввода (TEdit) и затем установить каждое поле равным значению, которое пользователь напечатал в этой строке:
Table1.FieldByName(‘Name’).AsString:= Edit1.Text;
Можно использовать компоненты, специально предназначенные для работы с данными в DataSet, например DBEdit, DBLabel и т.д.
Обзор компонента TQuery
Сокращение SQL означает Structured Query Language - Язык Структурированных Запросов, и обычно произноситься либо как "Sequel" либо " Ess Qu El”. SQL - это мощный язык БД, который легко доступен из Delphi, но который отличается от родного языка Delphi. Delphi может использовать утверждения SQL для просмотра таблиц, выполнять объединение таблиц, создавать отношения один-ко-многим, или исполнить почти любое действие, которое могут сделать основные инструменты БД.
1. Большинство серверов могут обрабатывать SQL запросы очень быстро, а это означает, что используя SQL для удаленных данных, ответ будет получен очень быстро.
2. Есть возможность составлять SQL запросы, которые заставят сервер исполнить специализированные задачи, недоступные через родной язык Delphi.
SQL запрос можно создать используя компонент TQuery следующим способом:
1. Назначить Псевдоним (Alias) DatabaseName.
2. Используя свойство SQL чтобы ввести SQL запрос типа
“Select * from Country”.
3. Установить свойство Active в True
Если обращение идет к локальным данным, то вместо псевдонима можно указать полный путь к каталогу, где находятся таблицы.
Объект TQuery один из наиболее полезных и гибких компонентов, доступных в Delphi. С помощью можно воспользоваться всей мощью, предоставляемой лидерами среди промышленных SQL серверов, вроде InrterBase, Oracle или Sybase.
Свойство SQL
Свойство SQL - вероятно, самая важная часть TQuery. Доступ к этому свойству происходит либо через Инспектор Объектов во время конструирования проекта (design time), или программно во время выполнения программы (run time).
Интересней, конечно, получить доступ к свойству SQL во время выполнения, чтобы динамически изменять запрос. Например, если требуется выполнить три SQL запроса, то не надо размещать три компонента TQuery на форме. Вместо этого можно разместить один и просто изменять свойство SQL три раза. Наиболее эффективный, простой и мощный способ - сделать это через параметризованные запросы, которые будут объяснены в следующей части. Однако, сначала исследуем основные особенности свойства SQL, а потом рассмотрим более сложные темы, типа запросов с параметрами.
Свойство SQL имеет тип TStrings, который означает что это ряд строк, сохраняемых в списке. Список действует также, как и массив, но, фактически, это специальный класс с собственными уникальными возможностями. В следующих нескольких абзацах будут рассмотрены наиболее часто используемые свойства.
При программном использовании TQuery, рекомендуется сначала закрыть текущий запрос и очистить список строк в свойстве SQL:
Query1.Close;
Query1.SQL.Clear;
Нужно обратите внимание, что всегда можно “безопасно” вызвать Close. Даже в том случае, если запрос уже закрыт, исключительная ситуация генерироваться не будет.
Следующий шаг - добавление новых строк в запрос:
Query1.SQL.Add(‘Select * from Country’);
Query1.SQL.Add(‘where Name = ’’Argentina’’’);
Метод Add используется для добавления одной или нескольких строк к запросу SQL. Общий объем ограничен только количеством памяти на вашей машине.
Чтобы Delphi отработал запрос и возвратил курсор, содержащий результат в виде таблицы, можно вызвать метод:
Query1.Open;
Например, следующий SQL запрос:
Select * form Country where Name like ’C%’
возвращает DataSet, содержащий все записи, где поле Name начинается с буквы ‘C’. Следующий запрос позволит увидеть все страны, в названии которых встречается буква ‘C’:
Select * from Country where Name like ‘%C%’;
Вот запрос, которое находит все страны, название которых заканчивается на ‘ia’:
Select * from Country where Name like ‘%ia’;
TQuery и Параметры
Delphi позволяет составить “гибкую” форму запроса, называемую параметризованным запросом. Такие запросы позволяют подставить значение переменной вместо отдельных слов в выражениях “where” или “insert”. Эта переменная может быть изменена практически в любое время. (Если используется локальный SQL, то можно сделать замену почти любого слова в утверждении SQL, но при этом та же самая возможность не поддерживается большинством серверов.)
Перед тем, как начать использовать параметризованные запросы, рассмотрим снова одно из простых вышеупомянутых предложений SQL:
Select * from Country where Name like ’C%’
Можно превратить это утверждение в параметризованный запрос заменив правую часть переменной NameStr:
select * from County where Name like:NameStr
В этом предложении SQL, NameStr не является предопределенной константой и может изменяться либо во время дизайна, либо во время выполнения. SQL parser (программа, которая разбирает текст запроса) понимает, что он имеет дело с параметром, а не константой потому, что параметру предшествует двоеточие ":NameStr". Это двоеточие сообщает Delphi о необходимости заменить переменную NameStr некоторой величиной, которая будет известна позже.
Нужно обратите внимание, что слово NameStr было выбрано абсолютно случайно. Использовать можно любое допустимое имя переменной, точно также, как выбирается идентификатор переменной в программе.
Есть два пути присвоить значение переменной в параметризованном запросе SQL. Один способ состоит в том, чтобы использовать свойство Params объекта TQuery. Второй - использовать свойство DataSource для получения информации из другого DataSet. Вот ключевые свойства для достижения этих целей:
property Params[Index: Word];
function ParamByName(const Value: string);
property DataSource;
Если подставлять значение параметра в параметризованный запрос через свойство Params, то обычно нужно сделать четыре шага:
1. Закрыть TQuery
2. Подготовить объект TQuery, вызвав метод Prepare
3. Присвоить необходимые значения свойству Params
4. Открыть TQuery
Второй шаг выполняется в том случае, если данный текст запроса выполняется впервые, в дальнейшем его можно опустить.
Вот фрагмент кода, показывающий как это может быть выполнено практически:
Query1.Close;
Query1.Prepare;
Query1.Params[0].AsString:= ‘Argentina’;
Query1.Open;
Params - это индексированное свойство, которое имеет синтаксис как у свойства Fields для TDataSet. Например, можно получить доступ к первой переменной в SQL запросе, адресуя нулевой элемент в массиве Params:
Params[0].AsString:= ‘”Argentina”’;
Если параметризованный SQL запрос выглядит так:
select * from Country where Name =:NameStr
то конечный результат (т.е. то, что выполнится на самом деле) - это следующее предложение SQL:
select * from Country where Name = “Argentina”
Все, что произошло, это переменной:NameStr было присвоено значение "Аргентина" через свойство Params.
Если в запросе содержится более одного параметра, для того чтобы иметь доступ к ним нужно изменить индекс у свойства Params
Params[1].AsString:=‘SomeValue’;
либо используя доступ по имени параметра
ParamByName(‘NameStr’).AsString:=’”Argentina”’;
Итак, параметризованные SQL запросы используют переменные, которые всегда начинаются с двоеточия, определяя места, куда будут переданы значения параметров.
Прежде, чем использовать переменную Params, сначала можно вызвать Prepare. Этот вызов заставляет Delphi разобрать ваш SQL запрос и подготовить свойство Params так, чтобы оно "было готово принять” соответствующее количество переменных. Можно присвоить значение переменной Params без предварительного вызова Prepare, но это будет работать несколько медленнее.
После того, как был вызыван метод Prepare, и после того, как были присвоены необходимые значения переменной Params, Нужно вызвать метод Open, чтобы закончить привязку переменных и получить желаемый DataSet. В нашем случае, DataSet должен включать записи где в поле “Name” стоит “Argentina”.
Open или ExecSQL?
После того, как составлен SQL запрос, есть два различных способа выполнить его. Если нужно получить курсор, то нужно вызывать Open. Если выражение SQL не подразумевает возвращение курсора, то нужно вызывать ExecSQL. Например, если происходит вставка, удаление или обновление данных (т.е. SQL запросы INSERT, DELETE, UPDATE), то нужно вызывать ExecSQL. Тоже самое можно сказать по-другому: Open вызывается при запросе типа SELECT, а ExecSQL - во всех остальных случаях.
Вот типичный SQL запрос, который используется для удаления записи из таблицы:
delete from Country where Name = ‘Argentina’;
Этот запрос удалил бы любую запись из таблицы COUNTRY, которая имеет значение "Argentina" в поле Имя.
Не трудно заметить, что это тот случай, когда удобно использовать параметризованный запрос. Например, неплохо было бы менять имя страны, которую требуется удалить:
delete from Country where Name =:CountryName
В этом случае переменная:CountryName может быть изменена во время выполнения:
Query2.Prepare;
Query2.Params[0]:= ‘Argentina’;
Query2.ExecSQL;
Код сначала вызывает Prepare, чтобы сообщить Delphi что он должен разобрать SQL запрос и подготовить свойство Params. Следующим шагом присваивается значение свойству Params и затем выполняется подготовленный SQL запрос. Нужно обратите внимание, что он выполняется через ExecSQL, а не Open.