عمل زرار Save

بتاريخ: 25 أكتوبر 200817 سنة

السلام عليكم ورحمة الله وبركاتة
كان عندي استفسار بخصوص عمل زرار save في فورم
_________________________________________

انا عندي فورم فيها خمس text item

الاول _________ Item_Name
الثانى _________ trade_mark_IP
الثالث _________ Item_vendor
الرابع _________ item_country
الخامس _________ Item_specification

وفيها alert اسمة 'my_alert'

وعشان اعمل save عملت الكود ده

declare
   shw_alr number;
begin if :item_name is null then
  	set_alert_property('my_alert',alert_message_text,'Please enter the item name.');
  	set_alert_button_property('my_alert', alert_button1, label, 'ok');
  	set_alert_button_property('my_alert', alert_button2, label, null);
  	
  	shw_alr:= show_alert('my_alert');
  	go_item (':item_name');
  	
  	raise form_trigger_failure;
  
  end if;

  if :trade_mark_ip is null then
  	set_alert_property('my_alert',alert_message_text,'Please enter the trade mark ip.');
  	set_alert_button_property('my_alert', alert_button1, label, 'ok');
  	set_alert_button_property('my_alert', alert_button2, label, null);
  	
  	shw_alr:= show_alert('my_alert');
  	go_item (':trade_mark_ip');
  	
  	raise form_trigger_failure;
  
  end if;	  
  
  
  if :item_vendor is null then
  	set_alert_property('my_alert',alert_message_text,'Please enter the item vendor.');
  	set_alert_button_property('my_alert', alert_button1, label, 'ok');
  	set_alert_button_property('my_alert', alert_button2, label, null);
  	
  	shw_alr:= show_alert('my_alert');
  	go_item ('item_vendor');
  	
  	raise form_trigger_failure;
  
  end if;
 
 
  if :item_country is null then
  	set_alert_property('my_alert',alert_message_text,'Please enter the item country.');
  	set_alert_button_property('my_alert', alert_button1, label, 'ok');
  	set_alert_button_property('my_alert', alert_button2, label, null);
  	
  	shw_alr:= show_alert('my_alert');
  	go_item ('item_country');
  	
  	raise form_trigger_failure;
  
  end if;
  
  
  if :item_specification is null then
  	set_alert_property('my_alert',alert_message_text,'Please enter the item specification.');
  	set_alert_button_property('my_alert', alert_button1, label, 'ok');
  	set_alert_button_property('my_alert', alert_button2, label, null);
  	
  	shw_alr:= show_alert('my_alert');
  	go_item ('item_specification');
  	
  	raise form_trigger_failure;
  
  end if;
  
  
  set_alert_property('my_alert', alert_message_text, 'Are you sure you want to save');
  
  set_alert_button_property('my_alert', alert_button1, label, 'Yes');
  set_alert_button_property('my_alert', alert_button2, label, 'NO');
  
  
  if shw_alr = alert_button1 then
  	commit;
  end if;
  
  
end;

وفي هذا الكود لو كان احد ال text item الخمسة لم يتم كتابتة سوف تظهر error
بس لو كان فيه تلاته مثلا من ال text_item لم يتم كتابتهم مش هيدينى error باسماء التلاته الي انا مكتبتهمش

يعنى انا عاوز اعمل كود يديني error بعدد ال text item التى لم يتم كتابتهم

يعنى لو مكتبتش item_name يدينى خطأ بال item_name
ولو مكتبتش item_name/ trade_mark_ip يديني خطا بالاتنين وهكذا

اتمنى ان حد يساعدنى

وجزاكم الله كل خير

اقتباس

تقديم بلاغ

بتاريخ: 25 أكتوبر 200817 سنة

declare
ma varchar2(40);
a1 varchar2(10); 
a2 varchar2(10);
a3 varchar2(10);
a4 varchar2(10);
a5 varchar2(10);
begin if :item_name is null or :trade_mark_ip is null or :item_vendor is null or :item_country is null or :item_specification is null
then
 if :item_name is null then a1 = 'item name'; end if;
 if :trade_mark_ip is null then a2 = 'trade mark ip'; end if;
 if :item_vendor is null then a3 = 'item vendor'; end if;
 if :item_country is null then a4 = 'item country'; end if;
 if :item_specification is null then a5 = 'item specification'; end if;
 ma := 'Please enter the '||a1||chr(32)||a2chr(32)||a3||chr(32)||a4||chr(32)||a5;
 set_alert_property('my_alert',alert_message_text,ma);
 set_alert_button_property('my_alert', alert_button1, label, 'ok');
 set_alert_button_property('my_alert', alert_button2, label, null);
 raise form_trigger_failure;
else 
 set_alert_property('my_alert', alert_message_text, 'Are you sure you want to save');
 set_alert_button_property('my_alert', alert_button1, label, 'Yes');
 set_alert_button_property('my_alert', alert_button2, label, 'NO');
 if shw_alr = alert_button1 then
 commit;
end if;

end;

دة عك عكيتة قبل منام حاول تصلح الأخطاء ال فية
وتدور فى المنتدى او تشوف فى مشاريع الناس

اقتباس

تقديم بلاغ

بتاريخ: 27 أكتوبر 200817 سنة

كاتب الموضوع

مشكور يا اخ حسام

انا صححت الاخطاء الاملائية الي كانت في الكود وكتبته من تانى بس للاسف لم يعمل

DECLARE

ma      VARCHAR2(100);
a1      VARCHAR2(40);
a2      VARCHAR2(40);
a3      VARCHAR2(40);
a4      VARCHAR2(40);
a5      VARCHAR2(40);
shw_alr VARCHAR2(40);

BEGIN IF :item_name          is null OR :trade_mark_ip      is null OR :item_vendor        is null OR :item_country       is null OR :item_specification is null         THEN
	 
	 IF :item_name is null THEN
	 	a1:='item_name';
	 END IF;
	 

	 IF :trade_mark_ip is null THEN
	 	a1:='trade_mark_ip';
	 END IF;		 
	 

	 IF :item_vendor is null THEN
	 	a1:='item_vendor';
	 END IF;
	 

	 IF :item_country is null THEN
	 	a1:='item_country';
	 END IF;
	 
	 IF :item_country is null THEN
	 	a1:='item_country';
	 END IF;
	 
	 IF :item_specification is null THEN
	 	a1:='item_specification';
	 END IF;
	 
	 
    ma := 'Please Enter The'||a1||chr(32)||a2||chr(32)||a3||chr(32)||a4||chr(32)||a5;
    
    
    SET_ALERT_PROPERTY('my_alert', ALERT_MESSAGE_TEXT, ma);
    SET_ALERT_BUTTON_PROPERTY('my_alert', alert_button1, label, 'Yes');
    SET_ALERT_BUTTON_PROPERTY('my_alert', alert_button2, label, null);
    
    raise FORM_TRIGGER_FAILURE;
    
 ELSE
	 
	 SET_ALERT_PROPERTY('my_alert', ALERT_MESSAGE_TEXT, 'Are you sure you want to save');
	 SET_ALERT_BUTTON_PROPERTY('my_alert', ALERT_BUTTON1, LABEL, 'Yes');
	 SET_ALERT_BUTTON_PROPERTY('my_alert', ALERT_BUTTON2, LABEL, 'No');
	 
 END IF;
 
 
 IF shw_alr = ALERT_BUTTON1 THEN
 	commit;
 END IF;
 
END;

جزاك الله كل خير

اقتباس

تقديم بلاغ

بتاريخ: 28 أكتوبر 200817 سنة

كاتب الموضوع

ارجو الرد يا شباب

جزاكم الله كل خير

اقتباس

تقديم بلاغ

بتاريخ: 28 أكتوبر 200817 سنة

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

DECLARE
ma VARCHAR2(100);
a1 VARCHAR2(40);
a2 VARCHAR2(40);
BEGIN IF :cust_no is null OR :CUST_NAME is null then -- main if 

IF :cust_no is null THEN
a1:='Cust_no';
END IF;


IF :CUST_NAME is null THEN
a2:='Cust_name';
END IF;

ma := 'Please Enter The '||a1||','||a2||'.';
ma := replace(ma,',.','.');
message(ma);
message(ma);
raise FORM_TRIGGER_FAILURE;

ELSE -- mail else

message('alert of save');
message('alert of save');

END IF; -- main end

END;

اقتباس

تقديم بلاغ

بتاريخ: 1 نوفمبر 200817 سنة

كاتب الموضوع

الكود الي فات ده لأ الي قبله في خطأ تم تصحيحة بس برضه مش عاوز يشتغل

الكود بعد التصحيح

DECLARE

ma      VARCHAR2(100);
a1      VARCHAR2(40);
a2      VARCHAR2(40);
a3      VARCHAR2(40);
a4      VARCHAR2(40);
a5      VARCHAR2(40);
shw_alr VARCHAR2(40);

BEGIN IF :item_name          is null OR :trade_mark_ip      is null OR :item_vendor        is null OR :item_country       is null OR :item_specification is null         THEN
	 
	 IF :item_name is null THEN
	 	a1:='item_name';
	 END IF;
	 

	 IF :trade_mark_ip is null THEN
	 	a2:='trade_mark_ip';
	 END IF;		 
	 

	 IF :item_vendor is null THEN
	 	a3:='item_vendor';
	 END IF;
	 

	 IF :item_country is null THEN
	 	a4:='item_country';
	 END IF;
	 

	 IF :item_specification is null THEN
	 	a5:='item_specification';
	 END IF;
	 
	 
    ma := 'Please Enter The '||a1||''||a2||''||a3||''||a4||''||a5||'.';
    
    
    SET_ALERT_PROPERTY('my_alert', ALERT_MESSAGE_TEXT, ma);
    SET_ALERT_BUTTON_PROPERTY('my_alert', alert_button1, label, 'Yes');
    SET_ALERT_BUTTON_PROPERTY('my_alert', alert_button2, label, null);
    
    raise FORM_TRIGGER_FAILURE;
    
 ELSE
	 
	 SET_ALERT_PROPERTY('my_alert', ALERT_MESSAGE_TEXT, 'Are you sure you want to save');
	 SET_ALERT_BUTTON_PROPERTY('my_alert', ALERT_BUTTON1, LABEL, 'Yes');
	 SET_ALERT_BUTTON_PROPERTY('my_alert', ALERT_BUTTON2, LABEL, 'No');
	 
 END IF;
 
 
 IF shw_alr = ALERT_BUTTON1 THEN
 	commit;
 END IF;
 
END;

اقتباس

تقديم بلاغ

بتاريخ: 1 نوفمبر 200817 سنة

كاتب الموضوع

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

بس الحمد لله الكود ده اشتغل

DECLARE

ma      VARCHAR2(100);
a1      VARCHAR2(40);
a2      VARCHAR2(40);
a3      VARCHAR2(40);
a4      VARCHAR2(40);
a5      VARCHAR2(40);
shw_alr VARCHAR2(40);

BEGIN IF :item_name          is null OR :trade_mark_ip      is null OR :item_vendor        is null OR :item_country       is null OR :item_specification is null         THEN
	 
	 IF :item_name is null THEN
	 	a1:='item_name';
	 END IF;
	 

	 IF :trade_mark_ip is null THEN
	 	a2:='trade_mark_ip';
	 END IF;		 
	 

	 IF :item_vendor is null THEN
	 	a3:='item_vendor';
	 END IF;
	 

	 IF :item_country is null THEN
	 	a4:='item_country';
	 END IF;
	 

	 IF :item_specification is null THEN
	 	a5:='item_specification';
	 END IF;
	 
	 
    ma := 'Please Enter The '||a1||''||a2||''||a3||''||a4||''||a5||'.';
    
    
    message(ma);
    message(ma);
    
    raise FORM_TRIGGER_FAILURE;
    
 ELSE
	 
	 message('alert of save');
	 message('alert of save');
 END IF;
 
 
 IF shw_alr = ALERT_BUTTON1 THEN
 	commit;
 END IF;
 
END;

شكرا شكرا شكرا يا بشمهندس حسام

اقتباس

تقديم بلاغ

بتاريخ: 1 نوفمبر 200817 سنة

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

وفقك الله الى ماتحب ويرضي

الى مزيد من التقدم

اقتباس

تقديم بلاغ

بتاريخ: 2 نوفمبر 200817 سنة

العفو على اية يميدو
الأخ احمد دة من زوقك بس ..

اقتباس

تقديم بلاغ

بتاريخ: 15 نوفمبر 200817 سنة

كاتب الموضوع

طيب هوه الكود ده ليه مش شغال

DECLARE

ma VARCHAR2(100);
a1 VARCHAR2(40);
a2 VARCHAR2(40);
a3 VARCHAR2(40);
a4 VARCHAR2(40);
a5 VARCHAR2(40);
shw_alr VARCHAR2(40);

BEGIN IF :item_name is null OR :trade_mark_ip is null OR :item_vendor is null OR :item_country is null OR :item_specification is null THEN

IF :item_name is null THEN
a1:='item_name';
END IF;


IF :trade_mark_ip is null THEN
a2:='trade_mark_ip';
END IF; 


IF :item_vendor is null THEN
a3:='item_vendor';
END IF;


IF :item_country is null THEN
a4:='item_country';
END IF;


IF :item_specification is null THEN
a5:='item_specification';
END IF;


ma := 'Please Enter The '||a1||''||a2||''||a3||''||a4||''||a5||'.';


SET_ALERT_PROPERTY('my_alert', ALERT_MESSAGE_TEXT, ma);
SET_ALERT_BUTTON_PROPERTY('my_alert', alert_button1, label, 'Yes');
SET_ALERT_BUTTON_PROPERTY('my_alert', alert_button2, label, null);

raise FORM_TRIGGER_FAILURE;

ELSE

SET_ALERT_PROPERTY('my_alert', ALERT_MESSAGE_TEXT, 'Are you sure you want to save');
SET_ALERT_BUTTON_PROPERTY('my_alert', ALERT_BUTTON1, LABEL, 'Yes');
SET_ALERT_BUTTON_PROPERTY('my_alert', ALERT_BUTTON2, LABEL, 'No');

END IF;


IF shw_alr = ALERT_BUTTON1 THEN
commit;
END IF;

END;

اقتباس

تقديم بلاغ

تسجيل دخول

عمل زرار Save

Featured Replies

انضم إلى المناقشة

برجاء الإنتباه

Account

Navigation

البحث

إعداد إشعارات المتصفح الفورية

Chrome (Android)

Chrome (Desktop)

Safari (iOS 16.4+)

Safari (macOS)

Edge (Android)

Edge (Desktop)

Firefox (Android)

Firefox (Desktop)