اريد عمل شاشه دخول للبرنامج ؟

[alsof]

السؤال الاول
اريد عمل فورم في أوراكل اسم المستخدم وكلمة المرور اذا ادخل
المستخدم ثلاث مرات خطأ يقوم البرنامج بالخروج
ماهو الكود

السؤال الثاني

عندي فورم بيانات الطلاب ويوجد حقل رقم جواز السفر فيه تاريخ البدايو وتاريح النهاية
السؤال:اريد ان اعمل كود (قبل نهاية جواز السفر بمدة يتم تحديدها تظهر رسالة تحذيرية بذلك)



تفاديا لحذف مواضيعك , يجب ان يكون عنوان الموضوع الذي تكتبه يدل على محتواه , تم تغيير العنوان من قبل المشرف
راجع شروط الكتابه في المنتدي من هنا
راجع الموضوع التالي الى جميع الاعضاء
إداره المنتدي

[san]

الجواب الأول :

في البدايه تحتاج أن تبني جدول للدخول :
مثال :

create table user_login ( username  varchar2(30)  primary key , pass_word  varchar2(30)  not null ) ;

بعد ذلك : تستطيع أن تربط جدول الدخول as global variable وتستطيع أن تتجاهل هذا الخيار .

الخطوة التالية : تعمل فورم ب كابس فاضي تضع تكتس أيتم : لليوزر نايم و للباسوورد
وتعمل زر للدخول تضع فيه التريقر : when buttom press الكود التاللي :

declare
cursor dd is    
select * from user_login; ddv dd%rowtype;

begin for ddv in dd loop 

if (ddv.usrnam = :pass1.usrnam) and (ddv.pass = :pass1.pass)  then
			open_form('c:\pass.fmx'); -- 
else
	message('username or password is wrong');
		end if;
	end loop;

	end;

الجواب الثاني :

تقدر تعمل تكست ايتم تضع فيه الناتج من طرح تاريخ البداية والنهاية و تعمل تريقر when-validate-item
وتستخدم ~if-statment للمقارنه

pass1.fmb

[alsof]

مشكور على هذا الرد الجميل يا اخ
san

[san]

لا شكر على واجب

[alsof]

جربت كود كلمة المرور ولم يعمل عندي
ارجو ان تشرح لي ماذا اغير في الكود لكي يعمل عندي
اريد المستخدم اذا ادخل ثلاث مرات خطأ يخرج من الفورم

[babor_kaz]

Declare
Alert_Btn Number;
v_pw varchar2(32);
Begin Select user_password
into v_pw from ww_users
where user_name = :lst_users;

if :txt_password = v_pw then
	:Global.AUser := :lst_users;
	new_form('mainmenu');
  /*Hide_Window('Login');
  
 go_item('b1');*/
else 
	
	 :tries:=:tries+1;
	 if :tries = 3 then
		exit_form;
		end if;
	 Alert_Btn := Show_Alert('InvalidPW_Alert');
	 
 end if;
End;

[san]

في الملف المرفق تجد شرح و مثال لعمل شاشة دخول .

LOGIN.zip

تم تعديل 14 يونيو 2005 بواسطة san

[عزوني]

عذرا أخي الكريم
بالنسبة لشاشة الدخول وعند كتابة التريقر ظهرت لي خطأ مفاده bad bind variable بالنسبة للسطر مقارنة الباسورد واليوزر نيم

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

[fairness]

الجواب الأول :

في البدايه تحتاج أن تبني جدول للدخول :
مثال :

create table user_login ( username varchar2(30) primary key , pass_word varchar2(30) not null ) ;

بعد ذلك : تستطيع أن تربط جدول الدخول as global variable وتستطيع أن تتجاهل هذا الخيار .

الخطوة التالية : تعمل فورم ب كابس فاضي تضع تكتس أيتم : لليوزر نايم و للباسوورد
وتعمل زر للدخول تضع فيه التريقر : when buttom press الكود التاللي :

declare
cursor dd is 
select * from user_login; ddv dd%rowtype;

begin for ddv in dd loop 

if (ddv.usrnam = :pass1.usrnam) and (ddv.pass = :pass1.pass) then
open_form('c:\pass.fmx'); -- 
else
message('username or password is wrong');
end if;
end loop;

end;

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

[didarm]

دیدار

[LINA MAHMOUD Khidir]

في البدايه تنشي جدول

)create table users
,user_id number primary key
,user_name varchar2(30) not null
,password char(8) not null
,(confirm_password char(8
;((permission varchar2(10

بعد م تنشا الجدول تمشي الفورم و تنشي parameters و سميها فرضا A و بعد داك تدخل الخصائص تبع A و تغيره من char الي number و تيديها قيمه ابتدائية 0 و من ثم تضيف الكود في الزر الخاص بالدخول

 declare
 ;X NUMBER
 BEGIN
(*)select count
into X
FROM USERS
;WHERE :USER_NAME=USERS.USER_NAME AND :PASSWORD=USERS.PASSWORD
	IF (X <> 0) THEN
		;('message('welcome
		open_form('');
else
		;('!!message('ERROR
  	;('!!message('ERROR
		;''=:USER_NAME:
		;''=:PASSWORD:
		 =:parameter.A:
		;Parameter.A+1
		;END IF
	if (:parameter.A=3) then
		;('message('GOOD BYE
		;exit_form
		;end if
	;end