Sqlite trigger

[RAD Coder]

(29-03-2024, Saat: 12:17)Nedim Adlı Kullanıcıdan Alıntı:

(29-03-2024, Saat: 11:38)RAD Coder Adlı Kullanıcıdan Alıntı: SQLite veri tabanında DB Event yok diye biliyorum.
Benzer işlemleri trigger ile (AFTER/BEFORE INSERT, UPDATE, DELETE) yapmaya çalışın.

Üstat bu şekilde inserti yakaladım. 

Aynı anda delete ve update içinde bir çözüm bulursam iyi olacak.
Saygılarımla.

    With FDQuery do
    begin
      Connection := FDConnection;
      Active := False;
      Close;
      SQL.Clear;
      SQL.Add('DROP TRIGGER IF EXISTS intEv;');
      SQL.Add('CREATE TRIGGER IF NOT EXISTS intEv');
      SQL.Add('AFTER INSERT ON HAVUZ');
      SQL.Add('BEGIN');
      SQL.Add('SELECT POST_EVENT(''INSERT'');');
      SQL.Add('END;');
      ExecSQL;
    end;

Aynı mantıkla yazabilirdiniz. 
Delete:

With FDQuery do
begin
 Connection := FDConnection;
 Active := False;
 Close;
 SQL.Clear;
 SQL.Add('DROP TRIGGER IF EXISTS delEv;');
 SQL.Add('CREATE TRIGGER IF NOT EXISTS delEv');
 SQL.Add('AFTER DELETE ON HAVUZ');
 SQL.Add('BEGIN');
 SQL.Add('SELECT POST_EVENT(''DELETE'');');
 SQL.Add('END;');
 ExecSQL;
end;

Update:

With FDQuery do
begin
 Connection := FDConnection;
 Active := False;
 Close;
 SQL.Clear;
 SQL.Add('DROP TRIGGER IF EXISTS updEv;');
 SQL.Add('CREATE TRIGGER IF NOT EXISTS updEv');
 SQL.Add('AFTER UPDATE ON HAVUZ');
 SQL.Add('BEGIN');
 SQL.Add('SELECT POST_EVENT(''UPDATE'');');
 SQL.Add('END;');
 ExecSQL;
end;