إنتقال للمحتوى

  • تسجيل الدخول عبر الفيس بوك تسجيل الدخول عبر تويتر Log In with LinkedIn Log In with Google      تسجيل دخول    
  • إنشاء حساب

صورة
- - - - -

ما معنى وجود كلمة Return فى البروسيدجر التالى؟


5 رد (ردود) على هذا الموضوع

#1 here comes

here comes

    مشترك

  • الأعضــاء
  • 90 مشاركة
  • البـلـد: Country Flag

تاريخ المشاركة 10 May 2008 - 05:50 PM

ما معنى وجود كلمة return فى البروسيدجر التالى؟

PROCEDURE move_element(t_list_from in varchar2, t_list_into in varchar2) IS
lb varchar(14);
vl number;
idx_from number; idx_into number;
BEGIN idx_from := Get_List_Current_Index(t_list_from);
IF idx_from = 0
then RETURN;
end if;
idx_into := Get_List_Current_Index(t_list_into);
if idx_into = 0
then Clear_List(t_list_into);
end if;
lb := Get_List_Element_Label(t_list_from, idx_from);
vl := Name_IN(t_list_from);
Add_List_Element(t_list_into, idx_into +1, lb, vl);
Copy(vl, t_list_into);
Delete_List_Element(t_list_from, idx_from);
idx_from := Least(idx_from, Get_List_Element_Count(t_list_From));
vl := Get_List_Element_Value(t_list_from, idx_from);
Copy (vl, t_list_from);
END;


مع العلم أن
Get_List_Current_Index
عباره عن function ترجع قيمة index على ال list item

وهى كالتالى

FUNCTION Get_List_Current_Index(List_Name in varchar2) RETURN NUMBER IS
cnt number;
ret number := 0;
list_val number := Name_IN(List_Name);
BEGIN cnt := Get_List_Element_Count(List_Name);
for i in 1..cnt LOOP
IF List_Val = Get_List_Element_Value(List_Name, i)
then ret := i;
exit;
end if;
end loop;
return ret;
END;


تحياتى

#2 weloooo

weloooo

    مشرف

  • فريق الإشراف
  • 249 مشاركة
  • البـلـد: Country Flag

تاريخ المشاركة 10 May 2008 - 09:22 PM

السلام عليكم.

كلمة RETURN تستخدم لإنهاء القطعه البرمجيه مباشرة (أي أنه إذا تحقق الشرط يتم الخروج من القطعه البرمجيه دون اللجوء إلى كلمة END في آخر الكود، ) بعد تحقيق الشرط في الكود السابق. مثل كلمة EXIT في ال LOOP. والمشابهه لها في الإستخدام كلمة GOTO مع إجراء بعض الإضافات لجملة GOTO.

أحمد يحيى


Oracle Apps Senior Technical Consultant


#3 here comes

here comes

    مشترك

  • الأعضــاء
  • 90 مشاركة
  • البـلـد: Country Flag

تاريخ المشاركة 10 May 2008 - 09:26 PM

جزاك الله ألف خير ياباشا

وأنا لاحظت ردود كتير ليك لمساعده المستفسرين فجزاك الله خير

#4 weloooo

weloooo

    مشرف

  • فريق الإشراف
  • 249 مشاركة
  • البـلـد: Country Flag

تاريخ المشاركة 10 May 2008 - 11:13 PM

ولك بمثل ما دعوت لي إن شاء الله. هذا من واجب كل مسلم فزكاة العلم نشره.

أحمد يحيى


Oracle Apps Senior Technical Consultant


#5 Amgad

Amgad

    مشرف عام ومشرف قسم تحليل النظم

  • الفريق الإداري
  • 4,557 مشاركة
  • الاسم الأول:امجد
  • اسم العائلة:حلمي
  • البـلـد: Country Flag
  • المنصب الحالي:Business Systems Analyst at al Fanar Co. Riyadh KSA

تاريخ المشاركة 11 May 2008 - 02:03 AM

وأنا لاحظت ردود كتير ليك لمساعده المستفسرين فجزاك الله خيرا



الأخ / احمد

اود ان اشكرك على المجهود المتميز بالمنتدى وعلى سرعة الرد على الاخوه الاعضاء ...

بارك الله فيك

تقبل تحياتى

لا إله إلا الله الحليم الكريم
لا اله إلا الله العلى العظيم
لا اله إلا الله رب السماوات السبع و رب العرش العظيم
‏اللهم ارزقني قبل الموت توبة وعند الموت شهادة وبعد الموت جنة
اللهم ارزقني حسن الخاتمة
اللهم هون علينا سكرات الموت ... ونور علينا قبورنا
اللهم ارزقني الموت وأنا ساجد لك يا ارحم الراحمين
اللهم ثبتني عند سؤال الملكين
اللهم اجعل قبري روضة من رياض الجنة ولا تجعله حفرة من حفر النار
اللهم اني اعوذ بك من فتن الدنيا
اللهم ارحم ابائنا وامهاتنا واغفر لهما وتجاوز عن سيئاتهما وادخلهم فسيح جناتك ... والحقنا بهما يا رب العالمين
اللهم ارحم موتانا وموتى المسلمين واشفي مرضانا ومرضى المسلمين
اللهم اغفر للمسلمين والمسلمات والمؤمنين والمؤمنات الأحياء منهم والأموات
وبارك اللهم على سيدنا محمد صلى الله عليه وسلم
اللهم آمين ... اللهم آمين ... اللهم آمين


....


#6 weloooo

weloooo

    مشرف

  • فريق الإشراف
  • 249 مشاركة
  • البـلـد: Country Flag

تاريخ المشاركة 11 May 2008 - 01:04 PM

والله يا أخ أمجد كلماتك هذه لها معنى كبير عندي ، عموماً مشاركاتي قليله بالنسبه لمشاركات الإخوه الأعضاء الآخرين وأتمنى أن أكون سبب لنفع الجميع

أحمد يحيى


Oracle Apps Senior Technical Consultant