Uzak Baglantı Refresh

[zengin]

s.a

veri tabanı Firebird
uzak veri tabanına bağlanıpta bilgi girişlerinde coklu kullanıcı uzak data Refresh yapmıyor
Bu Refresh Nasıl yaptırabilirm

[zengin]

s.a

Uzak Baglantı Refresh işini bu şekilde hallettim çokta güzel oldu
ve bu siteye ve tüm üyelere cok teşekkür ederim kolay gelsin

Kod: Tümünü seç

CREATE trigger gunluk_hareket_alarm for gunluk_hareket
active after insert or update or delete position 0
AS
begin
 post_event 'GUNLUK_HAREKET';
end

procedure TGUNLUK.SIBfibEventAlerter1EventAlert(Sender: TObject;
  EventName: String; EventCount: Integer);
var
   Sakla: TBookmark;
begin
  if EventName = 'GUNLUK_HAREKET' then
     begin
     Label18.Caption :='Satış Fiyatı Degişti ?';
     Label18.Font.Color :=clRed;
     Sakla := IBDataSet3.GetBookmark;
     IBDataSet3.FullRefresh;
     IBDataSet3.GotoBookmark(Sakla);
     IBDataSet3.FreeBookmark(Sakla);
  end;