السلام عليكم
تحية طيبة وبعد
جزا الله القائمين على هذا المنتدى خير.
اما سؤالي فهو اذا اردت ان اعمل معايير البحث في البلوك SER1 كالتالي
حقل رقم الموظف- حقل اسم الموظف- قائمة (LIST ITEM )رقم القسم
عندما يدخل المستخدم المعايير التي يريدها(سواء رقم القسم فقط او رقم الموظف فقط او جميع المعايير ) يضغط زر بحث فيعطيه النتيجة رقم الموظف واسم الموظف في البلوك SER2.
افيدونا وجزاكم الله خير

بسم الله الرحمن الرحيم
بالنسبه للبحث في بلوك .. فهذا الموضوع محتاج الى إنك تحط شرط في ال Where Clause بالنسبه للبلوك اللي هيعرض النتائج ..
فممكن إنك تحط على الزرار تريجر بحيث أول ما يدوس عليه .. يضع هذا الشرط في ال Where Clause ويعمل Execute_Quary
>>>>
وبإذن الله .. لو صبرت عليا شويه .. هبعتلك مثال على البحث ده ...
والله الموفق ..

Abdallah Emad

بسم الله الرحمن الرحيم

هذا هو الكود الخاص بالبحث بعدت قيم .. وبإذن الله يشتغل معاك تمام ..

وطبعا إذا في حد من الإخوه عنده أي تعديل .. على الرحب والسعه

Declare

V_Where Varchar2(1000):='1=1 ';

Begin

--This Code For Numbers Values
   	
If :SEARCH_BLK.Item_1 Is Not Null Then
  
  v_where := v_where || ' And My_BLK.Item_1 = :SEARCH_BLK.Item_1';
  
End If;  

--This Code For Characters Values

If :SEARCH_BLK.Item_2 Is Not Null Then

  V_Where := V_Where || ' And   Upper(My_BLK.Item_2) like upper(:SEARCH_BLK.Item_2) || ''%''';
  
End If;  


Set_block_property('My_BLK',Query_Allowed,Property_True);	

Set_block_property('My_BLK',Default_Where,V_Where);	

Go_block('My_BLK');
 
   Execute_Query;
 
If :My_BLK.Item_1 Is Null Then --Where Item_1 Is The Primary Key

Message('Ther Is No Data Found');  
Message('Ther Is No Data Found');

End If;
 
    Go_Item('SEARCH_BLK.Item_1');
 
Set_Block_Property('My_BLK',Query_Allowed,Property_False);  
 
End;	

ِAbdallah Emad

بسم الله الرحمن الرحيم

هذا هو الكود الخاص بالبحث بعدت قيم .. وبإذن الله يشتغل معاك تمام ..

وطبعا إذا في حد من الإخوه عنده أي تعديل .. على الرحب والسعه

Declare

V_Where Varchar2(1000):='1=1 ';

Begin

--This Code For Numbers Values
   	
If :SEARCH_BLK.Item_1 Is Not Null Then
  
  v_where := v_where || ' And My_BLK.Item_1 = :SEARCH_BLK.Item_1';
  
End If;  

--This Code For Characters Values

If :SEARCH_BLK.Item_2 Is Not Null Then

  V_Where := V_Where || ' And   Upper(My_BLK.Item_2) like upper(:SEARCH_BLK.Item_2) || ''%''';
  
End If;  


Set_block_property('My_BLK',Query_Allowed,Property_True);	

Set_block_property('My_BLK',Default_Where,V_Where);	

Go_block('My_BLK');
 
   Execute_Query;
 
If :My_BLK.Item_1 Is Null Then --Where Item_1 Is The Primary Key

Message('Ther Is No Data Found');  
Message('Ther Is No Data Found');

End If;
 
    Go_Item('SEARCH_BLK.Item_1');
 
Set_Block_Property('My_BLK',Query_Allowed,Property_False);  
 
End;	

ِAbdallah Emad

50922[/snapback]

الاخ الي اعطانا الكود الثاني جزاك الله خير
بس كان لي طلب هو انه اذا عندي استعلام معاييره من أكثر من جدول وبأكثر من حقل يعني بالتفصيل الممل اذا اردت اعمل حقل اسم الموظف ورقمه وعملة وراتبه ورقم قسمة واسم قسم وموقعه انت هنا ما ممكن تستخدم جملة set_block_property وعلى افتراض انه في برنامجي الخاص معي 15 معيار موزعيين على أكثر من جدول كيف ممكن تكون جملة select
أفيدونا وجزاكم الله خير

بسم الله الرحمن الرحيم

بالنسبه للبحث اللي بتقول عليه يا أخ \ asddsa .. فالموضوع برده بسيط ..

لو إفترضنا إننا عندنا فورم فيها 3 بلوك .. الأول : M_BLK , والتاني : D1_BLK ,والتالت : D2_BLK >>>....

في هذه الحاله .. أنا عندي 3 بلوك .. واحد ماستر و2 ديتيل ..

لو قلنا مثلا إني عايز أدور في الماستر .. هيكون البحث عادي ..( مثل ما سبق شرحه ) .. وطبعا أول ما أعمل Execute_Query هيجيبلي الديتيل بتاعتي كمان .. أما إذا جينا للبلوك الأخر اللي هوا الديتيل .. فهنا كل اللي هنزوده فقط .. إننا هنحط في ال Where Clause اللي في M_BLK شرط يجيبلي كل الحجات اللي دي الديتيل بتاعها ...

بمعنى .. إننا مثلا لو جينا على Emp و Dept ال Emp ماستر وال Dept ديتيل .. وأنا بدور على أي حاجه في ال Dept هكتب الشرط في ال Emp وهيكون كالتالي :

Where :Dept.Id = :Emp.Dept_id

طبعا هيجيبلي كل الموظفين اللي في الإداره اللي أنا حطيتها ..

.. ولو عايز تدور في الإتنين مع بعض .. كل اللي هتعمله .. نفس الكود اللي فات .. بالظبط ..بس هتحط الشروط اللي بتربط كل بلوك بالتاني .. زي المثال اللي فات .. وهتخلي معايير البحث كل واحده معروفه هيا بتاعة أي بلوك بالظبط وكل واحده بتحط في ال Where Clause بتاعة البلوك اللي تبعها ........

جرب الخطوات دي .. وبإذن الله لو في أي حاجه مش واضحه أو مش مفهومه .. قولي وأوضحهالك أكتر بإذن الله ..

Abdalla Emad