كيف تستطيع ان تخرج من شاشة الدخول بعد 3 محاولات فيها  

 

اكتب الكود ده 

;global.test:=0:

فى When-new-form-instance  .....

 

 

واكنب الكود ده

global.test:=:global.test+1;:

If :GLOBAL.TEST>3 THEN
	       EXIT_FORM(NO_VALIDATE);
	        	;End if

تحت زرار Login 

 

 

وفيه فورمه انا عاملها كانت لموضوع Login حملها وشوف الكود اللى جواها

MAIN_FORM_HOS.rar

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

LOGIN_FORM.rar

تم تعديل 9 أكتوبر 201312 سنة بواسطة ميسم الكرام

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

 

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

 

وشكرا جزيلا

إن شاء الله سوف اعمل ملف يخص شاشة الدخول ..وكذلك اوضح عدد المستخدمين وصلاحياتهم .....

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

السلام عليكم

استاذه انا عملت فورم صغيرة جدا عشان تشوفى اية المشكلة دى

لانى خلاص هيجيلى جنان 

لما مكتبش حاجة خالص ولا اكنى كاتب حاجة

لما اكتب فى اسم المستخدم بس يقولى دخل الباس وورد

فى مشكلة فى اسم المستخدم مش قادر افهمها يارب تلاقى حل

USERES.rar

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

انا شاهدت الفورم التي ارفقتها حضرتك لنا ...يجب ان تكتب بالtrigger على مستوى الفورم نوع ال trigger  هو ON-LOGON

الكود التالي 

logon('username','password@db1');

قم بتنزيل الفورم التي ارفقتها انا بالمشاركة السابقة لي ..لكي تتبع باقي الخطوات والعمليات التي تم عملها واعمل مثلها بالضبط ..بالتوفيق ..إن شاء الله

انا عدلت وكتبت اسم قاعدة البيانات والباس ورد وبردة نفس المشكلة

انتى جربتيها واشتغلت معاكى انا فعلا شغال من الفورم بتاعت حضرتك

تم تعديل 8 نوفمبر 201312 سنة بواسطة محمدمحمدطة

حسناً ..لنشرح الفورم التي ارفقتها أنا أو لعمل نافذة الدخول بصورة عامة ...

لعمل نافذة الدخول يجب عمل مايلي:

تعمل جدول وليكن اسمه Login هذا الجدول يتكون من حقلين ..... حقل يمثل لي اسم المستخدم وليكن اسمه user_n

والاحقل الاخر يمثل لي كلمة المرور وليكن اسمه Pass_w.... تمام لحد الان ..جيد 

قم بعملية ادخال لإسم المستخدم ..ولكلمة المرور التي ترغب بهم ..وطبعاً هما ليس بالضرورة يكونان نفس اسم المستخدم وكلمة المرور اللذان استخدمهما في الدخول الى الاسكيما....حسناً يعني استخدم الايعاز insert  لعملية الادخال 

هكذا...

INSERT INTO Login (STU_ID, STU_NAME) VALUES ('aaa', 'aba');

 

 

الان انا دخلت بالجدول اسم المستخدم هو   aaa وكلمة المرور التي اريد ان استخدمها هي aba على سبيل المثال يعني...ثم اعمل commit

 

الان قم بعمل نافذة الدخول على هذا الجدول..والباقي لدى حضرتك بالفورم التي ارفقتها....عند التنفيذ تكتب في النافذة التي صممتها بحقل اسم المستخدم تكتبaaa وبحقل كلمة المرور تكتب aba

لانه انا قد دخلت للإسكيما التي اعمل عليها من خلال الكود الذي كتبته على الtrigger On_login على مستوى الفورم ..وهذا الغرض من تصميم نافذة الدخول هو لحماية التطبيق الذي عملته ..وحتى امنع المستخدم من معرفة الusername والpassword  الخاصين بالاسكيما 

 

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

او يمكننك مراجعة الرابط التالي ...

 

http://www.araboug.org/ib/index.php?showtopic=4336

اكتب الكود ده 

;global.test:=0:

فى When-new-form-instance  .....

 

 

واكنب الكود ده

global.test:=:global.test+1;:

If :GLOBAL.TEST>3 THEN
	       EXIT_FORM(NO_VALIDATE);
	        	;End if

تحت زرار Login 

 

 

وفيه فورمه انا عاملها كانت لموضوع Login حملها وشوف الكود اللى جواها

حملت الملف وفتحته مالقيت اي كود 

السلام عليكم لوسمحتم ايش الخطا في هذا الكود 
طريقة عمله :
في زر تسجيل الدخول اذا ادخل 3 مرات خاطئة يغلق البرنامج 

login..txt

 

اكتب الكود ده 

;global.test:=0:

فى When-new-form-instance  .....

 

 

واكنب الكود ده

global.test:=:global.test+1;:

If :GLOBAL.TEST>3 THEN
	       EXIT_FORM(NO_VALIDATE);
	        	;End if

تحت زرار Login 

 

 

وفيه فورمه انا عاملها كانت لموضوع Login حملها وشوف الكود اللى جواها

حملت الملف وفتحته مالقيت اي كود 

 

لإن الملف المرفق بإصدار 10g وربما حضرتك قمت بفتح الملف بإصدار أقدم

قمت بفتح الملف ونسخ الكود هنا 

 :GLOBAL.TEST:=:GLOBAL.TEST+1;
	  	  
DECLARE
	USR  USERS.USER_NAME%TYPE;
	PASS USERS.PASSWORD%TYPE;
  TYP  USERS.TYPE%TYPE;
	CURSOR CUR IS SELECT USER_NAME,PASSWORD FROM USERS
	               WHERE TYPE = :T;
	             
BEGIN
	
	 /* for i in cur loop
	  	IF  i.user_name =:USERS.USER_NAME  AND i.PASSword=:USERS.PASSWORD AND  :T='user'  THEN
	  		
	  		  MESSAGE('res man');
	  		 
	  ELSIF i.user_name =:USERS.USER_NAME  AND i.PASSword=:USERS.PASSWORD AND  :T='admin' THEN
	  		 
	  		   MESSAGE('admin man');
	  		  
    ELSe
	  	
	       MESSAGE('INVALID IN USERNAME OR PASSWORD');
	       
	  		 END IF;
	 */

  
	 IF NOT CUR%ISOPEN THEN
  	OPEN CUR;
	  END IF;
	  

	  LOOP
	  	
	  	FETCH CUR INTO USR,PASS;
	  	
	  	EXIT WHEN CUR%notfound;
	  END LOOP;
	  
	  IF  :USERS.USER_NAME=USR  AND :USERS.PASSWORD=PASS AND  :T='user'  THEN
	  		SET_ITEM_PROPERTY('LBL',VISIBLE,PROPERTY_FALSE);
	  --		OPEN_FORM('ADD_NEW_STAFF',ACTIVATE,NO_SESSION,NO_SHARE_LIBRARY_DATA,'');
	  	NEW_FORM('ADD_NEW_PATIENT');
	  		  
	  ELSIF  :USERS.USER_NAME=USR  AND :USERS.PASSWORD=PASS AND  :T='admin'  THEN
	  		 SET_ITEM_PROPERTY('LBL',VISIBLE,PROPERTY_FALSE);
	  		   		SET_ITEM_PROPERTY('LBL',VISIBLE,PROPERTY_FALSE);
	  --		OPEN_FORM('ADD_NEW_STAFF',ACTIVATE,NO_SESSION,NO_SHARE_LIBRARY_DATA,'');
	        	NEW_FORM('ADD_NEW_STAFF');
	  		   
	  ELSIF  :GLOBAL.TEST>3 THEN
	  	
	  	EXIT_FORM(NO_VALIDATE);
	  ELSE
	  SET_ITEM_PROPERTY('LBL',VISIBLE,PROPERTY_TRUE);
	  :USERS.LBL:= 'ÎØà Ýì ÅÓã ÇáãÓÊÎÏã Ãæ ßáãÉ ÇáÓÑ..áÇÍÙ: áÏíß 3 ãÍÇæáÇÊ ÝÞØ æÈÚÏåÇ ÓÊÛáÞ ÇáÝæÑãå';
	       IF :GLOBAL.TEST=3 THEN
	       	:USERS.LBL:='ÂÎÑ ÝÑÕå ÞÈá ÇáÎÑæÌ ãä ÇáÝæÑãå';
	       	END IF;
	      
	  END IF;
	  	  
	  close cur;
	  END;