اهلآ شباب
انا بشتغل منول وعوز لما يصل الى نهاية البيانات اللى فى الجدول تظهر رساله بس انا مش عارف الحل ايه ؟؟ انا وجدة الحل بس wizerd
هذا هو الكود

DECLARE
 CURSOR PERSON_NAME IS
   select PER_ID,PER_NAME,BIRTHDATE,
     EMAIL_ADDRESS,GENDER,MARITAL_STATUS,
     FAMILY_ID,CHURCH_ID,ADDRESS,STREET_ID,
     AREA_ID,COUNTRY_ID,PHONE,FATHER_CONN  
   from person
   where per_id=:per_id+1
   ORDER BY PER_ID;
BEGIN
GO_BLOCK('PERSON');
OPEN PERSON_NAME;
LOOP
  FETCH PERSON_NAME INTO :PERSON.PER_ID,
:PERSON.PER_NAME,:PERSON.BIRTHDATE,
:PERSON.EMAIL_ADDRESS,
       :PERSON.GENDER,:PERSON.MARITAL_STATUS,
:PERSON.FAMILY_ID,:PERSON.CHURCH_ID,
      :PERSON.ADDRESS,:PERSON.STREET_ID,
:PERSON.AREA_ID,:PERSON.COUNTRY_ID,
:PERSON.PHONE,:PERSON.FATHER_CONN;
      EXIT WHEN PERSON_NAME%NOTFOUND;
END LOOP; 
CLOSE PERSON_NAME;
END;

اخي الكريم
هذا التعديل على الكيرسر يجب استخدام NEXT_RECORD وكذلك الذهاب الى بداية السجل قبل بداية ال LOOP

DECLARE
CURSOR PERSON_NAME IS
  select PER_ID,
             PER_NAME,
             BIRTHDATE,
             EMAIL_ADDRESS,
             GENDER,
             MARITAL_STATUS,
             FAMILY_ID,
             CHURCH_ID,
             ADDRESS,
             STREET_ID,
             AREA_ID,
             COUNTRY_ID,
             PHONE,
             FATHER_CONN     from person
                                  where per_id=:per_id+1
                                  ORDER BY PER_ID;
BEGIN
GO_BLOCK('PERSON');
first_record
OPEN PERSON_NAME;
LOOP
 FETCH PERSON_NAME INTO  :PERSON.PER_ID,
                                                        :PERSON.PER_NAME,
                                                        :PERSON.BIRTHDATE,
                                                        :PERSON.EMAIL_ADDRESS,
                                                        :PERSON.GENDER,
                                                        :PERSON.MARITAL_STATUS,
                                                        :PERSON.FAMILY_ID,
                                                        :PERSON.CHURCH_ID,
                                                        :PERSON.ADDRESS,
                                                        :PERSON.STREET_ID,
                                                        :PERSON.AREA_ID,
                                                        :PERSON.COUNTRY_ID,
                                                        :PERSON.PHONE,
                                                        :PERSON.FATHER_CONN;
                NEXT_RECORD;
                IF :SYSTEM.LAST_RECORD='TRUE' THEN
                      MESSAGE('YOU ARE IN LAST_RECORD');            
                      MESSAGE('YOU ARE IN LAST_RECORD');            
                       EXIT WHEN PERSON_NAME%NOTFOUND;
                END IF;
END LOOP; 
CLOSE PERSON_NAME;
END;

مشكورآآآآآآآآآآآآآآآآآآآآآآآآآآآآآآآآآآآآآآآآ اخى اسامة

ايهاب وجدى

مشكوآ اخى ولكن بعد التجربه تحدث اشياء غريه مثل
عند الضغط على السجل السابق يرجع ( مفيش مشكله ) ولكن عند الضغط على التالى لا يتقدم سوى سجل واحد فقط ؟؟؟؟؟؟؟؟؟؟؟؟؟

حاجه غريبه

ايهاب وجدى