السلام عليكم ورحمة الله وبركاته
أريد عمل زر يقوم بعملية بحث عشوائية بين records عند ضغط الزر لأول مرة ثم يقوم بعملية
إيقاف البحث عند الضغط على نفس الزر للمرة الثانية علما أنني أعمل على forms 10g


أرجو المساعدة

تم تعديل 4 سبتمبر 200619 سنة بواسطة amer_ib2005

DECLARE
          CURSOR GETEMP IS
           SELECT EMPNO,ENAME,JOB,HIREDATE,MGR,SAL,COMM
             FROM EMP
             where ENAME LIKE '%'||NN ||'%';
         BEGIN
          CLEAR_BLOCK(NO_COMMIT);
          GO_BLOCK('EMP');
          FIRST_RECORD;
          OPEN GETEMP;
          LOOP 
            FETCH GETEMP INTO :EMP.EMPNO,:EMP.ENAME,:JOB,:HIREDATE,:MGR,:SAL,:COMM;
            EXIT WHEN GETEMP%NOTFOUND;
            NEXT_RECORD;
          END LOOP;
          CLOSE GETEMP;
         END;

ملحوظة
اعتقد ان الوقت الذى يستغرقه البحس يكون اسرع من ان تضغط على زر ايقاف
و لعمل 2 زر فى زر و احد ممكن تستخدم الكود التالى

declare
v_name varchar2(50);
BEGIN
v_name:=get_item_property('New',label);
if v_name='Query' then
 GO_BLOCK('PERSON');
  CLEAR_BLOCK;
  set_item_property('New',label,'Execute');
elsif v_name='Execute' then

DECLARE
          CURSOR GETEMP IS
           SELECT EMPNO,ENAME,JOB,HIREDATE,MGR,SAL,COMM
             FROM EMP
             where ENAME LIKE '%'||NN ||'%';
         BEGIN
          CLEAR_BLOCK(NO_COMMIT);
          GO_BLOCK('EMP');
          FIRST_RECORD;
          OPEN GETEMP;
          LOOP 
            FETCH GETEMP INTO :EMP.EMPNO,:EMP.ENAME,:JOB,:HIREDATE,:MGR,:SAL,:COMM;
            EXIT WHEN GETEMP%NOTFOUND;
            NEXT_RECORD;
          END LOOP;
          CLOSE GETEMP;
         END;
end if;
END;

ehab wagdi

تم تعديل 4 سبتمبر 200619 سنة بواسطة hobaa

الأخ الكريم hobaa سأجرب طريقتك وإن شاء الله تكون هي المطلوبة
وجزاك الله كل خير

تم تعديل 5 سبتمبر 200619 سنة بواسطة amer_ib2005

ألأخ الكريم hobaa
قمت بتجريب طريقتك لكنها للأسف لم تعمل اذا كان لديك أي مثال جاهز fmb أرجو التكرم بالمساعدة

declare
CURSOR supp_NAME IS
      select CONF_ID,
            CONF_NAME,
            PALCE,
            DURATION_FROM,
            DURATION_TO,
            NOTEs,
            PALCE_PRICE,
            COMPANY_BUS,
            BUS_PHON,
            BUS_PRICE,
            TOTAL_COST      
     from CONFREES
     where CONF_name like'%'||:CONF_name ||'%';
begin
    OPEN supp_NAME;
     LOOP 
     FETCH supp_NAME INTO :CONF_ID,
                        :CONF_NAME,
                        :PALCE,
                        :DURATION_FROM,
                        :DURATION_TO,
                        :NOTEs,
                        :PALCE_PRICE,
                        :COMPANY_BUS,
                        :BUS_PHON,
                        :BUS_PRICE,
                        :TOTAL_COST;
     EXIT WHEN supp_NAME%NOTFOUND;
    END LOOP;
   CLOSE supp_NAME;
end;
[code]
انا حولت ارفق فورمه بس انت عارففففففففففف
دة كود من فورمه شغاله و مجربها 

ايهاب وجدى

الأخ الكريم hobaa

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

ممكن تبعتلى الفورمه و الجدول الذى يعمل عليها ؟؟؟؟؟؟؟؟
[email protected]

ehab wagdi

حلك سليم لكن لا يعرض الا آخر ريكورد !!!!

ايميلي [email protected]

ممكن تستخدم parameter variable
عند الضغط اعملاستعلام وخلي قيمة
parameter variable بواحد
ثم تعمل فحص في تاني مرة اذا كانت قيمة parameter variable بواحد
لا تعمل استعلام