السلام عليكم ورحمة الله وبركاته


هذه أول مشاركة لي


وحبت أشارك بموضوع يشغل بال الكثيرين


الا وهو شاشة الدخول غير شاشة الأوراكل
هذه الطريقة ووضعت لكم مثال




Creating logon screen in Oracle Forms

PRE-FORM TRIGGER

BEGIN
:global.quit := 'FALSE';
:global.v_attempt := 0;
END;

WHEN-WINDOW-ACTIVATED-TRIGGER

--MAXIMIZE WINDOWS
SET_WINDOW_PROPERTY(FORMS_MDI_WINDOW, WINDOW_STATE, MAXIMIZE);
SET_WINDOW_PROPERTY('LOGIN_FORM', WINDOW_STATE, MAXIMIZE);

IF :global.quit='TRUE' THEN
 Log_on;
END IF;

ON-LOGON TRIGGER

logon(get_application_property(USERNAME), 
     get_application_property(PASSWORD)||'@'||get_application_property(CONNECT_STRING), FALSE);
if not form_success then
 :global.bad := 1;
 raise form_trigger_failure;
end if;

LOGON BUTTON CODE

WHEN-BUTTON-PRESSED TRIGGER

if :LOGIN_BLOCK.USERNAME is null then
 message('User must be entered !');
 go_item('LOGIN_BLOCK.USERNAME');
 return;
end if;
if :LOGIN_BLOCK.PASS_WORD is null then
 MESSAGE('Password must be entered !');
 go_item('LOGIN_BLOCK.PASS_WORD');
 return;
end if;
set_application_property(CURSOR_STYLE,'BUSY');
:global.bad  := 0;
if :LOGIN_BLOCK.CONNECT_STRING is null then
 logon(:LOGIN_BLOCK.USERNAME,:LOGIN_BLOCK.PASS_WORD, FALSE);
else
 logon(:LOGIN_BLOCK.USERNAME,:LOGIN_BLOCK.PASS_WORD||'@'||:LOGIN_BLOCK.CONNECT_STRING, FALSE);
end if;
if :global.bad = 0 and form_success then
 set_application_property(CURSOR_STYLE,'DEFAULT');
 open_form('MAIN_MENU');
ELSE
 :global.v_attempt  := :global.v_attempt  + 1;
 set_application_property(CURSOR_STYLE,'DEFAULT');
 if :global.v_attempt  < 3 then
   MESSAGE('Username/Password was invalid. Please re-enter !');
   go_item('LOGIN_BLOCK.USERNAME');
 else
   MESSAGE('Three Invalid Login Attempts. Account Locked');
   exit_form(no_validate);
 end if;
end if;

CANCEL BUTTON

WHEN-BUTTON-PRESSED TRIGGER

BEGIN
EXIT_FORM(no_validate);
END;

PROGRAM UNIT Log_on

PROCEDURE Log_on IS
BEGIN
 :global.quit := 'TRUE';
 exit_form(no_validate);
END;

وارجو الرد على من استفاد منه ويقول لي رايه

تم تعديل 30 ديسمبر 200421 سنة بواسطة ابو صالح

وهذا مثال من تصميمي

LOGON.zip

شكله مافي احد عجبه الموضوع

لان مافي أحد رد اذا كان عجبه الموضوع

وانا كنت بسوي مواضيع ومعلومات تفيد


ولكن لم القى رد من احد



وهذا هيكون اخر كلام وانشاء الله نتقابل مع بعض في منتديات أخرى


ومعليش لانها كانت ايامي معكم قليلة وشكراُ للجميع

يعطيك الف عافيه يا sunmoon ،،

وجعلها في موازين حسناتك ،،، والله لايجيب الزعل ابداً...

كل الشكر والتقدير لك يأخى .. بس خلى بالك طويل ونحن بنقدر كل المجهودات المبذولة

شمس القمر هي نفسها شمس الارض ولا ايش

السلام عليكم ورحمة الله وبركاته،،

جزاك الله خير .......
و لكن يا أخى من اجل الشكر فلا تعمله انتبه الى هذه الآية.. قال الله عز و جل
(( فمن كان يرجوا لقاء ربه فليعمل عملاً صالحأً و لا يشرك بعبادة ربه أحداً)) صدق الله العظيم.
اى يا أخى يجب ان يكون العمل لله خالصأ لوجه الكريم...
و منتظرين اسهاماتك فى المنتدى ........
و جزاك الله خير مرة اخرى

الله يعطيك الف عافيه

s unmoon شكراااااا

شكرا على الموضوع الجميل دة

شكرا لك يا أخى
ان كان ما تبغيه هو كلمة الشكر
احسن نيتك لله .. واعمل العمل لا تريد به إلا وجه الله تعالى

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

الشاطىء

شكرااا

جزاك الله خير الجزاء
أرجو التثبيت من المشرفين

ولا تغيب عنا

يسلمو الايادي

ماشاء الله الله يعطيك العافية

مجهود رائع من رجل رائع

Oracle ITself

ننتظر المذيد
الله يعوضك
ايهاب وجدى

جزاك الله خير .. عمل رائع

الاخ العزيز
اشكرك من قلبي على مشاركتك
انا لم اقرا مشاركتك الافي الشهرالثاني من العام 2006
لكني وجدت ماابحث عنه فيها لذا هل عرفت الان كم كانت مشاركتك في هذا المنتدى لها قيمه
ثم انه يجب ان تضع مشاركاتك
وتهبهل لله قبل ان تهبها لاخوانك المسلمين
وفقك الله

بارك الله فيك و جزاك عنا خيرا

الله يجيرك بما كتبت وربنا يوفقك

أخي الفاضل جزاك الله خيرا وجعل ذلك في ميزان حسناتك وقذف الله في قلبك الإخلاص له دائما
و أرجوا منك ان تكتب نظام صلاحيات كامل في FORMS 10G

جزاك الله كل خير على المجهود الرائع .. موضوع مهم جدا

تسلم يا غالى اريت تفيدنى حول تصميم صفحة login تحتوى على password &user name فقط للدخول للصفحة الرئيسية لبرنامج بنكى مثلا