Kodbank İndir

! CODEBANK 2012 !

İNDİRMEK&DETAYLI BİLGİ ALMAK İÇİN BURAYI TIKLAYINIZ.

ÖNEMLİ AÇIKLAMA: MUTLAKA OKUYUNUZ!

Gönderen Konu: IBEvent Bileşeni  (Okunma sayısı 2510 defa)

0 Üye ve 1 Ziyaretçi konuyu incelemekte.

Çevrimdışı Fatih

  • Emekli Yönetici
  • *****
  • İleti: 2.217
  • Rep: +43/-10
  • Cinsiyet: Bay
    • Delphi Dünyası
IBEvent Bileşeni
« : 08 Ekim 2005 01:42:08 »
IBEvent
Bu bileşen kayıt eklendiğinde,silindiğinde veya güncellendiğinde size bu bilgiyi verir. özellikle ağ ortamında  diğer kullanıcıların değişikliklerden haberdar olmasını sağlayabiliriz.
öncelikle trigger bölümünde anlattığımız gibi  after delete,update,insert triggerına aşağıdaki  kodu yazıyoruz.
ben insert trigger örneğini yazıyorum. böylece yeni kayıt eklendiğinde haberim olacak. aynı kodu üç olayada yazabiliriz.
 
Kod: [Seç]
CREATE TRIGGER UYAR FOR TBL_MUSTERI
ACTIVE AFTER INSERT POSITION 0
AS
begin
post_event 'HAREKET_VAR';
end

Triggerı oluşturduktan sonra  IBEvent bileşenini forma ekleyip Database özelliğini IBdatabase bileşenimizi gösteriyoruz.  
Daha sonra Events özelliğine tıklayarak aşağıdaki pencereye ulaşıyoruz.



Yukarıdaki pencerdeki eklemeleri aşağıdaki şekilde kodlada ekleyebilirsiniz.
 
Kod: [Seç]
IBEvent1.Events.Add('EVENT_ADI');
Forma eklediğiniz Transactionu çift tıklayıp Read Commitedi işaretleyin. Daha sonra IBEvent bileşemnine bağladığınız IBDatabase Bileşeninin AfterConnect olayına aşağıdaki kodu yazın
 
Kod: [Seç]
if not IBEvents1.Registered then //Registered özelliği false ise
IBEvents1.RegisterEvents; // True yap

IBTable,IBQuery,IBDataset ( Hangisini kullanıyorsanız ) AfterPost ve AfterDelete olaylarına Kayıtların anında Tabloya Yansıması için aşağıdaki kodu yazıyoruz.
Kod: [Seç]
IBTransaction1.CommitRetaining;son olarak IBEvent bileşeninin OnEventAlert olayına aşağıdaki kodu yazıyoruz
 
Kod: [Seç]
if EventName='HAREKET_VAR' then //Gelen olayın istediğimiz olay olup olmadığını kontrol ediyoruz.
IBTable1.Refresh; //Tablo Görüntüsünü Yenile

Not: IBEvents bileşeni Delphi 2009'da çalışmıyor
« Son Düzenleme: 19 Kasım 2008 20:14:42 by Fatih »
Malulen emekli programcı / yazar. Bildiklerini unutmakta olduğundan size cevap veremez.

Çevrimdışı mesutakcabay

  • Yeni Üye
  • *
  • İleti: 3
  • Rep: +0/-0
Ynt: IBEvent Bileşeni
« Yanıtla #1 : 12 Kasım 2006 12:44:31 »
peki hareketin hangi kayıtta olduğunu nasıl anlarız