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


اخواني عندي مشكلة بال when new form instance

المطلوب عندما افتح الفورم يظهر لي اسماء ارقام الموظفين المخزنين جميعهم بحيث يوجد لدي جدول تسجيل الغياب
ولدي الحقول التاليه emp_id, emp_name,absence days

المطلوب ان يتم قراءة رقم الموظف واسمه من جدول الموظفين عن طريق cursor ويضع قيمة absance days = 0
بحيث عندما يقوم الموظف بفتح الفورم لتسجيل الغياب تظهر له اسماء وارقام الموظفين اوتوماتيك جميعهم وتكون قيمة ايام الغياب الديفولت 0 بحيث يدخل لكل موظف ايام غيابه او وجدت
اتمنى فهمتهم قصدي


وشكرا لكم ,,

السلام عليكم

declare 

cursor c_get_data is  
   select emp_id_emp_name,  FROM EMPLOYEE
       WHERE  absance Days = 0

   v_emp_id     number;
   v_emp_name   varchar2(100);
     
begin

open c_get_data;
fetch c_get_data into v_emp_id,v_emp_name;

if c_get_data %notfound then
     message (  ' Employee Information Not found');
else

----------Do What you Need--------------
end if;
end;

تم تعديل 17 مايو 200619 سنة بواسطة moh8582

هل هو جدول واحد للغياب ويحتوي على الحقول المذكورة فقط ولكل موظف سجل واحد ؟
ام

هناك جدول للموظفين وجدول للغياب ولكل موظف في جدول الغياب اكثر من سجل؟وهل يتم تسجيل الغياب مرة واحدة ام كل يوم؟

اذا كان جدول واحد فقط
when new form instance

exequte_query;

moh8582

الف شكر لك اخي على حسن تعاونك وسوف اقوم بتجريب الكود


مرحبا اخي
developer
بالنسبة للجداول يوجد لدي جدولين الاول للموظفين والاخر للغياب ويتم فتح جدول الغياب مره كل شهر لحساب الغياب لكل موظف بحيث عندما يتم فتح الفورم يستعرض ارقام واسماء الموظفين الموجودين لدي واقوم فقط بتغير قيمة ايام الغياب الديفولت(0) بأيام غياب كل موظف ان وجد

وشكرا لك ,,

للاسف اخي moh8582 ماضبط معي

يظهر لي الرسالة الذي وضعتها انه لم يجد بيانات الموظفين Employee Information Not found !!
ولكن هناك بيانات الموظفين بجدول الموظفين!!!

سوف اعرض لك الكود السايق اللذي وضعته ولم يتم عرض المطلوب هل هو صحيح ام لا؟

CURSOR cur IS
SELECT employee_id,EMPLOYEE_NAME
FROM EMPLOYEE
WHERE EMPlOYEE_id=:absance.EMPLOYEE_ID;

BEGIN
OPEN cur;
loop
FETCH cur INTO :employee_id,:NAME;
:absance_days:=0;
next_record;
exit when cur%notfound;
end loop;
delete_record;
CLOSE cur;
END;
--EXECUTE_QUERY;

تم تعديل 17 مايو 200619 سنة بواسطة بنت القمر