Правильная ссылка на эту страницу
http://az-design.ru/Support/SoftWare/Delphi/D3/SB36BeforeDelete.shtml

Глава 36. TDataSet.BeforeDelete

Событие BeforeDelete

Затрагиваемые объекты TDataSet
Назначение Событие BeforeDelete ссылается на процедуру обработчика, в которой можно задать пользовательскую обработку, выполняющуюся перед удалением записи.
Объявление Туре TDataSetNotifyEvent = procedure(DataDet: TDataSet) of object;
property BeforeDelete: TDataSetNotifyEvent;
Пример синтаксиса
// Присвоить или отменить присвоение обработчика событий BeforeDelete
//в соответствии с флажком

procedure TTDataSetTestForm.BeforeDeleteCheckBoxClick(Sender:TObject);
begin
   if BeforeDeleteCheckBox.Checked
      then CustomerTable.BeforeDelete := CustomerTableBeforeDelete
      else CustomerTable.BeforeDelete := Nil;

end;
 
// Процедура обработчика событий BeforeDelete

procedure TTDataSetTestForm.CustomerTableBeforeDelete(DataSet:TDataSet);
begin
{ Примечание: Если у вас имеется TDBFrid или TDBNavigator, соединенные с
данным TDataSet, знайте, что функциональность, реализованную в данном
примере, можно продублировать свойством Options.dgConfirmDelete TDBGrid
или свойством ConfirmDelete из TDBNavigator.}
    MessageBeep(MB_ICONQUESTION );
    if MessageDlg('Are you sure you want to delete this record?',
         mtConfirmation,[mbYes,mbNo],0)<>mrYes then begin
// Возбудить "молчаливое" исключение для предотвращения удаления
       Abort;
    end;

end;
Описание        Событие BeforeDelete в TDataSet включается как раз перед удалением текущей записи, будь то вмешательство пользователя или вызов в коде метода Delete из TDataSet. Если в процедуре обработчика события BeforeDelete возбудить исключение, можно предотвратить удаление текущей записи.

[Свойство Active] [Метод ActiveBuffer] [Событие AfterCancel] [Событие AfterClose] [Событие AfterDelete] [Событие AfterEdit] [Событие AfterInsert] [Событие AfterOpen] [Событие AfterPost] [Метод Append] [Метод AppendRecord] [Метод ApplyUpdates] [Свойство AutoCalcFields] [Свойство BOF] [Событие BeforeCancel] [Событие BeforeClose] [Событие BeforeDelete] [Событие BeforeEdit] [Событие BeforeInsert] [Событие BeforeOpen] [Событие BeforePost] [Свойство Bookmark] [Свойство CachedUpdates] [Свойство CanModify] [Метод Cancel] [Метод CancelUpdates] [Метод CheckBrowseMode] [Метод ClearFields] [Метод Close] [Метод CommitUpdates] [Метод ControlsDisabled] [Метод CursorPosChanged] [Свойство DataSource] [Свойство DefaultFields] [Метод Delete] [Метод DisableControls] [Метод Edit] [Метод EnableControls] [Свойство EOF] [Свойство ExpIndex] [Метод FetchAll] [Метод FieldByName] [Свойство FieldCount] [Свойство FieldDefs] [Свойство FieldValues] [Свойство Fields] [Свойство Filter] [Свойство FilterOptions] [Свойство Filtered] [Метод FindField] [Методы FindFirst] [Методы FindLast] [Методы FindNext] [Методы FindPrior] [Метод First] [Свойство Found] [Метод FreeBookmark] [Метод GetBookmark] [Метод GetCurrentRecord] [Метод GetFieldList] [Метод GetFieldNames] [Метод GotoBookmark] [Свойство Handle] [Метод Insert] [Метод InsertRecord] [Метод IsLinkedTo] [Свойство KeySize] [Метод Last] [Свойство Locale] [Метод Locate] [Метод Lookup] [Свойство Modified] [Метод MoveBy] [Метод Next] [Событие OnCalcFields] [Событие OnDeleteError] [Событие OnEditError] [Событие OnFilterRecord] [Событие OnNewRecord] [Событие OnPostError] [Событие OnServerYield] [Событие OnUpdateError] [Событие OnUpdateRecord] [Метод Open] [Метод Post] [Метод Prior] [Свойство RecNo] [Свойство RecordCount] [Свойство RecordSize] [Метод Refresh] [Метод Resync] [Метод RevertRecord] [Метод SetDetailFields] [Метод SetFields] [Свойство State] [Метод UpdateCursorPos] [Свойство UpdateObject] [Метод UpdateRecord] [Свойство UpdateRecordTypes] [Метод UpdateStatus] [Свойство UpdatesPending]


<<< Пред. Оглавление
Начало раздела
След. >>>




Дата последнего изменения:
Thursday, 21-Aug-2014 09:10:56 MSK


Постоянный адрес статьи:
http://az-design.ru/Support/SoftWare/Delphi/D3/SB36BeforeDelete.shtml