مرفق لكم صورة لاحد الانظمة البرمجية لأحدى الشركات انا اريد عند تحديد الكل يقوم بتحديد كل chech box هل توجد خاصية لهذه ام لا

طبعاً نحتاج بالبداية الى اضافة بلوك واداة تشك بوكس لهذا البلوك ولنسمي البلك

block5

والاداة

all

اما البلك المرتبط بقواعد البيانات والذي يحتوي على اداة تشك بوكس مرتبطة بعمود نفترض ان اسم البلك

check

والاداة سوف يكون اسمها

status

والصورة في المرفقات توضح اكثر

وبالتالي سوفغ يكون الكود التالي في حدث النقر على اداة التشك بوكس

المسماه all

 

 

 

go_block('check');
first_record;
loop
            :check.status := :all;
            next_record;
                        synchronize;
            exit when :system.last_record = 'TRUE';            
end loop;
:check.status := :all;
 

 

 

والسلام عليكم ورحمة الله,,,,,,, فارس

تم تعديل 8 أبريل 201313 سنة بواسطة Ahmad.Hasan

السلام عليكم

وبامكانك استخدام الكود التالي:

 

 

 

Declare
 Num_Total_Records Number;
 Num_Loop_I        Number;
Begin
 Go_Block('Blk_2');
 First_Record;
 Last_Record;
 Num_Total_Records := To_Number(Name_In('SYSTEM.CURSOR_RECORD'));
  First_Record;
   For Num_Loop_I In 1..Num_Total_Records Loop
    If :Blk_0.Check_All = 1 Then
     :Blk_2.Check_Flag := 1;
      Next_Record;
    Else
     :Blk_2.Check_Flag := 0;
      Next_Record;     
    End If;    
   End Loop;
    First_Record;
  :System.Message_Level := 25; 
   Commit;
  :System.Message_Level := 0;    
End;
 

 

 

مع مراعاة وجود Check Box على Control Block مثلا وعند التحديد عليه يتم تحديد جميع الـ Check Box الموجودة في البلوك الثاني.

 

الف الف شكر لكما وجعل الله في ميزان حسنتكم