بتاريخ: 20 يوليو 200619 سنة comment_74838 السلام عليكم اخوانى اعضاء المنتدى الكريمانا عندى مشكلة فى التايمر انا عامل نظام بحث عن طريق التايمر وهى قريبة من فكرة الهيلب انا عامل TEXTBOX وايضا بلوك للبيانات اى عندما مثلا اكتب فى التكست بوكس حرف الS يقوم باستخراج كل الاسامى التى تبدأ بS مثل SCOTT وهاكذاالمشكلة عندما اضغط على مفتاح الSPACE ترجع الCURSOR الى البداية ولا يقبل هذة المسافةاى عندما اريد البحث عن اسم احمد سامى لا يقبل يقبل احمد وعندما اضغط على الSPACE لكتابة سامى لا يقبل فهل هناك حل وادى الكود المكتوب فى التريجير WHEN-TIMER-EXPIRED ---SELECT ENAME FROM TEXTBOX(EMP.SEARCH) USEING TIMER------ IF :EMP.list9 ='ename' AND :EMP.SEARCH IS NOT NULL THEN declare Y VARCHAR2(20):=:EMP.LIST9; X VARCHAR2(20):=:EMP.SEARCH; cursor c1 is select empno,ename,job,sal FROM scott.emp where ename LIKE :EMP.SEARCH ||'%'; begin open c1; --TO CLEAR BLOCK WHEN NEW WORD ENTER CLEAR_BLOCK; Loop fetch c1 into :emp.empno,:emp.ename,:emp.job,:emp.sal; exit when c1%notfound; ----to display ALL RECORDS NEXT_RECORD; end loop; ---BECOUSE THE RECORDS COUNT--- UP; close c1; --PASS Y VALUE TO LIST9 TO SAVE LAST WRITEN VALUE ON LIST---- :EMP.LIST9:=Y; --PASS X VALUE TO TEXTBOX TO SAVE THE LAST WRITEN VALUE ON TEXTBOX--- :EMP.SEARCH:=X; end; END IF; تقديم بلاغ
انضم إلى المناقشة
يمكنك المشاركة الآن والتسجيل لاحقاً. إذا كان لديك حساب, سجل دخولك الآن لتقوم بالمشاركة من خلال حسابك.