ارجو المساعده

[alos]

بسم الله ارحمن الرحيم
اخوتي واستاذتي / السلام عليكم ورحمه الله وبركاته
انا اخوكم مشترك حديث في هذا المنتدى اريد منكم المساعده وانا اعلم انكم لان تردوني خائب
انا اعمل على برنا مج لادراه مركز تدريب وتاهيل خاص بدورات الحاسوب هو مشروع تخرجي
واواجه مشكله والله عجزت على ان احلها وانتم املي الوحيد في الحل المشكله هي في كود
برمجي يعمل على اضهار رساله للمستخدم عند تحقق شروط معينه وبعد الموافقه على الرساله
بالظغط على نعم في الرساله يقوم الكود بنقلي الى فورم اخر وهو يعمل ولكن اريد منه بعد ان
ينقلني الى البلوك الاخر ان يقوم بعمله ترقيم تلقائي للبلوقك الذي ينتقل اليه وهذه هي المشكله
فل الكود الذي لدي يعمل كل الخطوات بنجاح ولكن لا يقوم بعمله الترقيم التلقائي
وهذ هو الكود الذي لدي الرجا مساعدتي وحل هذه المشاكله لي

declare
cursor cu is select cid from stucyl;
c number(6);
x number(6):=0;
r number;
begin
open cu;
loop
fetch cu into c;
exit when cu%notfound;
select count(cid) into :student.x from stucyls where cid=c;
x:= :student.x;
if x>= 10 then
:student.x1:=c;
select cname into :student.x2 from cycles where cid=c;
set_alert_property('msg',title,'group complate');
set_alert_property('msg',alert_message_text ,'you must add new group for cycle '
||:student.x2 || ' click yes to add new group');
if show_alert('msg')=alert_button1 then

go_block('add');
end if;
exit;
end if;
end loop;
end;
[يسار]

[/يسار]

مع العلم ان هذا الكود يعمل بشكل صحيح ولكني اريد اظافه ما يلزم لئجرا عمليه الترقيم التلقائي فقط ...

groups مع العلم ان البلوك الذي انتقل اليه هو يسماء قي القاعده



add واسم البلوك
gid واسم الحقل الذي الريد ان يترقم تلقائيا

الرجا مساعدتي ولكم جزيل الشكر

اخوكم من اليمن الحبيب اسامه الكبسي

تم تعديل 17 يوليو 2009 بواسطة alos

[Ahmad.Hasan]

السلام عليكم
اخي استخدم الكود التالي وضعه على ترجر PRE-INSERT على مستوى البلوك:

SELECT MAX(NVL(GID,0)+1)
INTO :ADD.GID 
FROM UR_TABLE_NAME;

بالتوفيق

[alos]

شكرا لك اخي
ادامكم الله ونفع بكم الامه

[Ahmad.Hasan]

بالتوفيق اخي...