نفترض هدا هو الجدول

CREATE TABLE avance

(annee varchar2(5),

doti number(15),

nom_comp VARCHAR2(30),

cin varchar2(10),

cadre varchar2(80),

echlon number(2),

dat_effe_ech date,

echlon_propose number(2),

note_der number(2,2),

note_ins number(2,2),

note_del number(2,2),

note_total number(2,2));

السؤال اريد عمل دالة بمجرد الضغط على زر يقوم بحساب مجموع النقط وادخالهلما في note_total

note_total=note_der+note_ins+note_del/3

اليكم النمودج

²photo.rar

avance.rar

MODULE1.rar

تم تعديل 7 يناير 201412 سنة بواسطة ميسم الكرام

هذا هو الكود اخي العزيز

declare

cursor c is
select *
from avance;
v  c%rowtype;

tot number;
begin
open c;
loop
fetch c
into v;
 tot := (v.note_der +v.note_ins+v.note_del)/3;
update avance
set note_total= tot
where doti=v.doti;

  commit;
exit when c%notfound;
  end loop;
close c;
 end;

تم تعديل 7 يناير 201412 سنة بواسطة miash80

declare

cursor c is
select *
from avance;
v c%rowtype;

tot number;
begin
open c;
loop
fetch c
into v;
tot := (v.note_der +v.note_ins+v.note_del)/3;
update avance
set note_total= tot
where doti=v.doti;

commit;
exit when c%notfound;
end loop;
close c;
end;

اخي مش شغالة اضغط على الزر ودون احادث تغيير في حقل note_total وان الفورمة تتوقف عن التشغيل

تم تعديل 7 يناير 201412 سنة بواسطة ميسم الكرام

declare

cursor c is
select *
from avance;
v c%rowtype;

tot number;
begin
open c;
loop
fetch c
into v;
tot := (v.note_der +v.note_ins+v.note_del)/3;
update avance
set note_total= tot
where doti=v.doti;

commit;
exit when c%notfound;
end loop;
close c;
end;

اخي مش شغالة اضغط على الزر ودون احادث تغيير في حقل note_total وان الفورمة تتوقف عن التشغيل

 

 

 

اخي العزيز  الكود شغال على SQL Plus  

 

اما اذا كنت تريد تشغيله على الفورم ما عليك سو التغير في الكود كالتالي

 declare
 	
 	
 begin
 	
 	go_block('avance');
 	first_record;
 for rec in
 (select *
 from avance)loop
 	
 	
 	 :note_total :=(:note_der+:note_ins+:note_del)/3;
 
 	 next_record;
 	 
 end loop;
 commit;
 end;
 first_record;
 	 

تم تعديل 8 يناير 201412 سنة بواسطة miash80