SQL ve Delphi Hk.

[denizfatihi]

Aşağıdaki gibi edit ederken insert ediyorum 2 adet tablom var satış faturası kesince (Stok Hareket Tablosu) bunu (Cari Hareket Tablosuna) Borc olarak kaydediyor buraya kadar herşey normal lakin Fatura üzerinde değişiklik veya silme işlemi yapınca bunu Cari Hareket Tablosuna uygulamıyor. (SQL server veri tabanı kullanıyorum yardımcı olacak arkadaşlara şimdiden teşekürler)

Kod: Tümünü seç

        Query1.Open;
        query5.Open;
        Query1.Append;
        query5.Append;
        Query1.FieldByName('FISNO').ASSTRING:=Edit1.Text;
        query5.FieldByName('BELGE_NO').ASSTRING:=Edit1.Text;
        Query1.FieldByName('STOK_KODU').ASSTRING:=Edit4.Text;
        Query1.FieldByName('STOK_ADI').ASSTRING:=Edit5.Text;
        query5.FieldByName('BORC').ASSTRING:=Edit8.Text;
        query5.FieldByName('ACIKLAMA').ASSTRING:=Edit10.Text;
        query5.FieldByName('DOVIZ_TURU').ASSTRING:=cOMBOBOX4.Text;
        query5.FieldByName('DOVIZ_TUTAR').ASstring:= Edit14.Text;

        Query1.Post;
        query5.Post;
        Query1.Close;
        query5.Close;
        Query1.Open;
        query5.Open;

[P206]

Selamlar


Queryle SQL yazarak denesen.

Kod: Tümünü seç

 insert into tablo (alan1,alan2) values (:alan1, :alan2)

gibi

[fahrettin]

Sayin denizfatihi,
derin bir mesele açtınız.... Bu tür işleri triggerlar aracılığı ile yapmanızı hararetle tavsiye ederim....

Konu ile ilgili kaynak olarak duzenledigimiz seminerleri izlemeyi ve de su makaleyi okumanızı tavsiye ederim...
viewtopic.php?t=644

[Salih]

Merhaba,

Peki denizfatihi'nin sorduğu işlemi triggerlar kullanarak (Kaba hatlarıyla) nasıl yaparız ?

[husonet]

Kod: Tümünü seç

CREATE TRIGGER NAKITISLEMLER_AI0 FOR NAKITISLEMLER
ACTIVE AFTER INSERT POSITION 0
AS
begin
  /* Trigger text */
  insert into hareketler (hareketler.carikod, hareketler.cariunvan, hareketler.tarih, hareketler.islemturu,
  hareketler.borc, hareketler.alacak) values (nakitislemler.carikod, nakitislemler.cariunvan, nakitislemler.tarih,
  nakitislemler.islemturu, nakitislemler.borc, nakitislemler.alacak);


   if (nakitislemler.borc is null) then
    update carikart SET carikart.alacak = carikart.alacak + nakitislemler.alacak where CARIKART.carikod = nakitislemler.carikod;
  Else
    update carikart SET carikart.borc = carikart.borc + nakitislemler.borc where CARIKART.carikod = nakitislemler.carikod;
end

Kolay Gelsin...

[ALUCARD]

ben bu tür işleri procedure kullanarak yapıyorum sonrada trigirle proceduru çağırıyorum boylece bitane procedur yazarak heryerde aynı proceduru cağırıyorum

Procedur

Kod: Tümünü seç

CREATE PROCEDURE MUSTERI_URUN_GIRIS_INSERT (
    ID INTEGER,
    GENELTOPLAM FLOAT)
AS
DECLARE VARIABLE DLR_KAYIT_SAYISI INTEGER;
begin 
      select count(*)from CARIHESAP where ID = :ID INTO DLR_KAYIT_SAYISI;
      if (DLR_KAYIT_SAYISI=0) then
      insert into CARIHESAP (ID,BAKIYE) values(:ID,0);
      update CARIHESAP set BAKIYE = BAKIYE+:GENELTOPLAM where
      ID = :ID;
        End

triger

Kod: Tümünü seç

CREATE TRIGGER FATURABASLIK_INSERT FOR FATURABASLIK
ACTIVE AFTER INSERT POSITION 0
AS
begin
   execute procedure musteri_urun_giris_insert NEW.CH_ID, new.GENELTOPLAM;
   end

bu kayıt yapıldığın da çalışan triger


yanlız ben firebird 1.5 kullanıyorum bu kodları ordan aldım

[ALUCARD]

@husonet hocam valla iyi zamanlama aynı anda yazdık

[husonet]

Maaşallah demek lazım. MAAŞALLAH.

Kolay Gelsin...

[Salih]

Cevaplar için çok teşekkürler.

Biraz daha büyüyeyim de ben de soru cevaplamaya başlayayım diye can atıyorum. İnşallah o günler fazla uzak değildir...

Sevgi, saygı....

[denizfatihi]

bana yardımcı olan akdaşların tümüne teşekir ederim
Hesipnizden Allah razı olsun....

[sair]

eheh sizin verdiğiniz triger ve stored procedure örnekleri firebird e ait, denizfatihini tırmalatacaksınız valla.. SQL serverda bunlar biraz farklı. DEğişkenlerin başına @ işareti falan konuyordu bildiğim kadarıyla. @GENELTOPLAM gibi.. Triger ve stored procedurelerin SQL serverdaki yapısını Naile hanıma sorun bence.... SQL server in uzmanı o...

[denizfatihi]

valla hiç gerek kalmadı 4 query ile işlemi halletmiştim zaten sadece daha
kolay yolu varmı diye merak etmiştim