صباحكم ومساكم سكر

لو سمحتوا اريد مساعدتكم في مشروعي

انا عندي تابلر فورم واريد اعمل buttons الي اهي next , back تعمل عمل ال scrolbar لاني اريد الاستغناء عنه وستخدام ازرار بدل عنه في تحريك المعلومات واريد اضيف رقم الصفحه فمثلا اذا ضغطت على نكست تنعرض المعلومات اللاحقه مثل scrolbar و تصبح الصفحه رقم 2 اي كانه يستعرض كتاب واذا ضغط back تنعرض المعلومات السابقه ويصبح رقم الصفحه 1

تم تعديل 21 يناير 201016 سنة بواسطة فراولة

Next_Record;
Previous_Record;

شكرا اخوي على الرد بس هذي الكود بيروح على كل ريكورد انه اريد ينتقل للمجموعه الثانيه من الريكوردز الي غير ظاهره

بإمكانك تسمي ال tab نفس اسم الblock الموجود بداخله

اوردي اهو باسمه

انا لقيت الحين كوماند next_set ونجح في الانتقال للمجموعه الثانيه من المعلومات بس لا يوجد previuse set الرجاء المساعده

دى طريقة من اختراعى .. مجربة و شغالة 10/10
تتلخص الطريقة فى الخطوات التالية
عمل
1. حقل PNO سوف يكتب فية رقم الصفحة
2.باراميتر رقمى RECORD_NO
3. عدد 2 زر يوضع فى نفس البلوك YOUR_BLOCK لعمل تالى - سابق
4. ليكن عدد السجلات المستعرضة فى الصفحة 6 مثلا ويمكنك تغيير الرقم كما يحلو لك

نأتى للأكواد

1. WHEN NEW FORM INSTANCE

GO_BLOCK('YOUR_BLOCK');
EXECUTE_QUERY;
LAST_RECORD;
:PARAMETER.RECORD_NO := GET_BLOCK_PROPERTY('YOUR_BLOCK',CURRENT_RECORD);
FIRST_RECORD;
:PNO := 1;

2.زر التالى

IF 6*:PNO >= :PARAMETER.RECORD_NO THEN 
MESSAGE('THIS LAST_PAGE');
ELSE

GO_RECORD((:PNO+1)*6);
:PNO := :PNO +1;
END IF;

3. زر السابق

IF :PNO = 1 THEN 
MESSAGE('THIS IS FIRST PAGE');
ELSE	
GO_RECORD((:PNO-1)*6);
:PNO := :PNO -1;
END IF;

على فكرة الكود ده مكنش موجود عندى انا عملتة مخصوص عشانك و يا رب يكون مناسب

طبعا لو عدد الريكورد مختلف فى الشاشة و ليكن 10 ريكورد بس غير العدد فى الكود من 6 الى 10

عفوا انا كنت بكتب بصيغة المذكر مكنتش واخد بالى من الاسم ... تقبلى اعتذارى

تم تعديل 24 يناير 201016 سنة بواسطة egyhamada

شكراا اخي الكريم الكود شغال بس زر ال back ما يرجعني الى اول ريكورد

انا في جدولي 13 ريكورد الان واذا يوصل الى الريكورد رقم 5 يقف ما يرجع للبدايه
واسمحلي اتعبتك معاي

تم تعديل 25 يناير 201016 سنة بواسطة فراولة

الجدول به 13 ريكورد و انتى بتعرضى كام ريكورد فى الصفحة ؟؟

6 بشكل عرضي HOREZANTAL

فى زر back
عند خروج رسالة انت فى الصفحة الاولى بعدها اكتبى

FIRST_RECORD;

يعنى الكود يكون كالتالى

IF :PNO = 1 THEN 
   MESSAGE('THIS IS FIRST PAGE');
FIRST_RECORD;
ELSE    
GO_RECORD((:PNO-1)*6);
:PNO := :PNO -1;
END IF;

و بالتوفيق ان شاء الله

شكرا جزيلا اخوي