4.FireDAC组件快照 二

使用TFDEventAlerter类来处理数据库事件通知。

FDEventAlerter1.Options.Kind := ‘DBMS_ALERT‘;

FDEventAlerter1.Names.Text := ‘Customers‘;

FDEventAlerter1.Options.Synchronize := True;

FDEventAlerter1.Options.Timeout := 10000;

FDEventAlerter1.OnAlter := DoAlert;

FDEventAlerter1.OnTimeout := DoTimeout;

FDEventAlerter1.Active := True;

........

procedure TForm1.DoAlert(ASender: TFDCustomEventAlerter;

  const AEventName: String; const AArgument: Variant);

begin

  if CompareText(AEventName, ‘Customers‘) = 0 then

    qryCustomers.Refresh;

end;

procedure TForm1.DoTimeout(ASender: TObject);

begin

  qryCustomers.Refresh;

end;

with FDGUIxLoginDialog1.VisibleItems do begin

  Clear;

  Add(‘Server‘);

  Add(‘User_name=Benutzer‘);

  Add(‘Password=Kennwort‘);

  Add(‘OSAuthent‘);

end;

FDConnection1.LoginDialog := FDGUIxLoginDialog1;

FDConnection1.Connected := True;