السلام عليكم ورحمة الله وبركاته

عندي مشروع برنامج أحتساب أقساط بنكية .. و حابب أعمل نافذة تظهر لي الأقساط المنتظر تسديدها لهذا الشهر من بين كل العملاء.

فكيف أعمل جملة سيليكت تجلب لي عملاء هذا الشهر وترتبط مع تاريخ اليوم و تتغير بحسب تغيرة يوما و شهرا وسنة ..

ملاحظة : جملة السيليكت راح أكتبها في ترايجر في الديفلوبر على مستوى الفورم ..صح ولا غلط؟

السلام عليكم ورحمة الله وبركاته

عندي مشروع برنامج أحتساب أقساط بنكية .. و حابب أعمل نافذة تظهر لي الأقساط المنتظر تسديدها لهذا الشهر من بين كل العملاء.

فكيف أعمل جملة سيليكت تجلب لي عملاء هذا الشهر وترتبط مع تاريخ اليوم و تتغير بحسب تغيرة يوما و شهرا وسنة ..

ملاحظة : جملة السيليكت راح أكتبها في ترايجر في الديفلوبر على مستوى الفورم ..صح ولا غلط؟

بص يا مدير انت مكنها تكتبها في ترجر في فورمة وممكن تكتبها في بروسيدار بيقى متسجل في الداتا بيز اللي تمشي على الحليين
دي على شكل بروسيدر
create or replace procedure rep1 (parameter p_date date)
is
begin
for i in
(select custno , custname , paydate , payment from customer where paydate = p_date and payment = null )
loop ;
dbms_ourput.line_put('i.custno || '-' || i.custname || '-' || i.paydate || '-' || i.payment');
end loop;
end;
--comment
/*
- p_date براميتر علشان تتدخل فيه التاريخ اللي اليوزر عاوز يبحث بيه
- custno ده يشير الى اسم العميل في التابل بتاعك
- custe name ده بيشير الى اسم العميل
- payment الدفعة كمبلغ
*/
انا ديفلوبر جديد بس ده على قد اجتهادي جرب ولو فيه اخطاء بلغني
وانشاء الله احاول اعلهالك كتريجر

أشكرك جدا اخي ..اتمنى ابوسك على رأسك ..
جزاك الله خيرا عل تعاونك معاي

نحنا عاملين كورس بروجيكت لازم نسلمة نهاية الفصل دة..
انا لازم اعمل الوجهات بالديفلوبر
و شخص أخر علية عمل قاعدة البيانات .. وهوه لم ينشأها بعد
لذا الى ذلك الحين سوف أحتفظ بالكود الخاص بالبروسيدر
وانتظر - إن أمكن - كود الترايجر

بيني وبينك الاستاذ لم يتطرق بعد لشرح البروسيدر لهذا
معلوماتي عنة قليلة (سوف أسئل الاستاذ عنه لاحقا)

و جزاك الله خيرا و نفعنا بك

تم تعديل 8 ديسمبر 201213 سنة بواسطة m.nasser

لاقيت شرح على البروسيدر في هذا الموضوع
http://www.araboug.org/ib/index.php?showtopic=13140

و رحت طبقت الكود تبعك (بدون قاعدة بيانات طبعا)

صار كذا

ده مثال حاول تغير اسماء الايتم عندك وكمان تشوف العلاقات عندك ماشيه ازاى والربط بين الجداول

DECLARE
CURSOR C IS SELECT EMP_ID, EMP_NAME ,PAYMENT_ID
 PAYMENT_NAME
FROM TABLE_NAME
WHERE EMP_ID = :BLK.EMP_ID
AND PAYMENT_DATE = :BLK.ITEM_DATE;
BEGIN
FOR I IN C LOOP
:BLK.EMP:=I.EMP_ID;
:BLK.ENAME:=I.EMP_NAME;
:BLK.PAYMENT_ID:=I.PAYMENT_ID;
:BLK.PAYMENT_NAME:=I.PAYMENT_NAME;
END LOOP;
CLOSE C;
END;