جزاااااااااااااااااك الله الف خير ونفع بك الامة وزادك علما.

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

Desktop.rar

فعلا من المواضيع المهمه جداااااااااااااااااا 

فى ناس كتير بننلخبط فيها فى اول مشروع ليه 

ومنهم انا طبعا 

جزاك الله خير
 

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

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

الخطا  مرفق  بالصورة

الف شكر على الموضوع الرائع

لكن عندى مشكلة عند الضغط على دخول  لا يفعل شىء وتكون الرسالة خطا عند خطا الزناد WHEN BUTTON PRESSED تسبب فى استثناء غير معالج

الحمد لله المشكلة دى اتحلت لكن عند ال وrun والضغط على دخول لا يظهر شريط القوائم الخاص بى menu

المشكلة دى ايضا اتحلت شكرا جزيلا وجزاك الله خيرا نريد ايضا ان نكمل الافكار الجميلة

السلام عليكم

 

مشرفنا الغالي لدي برنامج معمول على 6i وعند شاشة الدخول يقوم المستخدم باختيار المستخدم من الشجرة tree لانه معرف الاقسام وداخل كل قسم المستخدمين , هل استطيع الغاء الشجرة وعمل ماقمت به بالسابق  بحيث عند فتح البرنامج يظهر اسم المستخدم وكلمة المرور فقط بدون الشجرة !

السلام عليكم

يرجى إرفاق صور للتوضيح!!

تم ارفاق ملف  يامشرفنا الغالي

Mm.rar

وين الأخوان ؟؟؟؟

انا عملت كل اللي مكتوب و مش بيديني اي خطاء في اي حاجة ... بس المشكلة اني بدوس علي الرز اللي المفروض يشغل البروسيديوا و اللي انا كاتب غي التريجر بتاع الرز " USERS_ACC; " بس بدوس و كاني معملتش حاجة و بجرب ادخل الرقم و كلمة السر غلط و مرة مكتبش حاجة ... برضة ولا اي حاجة بتحصل ... ممكن افهم اية المشكلة و كيفية حلها

declare
VN_COUNT   NUMBER(10) := 0;
VV_USRSTS  NUMBER(1)  := '';
VV_USRTYPE NUMBER(1)  := '';
VV_TYPE	NUMBER;
BEGIN
  SELECT COUNT(1)
  INTO   VN_COUNT
  FROM   USER_PRV
  WHERE  UPPER(user_logon_name) = UPPER(:USER_PRV.USER_LOGON_NAME) AND UPPER(user_password) = UPPER(:USER_PRV.user_PASSWORD);
  EXCEPTION WHEN NO_DATA_FOUND THEN
	VN_COUNT := 0;
  IF VN_COUNT = 0 THEN
  	:PARAMETER.P_TRIALS := NVL(:PARAMETER.P_TRIALS,0) + 1;
  	IF :PARAMETER.P_TRIALS = 3 THEN
  		EXIT_FORM(NO_COMMIT,NO_VALIDATE);
  	ELSE
  		MESSAGE('ÈÑÌÇÁ ÇÏÎÇá ÇÓã ÇáãÓÊÎÏã æ ßáãÉ ÇáãÑæÑ ÈÔßá ÕÍíÍ');
  		MESSAGE('ÈÑÌÇÁ ÇÏÎÇá ÇÓã ÇáãÓÊÎÏã æ ßáãÉ ÇáãÑæÑ ÈÔßá ÕÍíÍ');
  		GO_BLOCK('USER_PRV');
  		CLEAR_BLOCK(NO_COMMIT);
  		GO_BLOCK('USER_PRV');
  	END IF;
  	ELSE
  	BEGIN
  		SELECT user_STATUS , user_TYPE
  		INTO   VV_USRSTS , VV_USRTYPE
  		FROM   USER_PRV
  		WHERE  UPPER(user_logon_name) = UPPER(:USER_PRV.user_logon_name) AND UPPER(user_PASSWORD) = UPPER(:USER_PRV.user_PASSWORD);
  	END;
  	-- CHECKING USER SETING
  	IF VV_USRSTS <> '0' THEN
  		MESSAGE('åÐÇ ÇáãÓÊÎÏã ãÛáÞ ãä ÞÈá ãÏíÑ ÇáÈÑäÇãÌ ... ÈÑÌÇÁ ÇáÑÌæÚ áå Çæ ÇáÏÎæá ÈãÓÊÎÏã ÇÎÑ');
  		MESSAGE('åÐÇ ÇáãÓÊÎÏã ãÛáÞ ãä ÞÈá ãÏíÑ ÇáÈÑäÇãÌ ... ÈÑÌÇÁ ÇáÑÌæÚ áå Çæ ÇáÏÎæá ÈãÓÊÎÏã ÇÎÑ');
  		EXIT_FORM(NO_COMMIT,NO_VALIDATE);
  	END IF;
  	:GLOBAL.P_USER_TYPE:=VV_USRTYPE;
  	:GLOBAL.P_USER_logon_name:=:USER_PRV.user_logon_name;
  	new_form('C:\Forms\ps\CONTROL.fmx');
  	CLEAR_BLOCK(NO_COMMIT);
  END IF;
  	END;
  	

دة الكود اللي كاتبة  ... مع العلم اني معدل التعديلات نفسها في الجدول و مش بيديني اي اخطاء

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

 

bind variable

 

حاولت الغي bind

 

مما يسبب exception

 

ياريت تساعدني ومشكور مقدما

عاشت ايدك ومشكور

السلام عليكم 

عندى مشكلة فىإظهار اسم المستخدم الذي دخل على النظام على شاشة معينه  مع العلم انى عملت الخطوات

1-تم وضع DISPLAY ITEM على الفورم.
 

 

-2 من خصائص هذا الــ DISPLAY اذهب الى خاصية الــ INITAIL VALUE واكتب بداخلها الكود التالي:

 

 

 

 

:GLOBAL.P_USER_ID

وعند عمل RUN يظهر DISPLAY ITEM فارغ

وشكرا

السلام عليكم 

عندى مشكلة فىإظهار اسم المستخدم الذي دخل على النظام على شاشة معينه  مع العلم انى عملت الخطوات

1-تم وضع DISPLAY ITEM على الفورم.

 

 

-2 من خصائص هذا الــ DISPLAY اذهب الى خاصية الــ INITAIL VALUE واكتب بداخلها الكود التالي:

 

 

 

 

:GLOBAL.P_USER_ID

وعند عمل RUN يظهر DISPLAY ITEM فارغ

وشكرا

 

هل عملت Assign للـ Global في شاشة الدخول؟

ياريت تقول ازاى علشان مش عارف

السلام عليكم

في شاشة الدخول هل كتبت الكود التالي:

:GLOBAL.P_USER_ID:=:USER_PRV.USR_ID;

السلام عليكم

اه يافندم انا عملته زى ما هو موجود والشاشه شغاله تمام بس هى المشكله عندى انى عاوز اظهر اسم المستخدم اللى دخل يظهر فى الشاشات الاخرى

ارفق الكود الموجود في زر الدخول!

PROCEDURE user_acc IS

 

VN_COUNT   NUMBER(10) := 0;

VV_USRSTS  NUMBER(1)  := '';

VV_USRTYPE NUMBER(1)  := '';

VV_TYPE NUMBER;

 

BEGIN

BEGIN

SELECT COUNT(1)

INTO   VN_COUNT

FROM   USER_PRV

WHERE  UPPER(USER_ID) = UPPER(:USER_PRV.USER_ID) AND UPPER(USER_PASSWORD) = UPPER(:USER_PRV.USER_PASSWORD);

EXCEPTION WHEN NO_DATA_FOUND THEN

VN_COUNT := 0;

END;

IF VN_COUNT = 0 THEN

:PARAMETER.P_TRIALS := NVL(:PARAMETER.P_TRIALS,0) + 1;

IF :PARAMETER.P_TRIALS = 3 THEN

EXIT_FORM(NO_COMMIT,NO_VALIDATE);

ELSE

 MESSAGE('ÎØà Ýì ÇÓã ÇáãÓÊÎÏã Ãæ ßáãÉ ÇáãÑæÑ');

   MESSAGE('à Ýì ÇÓã ÇáãÓÊÎÏã Ãæ ßáãÉ ÇáãÑæÑ');

GO_BLOCK('USER_PRV');

CLEAR_BLOCK(NO_COMMIT);

GO_BLOCK('USER_PRV');

END IF;

ELSE

 

BEGIN

SELECT USER_STATUS , USER_TYPE

INTO   VV_USRSTS , VV_USRTYPE

FROM   USER_PRV

WHERE  UPPER(:USER_ID) = UPPER(USER_PRV.USER_ID) AND UPPER(:USER_PASSWORD) = UPPER(USER_PRV.USER_PASSWORD);

EXCEPTION WHEN NO_DATA_FOUND THEN

NULL;

END;

-- CHECKING USER SETING

IF VV_USRSTS <> '0' THEN

MESSAGE('USER ACCOUNT IS LOCKED');

EXIT_FORM(NO_COMMIT,NO_VALIDATE);

END IF;

:GLOBAL.P_USER_TYPE:=VV_USRTYPE; 

:GLOBAL.P_USER_ID:=:USER_PRV.USER_ID;

NEW_form('\\192.168.9.1\gauging_app\forms\GA_MAIN.fmx');

CLEAR_BLOCK(NO_COMMIT);

END IF;

END;

تم تعديل 20 مارس 201411 سنة بواسطة Ahmad.Hasan

طيب جرب كتابة التالي على ترجر WHEN-NEW-FORM-INSTANCE:

:Display_Item_Name :=:GLOBAL.P_USER_ID;

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

بالتوفيق يا صديقي.