بسم الله الرحمن الرحيم
مع المعذرة لمشرفي المنتدى كل العذر حيث أن سرعة الإتصال وصلت عندي مع الأسف من 20 إلى 28 كيلو بايت
لذلك فأنا مضطر لتكرار الموضوع نفسه ولكن وجدت نفسي مضطراً لتعم الفائدة لإخواني وأحبابي مشرفين وأعظاء المنتدى .
أولاً // (( المطلوب )) لعمل دليل هاتفي إعمل معي لتحضير التالي :-
1- إعمل معي على فورم 6 أو 6 آي أو إلخ ..
2- إعمل على مستخدم (سكوت/ تايجر ) .
3- قم بإتباع الخطوات التالية .

1- قم بإنشاء ملف جديد بإسم (sersh.fmb).

2- قم بإنشاء بلوك عادي بإسم (s) .
قم بإنشاء حقل بإسم (emp) ونوعه لستة (combo) وتحتوي على لسته واحدة بحرف الـ (a).
3- قم بإنشاء توبلر لجدول (emp) من عشرة تكرارات وفعل خاصية السكرول بار .
وذلك على الحقول التالي (EMPNO) و (ENAME) و (JOB) و (DEPTNO) .
4- قم بإختيار خصائص بلوك (emp) وفعل خاصية database datablock =إلى ( no ) .
5- قم بإختيار خصائص جميع حقول (emp) وفعل خاصية database item = إلى (no) .
6- قم بإنشاء ترايجر (WHEN-LIST-CHEANGE) على اللستة (S.EMP) .
7- قم بكتابة الترايجر التالي :-

[font=tahoma]--+++++++++++++++++++++++++++++++++++++++++++++++++++++++++
-----------------------------------------
:GLOBAL.EMP := ('%'||:S.EMP||'%') ;		
-----------------------------------------
--++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
-- FOR MORE INFORMATION CONTACT US ( [email protected] )+
-- FOR MORE INFORMATION CONTACT US ( [email protected] )+++
--++++++++++++++++++++++++++++++++++++++++++++++++++++++++++


DECLARE
A VARCHAR2(80);
CURSOR C1 IS SELECT EMPNO,ENAME,JOB,DEPTNO 
FROM EMP WHERE ENAME LIKE :GLOBAL.EMP ;
VEMPNO EMP.EMPNO%TYPE;
VENAME EMP.ENAME%TYPE;
VJOB	 EMP.JOB%TYPE;
VDEPTNO EMP.DEPTNO%TYPE;
BEGIN OPEN C1 ;
GO_BLOCK('EMP');
FIRST_RECORD;
CLEAR_BLOCK;
LOOP
	EXIT WHEN C1%NOTFOUND ;
	FETCH C1 INTO VEMPNO,VENAME,VJOB,VDEPTNO ;
	:EMP.EMPNO := VEMPNO;
	:EMP.ENAME := VENAME;
	:EMP.JOB   := VJOB;
	:EMP.DEPTNO := VDEPTNO;
	EXIT WHEN C1%NOTFOUND;
	NEXT_RECORD;
END LOOP;
PREVIOUS_RECORD;
CLOSE C1;
PREVIOUS_RECORD;
GO_BLOCK('S');
END;[/font]

وستجدون ملفاً مرفقاً قومو فقط بتشغيله في المستخدم سكوت تايجر مع العلم أني أرفقت أكبر عدد ممكن من الحركات الخفيفه عليه ليصبح سهل الإستخدام
أدعوا الله أني أستطيع تحميله بهذة السرعة البسيطة .

search_igb.fmb

شكرا .. جزاك الله خيرا

طريقة طيبة للشرح وفقك الله دائما للخير

اخي العزيز بارك الله فيك وشكرا لك على مجهودك ....في عندي بعض التعليق :-
1- الملف ما قبل ينزل ولكن عملت متل ما شرحت وزبط معي بس في مشكلة بسيطة انو عندما تدخل مثلا للاستعلام عن اسم اول حرف منو مش موجود لا يستعلم اي شيء وينتقل المؤشر الة البلوك emp ولا يقبل ان يرجع المؤشر الى اليست آيتم إلا اذا سكرت الفورم وفتحتو مرة تانية....
2-المشكلة الثانية انو ما بيتعرف على حرف( الاف) مثلا اذا بدي ابحث عن اسم احمد وبكتب اول حرف ا من اسم احمد يعطي رسالة at first record ......وينتقل الى البلوك emp مثل ما شرحت في السابق مع العلم انه يوجد اسم احمد وللتحايل بكتب اول شيئ حرف ح وبعدين برجع بكتب حرف الالف (اح) وبيزط بس ليش بصير هيك