عندى خصائص للموظف وليكن رقمة 10 الوظائف دى tabular الخصائص دى متخزنة فى الداتا بيز

عايز اعمل كوبى من الخصائص دى لموظف تانى وليكن رقمة 20 على فورم tabular اخرى ازاى بقى

 

 

تم تعديل 4 أكتوبر 201510 سنة بواسطة scdc2003

مش فاهم اوي بس اعمل select  للي انت عايزه و

go_block ;

first_record ;

LOOP

:item1 := attribute1 ;

:item2 := attribute2 ;

exit when :system.last_record = 'TRUE' ;

END LOOP ;

انا عملت الكود بالمنظر دة بس مشتغلش بردة
select v_note, v_cost, doc_amount into :v_note, :v_cost, :doc_amount from d_visit_cost where emp_code = :code;
go_block ('d_visit_cost');

first_record ;

LOOP

:v_note := :v_note ;
:v_cost := :v_cost ;
:doc_amount := :doc_amount ;


exit when :system.last_record = 'TRUE' ;

END LOOP ;

أخي الكريم علشان تقدر تجيب مجموعة من البيانات وتضعها في بلوك معين لازم تعمل حاجة اسمها 

Cursor 

وهو كالتالي 

Cursor C1 Is 
  select v_note, v_cost, doc_amount 
    from d_visit_cost 
   where emp_code = :code;

ثم بعد ذلك 

Begin
go_block ('d_visit_cost'); --- الذهاب للبلوك المراد تعبئته
Clear_Block ;  -- تفريغ البلوك في كل مرة يتم تعبئة البيانات بها

For Rec In C1 Loop -- 
:v_note := Rec.v_note ; -- يتم تعبئة كل حقل بهذه الطريقة وهو أن الحقل = قيمة الحقل الموجود بداخل ال Cursor
:v_cost := Rec.v_cost ;
:doc_amount := Rec.doc_amount ;
Next_Record ;  -- لا بد من عمل السجل التالي لكي يتم تعبئته
END LOOP ;
First_Record ; -- ليست ضرورية ولكنه يتم الوقوف في السجل الأول بعد الانتهاء من تعبئة البلوك
End ;

بالتوفيق 

جزاك الله خير بشمهندس احمد صلاح 

طبعا الطريقة دي لو انت شغال بحاجة اسمها

Control Block

يعني الحقول غير مرتبطة بقاعدة البيانات Not Database Items

 

أما ان كانت الحقول Database Items

فهناك طريقة أسهل وأسرع وهي

انه كلما تم تغير الموظف والضغط على زر مثلا لاستدعاء البيانات عمل التالي

go_block ('d_visit_cost'); 
Execute_query ;  

وفي خصائص البلوك

d_visit_cost

اذهب إلى

Where Clause

واكتب

emp_code = :code

جزاك الله خير بشمهندس احمد صلاح 

واياكم اخي

كل الشكر لكم
جارى التجربة واخباركم بالحل

تم تعديل 6 أكتوبر 201510 سنة بواسطة scdc2003