كيفية التعامل مع الـ Trigger

[Delphi4Us]

بصراحة بحثث عن درس باللغة العربية لاستخدمه كمرجع فلم اجد

على كل حال

ما بقى الان الا الاجراءات المخزنة Procedure

انظرو الى هذا المثال هنا مثلا

كود :

begin select count(mname) from t1 where mname=:mname into num; end

لاحظ ان هناك بارامتر هو Mname وايضا Num

فالاول هو داخلي Input ويجب ان نرسلة عند استدعاء الاجراء

كمثال على ذلك

كود :

if (NEW_PROCEDURE(Trim(new.mname)) > 0) then begin exception NEW_EXCEPTION; end

حيث ان NEW_PROCEDURE هو اسم الاجراء

والبارامتر الثاني هو خارجي Output ويتم اسقبالة من الاجراء نفسه مثل الدوال Function

انظر للمثال السابق حيث نقراء القيمة فاذا كانت اكبر من 0 رفعنا الاستثناء