عايز اعمل شاشه المستخدمين وتتكون من كود المستخدم وكلمه السر بس مش عايز احدد كود مستخدم ولا كلمه سر محدده اسيبه مفتوحه اتمنى من الاخوه اللاعزاء بالمنتدى مساعدتى

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

انا فعلن عامل كده بس مفيش كود عايز يظبط معيا للاسف

delcare
r_pass varchar2(250)
begin
select
pas
into  r_pass
from user_desc
where
user_name=:login_block.user_name
if r_pass=:login_block.pas then
-------
else
-------
end if;
;    --- WHEN NO_DATA_FOUND THEN
;--    WHEN TOO_MANY_ROWS THEN
;--    WHEN  OTHERS THEN
END;

تم تعديل 15 أبريل 201214 سنة بواسطة Ahmad.Hasan

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

PROCEDURE pass IS
 IDVAL	 VARCHAR2(30);
UPASS	 VARCHAR2(30);
BEGIN
SELECT USER_ID, USERPW INTO IDVAL, UPASS
FROM   pas
WHERE  UPPER(USER_ID) = UPPER(:USER_ID);

IF UPASS = :USERPW THEN
	new_form('D:\market_SYSTEM\MODULE1.FMX');
ELSE
	 GO_ITEM('USERPW');
	 MESSAGE('Please check your password.');
	 MESSAGE('Please check your password.');
	 RAISE FORM_TRIGGER_FAILURE;
END IF;

EXCEPTION WHEN NO_DATA_FOUND THEN
	GO_ITEM('USER_ID');
	MESSAGE('Please check ID.');
	MESSAGE('Please check ID.');
	RAISE FORM_TRIGGER_FAILURE;
END;

تم تعديل 15 أبريل 201214 سنة بواسطة Ahmad.Hasan

PROCEDURE pass IS
 IDVAL	 VARCHAR2(30);
UPASS	 VARCHAR2(30);
BEGIN
SELECT USER_ID, USERPW INTO  UPASS,IDVAL
FROM   pas
WHERE  UPPER(USER_ID) = UPPER(:USER_ID);

IF UPASS = :USER_ID and IDVAL = :USERPW THEN
		new_form('D:\market_SYSTEM\MODULE1.FMX');
ELSE
	 GO_ITEM('USERPW');
	 MESSAGE('Please check your password.');
	 MESSAGE('Please check your password.');
	 RAISE FORM_TRIGGER_FAILURE;
END IF;

EXCEPTION WHEN NO_DATA_FOUND THEN
	GO_ITEM('USER_ID');
	MESSAGE('Please check ID.');
	MESSAGE('Please check ID.');
	RAISE FORM_TRIGGER_FAILURE;
END;

PROCEDURE pass IS
 IDVAL	 VARCHAR2(30);
UPASS	 VARCHAR2(30);
BEGIN
SELECT USER_ID, USERPW INTO  UPASS,IDVAL
FROM   pas
WHERE  UPPER(USER_ID) = UPPER(:USER_ID);

IF UPASS = :USER_ID and IDVAL = :USERPW THEN
		new_form('D:\market_SYSTEM\MODULE1.FMX');
ELSE
	 GO_ITEM('USERPW');
	 MESSAGE('Please check your password.');
	 MESSAGE('Please check your password.');
	 RAISE FORM_TRIGGER_FAILURE;
END IF;

EXCEPTION WHEN NO_DATA_FOUND THEN
	GO_ITEM('USER_ID');
	MESSAGE('Please check ID.');
	MESSAGE('Please check ID.');
	RAISE FORM_TRIGGER_FAILURE;
END;

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