السلام عليكم
سؤالي كالتالي وارجوا الافادة :
اريد ان انشأ form واضع لة trigger بحيث اذا اراد المستخدم الدخول على form يطلب منة ادخال اسم المستخدم
وكلمة المرور ويقوم التأكد من الادخالات
وكذلك اضع زر push button اسمة (تسجيل الخروج) بحيث يخرج الحالي ويعود ليطلب منة اسم المستخدم وكامة المرور
لمستخدم مثلا اخر , علما بأني انشأت ثلاثة مستخدمين بأنواع مختلفة من الصلاحيات
وللعلم انا استخدم oracle8 and devloper2000

هلا بيكي اختي
يمكنك مراجعة الرابط التالي ستجدي طلبك مع قليل من التعديلات
اضغط هنا
مع تمنياتي بالتوفيق

السلام عليكم
اخ black&white
اولا شكرا جزيلا على المساعدة ولكن لدي استفسارات بعد أطلاعي على مافي الرابط و ماعملة احد الاخوان على نفس
موضوعي login وعملت نفس الخطوات تقريبا ولكن مع اني مبتدأة في اللغة لدي هذة الاسئلة:
1)- بالنسبة لل procedure هل اعملة في pl/sql editor واختار بدل trigger اختار procedure واعمل نقس الخطوات
2)- انا عمات تقريبا كل الخطوات وعندما اعمل run ادخل ال username و password وطبعا يتخزن في الجدول حق ال users صارت هذة الفورم ادخال فقط , يعني اريد انا اعمل فورم ويكون ال user وال password مخزن من قبل بس وظيفة الفورم ادخال المستخدم وادخال كلمة السر مشفرة ويقوم بالتأكد من صحتهم في الجدول
3)- ماذا يقصد بال new_form ('main_menu هل يقصد المنيو التي اعملها لكل الفورم بعد الانتهاء من عمل الفورم بالكامل

وعفوا على الاطالة ارجوا منك ان تفيدني اكثر وتوضحلي اكثر حتى افهم وارجوا من باقي الاعضاء المشاركة

وعليكم السلام

اختي الكريمة

بالنسبة لل (procedure) يمكن وضعه في ال (program unit) الموجودة في ال(object navigator) لل (form builder) وتستدعيه من الشاشة الخاصه بالدخول (في زر موافق) كالتالي:

check_auth (:logon_block_name.user_name,:logon_block_name.pass_word);

اما بالنسبة لشاشة الدخول فيتم تصميم شاشة خاصة بالدخول لا تعتمد على اي جدول في الداتابيس وفيها حقلين احدهما لاسم المستخدم والآخر لكلمة المرور وكذلك فيها زرين احدهما موافق وونستدعي فيه ال(procedure) السابق والاخر للتراجع.
طبعا بعد الغاء عملية (log on) الخاصة بالداتابيس

ويمكن استخدام ال(global) كما ذكر الاخ (black&white)

اما بالنسبة لل (main menu) فهي الشاشة الرئيسية لبرنامجك.

ارجو ان اكون قد اوضحت

اخى السائل عن الكود هو كالتالى علماً بان الكود يعمل لدى فى نظام للمرتبات

declare 
	u  number;
	L NUMBER;
	t number;
begin :T:=NVL(:T,0)+1;
	 if to_number(:T)>3 then 
	 	exit_form;
	 else 
	select count(*) into u from users  where LOWER(USER_NAME)=LOWER(:USER_NAME) and LOWER(PASSWORD)=LOWER(:PASSWORD) ;
	 if NVL(u,0)>0 then 
	 	select user_type into :global.t from users  where LOWER(USER_NAME)=LOWER(:USER_NAME) and LOWER(PASSWORD)=LOWER(:PASSWORD) ;
 	new_form('d:/salary/begin.fmx');

	 ELSE 
	 	L:=SHOW_ALERT('pass');
	 end if ;
	 	end if ;
	 	end ;