If not CheckBoxl.Checked then begin

Begin

Begin

Begin

Begin

Queryl.Active:=false;

Queryl.SQL.Clear;

Queryl.SQL.Add('select * from Examplel.db');

Queryl.Active:=true;

end;

Управлять состоянием набора данных можно также с помощью методов Open и Close.

Процедура Open открывает набор данных, ее вызов эквивалентен установке свойству Active значения True. При вызове метода Open генерируются события BeforeOpen и AfterOpen и соответственно вызываются процедуры-обработчики этих событий.

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

В примере показывается управление состоянием набора данных (открытие и закрытие) с помощью методов Open и Close:

procedure TForml.Button2Click(Sender: TObject);

Queryl.Close;

Queryl.SQL.Clear;

Queryl.SQL.Add('select * from Example2.db');

Query1.Open;

end;

События BeforeOpen и AfterOpen имеют тип TDataSetNotifyEvent, который описывается следующим образом:

type TDataSetNotifyEvent = procedure(DataSet: TDataSet) of object;

В этом описании параметр DataSet определяет набор данных, для которого произошло событие.

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

Замечание

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

Рассмотрим в качестве примера следующую процедуру:

procedure TForml.TablelBeforeOpen(DataSet: TDataSet);

if not CheckBoxl.Checked then Abort;

end;

Если переключатель CheckBoxl, управляющий возможностью открытия набора данных, не установлен, то открытие набора данных Table1 блокируется. Для этого с помощью вызова процедуры Abort генерируется "тихая" исключительная ситуация. В результате операции, связанные с открытием набора данных, отме­няются, а пользователю не выдается никаких сообщений об ошибках. В подоб­ных случаях выдача предупреждающих сообщений должна обеспечиваться про­граммистом, как это реализуется, например, в приводимой ниже процедуре:

procedure TForml.TablelBeforeOpen(DataSet: TDataSet);

MessageDlg('Данные таблицы '+ Tablel.TableName+' недоступны!',

mtError, [mbOK], 0);

Abort;

end;

end;

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

В примере демонстрируется открытие набора данных с выдачей соответствую­щего сообщения:

procedure TForml.TablelAfterOpen(DataSet: TDataSet);

Дата добавления: 2014-01-11