FireDAC.Comp.Client.TFDEventAlerter.OnAlert

De RAD Studio API Documentation
Aller à : navigation, rechercher

Delphi

property OnAlert: TFDEventAlerterEvent read FOnAlert write FOnAlert;

C++

__property OnAlert;

Propriétés

Type Visibilité  Source Unité  Parent
event published
FireDAC.Comp.Client.pas
FireDAC.Comp.Client.hpp
FireDAC.Comp.Client TFDEventAlerter

Description

Cet événement se déclenche quand un événement SGBD est déclenché.

FireDAC.Comp.Client.TFDEventAlerter.OnAlert hérite de FireDAC.Comp.Client.TFDCustomEventAlerter.OnAlert. Tout le contenu en-dessous de cette ligne se réfère à FireDAC.Comp.Client.TFDCustomEventAlerter.OnAlert.

Cet événement se déclenche quand un événement SGBD est déclenché.

Utilisez le gestionnaire d'événement OnAlert pour spécifier un gestionnaire d'événement qui est déclenché quand l'un des événements SGBD spécifiés dans la propriété FireDAC.Comp.Client.TFDCustomEventAlerter.Names est déclenché. Pour démarrer la réception des notifications d’événements, les événements doivent être recensés en utilisant la méthode Register ou la propriété Active. Le gestionnaire d'événement peut être déclenché dans son propre thread d'alerte d'événement (False) ou dans le thread principal de l'application (True), en fonction de l'option Options.Synchronize

Le gestionnaire d'événement reçoit trois arguments :

  • ASender -- La référence de l'alerte d'événement.
  • AEventName -- Spécifie le nom de l'événement.
  • AArgument -- Spécifie les arguments supplémentaires de l'événement. Les arguments dépendent totalement du SGBD et de l'application. Si aucun argument n'est spécifié, il doit exister une valeur Null ou Unassigned. Il s'agit d'une valeur d'une variante scalaire quand un seul argument est spécifié ; sinon, il s'agit d'un tableau variant de valeurs.

Exemple

procedure TForm1.FDEventAlerter1Alert(ASender: TFDCustomEventAlerter;
  const AEventName: String; const AArgument: Variant);
begin
  if CompareText(AEventName, 'Customers') = 0 then
    qryCustomers.Refresh
  else if CompareText(AEventName, 'Orders') = 0 then
    qryOrders.Refresh;
end;

Voir aussi