شباب  بدي طريقة إنشاء اتصال بالداتابيز تلقائياً

oracle forms automatic login to database

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

 

 

وشكرا

فيه تريجر اسمه ( ON-LOGON )  اكتب فيه الكود ده

logon('hr','hr@orcl');

طبعا مع تغيير اسم اليوزر والداتا بيز

فيه تريجر اسمه ( ON-LOGON )  اكتب فيه الكود ده

logon('hr','hr@orcl');

طبعا مع تغيير اسم اليوزر والداتا بيز

مشكور على الرد صديقي بس انا شفت هل طريقة يلي فيها سكيورتي اعلى بمانه ما بتكبت الباسورد واليوز تبع الداتا بيز بشكل مباشر بس مشكلتي انها ما م تزبط معي يبدو  انه مالي فهمانها كتير لهيك ما عم اعرف طبقها  ممكن تساعدني اذا عندك علم فيها ؟

DECLARE
	V_USERNAME     VARCHAR2(64);
	V_PASSWORD     VARCHAR2(64);
	V_CONNSTR      VARCHAR2(64);
	V_TEMPNR       NUMBER;
BEGIN
	NULL;
	V_USERNAME := GET_APPLICATION_PROPERTY(USERNAME);
	V_PASSWORD := GET_APPLICATION_PROPERTY(PASSWORD);
	V_CONNSTR  := GET_APPLICATION_PROPERTY(CONNECT_STRING);
	
  -- ALLOW RUNNING FORM IN DEVELPMENT ENVIRONMENT ------------------------------------
	IF V_CONNSTR IS NOT NULL THEN
		--LOGOUT;
		LOGON(V_USERNAME,V_PASSWORD||'@'||V_CONNSTR);		
	END IF;
END;

علشان الكود ده يشتغل لازم تكون الاول كنكت بالداتابيز 

علشان الكود ده يشتغل لازم تكون الاول كنكت بالداتابيز 

 

هو الكود ليعمل اتصال بالداتا بيز اتوماتيكيا بطريقة سكيور اكتر

 

 

DECLARE

un VARCHAR2(30);

pw VARCHAR2(30);

cs VARCHAR2(30);

upc VARCHAR2(200);

connected BOOLEAN := FALSE;

tries NUMBER := 3;

alert_button NUMBER;

PROCEDURE get_connect_info IS

BEGIN

un := GET_APPLICATION_PROPERTY(USERNAME);

pw := GET_APPLICATION_PROPERTY(PASSWORD);

cs := GET_APPLICATION_PROPERTY(CONNECT_STRING);

END;

BEGIN

get_connect_info;

IF un IS NOT NULL THEN

LOGON(un, pw||'@'||cs, FALSE);

IF FORM_SUCCESS THEN /* Successful logon */

connected := TRUE;

END IF;

END IF;

WHILE connected = FALSE and tries > 0 LOOP

upc := un||pw||cs;

LOGON_SCREEN;

get_connect_info;

IF upc = un||pw||cs THEN

EXIT;

END IF;

 

LOGON(un, pw||'@'||cs, FALSE);

IF FORM_SUCCESS THEN /* Successful logon */

connected := TRUE;      

END IF;

tries := tries - 1;

END LOOP;

IF NOT connected THEN

          RAISE FORM_TRIGGER_FAILURE;

END IF;

END;

 

يمكنك الاتصال مباشرة الى قاعدة البيانات كالاتي

المرفق

 C:\orant1\BIN\ifrun60.EXE filename.fmx userid=user/pwd@databasenam